Files
AILang/examples/local_rec_as_value_capture.ail
T
Brummel 6fdb45d2f2 iter rpe.1: retire per-type print effect-ops
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.
2026-05-14 02:12:34 +02:00

44 lines
1.7 KiB
Plaintext

; Iter 16b.5 — LetRec name as value, with capture. A recursive
; helper `factorial_plus` captures the outer fn-param `base` and is
; passed as a VALUE to a higher-order combinator. The lifted fn has
; signature `factorial_plus$lr_N(n: Int, base: Int) -> Int`. The
; eta-Lam wrap binds `factorial_plus` in the in-clause to a
; `(lam (n) (app factorial_plus$lr_N n base))` — the Lam's free var
; `base` becomes a closure-env capture under the standard 8b ABI.
; This exercises the dynamic-env path (lifted fn has extra params,
; the eta-Lam captures them).
;
; Expected stdout (one per line):
; apply5(factorial_plus[base=10]) = 5*4*3*2*(1+10) = 1320
; apply5(factorial_plus[base=100]) = 5*4*3*2*(1+100) = 12120
(module local_rec_as_value_capture
(fn apply5
(doc "Higher-order: applies its fn argument to 5.")
(type (fn-type (params (fn-type (params (con Int)) (ret (con Int)))) (ret (con Int))))
(params f)
(body (app f 5)))
(fn run_with_base
(doc "Build a recursive helper that captures `base` and pass it as a value to apply5.")
(type (fn-type (params (con Int)) (ret (con Int))))
(params base)
(body
(let-rec factorial_plus
(params n)
(type (fn-type (params (con Int)) (ret (con Int))))
(body
(if (app <= n 1)
(app + 1 base)
(app * n (app factorial_plus (app - n 1)))))
(in (app apply5 factorial_plus)))))
(fn main
(doc "Iter 16b.5: pass a capturing let-rec helper as a value. Expected stdout: 1320, 12120.")
(type (fn-type (params) (ret (con Unit)) (effects IO)))
(params)
(body
(seq (app print (app run_with_base 10))
(app print (app run_with_base 100))))))