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 <l...@gnu.org> 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
