suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix spacing with code-vl-append

Browse Source 
svn: r6888
This commit is contained in:
Matthew Flatt 2007-07-11 02:23:58 +00:00
parent 33b4228a4e
commit ca64ce1415
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/texpict/code.ss
View File

@ -48,10 +48,10 @@
(define code-vl-append (define code-vl-append
(case-lambda (case-lambda
[(a b) (to-code-pict (vl-append a b) b)] [(sep a b) (to-code-pict (vl-append sep a b) b)]
[(a) a] [(sep a) a]
[(a . rest) [(sep a . rest)
(code-vl-append a (apply code-vl-append rest))])) (code-vl-append sep a (apply code-vl-append sep rest))]))
(define-syntax (define-code stx) (define-syntax (define-code stx)
(syntax-case stx () (syntax-case stx ()