[Guile-commits] GNU Guile branch, master, updated. release_1-9-5-131-g08d7492

[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=08d7492cf0eab3165ca260b8aa060de8ae508e1c

The branch, master has been updated
       via  08d7492cf0eab3165ca260b8aa060de8ae508e1c (commit)
      from  393301c5190d41f531c22b18f70e450207ea1418 (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 08d7492cf0eab3165ca260b8aa060de8ae508e1c
Author: Andy Wingo <address@hidden>
Date:   Thu Dec 10 16:03:23 2009 +0100

    add gbt macro to gdbinit, and fix a bug in program-arity
    
    * gdbinit: Add gbt macro, to make a Guile backtrace whenever you want.
    * module/system/vm/program.scm (program-arity): If ip is #f, just take
      the first arity.

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

Summary of changes:
 gdbinit                      |    4 ++++
 module/system/vm/program.scm |    1 +
 2 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/gdbinit b/gdbinit
index 812f04b..fdc9c75 100644
--- a/gdbinit
+++ b/gdbinit
@@ -198,3 +198,7 @@ end
 define inst
   p scm_instruction_table[$arg0]
 end
+
+define gbt
+  call scm_display_backtrace (scm_make_stack(0x404,0x304), 
scm_current_error_port (), 0x704, 0x704, 0x704)
+end
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 99f9a3c..31b667b 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -121,6 +121,7 @@
     (and arities
          (let lp ((arities arities))
            (cond ((null? arities) #f)
+                 ((not ip) (car arities)) ; take the first one
                  ((and (< (arity:start (car arities)) ip)
                        (<= ip (arity:end (car arities))))
                   (car arities))


hooks/post-receive
-- 
GNU Guile