mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-10 07:50:24 +02:00
* 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.
This commit is contained in:
parent
48be3fb33d
commit
a06181a2d5
1 changed files with 8 additions and 9 deletions
|
@ -681,11 +681,15 @@
|
||||||
file)))
|
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}
|
;;; {Transcendental Functions}
|
||||||
|
@ -1475,12 +1479,8 @@
|
||||||
(set-current-module outer-module)
|
(set-current-module outer-module)
|
||||||
(set! outer-module #f)))))
|
(set! outer-module #f)))))
|
||||||
|
|
||||||
(define basic-try-load try-load)
|
|
||||||
(define basic-load load)
|
(define basic-load load)
|
||||||
|
|
||||||
(define (try-load-module . args)
|
|
||||||
(save-module-excursion (lambda () (apply basic-try-load args))))
|
|
||||||
|
|
||||||
(define (load-module . args)
|
(define (load-module . args)
|
||||||
(save-module-excursion (lambda () (apply basic-load 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 load-module)
|
||||||
;(define (load . args)
|
;(define (load . args)
|
||||||
; (start-stack 'load-stack (apply load-module args)))
|
; (start-stack 'load-stack (apply load-module args)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue