mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

compiler.test fix for rtl compilation

Browse source 
* test-suite/tests/compiler.test ("current-reader"): Fix the way we make
  programs from objcode.
This commit is contained in:
Andy Wingo 2013-11-05 21:33:00 +01:00
parent 0a1d52ac77
commit 111a305be8
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/compiler.test
View file

@ -1,5 +1,5 @@
;;;; compiler.test --- tests for the compiler -*- scheme -*- ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -19,8 +19,8 @@
#:use-module (test-suite lib) #:use-module (test-suite lib)
#:use-module (test-suite guile-test) #:use-module (test-suite guile-test)
#:use-module (system base compile) #:use-module (system base compile)
#:use-module ((system vm program) #:select (make-program #:use-module ((system vm objcode) #:select (load-thunk-from-memory))
program-sources source:addr))) #:use-module ((system vm program) #:select (program-sources source:addr)))
(define read-and-compile (define read-and-compile
(@@ (system base compile) read-and-compile)) (@@ (system base compile) read-and-compile))
@ -97,7 +97,7 @@
#f) #f)
(install-reader!) (install-reader!)
this-should-be-ignored"))) this-should-be-ignored")))
(and (eq? ((make-program (read-and-compile input))) (and (eq? ((load-thunk-from-memory (read-and-compile input)))
'ok) 'ok)
(eq? r (fluid-ref current-reader))))) (eq? r (fluid-ref current-reader)))))