From: Chris Hanson Date: Wed, 19 Dec 2001 01:57:36 +0000 (+0000) Subject: Use default syntax table for LOAD. X-Git-Tag: 20090517-FFI~2364 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c7010d49aa21b0081b5f585842d9787f9c95ccdc;p=mit-scheme.git Use default syntax table for LOAD. --- diff --git a/v7/src/edwin/autold.scm b/v7/src/edwin/autold.scm index e93d216f7..c70d81853 100644 --- 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))