diff options
author | Thomas White <taw@physics.org> | 2023-04-13 21:47:15 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2023-04-13 21:47:15 +0200 |
commit | 47d532ea69752ca966f50b9a8ca1fd122f265582 (patch) | |
tree | 3b30576014713e8c5450b2a29537e8e186b13b38 /guile/starlet | |
parent | f5b5d6ee99a1ec99eb71088693517a59c261156f (diff) |
state-source: Quote symbol values
Diffstat (limited to 'guile/starlet')
-rw-r--r-- | guile/starlet/state.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm index 97eaeef..3fd77d7 100644 --- a/guile/starlet/state.scm +++ b/guile/starlet/state.scm @@ -351,13 +351,20 @@ pre-existing contents." val)) +(define (quote-if-symbol a) + (if (symbol? a) + (list 'quote a) + a)) + + (define (state-source a) (cons 'lighting-state (state-map->list (lambda (fix attr val) (list 'at (get-fixture-name fix) (canonical-name attr) - (clamp-to-attr-range fix attr val))) + (quote-if-symbol + (clamp-to-attr-range fix attr val)))) a))) |