From: Andy Wingo <wingo@pobox.com>
Date: Wed, 19 Aug 2009 10:20:58 +0000 (+0200)
Subject: procedure-documentation works on vm procedures
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/2a0db0e326137cbf3b462376872c1d9f06c2bd52

procedure-documentation works on vm procedures

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

diff --git a/libguile/procs.c b/libguile/procs.c
index 93e35ab6c..d873ff55e 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: