From 2b5985b2141c685c7431a5d6c96cd1694227ed65 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 20 Dec 2001 04:14:49 +0000 Subject: [PATCH] Fix missing bindings for UCODE-PRIMITIVE and UCODE-TYPE. --- v7/src/compiler/base/macros.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/base/macros.scm b/v7/src/compiler/base/macros.scm index 2d755146f..8e9484d28 100644 --- a/v7/src/compiler/base/macros.scm +++ b/v7/src/compiler/base/macros.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: macros.scm,v 4.19 2001/12/20 03:48:45 cph Exp $ +$Id: macros.scm,v 4.20 2001/12/20 04:14:49 cph Exp $ Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology @@ -30,6 +30,11 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA (lap-syntaxer-env (->environment '(COMPILER LAP-SYNTAXER)))) (set-environment-syntax-table! compiler-env (make-syntax-table (->environment '()))) + (let ((runtime-env (->environment '(RUNTIME)))) + (for-each (lambda (name) + (syntax-table/define compiler-env name + (syntax-table/ref runtime-env name))) + '(UCODE-PRIMITIVE UCODE-TYPE))) (for-each (lambda (entry) (syntax-table/define compiler-env (car entry) (cadr entry))) `((CFG-NODE-CASE ,transform/cfg-node-case) -- 2.25.1