From d785171115bb35c6e3cc3663a0023ff4e88536d5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 13 Aug 2009 16:16:08 +0200 Subject: [PATCH] compiler.test: Enforce evaluation order. * test-suite/tests/compiler.test ("psyntax")["redefinition", "compile in current module", "compile in fresh module"]: Use `begin' to enforce evaluation order. Thanks Andy! --- test-suite/tests/compiler.test | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/test-suite/tests/compiler.test b/test-suite/tests/compiler.test index 9c84fd7b4..f9fabd7bc 100644 --- a/test-suite/tests/compiler.test +++ b/test-suite/tests/compiler.test @@ -33,21 +33,23 @@ (pass-if "redefinition" ;; In this case the locally-bound `round' must have the same value as the ;; imported `round'. See the same test in `syntax.test' for details. - (let ((o1 (compile '(define round round))) - (o2 (compile '(eq? round (@@ (guile) round))))) - o2)) + (begin + (compile '(define round round)) + (compile '(eq? round (@@ (guile) round))))) (pass-if "compile in current module" - (let ((o1 (compile '(define-macro (foo) 'bar))) - (o2 (compile '(let ((bar 'ok)) (foo))))) + (let ((o (begin + (compile '(define-macro (foo) 'bar)) + (compile '(let ((bar 'ok)) (foo)))))) (and (module-ref (current-module) 'foo) - (eq? o2 'ok)))) + (eq? o 'ok)))) (pass-if "compile in fresh module" (let* ((m (let ((m (make-module))) (beautify-user-module! m) m)) - (o1 (compile '(define-macro (foo) 'bar) #:env m)) - (o2 (compile '(let ((bar 'ok)) (foo)) #:env m))) + (o (begin + (compile '(define-macro (foo) 'bar) #:env m) + (compile '(let ((bar 'ok)) (foo)) #:env m)))) (and (module-ref m 'foo) - (eq? o2 'ok))))) + (eq? o 'ok)))))