From e32c17241f86a61ae3dc618ec1fdc1a22b7c5686 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 31 Oct 1995 23:12:41 +0000 Subject: [PATCH] Add ability to override default selection of constructor and loader files. --- v7/src/runtime/packag.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/packag.scm b/v7/src/runtime/packag.scm index 597d28d9d..d8f475f00 100644 --- a/v7/src/runtime/packag.scm +++ b/v7/src/runtime/packag.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: packag.scm,v 14.21 1995/06/02 04:30:07 cph Exp $ +$Id: packag.scm,v 14.22 1995/10/31 23:12:41 cph Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -171,10 +171,16 @@ MIT in each case. |# (assoc "scm" load/default-types)) load/default-types))) (let ((syntax-table (nearest-repl/syntax-table))) - (load (pathname-new-type pathname "bco") + (load (let ((rewrite (assq 'MAKE-CONSTRUCTOR-NAME options))) + (if rewrite + (rewrite pathname) + (pathname-new-type pathname "bco"))) system-global-environment syntax-table false) - ((load (pathname-new-type pathname "bld") + ((load (let ((rewrite (assq 'MAKE-LOADER-NAME options))) + (if rewrite + (rewrite pathname) + (pathname-new-type pathname "bld"))) system-global-environment syntax-table false) (lambda (component environment) -- 2.25.1