release

original commit: 032487bf60405718bd47ba75cd01cd2194df2ba4
1997-06-18 14:16:21 +00:00 · 1997-06-18 14:16:21 +00:00 · 210e2e83e2
commit 210e2e83e2
parent 68ea6591ec
1 changed files with 4 additions and 1 deletions
--- a/collects/mzlib/awk.ss
+++ b/collects/mzlib/awk.ss
@ -117,7 +117,10 @@
 			      [(eq? test '/)
 			       (let ([g (gensym)]
 				     [re (car body)]
-				     [vars (caddr body)]
+				     [vars (append (map (lambda (s)
+							  (or s (gensym)))
+							(caddr body))
+						   (gensym))]
 				     [body (cdddr body)])
 				 (set! initvars (cons `(,g (regexp ,re)) initvars))
 				 (cons