[Guile-commits] GNU Guile branch, master, updated. release_1-9-2-9-g2a0db0e

[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=2a0db0e326137cbf3b462376872c1d9f06c2bd52

The branch, master has been updated
       via  2a0db0e326137cbf3b462376872c1d9f06c2bd52 (commit)
      from  6234ff203d640f56bc5d160d9fe882b0f02b1401 (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 2a0db0e326137cbf3b462376872c1d9f06c2bd52
Author: Andy Wingo <address@hidden>
Date:   Wed Aug 19 12:20:58 2009 +0200

    procedure-documentation works on vm procedures
    
    * libguile/procs.c (scm_procedure_documentation): Add a hack so that
      this function works for compiled procedures too.

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

Summary of changes:
 libguile/procs.c |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/libguile/procs.c b/libguile/procs.c
index 93e35ab..d873ff5 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -179,6 +179,8 @@ scm_subr_p (SCM obj)
   return 0;
 }
 
+SCM_SYMBOL (sym_documentation, "documentation");
+
 SCM_DEFINE (scm_procedure_documentation, "procedure-documentation", 1, 0, 0, 
            (SCM proc),
            "Return the documentation string associated with @code{proc}.  By\n"
@@ -190,6 +192,8 @@ SCM_DEFINE (scm_procedure_documentation, 
"procedure-documentation", 1, 0, 0,
   SCM code;
   SCM_ASSERT (scm_is_true (scm_procedure_p (proc)),
              proc, SCM_ARG1, FUNC_NAME);
+  if (SCM_PROGRAM_P (proc))
+    return scm_assq_ref (scm_program_properties (proc), sym_documentation);
   switch (SCM_TYP7 (proc))
     {
     case scm_tcs_closures:


hooks/post-receive
-- 
GNU Guile