RosettaCodeData/Task/Extend-your-language/Shen/extend-your-language-1.shen
2023-07-01 13:44:08 -04: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]])