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=1b00f4c709016e6026e8baccf9d66f87d259c7a7 The branch, master has been updated via 1b00f4c709016e6026e8baccf9d66f87d259c7a7 (commit) from 1c33be992e8120abd20add8021e4d91d226f5b6a (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 1b00f4c709016e6026e8baccf9d66f87d259c7a7 Author: Andy Wingo <[email protected]> Date: Fri Nov 8 19:26:18 2013 +0100 Fix run-vm-tests * test-suite/vm/run-vm-tests.scm: Fix for RTL. ----------------------------------------------------------------------- Summary of changes: test-suite/vm/run-vm-tests.scm | 17 ++++++++--------- 1 files changed, 8 insertions(+), 9 deletions(-) diff --git a/test-suite/vm/run-vm-tests.scm b/test-suite/vm/run-vm-tests.scm index 9304e81..31518df 100644 --- a/test-suite/vm/run-vm-tests.scm +++ b/test-suite/vm/run-vm-tests.scm @@ -1,6 +1,6 @@ ;;; run-vm-tests.scm -- Run Guile-VM's test suite. ;;; -;;; Copyright 2005, 2009, 2010 Free Software Foundation, Inc. +;;; Copyright 2005, 2009, 2010, 2013 Free Software Foundation, Inc. ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public License @@ -18,12 +18,11 @@ (use-modules (system vm vm) - (system vm program) + (system vm objcode) + (system vm program) (system base compile) (system base language) - (language scheme spec) - (language objcode spec) - (srfi srfi-1) + (srfi srfi-1) (ice-9 r5rs)) @@ -38,11 +37,11 @@ (define (compile-to-objcode sexp) "Compile the expression @var{sexp} into a VM program and return it." - (compile sexp #:from scheme #:to objcode)) + (compile sexp #:from 'scheme #:to 'rtl)) -(define (run-vm-program objcode) - "Run VM program contained into @var{objcode}." - ((make-program objcode))) +(define (run-vm-program bv) + "Run VM program contained into @var{bv}." + ((load-thunk-from-memory bv))) (define (compile/run-test-from-file file) "Run test from source file @var{file} and return a value indicating whether hooks/post-receive -- GNU Guile
