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

oops

Browse Source 
svn: r13415
This commit is contained in:
Robby Findler 2009-02-04 16:00:47 +00:00
parent fbe518937c
commit 4c22de3cf5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/redex/private/core-layout.ss
View File

@ -497,7 +497,7 @@
[line-num (line-n line)] [line-num (line-n line)]
[rst (cdr lines)]) [rst (cdr lines)])
(if (null? line-content) (if (null? line-content)
(cons (cons line) (loop (cdr lines))) (cons line (loop (cdr lines)))
(if (spacer-token? (car line-content)) (if (spacer-token? (car line-content))
(let ([pict (blank)]) (let ([pict (blank)])
(if (andmap (lambda (x) (null? (line-tokens x))) rst) (if (andmap (lambda (x) (null? (line-tokens x))) rst)