oops

svn: r13415
2009-02-04 16:00:47 +00:00 · 2009-02-04 16:00:47 +00:00 · 4c22de3cf5
commit 4c22de3cf5
parent fbe518937c
1 changed files with 1 additions and 1 deletions
--- a/collects/redex/private/core-layout.ss
+++ b/collects/redex/private/core-layout.ss
@ -497,7 +497,7 @@
                [line-num (line-n line)]
                [rst (cdr lines)])
           (if (null? line-content)
-               (cons (cons line) (loop (cdr lines)))
+               (cons line (loop (cdr lines)))
               (if (spacer-token? (car line-content))
                   (let ([pict (blank)])
                     (if (andmap (lambda (x) (null? (line-tokens x))) rst)