[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. release_1-9-1-69-gd78
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-1-69-gd785171 |
Date: |
Thu, 13 Aug 2009 14:16:25 +0000 |
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=d785171115bb35c6e3cc3663a0023ff4e88536d5
The branch, master has been updated
via d785171115bb35c6e3cc3663a0023ff4e88536d5 (commit)
from 16f451f308cd79168d2b1d1314b324dff96fde0d (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 d785171115bb35c6e3cc3663a0023ff4e88536d5
Author: Ludovic Courtès <address@hidden>
Date: Thu Aug 13 16:16:08 2009 +0200
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!
-----------------------------------------------------------------------
Summary of changes:
test-suite/tests/compiler.test | 20 +++++++++++---------
1 files changed, 11 insertions(+), 9 deletions(-)
diff --git a/test-suite/tests/compiler.test b/test-suite/tests/compiler.test
index 9c84fd7..f9fabd7 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)))))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-1-69-gd785171,
Ludovic Courtès <=