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 162dc032af7f497ee38873fdb9bcf4a246fc1bad..937e8577765db382185f6d437a6c7479e57fa0e4 100644 (file)
--- 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)))))))
 \f
 (define transform/define-vector-slots
   (macro (class index . slots)