diff options
Diffstat (limited to 'guile/starlet/state-rw.scm')
-rw-r--r-- | guile/starlet/state-rw.scm | 13 |
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)) |