summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1997-05-30 18:13:10 +0000
committerJim Blandy <jimb@red-bean.com>1997-05-30 18:13:10 +0000
commite37e4bca978c9172d39f6d8d7c559d57603dd964 (patch)
tree9d2333e7acddfd6abb60282503c0079629433d80
parent59b8e23bf3b70be9f8f9bdc83c64d38bacad2ab3 (diff)
downloadguile-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.scm5
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