summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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