diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-08-10 16:40:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-08-10 16:53:58 +0200 |
| commit | b21d05d232ec0aba5abec20e83cc52c1d5163cc3 (patch) | |
| tree | 57665e9adb1ecb2724c6a62d24f844a4cd61ff34 | |
| parent | ebda12e1d2c64480bb7d5977e580d8b2eabeb503 (diff) | |
| download | guix-b21d05d232ec0aba5abec20e83cc52c1d5163cc3.tar.gz | |
read-print: Remove unused procedure.
* guix/read-print.scm (combine-vertical-space): Remove.
| -rw-r--r-- | guix/read-print.scm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/guix/read-print.scm b/guix/read-print.scm index 08e219e204..63ff9ca5bd 100644 --- a/guix/read-print.scm +++ b/guix/read-print.scm @@ -82,11 +82,6 @@ (define vertical-space (record-type-constructor <vertical-space>)) (define vertical-space-height (record-accessor <vertical-space> 'height)) -(define (combine-vertical-space x y) - "Return vertical space as high as the combination of X and Y." - (vertical-space (+ (vertical-space-height x) - (vertical-space-height y)))) - (define canonicalize-vertical-space (let ((unit (vertical-space 1))) (lambda (space) |