guile/starlet/state-rw.scm


1
2
3
4
5
6
7
8
9
10
11
12
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))