mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +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)) (define-meta-command (describe repl (form))
"describe OBJ "describe OBJ
Show description/documentation." 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)) (newline))
(define-meta-command (option repl . args) (define-meta-command (option repl . args)