summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/fluids.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/tests/fluids.test b/test-suite/tests/fluids.test
index 23406b260..9ed846c05 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"