[Guile-commits] GNU Guile branch, master, updated. release_1-9-14-163-gde9a0f0

[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=de9a0f008f9552ccfa72f63718e54d8f54af1e24

The branch, master has been updated
       via  de9a0f008f9552ccfa72f63718e54d8f54af1e24 (commit)
      from  654b2823be228af60cd371216fa0f89231542947 (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 de9a0f008f9552ccfa72f63718e54d8f54af1e24
Author: Andreas Rottmann <address@hidden>
Date:   Tue Feb 1 23:50:09 2011 +0100

    Fix `show' REPL meta-command
    
    * module/system/repl/command.scm (warranty, copying, version): Use
      `define-meta-command' to define these procedures, so they are entered
      into the *command-infos* table.

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

Summary of changes:
 module/system/repl/command.scm |   10 +++++++---
 1 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 2897b9b..d4b3e4a 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -311,19 +311,23 @@ Without any argument, a list of topics is displayed."
     (else
      (format #t "Bad arguments: ~A~%" args))))
 
-(define (warranty repl)
+;;; `warranty', `copying' and `version' are "hidden" meta-commands, only
+;;; accessible via `show'. They have an entry in *command-infos* but not
+;;; in *command-table*.
+
+(define-meta-command (warranty repl)
   "show warranty
 Details on the lack of warranty."
   (display *warranty*)
   (newline))
 
-(define (copying repl)
+(define-meta-command (copying repl)
   "show copying
 Show the LGPLv3."
   (display *copying*)
   (newline))
 
-(define (version repl)
+(define-meta-command (version repl)
   "show version
 Version information."
   (display *version*)


hooks/post-receive
-- 
GNU Guile