From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Feb 2002 01:24:24 +0000 (+0000)
Subject: Make sure that all expressions are properly closed.
X-Git-Tag: 20090517-FFI~2241
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1de6951dbcff117d270f6a51af94f6be883f0462;p=mit-scheme.git

Make sure that all expressions are properly closed.
---

diff --git a/v7/src/compiler/back/asmmac.scm b/v7/src/compiler/back/asmmac.scm
index 7287b3b25..4f15182b8 100644
--- a/v7/src/compiler/back/asmmac.scm
+++ b/v7/src/compiler/back/asmmac.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: asmmac.scm,v 1.14 2002/02/12 00:25:08 cph Exp $
+$Id: asmmac.scm,v 1.15 2002/02/14 01:24:24 cph Exp $
 
 Copyright (c) 1988, 1990, 1999, 2001, 2002 Massachusetts Institute of Technology
 
@@ -35,7 +35,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 		pattern
 		(if (not (pair? actions))
 		    (error "DEFINE-INSTRUCTION: Too few forms."))
-		(parse-instruction (car actions) (cdr actions) #f))))
+		(parse-instruction (car actions) (cdr actions) #f
+				   environment))))
 	 (ill-formed-syntax form)))))
 
 (define (compile-database cases environment procedure)