From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 30 Apr 1998 22:24:48 +0000 (+0000)
Subject: Fix ENVIRONMENT-SYNTAX-TABLE so that it works for compiled-code
X-Git-Tag: 20090517-FFI~4801
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=47a9281124226b3710b30950ff0168638cb97090;p=mit-scheme.git

Fix ENVIRONMENT-SYNTAX-TABLE so that it works for compiled-code
environments.
---

diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm
index bdc53e112..bd3b542f7 100644
--- a/v7/src/runtime/syntax.scm
+++ b/v7/src/runtime/syntax.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syntax.scm,v 14.29 1998/04/30 21:28:01 cph Exp $
+$Id: syntax.scm,v 14.30 1998/04/30 22:24:48 cph Exp $
 
 Copyright (c) 1988-98 Massachusetts Institute of Technology
 
@@ -130,9 +130,13 @@ MIT in each case. |#
   *syntax-top-level?*)
 
 (define (environment-syntax-table environment)
-  (lexical-reference environment syntax-table-tag))
+  (environment-lookup environment syntax-table-tag))
 
 (define (set-environment-syntax-table! environment table)
+  (if (not (interpreter-environment? environment))
+      (error:wrong-type-argument environment
+				 "interpreter environment"
+				 'SET-ENVIRONMENT-SYNTAX-TABLE!))
   (local-assignment environment syntax-table-tag table))
 
 (define-integrable syntax-table-tag