From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Sun, 13 Mar 1994 05:09:42 +0000 (+0000)
Subject: Fix rebinding of load/default-types.
X-Git-Tag: 20090517-FFI~7230
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=90ecc9655609ff7db23681f56bf7fff1195d34cd;p=mit-scheme.git

Fix rebinding of load/default-types.
---

diff --git a/v7/src/runtime/packag.scm b/v7/src/runtime/packag.scm
index b87dd9208..971a0c391 100644
--- a/v7/src/runtime/packag.scm
+++ b/v7/src/runtime/packag.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: packag.scm,v 14.18 1993/10/21 14:52:37 cph Exp $
+$Id: packag.scm,v 14.19 1994/03/13 05:09:42 jawilson Exp $
 
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -155,7 +155,8 @@ MIT in each case. |#
 			     (and system-loader/enable-query?
 				  (prompt-for-confirmation "Load interpreted"))
 			     load-interpreted?)
-			 '("bin" "scm")
+			 (list (assoc "bin" load/default-types)
+			       (assoc "scm" load/default-types))
 			 load/default-types)))
 	  (let ((syntax-table (nearest-repl/syntax-table)))
 	    (load (pathname-new-type pathname "bcon")