mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

Fix run-vm-tests

Browse source 
* test-suite/vm/run-vm-tests.scm: Fix for RTL.
This commit is contained in:
Andy Wingo 2013-11-08 19:26:18 +01:00
parent 1c33be992e
commit 1b00f4c709
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

13
test-suite/vm/run-vm-tests.scm
View file

@ -1,6 +1,6 @@
;;; run-vm-tests.scm -- Run Guile-VM's test suite. ;;; 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 ;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public License ;;; modify it under the terms of the GNU Lesser General Public License
@ -18,11 +18,10 @@
(use-modules (system vm vm) (use-modules (system vm vm)
(system vm objcode)
(system vm program) (system vm program)
(system base compile) (system base compile)
(system base language) (system base language)
(language scheme spec)
(language objcode spec)
(srfi srfi-1) (srfi srfi-1)
(ice-9 r5rs)) (ice-9 r5rs))
@ -38,11 +37,11 @@
(define (compile-to-objcode sexp) (define (compile-to-objcode sexp)
"Compile the expression @var{sexp} into a VM program and return it." "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) (define (run-vm-program bv)
"Run VM program contained into @var{objcode}." "Run VM program contained into @var{bv}."
((make-program objcode))) ((load-thunk-from-memory bv)))
(define (compile/run-test-from-file file) (define (compile/run-test-from-file file)
"Run test from source file @var{file} and return a value indicating whether "Run test from source file @var{file} and return a value indicating whether