summaryrefslogtreecommitdiff
path: root/module/system/repl/command.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-07-06 16:52:54 +0200
committerAndy Wingo <wingo@pobox.com>2012-07-06 16:52:54 +0200
commit2aed2667fce5ccb115667a36ffd368c4c3b6e9f4 (patch)
tree21c31f62bca976076b851d01104327152035e8d4 /module/system/repl/command.scm
parentb8bc86bce147cf280ca2a60d36c8b6493cbf11e8 (diff)
parent24dd9f6fe1449fa4de81d95ca659283c15e16931 (diff)
downloadguile-2aed2667fce5ccb115667a36ffd368c4c3b6e9f4.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Conflicts: libguile/expand.c libguile/hashtab.c libguile/ports.c libguile/vectors.c libguile/weaks.c module/language/ecmascript/compile-tree-il.scm module/language/tree-il/effects.scm module/language/tree-il/fix-letrec.scm module/language/tree-il/peval.scm test-suite/tests/peval.test
Diffstat (limited to 'module/system/repl/command.scm')
-rw-r--r--module/system/repl/command.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index a9fdc992d..58d324176 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -342,7 +342,12 @@ Find bindings/modules/packages."
(define-meta-command (describe repl (form))
"describe OBJ
Show description/documentation."
- (display (object-documentation (repl-eval repl (repl-parse repl form))))
+ (display
+ (object-documentation
+ (let ((input (repl-parse repl form)))
+ (if (symbol? input)
+ (module-ref (current-module) input)
+ (repl-eval repl input)))))
(newline))
(define-meta-command (option repl . args)