me
/
guix
Archived
1
0
Fork 0
Code

read-print: Remove unused procedure. 

* guix/read-print.scm (combine-vertical-space): Remove.
Ludovic Courtès 2022-08-10 16:40:06 +02:00
parent ebda12e1d2
commit b21d05d232
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/read-print.scm
View File

@ -82,11 +82,6 @@
(define vertical-space (record-type-constructor <vertical-space>)) (define vertical-space (record-type-constructor <vertical-space>))
(define vertical-space-height (record-accessor <vertical-space> 'height)) (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 (define canonicalize-vertical-space
(let ((unit (vertical-space 1))) (let ((unit (vertical-space 1)))
(lambda (space) (lambda (space)