diff options
-rw-r--r-- | guile/starlet/scanout.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guile/starlet/scanout.scm b/guile/starlet/scanout.scm index eb895dd..5add2d7 100644 --- a/guile/starlet/scanout.scm +++ b/guile/starlet/scanout.scm @@ -34,7 +34,8 @@ scanout-freq total-num-attrs register-state! - current-value)) + current-value + patched-fixture-names)) ;; The list of patched fixtures @@ -47,6 +48,10 @@ (define state-names (make-atomic-box '())) +(define (patched-fixture-names) + (map get-fixture-name (atomic-box-ref fixtures))) + + (define (total-num-attrs) (fold (lambda (fix prev) (+ prev (length (get-fixture-attrs fix)))) |