From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 May 1987 14:55:09 +0000 (+0000)
Subject: Rewrite the expansion for the RTL construction procedures so that they
X-Git-Tag: 20090517-FFI~13495
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1728b987901d3e23d9f53c5d64775bdda632c44f;p=mit-scheme.git

Rewrite the expansion for the RTL construction procedures so that they
in-line code correctly.  Previously they were lexprs, which do not
integrate very well.
---

diff --git a/v7/src/compiler/base/macros.scm b/v7/src/compiler/base/macros.scm
index bb89b99a9..ae93d702d 100644
--- a/v7/src/compiler/base/macros.scm
+++ b/v7/src/compiler/base/macros.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/macros.scm,v 1.57 1987/04/17 10:51:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/macros.scm,v 1.58 1987/05/21 14:55:09 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -188,8 +188,8 @@ MIT in each case. |#
 (let ((rtl-common
        (lambda (type prefix components wrap-constructor)
 	 `(BEGIN
-	    (DEFINE-INTEGRABLE (,(symbol-append prefix 'MAKE- type) . REST)
-	      ,(wrap-constructor `(CONS ',type REST)))
+	    (DEFINE-INTEGRABLE (,(symbol-append prefix 'MAKE- type) ,@components)
+	      ,(wrap-constructor `(LIST ',type ,@components)))
 	    (DEFINE-INTEGRABLE (,(symbol-append 'RTL: type '?) EXPRESSION)
 	      (EQ? (CAR EXPRESSION) ',type))
 	    ,@(let loop ((components components)