[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".

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)
-           (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)))))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]