From f8a5aa828f0d7fc69b4866ed2d06c26f5198e9d9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 20 Dec 2001 05:04:28 +0000 Subject: [PATCH] Fix bug: compiler was being syntaxed in wrong environment. --- v7/src/compiler/machines/i386/compiler.sf | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/i386/compiler.sf b/v7/src/compiler/machines/i386/compiler.sf index 2f67e6c18..885a10bfc 100644 --- a/v7/src/compiler/machines/i386/compiler.sf +++ b/v7/src/compiler/machines/i386/compiler.sf @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: compiler.sf,v 1.16 2001/12/20 03:04:02 cph Exp $ +$Id: compiler.sf,v 1.17 2001/12/20 05:04:28 cph Exp $ Copyright (c) 1992-2001 Massachusetts Institute of Technology @@ -36,7 +36,8 @@ USA. (if (lexical-unreferenceable? (->environment '(COMPILER)) 'SYNTAX-FILES!) (let ((sf-and-load (lambda (files package) - (sf-conditionally files) + (fluid-let ((sf/default-syntax-table (->environment package))) + (sf-conditionally files)) (for-each (lambda (file) (load (string-append file ".bin") package)) files)))) @@ -54,8 +55,7 @@ USA. ((access initialize-package! environment))) (sf-and-load '("base/pmlook") '(COMPILER PATTERN-MATCHER/LOOKUP)) (sf-and-load '("base/pmpars") '(COMPILER PATTERN-MATCHER/PARSER)) - (fluid-let ((sf/default-syntax-table (->environment '(COMPILER)))) - (sf-and-load '("machines/i386/machin") '(COMPILER))) + (sf-and-load '("machines/i386/machin") '(COMPILER)) (fluid-let ((sf/default-declarations '((integrate-external "insseq") (integrate-external "machin") -- 2.25.1