aboutsummaryrefslogtreecommitdiff
path: root/guile/starlet/fixture.scm
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2023-04-30 17:24:13 +0200
committerThomas White <taw@physics.org>2023-04-30 17:24:13 +0200
commit0c5f2baf5813d9f492981a8554f5010804c6c708 (patch)
tree51beda449b9b5559f3086229dd84b3a6985c0854 /guile/starlet/fixture.scm
parentbefc9feebf514736f140b50e46f7076ececd3d88 (diff)
Move fixture-has-attr? to (starlet fixture) and export it
Diffstat (limited to 'guile/starlet/fixture.scm')
-rw-r--r--guile/starlet/fixture.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm
index 9d210ff..1db713b 100644
--- a/guile/starlet/fixture.scm
+++ b/guile/starlet/fixture.scm
@@ -31,6 +31,8 @@
get-fixture-universe
get-fixture-attrs
find-attr
+ fixture-has-attr?
+
fixture?
scanout-fixture
@@ -216,3 +218,6 @@
(attributes #:init-form (list attr ...)))
(define-method (scanout-fixture (fixture classname))
scanout-code ...)))))
+
+
+(define fixture-has-attr? find-attr)