diff options
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))) |