Add patched-fixture-names

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