summaryrefslogtreecommitdiff
path: root/module/system/repl/command.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl/command.scm')
-rw-r--r--module/system/repl/command.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 66e2fb401..1da2d6c6f 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -267,16 +267,16 @@ Import modules / List those imported."
(for-each puts (map module-name (module-uses (current-module))))
(for-each use args))))
+(define guile:load load)
(define-meta-command (load repl file . opts)
"load FILE
Load a file in the current module.
-f Load source file (see `compile')"
- (let* ((file (->string file))
- (objcode (if (memq #:f opts)
- (apply load-source-file file opts)
- (apply load-file file opts))))
- (vm-load (repl-vm repl) objcode)))
+ (let ((file (->string file)))
+ (if (memq #:f opts)
+ (primitive-load file)
+ (guile:load file))))
(define-meta-command (binding repl)
"binding