From b21d05d232ec0aba5abec20e83cc52c1d5163cc3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 10 Aug 2022 16:40:06 +0200
Subject: [PATCH] read-print: Remove unused procedure.

* guix/read-print.scm (combine-vertical-space): Remove.
---
 guix/read-print.scm | 5 -----
 1 file changed, 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-predicate <vertical-space>))
 (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)