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

release

Browse Source 
original commit: 032487bf60405718bd47ba75cd01cd2194df2ba4
This commit is contained in:
Matthew Flatt 1997-06-18 14:16:21 +00:00
parent 68ea6591ec
commit 210e2e83e2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/awk.ss
View File

@ -117,7 +117,10 @@
[(eq? test '/) [(eq? test '/)
(let ([g (gensym)] (let ([g (gensym)]
[re (car body)] [re (car body)]
[vars (caddr body)] [vars (append (map (lambda (s)
(or s (gensym)))
(caddr body))
(gensym))]
[body (cdddr body)]) [body (cdddr body)])
(set! initvars (cons `(,g (regexp ,re)) initvars)) (set! initvars (cons `(,g (regexp ,re)) initvars))
(cons (cons