From 54199745090a87008173072f4050c14e6fff35a0 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 9 Jun 2022 21:52:33 +0200
Subject: Move scanout-fixture from (starlet scanout) to (starlet fixture)

---
 guile/starlet/fixture.scm | 4 ++++
 guile/starlet/scanout.scm | 7 +------
 2 files changed, 5 insertions(+), 6 deletions(-)

(limited to 'guile')

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)))
 
-- 
cgit v1.2.3