release

original commit: cc961bfa348aca360b6f97fa1ab9aa1be2b6139b
1997-06-09 18:20:14 +00:00 · 1997-06-09 18:20:14 +00:00 · 68ea6591ec
commit 68ea6591ec
parent da92e37037
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/awk.ss
+++ b/collects/mzlib/awk.ss
@ -135,7 +135,7 @@
 				rest)])))))])
 	   (let ([testing-clauses (get-testing-clauses)])
 	     `(let (,@user-state-var-decls ,@initvars)
-		(let ,loop ([,counter 0]) 
+		(let ,loop ([,counter 1]) 
 		     (call-with-values
 		      (lambda () ,get-next-record)
 		      (lambda ,user-fields