[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.5-210-ge1fb0e8

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e1fb0e811bb1ca867a297d81fd82dd60f750bc19

The branch, stable-2.0 has been updated
       via  e1fb0e811bb1ca867a297d81fd82dd60f750bc19 (commit)
      from  5e33d0aa37ec4de6414dad032ab1ca4fbc5ff583 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e1fb0e811bb1ca867a297d81fd82dd60f750bc19
Author: Daniel Krueger <address@hidden>
Date:   Wed Mar 28 18:25:15 2012 +0200

    fixed repl command ,describe to also handle syntax

-----------------------------------------------------------------------

Summary of changes:
 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 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)


hooks/post-receive
-- 
GNU Guile