From 0c5f2baf5813d9f492981a8554f5010804c6c708 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 30 Apr 2023 17:24:13 +0200
Subject: Move fixture-has-attr? to (starlet fixture) and export it

---
 guile/starlet/fixture.scm | 5 +++++
 guile/starlet/state.scm   | 3 ---
 2 files changed, 5 insertions(+), 3 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)
diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index a2cb65d..dbc7e38 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -394,9 +394,6 @@ pre-existing contents."
                     (values output1 output2 others))))
 
 
-(define fixture-has-attr? find-attr)
-
-
 (define (set-fixtures fixtures attribute value)
   (for-each
     (lambda (fix)
-- 
cgit v1.2.3