RosettaCodeData/Task/Metaprogramming/Shen/metaprogramming-2.shen
2023-07-01 13:44:08 -04:00

7 lines
86 B
Text

(0-) (defmacro +-macro
[A + B] -> [+ A B])
macro
+-macro
(1-) (1 + (* 2 3))
7