mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

fixed repl command ,describe to also handle syntax

Browse source
This commit is contained in:
Daniel Krueger 2012-03-28 18:25:15 +02:00 • committed by Andy Wingo
parent 5e33d0aa37
commit e1fb0e811b
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/system/repl/command.scm
View file

@ -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)