From 47d532ea69752ca966f50b9a8ca1fd122f265582 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Thu, 13 Apr 2023 21:47:15 +0200 Subject: state-source: Quote symbol values --- guile/starlet/state.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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))) -- cgit v1.2.3