RosettaCodeData/Task/Extend-your-language/Shen/extend-your-language-1.shen
2016-12-05 23:44:36 +01:00

5 lines
145 B
Text

(defmacro branch-if-macro
[branch-if Cond1 Cond2 Both Fst Snd None] ->
[if Cond1
[if Cond2 Both Fst]
[if Cond2 Snd None]])