[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Ludovic Courtès
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-185-g9664081
Date: Sat, 22 May 2010 21:54:39 +0000

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".

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 
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)))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]