From 1728b987901d3e23d9f53c5d64775bdda632c44f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 21 May 1987 14:55:09 +0000 Subject: [PATCH] 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. --- v7/src/compiler/base/macros.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1