Eliminate references to SYNTAX-TABLE/SYSTEM-INTERNAL.

diff --git a/v7/src/sf/sf.sf b/v7/src/sf/sf.sf
index f1916d86334e05ca9d6d6564848eb9ad1e3651b1..4e740d73cc8aa83c9d1f8fa804bef7579ab2f119 100644 (file)
--- a/v7/src/sf/sf.sf
+++ b/v7/src/sf/sf.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sf.sf,v 4.9 2001/08/15 03:06:05 cph Exp $
+$Id: sf.sf,v 4.10 2001/12/19 21:53:03 cph Exp $
 
 Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology
 
@@ -20,7 +20,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
 USA.
 |#
 
-(fluid-let ((sf/default-syntax-table syntax-table/system-internal)
+(fluid-let ((sf/default-syntax-table (->environment '(RUNTIME)))
            (sf/top-level-definitions 
             '(ACCESS?
               ASSIGNMENT?

diff --git a/v7/src/win32/win32.sf b/v7/src/win32/win32.sf
index e80142444dc57cd794340b8c8127eeb6b8a7a237..a07ffea1eb1ba687a5b468a44d7fb5c46a0ff5ac 100644 (file)
--- a/v7/src/win32/win32.sf
+++ b/v7/src/win32/win32.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: win32.sf,v 1.6 2001/12/19 21:52:41 cph Exp $
+$Id: win32.sf,v 1.7 2001/12/19 21:55:37 cph Exp $
 
 Copyright (c) 1993-1999, 2001 Massachusetts Institute of Technology
 
@@ -32,7 +32,7 @@ USA.
       ("dib"        "win_ffi")))
 
   (sf-conditionally "ffimacro")
-  (if (file-modification-time<? "ffimacro.bin" "ffimacro.com")
+  (if (not (file-modification-time<? "ffimacro.bin" "ffimacro.com"))
       (cbf "ffimacro"))
   (load "ffimacro")