[Guile-commits] GNU Guile branch, master, updated. release_1-9-10-185-g9664081

[Ludovic Courtès]

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=96640816c8e69aa6a8fa5cdfd773a4218ea40eb5

The branch, master has been updated
       via  96640816c8e69aa6a8fa5cdfd773a4218ea40eb5 (commit)
      from  25f4cd87c2e10ddd7faaa69a7a54ac3600492780 (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 96640816c8e69aa6a8fa5cdfd773a4218ea40eb5
Author: Ludovic Courtès <address@hidden>
Date:   Sat May 22 23:54:16 2010 +0200

    Fix disassembly of free variable lists.
    
    * module/language/assembly/disassemble.scm (disassemble-free-vars):
      Handle FREE-VARS as a list, not a vector.

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

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

diff --git a/module/language/assembly/disassemble.scm 
b/module/language/assembly/disassemble.scm
index 4cac32a..bd1f6a1 100644
--- a/module/language/assembly/disassemble.scm
+++ b/module/language/assembly/disassemble.scm
@@ -20,6 +20,7 @@
 
 (define-module (language assembly disassemble)
   #:use-module (ice-9 format)
+  #:use-module (srfi srfi-1)
   #:use-module (system vm instruction)
   #:use-module (system vm program)
   #:use-module (system base pmatch)
@@ -90,10 +91,11 @@
 
 (define (disassemble-free-vars free-vars)
   (display "Free variables:\n\n")
-  (let lp ((i 0))
-    (cond ((< i (vector-length free-vars))
-           (print-info i (vector-ref free-vars i) #f #f)
-           (lp (1+ i))))))
+  (fold (lambda (free-var i)
+          (print-info i free-var #f #f)
+          (+ 1 i))
+        0
+        free-vars))
 
 (define-macro (unless test . body)
   `(if (not ,test) (begin ,@body)))


hooks/post-receive
-- 
GNU Guile