RosettaCodeData/Task/Metaprogramming/Shen/metaprogramming-2.shen

8 lines
86 B
Plaintext

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