From ca64ce1415c7600ec8cda3f4138397f6dbc35b6f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 11 Jul 2007 02:23:58 +0000 Subject: [PATCH] fix spacing with code-vl-append svn: r6888 --- collects/texpict/code.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/texpict/code.ss b/collects/texpict/code.ss index 5898fa9e07..4a1fa54c38 100644 --- a/collects/texpict/code.ss +++ b/collects/texpict/code.ss @@ -48,10 +48,10 @@ (define code-vl-append (case-lambda - [(a b) (to-code-pict (vl-append a b) b)] - [(a) a] - [(a . rest) - (code-vl-append a (apply code-vl-append rest))])) + [(sep a b) (to-code-pict (vl-append sep a b) b)] + [(sep a) a] + [(sep a . rest) + (code-vl-append sep a (apply code-vl-append sep rest))])) (define-syntax (define-code stx) (syntax-case stx ()