From a06181a2d55061291f284034a40f762e78b2bebc Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 29 Oct 1996 03:59:35 +0000 Subject: [PATCH] * boot-9.scm (load-from-path): New function. * boot-9.scm (try-load, basic-try-load, try-load-module, try-load): Deleted. I don't think they're being used. --- ice-9/boot-9.scm | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 7c761eb59..a4faf4758 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -681,11 +681,15 @@ file))) -;;; {try-load} -;;; +;;; {Loading by paths} + +;;; Load a Scheme source file named NAME, searching for it in the +;;; directories listed in %load-path, and applying each of the file +;;; name extensions listed in %load-extensions. +(define (load-from-path name) + (start-stack 'load-stack + (primitive-load-path name #t read-sharp))) -(define (try-load name) - (primitive-load-path name #t read-sharp)) ;;; {Transcendental Functions} @@ -1475,12 +1479,8 @@ (set-current-module outer-module) (set! outer-module #f))))) -(define basic-try-load try-load) (define basic-load load) -(define (try-load-module . args) - (save-module-excursion (lambda () (apply basic-try-load args)))) - (define (load-module . args) (save-module-excursion (lambda () (apply basic-load args)))) @@ -2147,7 +2147,6 @@ -(define try-load try-load-module) (define load load-module) ;(define (load . args) ; (start-stack 'load-stack (apply load-module args)))