From 2581b5542079cfba7896e6a0755c8c7f1736dffb Mon Sep 17 00:00:00 2001 From: Daniel Krueger Date: Wed, 28 Mar 2012 18:25:15 +0200 Subject: [PATCH] fixed repl command ,describe to also handle syntax --- module/system/repl/command.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm index a709c8d..ae8bdea 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) -- 1.7.9.2