Subject: Fix for repl command ,describe

From: Daniel Krueger <[email-masked]>
Date: Wed, 28 Mar 2012 18:22:55 +0200

Hi,

I have fixed the repl meta-command (with the help of wingo) ,describe
to handle names of syntax-transformers correctly; here's the patch
exported by git-format-patch.

Greetings,
Daniel
From 2581b5542079cfba7896e6a0755c8c7f1736dffb Mon Sep 17 00:00:00 2001
From: Daniel Krueger <[email-masked]>
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