Joseph Ferano
25f56c24a8
vendor/raylib/modes.flan: five macros over the five pairs the package binds -- with-drawing, with-mode-2d, with-mode-3d, with-texture-mode, with-scissor-mode. A second file with no declare-c in it, split out on vector.flan's reasoning: raylib.flan is the package's statement about C and nothing here names C, so nothing here can be made wrong by raylib changing. Each expands to (do (begin-... args) body... (end-...)) -- the calls the author used to type, in the order they typed them. No let, no gensym: nothing binds a name, so there is nothing for a caller's name to collide with. What it removes is the End* that is missing, wrong, or no longer beside its Begin*. What it cannot remove is a body leaving through the unwind path: a return or an invoke-restart skips the rest of the do and the End* with it. defer is the obvious fix and is refused inside a loop body, which is where a pair always lives -- checked, not assumed. So sand.flan's discipline stays: keep the restart boundary outside the pair. 35 call sites converted across examples/ and sand.flan. The one left is core-scissor-test.flan, whose Begin and End sit in two separate `when`s with the drawing between them -- a conditional pair is a shape a bracketing macro cannot express. test/programs/rl-with.flan covers with-scissor-mode, which no example can, with a frame function unreachable from main so it needs no libraylib; rl-with-reject.flan is the arity half.
17 lines
605 B
Plaintext
17 lines
605 B
Plaintext
;;;; with-mode-2d without a camera.
|
|
;;;;
|
|
;;;; The prelude's idiom for a macro's own arity check, which clamp and unless
|
|
;;;; and into all use: answer a symbol that is not a name, spelled as the
|
|
;;;; sentence the author needed to read. There is no way for a macro to signal
|
|
;;;; at expansion time, so the message travels as the unknown function — and
|
|
;;;; what makes it land usefully is the note the expander adds beneath it,
|
|
;;;; naming the macro and the call site.
|
|
;;;;
|
|
;;;; Being refused is the whole test; this is never built.
|
|
|
|
(import rl "vendor:raylib")
|
|
|
|
(defn main [] i32
|
|
(rl/with-mode-2d)
|
|
0)
|