From c7010d49aa21b0081b5f585842d9787f9c95ccdc Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 19 Dec 2001 01:57:36 +0000 Subject: [PATCH] Use default syntax table for LOAD. --- v7/src/edwin/autold.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.25.1