From 4c22de3cf5146fa20836a633b5b57582b4c504d4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 4 Feb 2009 16:00:47 +0000 Subject: [PATCH] oops svn: r13415 --- collects/redex/private/core-layout.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/redex/private/core-layout.ss b/collects/redex/private/core-layout.ss index ab246c7888..fe501c59b8 100644 --- 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)