[Guile-commits] GNU Guile branch, master, updated. v2.1.0-378-g1b00f4c

[Andy Wingo]

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 <address@hidden>
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