Joseph Ferano
69646e534e
(defmacro do-grid [[r rows c cols] & body] ...) — positional names, a [ ] pattern wherever an argument is a vector, and & for the tail. The reading of the list lives in Expand, below both sides that need it: Parse turns it into the bindings a macro body opens with, and Macro checks a call against the same reading before expanding it, so arity and shape are refused with the call's own location rather than with the Loc.from_macro stamp every node of an expansion carries. The breaking half: [args] used to bind the whole argument list and now binds the first argument. The whole list is [& args], and every defmacro in the tree — prelude, vendor, tests, the elisp fixtures — was migrated to it. One grammar, not a legacy mode.
12 lines
369 B
Plaintext
12 lines
369 B
Plaintext
;;;; A macro that expands into a call to itself and does not get smaller. The
|
|
;;;; expansion of a recursive macro is an ordinary loop and this is the one
|
|
;;;; that does not terminate, so it is bounded and the bound says which macro
|
|
;;;; ran out rather than the compiler running out of memory.
|
|
|
|
(defmacro spin [& args]
|
|
`(spin ~@args))
|
|
|
|
(defn main [] i32
|
|
(spin)
|
|
0)
|