diff options
| -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))) |