fixed bug in build-struct-expand-info

svn: r543
2005-08-04 03:21:37 +00:00 · 2005-08-04 03:21:37 +00:00 · 98ed509542
commit 98ed509542
parent cb30a90f04
1 changed files with 2 additions and 1 deletions
--- a/collects/syntax/struct.ss
+++ b/collects/syntax/struct.ss
@ -174,7 +174,8 @@
 				  [(null? l) #t]
 				  [(not (car l)) #f]
 				  [else (loop (cdr l))]))
-			       (append base '(#f)))
+			       (append base '(#f))
+			       base)
 			   base))]
 	     [qs (lambda (x) (if (eq? x #t)
 				 x