From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Dec 2001 21:55:37 +0000 (+0000)
Subject: Eliminate references to SYNTAX-TABLE/SYSTEM-INTERNAL.
X-Git-Tag: 20090517-FFI~2351
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=45a8e4e54ad6caa9d70ac5ce68a5c7a7a86a4d44;p=mit-scheme.git

Eliminate references to SYNTAX-TABLE/SYSTEM-INTERNAL.
---

diff --git a/v7/src/sf/sf.sf b/v7/src/sf/sf.sf
index f1916d863..4e740d73c 100644
--- 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 e80142444..a07ffea1e 100644
--- 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")