diff options
| author | Thomas White <taw@physics.org> | 2022-06-09 21:52:33 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-06-09 21:52:33 +0200 |
| commit | 54199745090a87008173072f4050c14e6fff35a0 (patch) | |
| tree | d0b96201177061ea120b909bc9a68695133dfdbe /guile | |
| parent | 66e7047a52dd277ab64dd8a3d3eca914c6573961 (diff) | |
Move scanout-fixture from (starlet scanout) to (starlet fixture)
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/fixture.scm | 4 | ||||
| -rw-r--r-- | guile/starlet/scanout.scm | 7 |
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))) |