mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 15:10:29 +02:00
Code Activity

* boot-9.scm (load-from-path): New function.

Browse source 
* boot-9.scm (try-load, basic-try-load, try-load-module,
try-load): Deleted.  I don't think they're being used.
This commit is contained in:
Jim Blandy 1996-10-29 03:59:35 +00:00
parent 48be3fb33d
commit a06181a2d5
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
ice-9/boot-9.scm
View file

@ -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)))