aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-08-10 16:40:06 +0200
committerLudovic Courtès <ludo@gnu.org>2022-08-10 16:53:58 +0200
commitb21d05d232ec0aba5abec20e83cc52c1d5163cc3 (patch)
tree57665e9adb1ecb2724c6a62d24f844a4cd61ff34
parentebda12e1d2c64480bb7d5977e580d8b2eabeb503 (diff)
downloadguix-b21d05d232ec0aba5abec20e83cc52c1d5163cc3.tar
guix-b21d05d232ec0aba5abec20e83cc52c1d5163cc3.tar.gz
read-print: Remove unused procedure.
* guix/read-print.scm (combine-vertical-space): Remove.
-rw-r--r--guix/read-print.scm5
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)