Brummel
50b68267fe
Closes the 19a/19a.1/19b arc. Corpus signal from 19a.1 (5/65
fixtures fire over-strict-mode, all deliberate RC codegen-test
fixtures) justified shipping the suppress mechanism end-to-end.
Schema: Suppress { code, because } on FnDef. Pre-19b hashes
bit-identical via skip_serializing_if. Typechecker drops matching
diagnostics; empty 'because' is Error severity; wrong codes are
silent no-ops (open-set registry).
Form-A: (suppress (code "...") (because "...")) clause, parser
+ printer round-trip clean. Form-B: '// @suppress <code>: <reason>'
above the doc string, lossless contract metadata.
5 RC fixtures migrated (.ail.json + .ailx + .prose.txt). Corpus
signal: 5/65 -> 0/65. Lint still fires on any future fn that's
accidentally over-strict without an authored reason.
Test counts: ailang-check 55->61, ailang-core 26->28, ailang-surface
21->26, ailang-prose 49->52, e2e 70 unchanged.
Known debt: .ailx comment headers lost on regen (ail render's
contract excludes comments); parse_suppress_attr accepts
duplicate code/because attrs without diagnose (bounded by canonical
print order).
19 lines
1.1 KiB
Plaintext
19 lines
1.1 KiB
Plaintext
(module rc_own_param_drop
|
|
(data IntList
|
|
(doc "Recursive Int list — boxed.")
|
|
(ctor Nil)
|
|
(ctor Cons (con Int) (con IntList)))
|
|
(fn head_or_zero
|
|
(doc "Take ownership of an IntList; return its head if Cons, else 0. The tail is loaded as a pattern binder but never consumed — iter A dec's it at arm close. The outer cell is dec'd at fn return via iter B's Own-param emission.")
|
|
(suppress (code "over-strict-mode") (because "RC codegen test: exercises Iter B Own-param dec at fn return"))
|
|
(type (fn-type (params (own (con IntList))) (ret (con Int))))
|
|
(params xs)
|
|
(body (match xs
|
|
(case (pat-ctor Nil) 0)
|
|
(case (pat-ctor Cons h t) h))))
|
|
(fn main
|
|
(doc "Build a 5-element IntList; pass to head_or_zero (transferring ownership); print the result.")
|
|
(type (fn-type (params) (ret (con Unit)) (effects IO)))
|
|
(params)
|
|
(body (let xs (term-ctor IntList Cons 11 (term-ctor IntList Cons 22 (term-ctor IntList Cons 33 (term-ctor IntList Cons 44 (term-ctor IntList Cons 55 (term-ctor IntList Nil)))))) (do io/print_int (app head_or_zero xs))))))
|