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.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index fecea4458..f3bccec76 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -24,7 +24,9 @@
:use-module (system base pmatch)
:use-module (system base compile)
:use-module (system repl common)
- :use-module (system vm core)
+ :use-module (system vm objcode)
+ :use-module (system vm program)
+ :use-module (system vm vm)
:autoload (system base language) (lookup-language)
:autoload (system il glil) (pprint-glil)
:autoload (system vm disasm) (disassemble-program disassemble-objcode)
@@ -61,7 +63,7 @@
(lambda (p)
(if (program? p)
(program-documentation p)
- (procedure-documentation p)))))
+ (old-definition p)))))
(define *command-module* (current-module))
(define (command-name c) (car c))