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 b72b645ef1f6c2cdf920c45d37ee39e001756ec5..c1e36cacd556aa5f05f9cef1d40c745b7ba2c5a4 100644 (file)
--- 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)))))))
 \f
 (define (find-file-revert buffer)

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index c3eeb82f2598afc14df27fc879bbc723402c9680..69d55c8057168dcf966c6bbbe2c0261201cff8c4 100644 (file)
--- 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