Initial part of writing out states

1 files changed, 13 insertions, 0 deletions

diff --git a/guile/starlet/state-rw.scm b/guile/starlet/state-rw.scm
new file mode 100644
index 0000000..5b14c6e
--- /dev/null
+++ b/guile/starlet/state-rw.scm
@@ -0,0 +1,13 @@
+(define-module (starlet state-rw)
+  #:use-module (starlet base)
+  #:export (write-state))
+
+
+(define (write-state state)
+  (state-map
+    (lambda (fix attr val)
+      (list 'at
+            (get-fixture-name fix)
+            (get-attr-name attr)
+            val))
+    state))