diff options
| author | Thomas White <taw@physics.org> | 2023-04-30 17:24:13 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2023-04-30 17:24:13 +0200 |
| commit | 0c5f2baf5813d9f492981a8554f5010804c6c708 (patch) | |
| tree | 51beda449b9b5559f3086229dd84b3a6985c0854 | |
| parent | befc9feebf514736f140b50e46f7076ececd3d88 (diff) | |
Move fixture-has-attr? to (starlet fixture) and export it
| -rw-r--r-- | guile/starlet/fixture.scm | 5 | ||||
| -rw-r--r-- | 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) |