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