From 095409f45fa37a68d0af8220ba51a053bb110b53 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 27 Jul 1995 14:17:36 +0000 Subject: [PATCH] Altered DEFINE-EXPORT's expansion so that it (and consequently a file) does not end in a SET!. --- v8/src/compiler/base/macros.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) 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) -- 2.25.1