guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. release_1-9-13-217-g1


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-13-217-g133ef66
Date: Fri, 17 Dec 2010 12:49:52 +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=133ef660af79f3f653df2d029f1cadc20a1c42c9

The branch, master has been updated
       via  133ef660af79f3f653df2d029f1cadc20a1c42c9 (commit)
      from  27e346064eaf410c207b71df33f4b2f8d4e3d453 (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 133ef660af79f3f653df2d029f1cadc20a1c42c9
Author: Andy Wingo <address@hidden>
Date:   Fri Dec 17 13:53:29 2010 +0100

    fix unbound fluid tests
    
    * test-suite/tests/fluids.test: Fix tests.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/tests/fluids.test |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/test-suite/tests/fluids.test b/test-suite/tests/fluids.test
index 23406b2..9ed846c 100644
--- a/test-suite/tests/fluids.test
+++ b/test-suite/tests/fluids.test
@@ -151,14 +151,14 @@
 (with-test-prefix "unbound fluids"
   (pass-if "fluid-ref of unbound fluid"
     (catch #t
-           (lambda () (fluid-ref (make-undefined-fluid)))
+           (lambda () (fluid-ref (make-unbound-fluid)))
            (lambda (key . args) #t)))
   (pass-if "fluid-bound? of bound fluid"
     (fluid-bound? (make-fluid)))
   (pass-if "fluid-bound? of unbound fluid"
-    (not (fluid-bound? (make-undefined-fluid))))
+    (not (fluid-bound? (make-unbound-fluid))))
   (pass-if "unbound fluids can be set"
-    (let ((fluid (make-undefined-fluid)))
+    (let ((fluid (make-unbound-fluid)))
       (fluid-set! fluid #t)
       (fluid-ref fluid)))
   (pass-if "bound fluids can be unset"


hooks/post-receive
-- 
GNU Guile



reply via email to

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