diff options
Diffstat (limited to 'module/system/repl/command.scm')
-rw-r--r-- | module/system/repl/command.scm | 10 |
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 |