From 210e2e83e2993a79aab014e065aad386e492fd28 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 18 Jun 1997 14:16:21 +0000
Subject: [PATCH] release

original commit: 032487bf60405718bd47ba75cd01cd2194df2ba4
---
 collects/mzlib/awk.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/awk.ss b/collects/mzlib/awk.ss
index 5c70ced..d130a90 100644
--- 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