aboutsummaryrefslogtreecommitdiff
path: root/guile
diff options
context:
space:
mode:
Diffstat (limited to 'guile')
-rw-r--r--guile/starlet/fixture.scm4
-rw-r--r--guile/starlet/scanout.scm7
2 files changed, 5 insertions, 6 deletions
diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm
index 8aaccc4..58616b3 100644
--- a/guile/starlet/fixture.scm
+++ b/guile/starlet/fixture.scm
@@ -31,6 +31,7 @@
get-fixture-attrs
find-attr
fixture?
+ scanout-fixture
attr-continuous
attr-list
@@ -126,6 +127,9 @@
#:home-value attr-home-value))))
+(define-generic scanout-fixture)
+
+
(define (get-fixture-attrs fix)
(slot-ref fix 'attributes))
diff --git a/guile/starlet/scanout.scm b/guile/starlet/scanout.scm
index 8cea49a..6344cf7 100644
--- a/guile/starlet/scanout.scm
+++ b/guile/starlet/scanout.scm
@@ -38,8 +38,7 @@
patched-fixture-names
get-attr
set-chan8
- set-chan16
- scanout-fixture))
+ set-chan16))
;; The list of patched fixtures
@@ -51,10 +50,6 @@
;; Association list of names to states
(define state-names (make-atomic-box '()))
-;; Method for scanning out fixtures
-(define-generic scanout-fixture)
-
-
(define (patched-fixture-names)
(map get-fixture-name (atomic-box-ref fixtures)))