12 lines
354 B
Plaintext
12 lines
354 B
Plaintext
(defMacro year [num &body body]
|
|
`(#when ,(symbol (+ "year" (symbolNameValue num)))
|
|
(print (+ "year " (Std.string ,num)))
|
|
,@body))
|
|
|
|
(defMacro day [num &body body]
|
|
`(#when ,(symbol (+ "day" (symbolNameValue num)))
|
|
(print (+ "day " (Std.string ,num)))
|
|
,@body))
|
|
|
|
(defMacro dayTodo [num]
|
|
`(day ,num (print "TODO"))) |