Use GUARANTEE-SYNTAX-TABLE.

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index c871e709a778330be4111a685411771ce9b2a95c..ba757311a8860260c64a790bcbd251594bb7d676 100644 (file)
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.60 2001/08/10 17:10:33 cph Exp $
+$Id: toplev.scm,v 4.61 2001/12/18 21:30:57 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -78,7 +78,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
              (fluid-let ((sf/default-syntax-table
                           (if (default-object? syntax-table)
                               #f
-                              syntax-table))
+                              (guarantee-syntax-table syntax-table
+                                                      'COMPILE-FILE)))
                          (sf/default-declarations
                           `((USUAL-INTEGRATIONS
                              ,@compile-file:override-usual-integrations)