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