From 6510ace33a71536a9ba4eb5d3ac3286bf401c8d4 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 20 Feb 2021 22:10:43 +0100
Subject: Add state-source

---
 guile/starlet/base.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'guile')

diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm
index cbe4d66..dc25491 100644
--- a/guile/starlet/base.scm
+++ b/guile/starlet/base.scm
@@ -38,6 +38,7 @@
             add-state-to-state!
             clear-state!
             print-state
+            state-source
             set-attr!
             state-find
             merge-states-htp
@@ -596,3 +597,13 @@
 
 (define (print-state a)
   (print-hash-table (get-state-hash-table a)))
+
+
+(define (state-source a)
+  (cons 'begin
+        (state-map (lambda (fix attr val)
+                     (list 'at
+                           (get-fixture-name fix)
+                           (list 'quote (get-attr-name attr))
+                           val))
+                   a)))
-- 
cgit v1.2.3