collapse singleton threading form

drym-org · Mar 1, 2023 · 1c8cd0a · 1c8cd0a
1 parent d537237
commit 1c8cd0a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/qi-lib/flow/core/compiler.rkt b/qi-lib/flow/core/compiler.rkt
@@ -39,6 +39,9 @@
       ;; collapse deterministic conditionals
       [((~datum if) (~datum #t) f g) #'f]
       [((~datum if) (~datum #f) f g) #'g]
+      ;; trivial threading form
+      [((~datum thread) f)
+       #'f]
       ;; associative laws for ~>
       [((~datum thread) _0 ... ((~datum thread) f ...) _1 ...)
        #'(thread _0 ... f ... _1 ...)]