[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".
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-10-185-g9664081,
Ludovic Courtès <=