Scanout: Retrieve the combined state only once

1 files changed, 6 insertions, 1 deletions

diff --git a/guile/starlet/engine.scm b/guile/starlet/engine.scm
index 37656cb..6c43cf1 100644
--- a/guile/starlet/engine.scm
+++ b/guile/starlet/engine.scm
@@ -35,6 +35,7 @@
             total-num-attrs
             register-state!
             current-value
+            current-value-state
             patched-fixture-names
             patched-fixtures))
 
@@ -56,6 +57,10 @@
   (map get-fixture-name (atomic-box-ref fixtures)))
 
 
+(define (current-value-state)
+  (atomic-box-ref current-values))
+
+
 (define (patched-fixtures)
   (atomic-box-ref fixtures))
 
@@ -122,7 +127,7 @@
 
 
 (define-method (current-value (fix <fixture>) (attr-name <starlet-attribute>))
-  (let ((v (state-find fix attr-name (atomic-box-ref current-values))))
+  (let ((v (state-find fix attr-name (current-value-state))))
     (if (eq? v 'no-value)
       (get-attr-home-val fix attr-name)
       v)))