From 708ba11fdbc627e445fca72eba120d63d109d15c Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 13 Sep 1989 20:44:32 +0000 Subject: [PATCH] Fix bugs in fggen/{canon,fggen}.scm introduced when compiler:compile-by-procedure? was added. --- v7/src/compiler/fggen/canon.scm | 5 +++-- v7/src/compiler/fggen/fggen.scm | 10 ++++++---- v7/src/compiler/machines/bobcat/make.scm-68040 | 4 ++-- 3 files changed, 11 insertions(+), 8 deletions(-) diff --git a/v7/src/compiler/fggen/canon.scm b/v7/src/compiler/fggen/canon.scm index f15ead5a2..225e9e03e 100644 --- a/v7/src/compiler/fggen/canon.scm +++ b/v7/src/compiler/fggen/canon.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/canon.scm,v 1.6 1989/08/21 19:33:57 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/canon.scm,v 1.7 1989/09/13 20:44:17 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -455,8 +455,9 @@ ARBITRARY: The expression may be executed more than once. It (ucode-primitive SCODE-EVAL) (list (let ((nexp (scode/make-directive + (scode/make-quotation exp) '(COMPILE) - (scode/make-quotation exp) original-expression))) + original-expression))) (if arbitrary? (scode/make-combination (scode/make-absolute-reference 'COPY-PROGRAM) diff --git a/v7/src/compiler/fggen/fggen.scm b/v7/src/compiler/fggen/fggen.scm index a835b8fec..444a81b6c 100644 --- a/v7/src/compiler/fggen/fggen.scm +++ b/v7/src/compiler/fggen/fggen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.19 1989/08/21 19:34:01 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.20 1989/09/13 20:44:32 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -717,9 +717,11 @@ MIT in each case. |# (if (not (scode/quotation? expression)) (error "Bad compile directive" comment)) (continue/rvalue-constant block continuation - (make-constant - (compile-recursively - (scode/quotation-expression expression false))))) ((COMPILE-PROCEDURE) + (make-constant + (compile-recursively + (scode/quotation-expression expression) + false)))) + ((COMPILE-PROCEDURE) (if (not (scode/lambda? expression)) (error "Bad compile-procedure directive" comment)) (continue/rvalue-constant block continuation diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040 index d0e85541a..290fc5827 100644 --- a/v7/src/compiler/machines/bobcat/make.scm-68040 +++ b/v7/src/compiler/machines/bobcat/make.scm-68040 @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.50 1989/08/28 18:34:09 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.51 1989/09/13 20:44:01 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -41,4 +41,4 @@ MIT in each case. |# ((package/reference (find-package name) 'INITIALIZE-PACKAGE!))) '((COMPILER MACROS) (COMPILER DECLARATIONS))) -(add-system! (make-system "Liar (Motorola MC68020)" 4 50 '())) \ No newline at end of file +(add-system! (make-system "Liar (Motorola MC68020)" 4 51 '())) \ No newline at end of file -- 2.25.1