Use default syntax table for LOAD.

diff --git a/v7/src/edwin/autold.scm b/v7/src/edwin/autold.scm
index e93d216f79bae8d1b374ad73dfafca683721f033..c70d8185313178df4eb9bf5c584f500939d6b9b3 100644 (file)
--- a/v7/src/edwin/autold.scm
+++ b/v7/src/edwin/autold.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;$Id: autold.scm,v 1.61 2001/12/19 01:45:49 cph Exp $
+;;;$Id: autold.scm,v 1.62 2001/12/19 01:57:36 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -176,7 +176,7 @@ Second arg is prefix arg when called interactively."
                (lambda (entry)
                  (load (merge-pathnames (car entry) directory)
                        (cadr entry)
-                       (cadr entry)
+                       'DEFAULT
                        (or (null? (cddr entry)) (caddr entry))))
                (cdr library)))
             (if (not (memq (car library) loaded-libraries))