From df7b5bea3495c8b2f8c199a96eb37edde121fa1b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 13 Feb 2002 05:56:24 +0000
Subject: [PATCH] Eliminate non-hygienic macros.

---
 v7/src/compiler/machines/alpha/insmac.scm | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/v7/src/compiler/machines/alpha/insmac.scm b/v7/src/compiler/machines/alpha/insmac.scm
index 6c7bc7223..0c82455e7 100644
--- a/v7/src/compiler/machines/alpha/insmac.scm
+++ b/v7/src/compiler/machines/alpha/insmac.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: insmac.scm,v 1.4 2001/12/23 17:20:57 cph Exp $
+$Id: insmac.scm,v 1.5 2002/02/13 05:56:24 cph Exp $
 
-Copyright (c) 1992-1999, 2001 Massachusetts Institute of Technology
+Copyright (c) 1992-1999, 2001, 2002 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -28,18 +28,19 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;;;; Definition macros
 
 (define-syntax define-symbol-transformer
-  (non-hygienic-macro-transformer
-   (lambda (name . alist)
-     `(DEFINE-INTEGRABLE (,name SYMBOL)
-	(LET ((PLACE (ASSQ SYMBOL ',alist)))
+  (sc-macro-transformer
+   (lambda (form environment)
+     environment
+     `(DEFINE-INTEGRABLE (,(cadr form) SYMBOL)
+	(LET ((PLACE (ASSQ SYMBOL ',(cddr form))))
 	  (IF (PAIR? PLACE)
 	      (CDR PLACE)
 	      #F))))))
 
 (define-syntax define-transformer
-  (non-hygienic-macro-transformer
-   (lambda (name value)
-     `(DEFINE ,name ,value))))
+  (sc-macro-transformer
+   (lambda (form environment)
+     `(DEFINE ,(cadr form) ,(close-syntax (caddr form) environment)))))
 
 ;;;; Fixed width instruction parsing
 
-- 
2.25.1