From 602cbebc5fb1a78b6cf9930cb56db3ca4e7ac2ab Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 19 Jun 2021 11:34:14 +0200
Subject: Add patched-fixture-names

---
 guile/starlet/scanout.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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))))
-- 
cgit v1.2.3