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.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index e3abe240a..fecea4458 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -55,6 +55,14 @@
(define (group-name g) (car g))
(define (group-commands g) (cdr g))
+;; Hack, until core can be extended.
+(define procedure-documentation
+ (let ((old-definition procedure-documentation))
+ (lambda (p)
+ (if (program? p)
+ (program-documentation p)
+ (procedure-documentation p)))))
+
(define *command-module* (current-module))
(define (command-name c) (car c))
(define (command-abbrev c) (if (null? (cdr c)) #f (cadr c)))