RosettaCodeData/Task/Metaprogramming/Shen/metaprogramming-2.shen
2016-12-05 23:44:36 +01:00

7 lines
86 B
Text

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