aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/control/pipe.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/control/pipe.lux')
-rw-r--r--stdlib/source/lux/control/pipe.lux5
1 files changed, 5 insertions, 0 deletions
diff --git a/stdlib/source/lux/control/pipe.lux b/stdlib/source/lux/control/pipe.lux
index 4cbfe3504..de058307b 100644
--- a/stdlib/source/lux/control/pipe.lux
+++ b/stdlib/source/lux/control/pipe.lux
@@ -59,6 +59,11 @@
(` (|> (~ g!temp) (~+ then))))))
(|> (~ g!temp) (~+ else)))))))))
+(syntax: #export (if> {then body^} {else body^} prev)
+ (wrap (list (` (cond> [] [(new> (~+ then))]
+ [(new> (~+ else))]
+ (~ prev))))))
+
(syntax: #export (loop> {test body^}
{then body^}
prev)