From c6d4bcef11a452d9b4d3af33c1744eec94d4c54d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 21 Dec 2001 18:32:11 +0000 Subject: [PATCH] Eliminate reference to SYNTAX-TABLE?. --- v7/src/sf/toplev.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.25.1