[Guile-commits] GNU Guile branch, master, updated. release_1-9-6-121-gf39ede0

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

The branch, master has been updated
       via  f39ede00675f0d7dcdb864e91653c4dacb98e694 (commit)
      from  ecdf15573b4734488893a03500312f18575819ce (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 f39ede00675f0d7dcdb864e91653c4dacb98e694
Author: Andy Wingo <address@hidden>
Date:   Sun Jan 10 23:24:19 2010 +0100

    fix properties disassembly
    
    * module/language/assembly/disassemble.scm (disassemble-meta):
      Properties start with the fourth element, not the third. (The third is
      the set of arities.)

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

Summary of changes:
 module/language/assembly/disassemble.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/language/assembly/disassemble.scm 
b/module/language/assembly/disassemble.scm
index 2c0ad4f..0c47061 100644
--- a/module/language/assembly/disassemble.scm
+++ b/module/language/assembly/disassemble.scm
@@ -1,6 +1,6 @@
 ;;; Guile VM code converters
 
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -110,7 +110,7 @@
 (define (disassemble-meta meta)
   (let ((props (filter (lambda (x)
                          (not (memq (car x) *uninteresting-props*)))
-                       (cddr meta))))
+                       (cdddr meta))))
     (unless (null? props)
       (display "Properties:\n\n")
       (for-each (lambda (x) (print-info #f x #f #f)) props)


hooks/post-receive
-- 
GNU Guile