diff options
| author | Thomas White <taw@physics.org> | 2022-06-11 14:36:26 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-06-11 14:36:26 +0200 |
| commit | e92b8da3b2e3e623b98a6b3eb7ecea5555bcfdd1 (patch) | |
| tree | f97f6a0574f48d6b749871452b9ebba99ab2dd5a /guile | |
| parent | aeeeb114d95381d91a59d4fcfda80cb86c66a05a (diff) | |
Add (comment ...)
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/utils.scm | 9 |
1 files changed, 8 insertions, 1 deletions
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))) |