Eliminate reference to GUARANTEE-SYNTAX-TABLE.

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index ba757311a8860260c64a790bcbd251594bb7d676..0f43ed257697f61fc15db4b21b7b3c2678fa54fc 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.61 2001/12/18 21:30:57 cph Exp $
+$Id: toplev.scm,v 4.62 2001/12/21 18:31:11 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -67,7 +67,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                (doit)))))))
 
   (set! compile-file
-       (named-lambda (compile-file file #!optional dependencies syntax-table)
+       (named-lambda (compile-file file #!optional dependencies environment)
          (process-file (scm-pathname file)
                        (bin-pathname file)
                        (map ext-pathname
@@ -76,10 +76,14 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                                 dependencies))
            (lambda (input-file output-file dependencies)
              (fluid-let ((sf/default-syntax-table
-                          (if (default-object? syntax-table)
+                          (if (default-object? environment)
                               #f
-                              (guarantee-syntax-table syntax-table
-                                                      'COMPILE-FILE)))
+                              (begin
+                                (if (not (environment? environment))
+                                    (error:wrong-type-argument environment
+                                                               "environment"
+                                                               'COMPILE-FILE))
+                                environment)))
                          (sf/default-declarations
                           `((USUAL-INTEGRATIONS
                              ,@compile-file:override-usual-integrations)