diff options
Diffstat (limited to 'test-suite/tests/compiler.test')
-rw-r--r-- | test-suite/tests/compiler.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test-suite/tests/compiler.test b/test-suite/tests/compiler.test index 619b16740..70213ca3d 100644 --- a/test-suite/tests/compiler.test +++ b/test-suite/tests/compiler.test @@ -1,5 +1,5 @@ ;;;; compiler.test --- tests for the compiler -*- scheme -*- -;;;; Copyright (C) 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. +;;;; Copyright (C) 2008, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -19,8 +19,8 @@ #:use-module (test-suite lib) #:use-module (test-suite guile-test) #:use-module (system base compile) - #:use-module ((system vm program) #:select (make-program - program-sources source:addr))) + #:use-module ((system vm loader) #:select (load-thunk-from-memory)) + #:use-module ((system vm program) #:select (program-sources source:addr))) (define read-and-compile (@@ (system base compile) read-and-compile)) @@ -97,7 +97,7 @@ #f) (install-reader!) this-should-be-ignored"))) - (and (eq? ((make-program (read-and-compile input))) + (and (eq? ((load-thunk-from-memory (read-and-compile input))) 'ok) (eq? r (fluid-ref current-reader))))) |