From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 14:17:36 +0000 (+0000)
Subject: Altered DEFINE-EXPORT's expansion so that it (and consequently a file)
X-Git-Tag: 20090517-FFI~6123
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=095409f45fa37a68d0af8220ba51a053bb110b53;p=mit-scheme.git

Altered DEFINE-EXPORT's expansion so that it (and consequently a file)
does not end in a SET!.
---

diff --git a/v8/src/compiler/base/macros.scm b/v8/src/compiler/base/macros.scm
index 162dc032a..937e85777 100644
--- a/v8/src/compiler/base/macros.scm
+++ b/v8/src/compiler/base/macros.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: macros.scm,v 1.2 1995/04/24 22:15:33 adams Exp $
+$Id: macros.scm,v 1.3 1995/07/27 14:17:36 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -114,10 +114,14 @@ MIT in each case. |#
     (parse-define-syntax pattern body
       (lambda (name body)
 	name
-	`(SET! ,pattern ,@body))
+	`(BEGIN
+	   (SET! ,name ,@body)
+	   (QUOTE ,name)))
       (lambda (pattern body)
-	`(SET! ,(car pattern)
-	       (NAMED-LAMBDA ,pattern ,@body))))))
+	`(BEGIN
+	   (SET! ,(car pattern)
+		  (NAMED-LAMBDA ,pattern ,@body))
+	   (QUOTE ,(car pattern)))))))
 
 (define transform/define-vector-slots
   (macro (class index . slots)