From e92b8da3b2e3e623b98a6b3eb7ecea5555bcfdd1 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 11 Jun 2022 14:36:26 +0200
Subject: Add (comment ...)

---
 guile/starlet/utils.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm
index 8508079..7656827 100644
--- a/guile/starlet/utils.scm
+++ b/guile/starlet/utils.scm
@@ -37,7 +37,8 @@
             scale-to-range
             scale-and-clamp-to-range
             percent->dmxval8
-            percent->dmxval16))
+            percent->dmxval16
+            comment))
 
 
 (define (print-hash-table ht)
@@ -159,3 +160,9 @@
     (scale-to-range val orig-range dest-range)
     (car dest-range)
     (cadr dest-range)))
+
+
+(define-syntax comment
+  (syntax-rules ()
+    ((_ body ...)
+     #f)))
-- 
cgit v1.2.3