From 68ea6591ec6ed017f52d7f36f1f14516353cfffa Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 9 Jun 1997 18:20:14 +0000 Subject: [PATCH] release original commit: cc961bfa348aca360b6f97fa1ab9aa1be2b6139b --- collects/mzlib/awk.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/awk.ss b/collects/mzlib/awk.ss index 37f4603..5c70ced 100644 --- 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