Brummel
2ed355c6fa
Post-audit downstream-LLM-author field test of the shipped loop/recur surface (DESIGN.md + public examples only). 3 real iterative programs (Newton isqrt, Collatz, Euclidean gcd) + 5 plausible-mistake negatives + 2 no-termination probes, all run through the public ail CLI. 0 bugs. 4 working findings on the milestone's own axes: rejection diagnostics point-exact AND self-fixing; recur tail-position threads through match/let/outer-if (spec only showed if); loop composes as a value sub-expression + byte-stable round-trip; no-termination boundary exact. This empirically substantiates the "LLM author can now write iterative programs" claim. Two orthogonal non-blocking findings, neither in loop/recur scope, both routed to P2 todos (refused the scope creep into a loop/recur tidy): niladic (app f) spec_gap independently re-confirms the existing mut-local-F3 roadmap item (the design-fork decision deliberately NOT auto-ratified under /boss — parked, priority-strengthened); module-level (doc) diagnostic-hint friction (one-line tidy). Boss-verified independently (gcd->27; recur-outside-loop fires exact). The standalone loop/recur milestone is fully ratified and CLOSED: 3 iterations + tidy shipped, audit clean (drift resolved, bench pristine carry-on), fieldtest clean on every axis. Roadmap P0 marked closed.
24 lines
963 B
Plaintext
24 lines
963 B
Plaintext
; NEGATIVE FIXTURE. The LLM-natural mistake: inside the loop body
|
|
; the author builds a closure that closes over the loop binder
|
|
; `acc` (a `\delta. acc + delta` adder) and applies it. Loop
|
|
; binders are alloca-resident and may not be captured.
|
|
; Expected: `ail check` exits 1 with code loop-binder-captured-by-lambda.
|
|
(module loop_recur_3e_binder_captured
|
|
(fn apply_int
|
|
(type (fn-type (params (fn-type (params (con Int)) (ret (con Int))) (con Int)) (ret (con Int))))
|
|
(params f x)
|
|
(body (app f x)))
|
|
(fn sum_to
|
|
(type (fn-type (params (con Int)) (ret (con Int))))
|
|
(params n)
|
|
(body
|
|
(loop (acc (con Int) 0) (i (con Int) 1)
|
|
(if (app > i n)
|
|
acc
|
|
(recur (app apply_int (lam (params (typed d (con Int))) (ret (con Int)) (body (app + acc d))) i)
|
|
(app + i 1))))))
|
|
(fn main
|
|
(type (fn-type (params) (ret (con Unit)) (effects IO)))
|
|
(params)
|
|
(body (app print (app sum_to 10)))))
|