;;;; Too few arguments for the macro's parameter list, refused at the call.
;;;;
;;;; Nothing here is a run-time claim and nothing here expands: check_call
;;;; counts the call against the list before do-grid is ever run, so the
;;;; location is the line below rather than a node of an expansion stamped
;;;; with Loc.from_macro.
(defmacro do-grid [[r rows c cols] & body]
  `(dotimes [~r ~rows] (dotimes [~c ~cols] ~@body)))

(defn main [] i32
  (do-grid)
  0)