From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 17 Dec 2001 04:42:01 +0000 (+0000)
Subject: Allow syntax-table information to be left out of FFI tables.  This
X-Git-Tag: 20090517-FFI~2404
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=30fb269776297a4f266dc1658aaa8f2664d9b90f;p=mit-scheme.git

Allow syntax-table information to be left out of FFI tables.  This
simplifies transition to new system in which syntax information is
stored in environments.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index b72b645ef..c1e36cacd 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.220 2001/10/30 19:26:40 cph Exp $
+;;; $Id: filcom.scm,v 1.221 2001/12/17 04:41:46 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -243,7 +243,7 @@ procedures are called."
 	  (begin
 	    (local-set-variable! scheme-environment (cadr entry) buffer)
 	    (if (and (eq? 'DEFAULT (ref-variable scheme-environment buffer))
-		     (not (eq? 'default (cadr entry))))
+		     (not (eq? 'DEFAULT (cadr entry))))
 		(begin
 		  (message "Ignoring bad evaluation environment: "
 			   (cadr entry))
@@ -251,7 +251,9 @@ procedures are called."
 				       'DEFAULT
 				       buffer))
 		(local-set-variable! scheme-syntax-table
-				     (caddr entry)
+				     (if (pair? (cddr entry))
+					 (caddr entry)
+					 'DEFAULT)
 				     buffer)))))))
 
 (define (find-file-revert buffer)
diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index c3eeb82f2..69d55c805 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 3.111 2001/08/17 13:00:59 cph Exp $
+$Id: make.scm,v 3.112 2001/12/17 04:42:01 cph Exp $
 
 Copyright (c) 1989-2001 Massachusetts Institute of Technology
 
@@ -47,4 +47,4 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 		   (pathname-new-name pathname package-name)))
 	     (alternate-package-loader
 	      . ,(load "edwin.bld" system-global-environment)))))))))
-(add-identification! "Edwin" 3 110)
\ No newline at end of file
+(add-identification! "Edwin" 3 111)
\ No newline at end of file