[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-14-163-gde9a0f0
Date: Tue, 01 Feb 2011 22:45:38 +0000

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".

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."
      (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*)
-(define (copying repl)
+(define-meta-command (copying repl)
   "show copying
 Show the LGPLv3."
   (display *copying*)
-(define (version repl)
+(define-meta-command (version repl)
   "show version
 Version information."
   (display *version*)

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]