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).
23 lines
761 B
Plaintext
23 lines
761 B
Plaintext
// module rc_own_param_drop
|
|
|
|
/// Recursive Int list — boxed.
|
|
data IntList = Nil | Cons(Int, IntList)
|
|
|
|
// @suppress over-strict-mode: RC codegen test: exercises Iter B Own-param dec at fn return
|
|
/// 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.
|
|
fn head_or_zero(xs: own IntList) -> Int {
|
|
match xs {
|
|
Nil => 0,
|
|
Cons(h, t) => h
|
|
}
|
|
}
|
|
|
|
/// Build a 5-element IntList; pass to head_or_zero (transferring ownership);
|
|
/// print the result.
|
|
fn main() -> Unit with IO {
|
|
let xs = Cons(11, Cons(22, Cons(33, Cons(44, Cons(55, Nil)))));
|
|
do io/print_int(head_or_zero(xs))
|
|
}
|