From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Dec 2001 18:32:11 +0000 (+0000)
Subject: Eliminate reference to SYNTAX-TABLE?.
X-Git-Tag: 20090517-FFI~2317
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c6d4bcef11a452d9b4d3af33c1744eec94d4c54d;p=mit-scheme.git

Eliminate reference to SYNTAX-TABLE?.
---

diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm
index e58df1307..0b9dfdc05 100644
--- a/v7/src/sf/toplev.scm
+++ b/v7/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.20 2001/12/21 18:27:27 cph Exp $
+$Id: toplev.scm,v 4.21 2001/12/21 18:32:11 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -120,8 +120,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;;;; File Syntaxer
 
 (define (syntax-file input-string bin-string spec-string)
-  (if (not (or (false? sf/default-syntax-table)
-	       (syntax-table? sf/default-syntax-table)))
+  (if (not (or (not sf/default-syntax-table)
+	       (environment? sf/default-syntax-table)))
       (error "Malformed binding of SF/DEFAULT-SYNTAX-TABLE:"
 	     sf/default-syntax-table))
   (if (not (list-of-symbols? sf/top-level-definitions))