diff options
author | Andy Wingo <wingo@pobox.com> | 2012-07-06 16:52:54 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-07-06 16:52:54 +0200 |
commit | 2aed2667fce5ccb115667a36ffd368c4c3b6e9f4 (patch) | |
tree | 21c31f62bca976076b851d01104327152035e8d4 /module/system/repl/command.scm | |
parent | b8bc86bce147cf280ca2a60d36c8b6493cbf11e8 (diff) | |
parent | 24dd9f6fe1449fa4de81d95ca659283c15e16931 (diff) | |
download | guile-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.scm | 7 |
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) |