Brummel
6fdb45d2f2
Single iter shipping the post-milestone-24 follow-up named in
docs/specs/2026-05-14-retire-per-type-print-effects.md. After this
iter the only surviving direct-output effect-op is `io/print_str`;
all per-type print primitives are replaced by the polymorphic
`print` helper (prelude, iter 24.3).
Components:
- 92 examples/*.ail fixtures migrated (do io/print_<T> x) →
(app print x); 6 .prose.txt snapshots regenerated via `ail prose`.
- Four-site lockstep compiler deletion: crates/ailang-check/src/builtins.rs
(3 effect_ops.insert blocks + 3 list() rows + the
install_io_print_float_signature test + module + EffectOpSig
doc-comments); crates/ailang-codegen/src/lib.rs lower_app
(3 arms + lowers_io_print_float test); crates/ailang-codegen/src/synth.rs
builtin_effect_op_ret match-arm pattern. Dead `intern_string`
helper removed as a follow-up.
- Five incidental test-body migrations (ailang-check x2, ailang-core
spec_drift + design_schema_drift, ailang-surface/src/lex.rs,
ailang-prose/src/lib.rs round-trip test).
- Cat B test-harness patch: six IR-shape tests in
crates/ail/tests/e2e.rs gained a monomorphise_workspace call
before lower_workspace_with_alloc so they follow the same
pipeline as `ail build` (the home-rolled desugar+lift loop
stayed because mono's precondition is "already lifted"; mono
inserts after lift).
- Six doc-comment touch-ups (lex.rs module doc, parse.rs
diagnostic example, ail/src/main.rs x2, runtime/str.c %g anchor,
crates/ailang-core/specs/form_a.md surface-spec example).
- DESIGN.md seven-site sweep (Decision 11 example, Polymorphic
print past-tense, Heap-Str output sentence, effect-op
invocation comment, Float NaN paragraph re-anchored on
float_to_str, two "What is supported" lists).
- Three E2E test-comment polish + four IR-snapshot refresh + one
canonical-hash pin update (plan-unanticipated downstream
consequences of the corpus migration).
- bench/{check,compile_check,cross_lang}.py: all exit 0; no
ratification needed.
- Roadmap entry struck through; per-iter journal at
docs/journals/2026-05-14-iter-rpe.1.md.
Tests 564/0/3. cargo clippy and cargo doc: zero warnings.
Two upstream codegen bugs surfaced during the first BLOCKED
attempt and were fixed in separate iters before this retry:
- 1fb225e bugfix: mono cursor misalignment at poly-free-fn Var
with class-constrained Forall.
- feb9413 bugfix: print leak — propagate ret_mode through rigid
substitution + prelude Show.show ret_mode.
Known debt (carried forward for next /audit):
- Emitter.strings field is functionally dead post-iter (orphan
after intern_string removal); cycles over empty map harmlessly.
60 lines
2.5 KiB
Plaintext
60 lines
2.5 KiB
Plaintext
; Iter 16b.4 — LetRec captures of match-arm pattern bindings.
|
|
; `count_below(p)` takes a `Pair Int Int` (threshold, n), pattern-
|
|
; matches on `(MkPair threshold n)`, and inside that match arm runs
|
|
; a recursive helper `loop` that captures BOTH match-arm bindings
|
|
; (`threshold` and `n`) and counts how many integers in 1..=n are
|
|
; strictly less than `threshold`.
|
|
;
|
|
; The 16b.2/16b.3 desugar passes cannot lift this LetRec — both
|
|
; `threshold` and `n` are bound by a `Pattern::Ctor` Var sub-
|
|
; pattern (`ScopeEntry::MatchArm`). Before 16b.4 this panicked at
|
|
; desugar time. Now the desugar pass leaves the LetRec in place;
|
|
; the post-typecheck `lift_letrecs` pass walks the enclosing match,
|
|
; resolves each pattern binding's type via constructor-field
|
|
; substitution against the matched ctor's declared field types
|
|
; (here: `Pair Int Int`'s ctor `MkPair` has fields `[Int, Int]`,
|
|
; and the scrutinee's `Type::Con.args` are also `[Int, Int]`, so
|
|
; substitution is a no-op and both bindings get type `Int`), and
|
|
; lifts to `loop$lr_0(i: Int, threshold: Int, n: Int) -> Int`.
|
|
;
|
|
; The match has a single ctor and no catch-all; the chain machinery
|
|
; treats the only arm as default-dominating since there's no `_`
|
|
; arm needed for an exhaustive single-ctor ADT (Pair has one ctor).
|
|
;
|
|
; Expected stdout (one per line):
|
|
; count_below(MkPair 10 0) = 0
|
|
; count_below(MkPair 10 5) = 5 (1..=5 all below 10)
|
|
; count_below(MkPair 10 15) = 9 (1..=9 below 10, 10..=15 not)
|
|
|
|
(module local_rec_match_capture
|
|
|
|
(data Pair (vars a b)
|
|
(ctor MkPair a b))
|
|
|
|
(fn count_below
|
|
(doc "Match-arm captures `threshold` and `n`; inner LetRec captures both.")
|
|
(type (fn-type (params (con Pair (con Int) (con Int))) (ret (con Int))))
|
|
(params p)
|
|
(body
|
|
(match p
|
|
(case (pat-ctor MkPair threshold n)
|
|
(let-rec loop
|
|
(params i)
|
|
(type (fn-type (params (con Int)) (ret (con Int))))
|
|
(body
|
|
(if (app > i n)
|
|
0
|
|
(if (app < i threshold)
|
|
(app + 1 (app loop (app + i 1)))
|
|
(app loop (app + i 1)))))
|
|
(in (app loop 1)))))))
|
|
|
|
(fn main
|
|
(doc "Drive count_below at MkPair 10 {0,5,15}. Expected: 0, 5, 9.")
|
|
(type (fn-type (params) (ret (con Unit)) (effects IO)))
|
|
(params)
|
|
(body
|
|
(seq (app print (app count_below (term-ctor Pair MkPair 10 0)))
|
|
(seq (app print (app count_below (term-ctor Pair MkPair 10 5)))
|
|
(app print (app count_below (term-ctor Pair MkPair 10 15))))))))
|