diff options
author | Thomas White <taw@physics.org> | 2021-06-19 11:34:14 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-06-19 19:49:05 +0200 |
commit | 602cbebc5fb1a78b6cf9930cb56db3ca4e7ac2ab (patch) | |
tree | 4beb7969ab7f626e95809bc25da7a39a152efcf8 | |
parent | c188720e176be030cf46099c2301f80daaad687a (diff) |
Add patched-fixture-names
-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)))) |