mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

* boot-9.scm (try-module-autoload): Use %search-load-path.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-08-29 14:21:30 +00:00
parent c5b738b500
commit defed51763
1 changed files with 6 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2010,32 +2010,12 @@
(let ((didit #f))
(dynamic-wind
(lambda () (autoload-in-progress! dir-hint name))
(lambda ()
(let loop ((dirs %load-path))
(and (not (null? dirs))
(or
(let ((d (car dirs))
(trys (list
dir-hint
(sfx dir-hint)
(in-vicinity dir-hint name)
(in-vicinity dir-hint (sfx name)))))
(and (or-map (lambda (f)
(let ((full (in-vicinity d f)))
full
(and (file-exists? full)
(not (file-is-directory? full))
(begin
(save-module-excursion
(lambda ()
(load (string-append
d "/" f))))
#t))))
trys)
(begin
(set! didit #t)
#t)))
(loop (cdr dirs))))))
(lambda ()
(let ((full (%search-load-path (in-vicinity dir-hint name))))
(if full
(begin
(save-module-excursion (lambda () (primitive-load full)))
(set! didit #t)))))
(lambda () (set-autoloaded! dir-hint name didit)))
didit))))