diff options
author | Jim Blandy <jimb@red-bean.com> | 1997-05-30 18:13:10 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1997-05-30 18:13:10 +0000 |
commit | e37e4bca978c9172d39f6d8d7c559d57603dd964 (patch) | |
tree | 9d2333e7acddfd6abb60282503c0079629433d80 | |
parent | 59b8e23bf3b70be9f8f9bdc83c64d38bacad2ab3 (diff) | |
download | guile-e37e4bca978c9172d39f6d8d7c559d57603dd964.tar.gz |
* slib.scm (slib:load): Use primitive-load-path instead of
basic-load. This is probably wrong, but hopefully the entire
source access system will be revised soon anyway, and this will
make require behave more like Emacs Lisp's require. If this
breaks something, please let me know. Maybe this is real dumb.
-rw-r--r-- | ice-9/slib.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ice-9/slib.scm b/ice-9/slib.scm index 1ef5c5a87..9b4916df4 100644 --- a/ice-9/slib.scm +++ b/ice-9/slib.scm @@ -113,13 +113,14 @@ (set-current-module slib-module) (let* ((errinfo (catch 'system-error (lambda () - (basic-load name) + (primitive-load-path name) #f) (lambda args args))) (errinfo (and errinfo (catch 'system-error (lambda () - (basic-load (string-append name ".scm")) + (primitive-load-path + (string-append name ".scm")) #f) (lambda args args))))) (if errinfo |