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

fixed bug in build-struct-expand-info

Browse Source 
svn: r543
This commit is contained in:
Matthew Flatt 2005-08-04 03:21:37 +00:00
parent cb30a90f04
commit 98ed509542
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/syntax/struct.ss
View File

@ -174,7 +174,8 @@
[(null? l) #t] [(null? l) #t]
[(not (car l)) #f] [(not (car l)) #f]
[else (loop (cdr l))])) [else (loop (cdr l))]))
(append base '(#f))) (append base '(#f))
base)
base))] base))]
[qs (lambda (x) (if (eq? x #t) [qs (lambda (x) (if (eq? x #t)
x x