From 1de6951dbcff117d270f6a51af94f6be883f0462 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Feb 2002 01:24:24 +0000
Subject: [PATCH] Make sure that all expressions are properly closed.

---
 v7/src/compiler/back/asmmac.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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)
-- 
2.25.1