git.iko.soy/jibb

on master help sign in

from

swap

toab6fdc142 ahead, 0 behind

compare

README.md+1−1

@@ -42,7 +42,7 @@ tools/hoon '(golden /a/b/jibb (crip "++ main view"))'

4242tools/hoon --raw --cord src=tests/golden/foo/source.jibb 'tree:(golden /a/b/jibb src)'

4343```

4444

45−`tools/testdata/selftest` tests both tools against a stub library, and `tools/doc-blocks` against Markdown it writes. `tools/importer-test` compares the partial Hoon importer's fixture projections against their golden file. `tools/type-import-test`, `tools/type-tlon-test`, `tools/type-mark-test`, `tools/type-poke-test` and `tools/type-api-paths-test` check importer/checker, prelude and partial API path analysis boundaries under eval; the ship suite runs the same fixtures.

45+`tools/testdata/selftest` tests both tools against a stub library, and `tools/doc-blocks` against Markdown it writes. `tools/importer-test` compares the partial Hoon importer's fixture projections against their golden file. `tools/type-import-test`, `tools/type-import-overlap-test`, `tools/type-import-structural-test`, `tools/type-union-source-test`, `tools/type-union-alias-overlap-test`, `tools/type-full-overlap-test`, `tools/type-generic-recursion-test`, `tools/type-generic-construction-test`, `tools/type-generic-pattern-test`, `tools/type-deferred-test`, `tools/type-deferred-resolver-test`, `tools/type-deferred-context-test`, `tools/type-empty-test`, `tools/type-cell-branch-test`, `tools/type-tlon-test`, `tools/type-mark-test`, `tools/type-poke-test` and `tools/type-api-paths-test` check importer/checker, prelude and partial API path analysis boundaries under eval; the ship suite runs the same fixtures.

4646

4747### The doc's examples

4848

docs/compiler.md+70−10

@@ -56,13 +56,23 @@ The core is split into chapters, `+| %name`, in this order:

5656| `%span-check` | `+check-spans`, which `+golden` runs on every tree, and `+check-spans-test` |

5757| `%type-inference` | The initial inference fragment and its unification helpers; not yet a module type checker |

5858

59−The inference fragment supports fixed auras, unrestricted `@`, one-way widening into it and toward aura-family ancestors, generic variables and gates, faced and unfaced cells, cell sample binders, known record field reads, a cell pattern of two or more binders, a complete two-arm loobean branch, a complete two-arm unit-shaped branch, closed local mold aliases and acyclic forward value references. For a supported single syntactic top-level recursive gate, the checker infers the sample first and uses that exact sample, including its field faces, in a monomorphic self placeholder. The completed body must unify with the placeholder before the gate is generalized; incompatible recursive arguments can report the call and argument sites. Uses of generalized top-level definitions instantiate their schemes independently. For a complete loobean branch with one direct self-call arm, the checker can infer the other arm independently and use its closed, fully resolved type to seed the recursive result; it then checks the whole body. Open or pending base types do not seed the result, and other branch shapes still depend on the existing partial inference. A supported single local recursive gate also uses a monomorphic self reference while its body is checked, then generalizes variables free of its enclosing environment; captured variables remain shared. Acyclic local value definitions can refer forward. The checker collects written capitals per `++` before inference, excluding nested definitions: a capital used in an enclosing definition is shared with its locals, even when written later, while a capital introduced only in a local definition is generalized there. Sibling locals can introduce independent capitals with the same spelling; generic mold parameters keep their own scope. Top-level groups of syntactic gates are inferred together with monomorphic placeholders and shared substitutions, then generalized only after the whole group checks; downstream uses and library interfaces instantiate those schemes independently. A dependency graph identifies groups with two iterative depth-first passes; its conservative local-reference edges can reject otherwise valid programs. Supported local mutually recursive gate groups also use shared monomorphic placeholders and generalize only after the group checks, preserving captured outer variables. Mixed gate/value cycles, polymorphic recursion, unresolved literal constraints and unresolved branch joins remain unsupported. Acyclic simple local mold aliases can also refer forward, and are scoped to the body, not its gate's sample. Nonrecursive generic aliases of supported molds can be applied at exact arity, including locally and through library interfaces; their parameters are lexical. Closed, provably disjoint nonrecursive unions and tagged single-case molds support contextual term values, `~` and `|=%tag` constructors. A null-headed cell can match a union case but does not supply a `|=%$` constructor; unresolved tags and nulls remain pending, with distinct partial-inference diagnostics. Nonrecursive top-level generic union molds with provably disjoint cases also support contextual tags and constructors at exact arity; their arguments are retained through generalization and supported library interfaces. Nonrecursive generic aliases can reorder, repeat or omit parameters while preserving a supported union’s origin, including through local scopes and library interfaces. A generic union declared directly inside a body remains unsupported, as do mutually recursive local groups and recursive molds. A value with type variable `A` can fit a field whose type is that same `A`, including in generic union payloads and nested or repeated record fields. A differing-variable face constraint remains unsupported. When inference forces two distinct explicitly written capitals equal, it reports both source sites; forcing a capital to a concrete type remains unsupported in this fragment. It can infer and generalize atom constraints arising from explicit capitals or bare sample binders, preserve those constraints through aliases, instantiate them independently, and print multiple constraints. Unresolved decimal variables default to `@ud` for inferred types without gates; defaulting inside gate types and other constraint cases remain incomplete. It does not yet check a module, complete imports, general patterns, general deferred constraints, recursive molds, dependency cycles or most errors with both conflicting excerpts. Definite cast and call mismatches, incompatible branches and overlapping union cases report both sites and excerpts. Concrete branch results can join at an explicitly present parent aura or `@`. Some known tuple and record positions acquire matching faces; other variable-dependent face merges, general branch tag context and ambiguous call-result propagation remain unsupported; function compatibility involving nested `@` and variable-dependent joins remain unsupported except for equal types. For a single recursive gate outside a group, the reporting path repeats inference rather than instantiating its generalized interface inside its own body; a group report uses its stored schemes. This adds work, and the current dependency pass can take quadratic time on long forward chains; the milestone's speed target remains unverified. A separate conservative pass reports unions whose cases are provably disjoint or overlapping and leaves other cases unresolved; it does not claim the mold is checked. Unsupported forms are reported as such, and the partial output says the module has not been checked.

59+The inference fragment supports fixed auras, unrestricted `@`, one-way widening into it and toward aura-family ancestors, generic variables and gates, faced and unfaced cells, cell sample binders, known record field reads, a cell pattern of two or more binders, a complete two-arm loobean branch, a complete two-arm unit-shaped branch, closed local mold aliases and acyclic forward value references. For a supported single syntactic top-level recursive gate, the checker infers the sample first and uses that exact sample, including its field faces, in a monomorphic self placeholder. The completed body must unify with the placeholder before the gate is generalized; incompatible recursive arguments can report the call and argument sites. Uses of generalized top-level definitions instantiate their schemes independently. For a complete loobean branch with one direct self-call arm, the checker can infer the other arm independently and use its closed, fully resolved type to seed the recursive result; it then checks the whole body. Open or pending base types do not seed the result, and other branch shapes still depend on the existing partial inference. A supported single local recursive gate also uses a monomorphic self reference while its body is checked, then generalizes variables free of its enclosing environment; captured variables remain shared. Acyclic local value definitions can refer forward. The checker collects written capitals per `++` before inference, excluding nested definitions: a capital used in an enclosing definition is shared with its locals, even when written later, while a capital introduced only in a local definition is generalized there. Sibling locals can introduce independent capitals with the same spelling; generic mold parameters keep their own scope. Top-level groups of syntactic gates are inferred together with monomorphic placeholders and shared substitutions, then generalized only after the whole group checks; downstream uses and library interfaces instantiate those schemes independently. A dependency graph identifies groups with two iterative depth-first passes; its conservative local-reference edges can reject otherwise valid programs. Supported local mutually recursive gate groups also use shared monomorphic placeholders and generalize only after the group checks, preserving captured outer variables. Some proven non-gate value cycles are diagnosed; other mixed gate/value cycles, polymorphic recursion, unresolved literal constraints and unresolved branch joins remain unsupported. Acyclic simple local mold aliases can also refer forward, and are scoped to the body, not its gate's sample. Nonrecursive generic aliases of supported molds can be applied at exact arity, including locally and through library interfaces; their parameters are lexical. Closed, provably disjoint nonrecursive unions and tagged single-case molds support contextual term values, `~` and `|=%tag` constructors. Literal heads compare by their runtime noun, so `|=%$` can construct an explicit null-, loobean-zero- or term-zero-headed case. Equal heads with distinct payloads can be selected when exactly one payload fit is proven; unknown or ambiguous alternatives remain unsupported. Unresolved tags and nulls remain pending, with distinct partial-inference diagnostics. Nonrecursive top-level generic union molds with provably disjoint cases also support contextual tags and constructors at exact arity; their arguments are retained through generalization and supported library interfaces. Nonrecursive generic aliases can reorder, repeat or omit parameters while preserving a supported union’s origin, including through local scopes and library interfaces. Generic unions declared directly inside a body and recursive molds outside the source-proven slices described below remain unsupported. A directly known named union can instantiate an unconstrained generic gate sample while retaining its origin, generic arguments and faces. Unnamed, pending-tag, recursive, unknown-atom and variable-bound union origins remain unsupported. A value with type variable `A` can fit a field whose type is that same `A`, including in generic union payloads and nested or repeated record fields. A differing-variable face constraint remains unsupported. When inference forces two distinct explicitly written capitals equal, it reports both source sites; forcing a capital to a concrete type remains unsupported in this fragment. It can infer and generalize atom constraints arising from explicit capitals or bare sample binders, preserve those constraints through aliases, instantiate them independently, and print multiple constraints. Unresolved decimal variables default to `@ud` for inferred types without gates; defaulting inside gate types and other constraint cases remain incomplete. It does not yet check a module, complete imports, general patterns, general deferred constraints, recursive molds, dependency cycles or most errors with both conflicting excerpts. Definite cast and call mismatches, incompatible branches and overlapping union cases report both sites and excerpts. Concrete branch results can join at an explicitly present parent aura or `@`. Some known tuple and record positions acquire matching faces; other variable-dependent face merges, general branch tag context and ambiguous call-result propagation remain unsupported; function compatibility involving nested `@` and variable-dependent joins remain unsupported except for equal types and the source-bound gate-sample proof below. For a single recursive gate outside a group, the reporting path repeats inference rather than instantiating its generalized interface inside its own body; a group report uses its stored schemes. This adds work, and the current dependency pass can take quadratic time on long forward chains; the milestone's speed target remains unverified. A separate conservative pass reports unions whose cases are provably disjoint or overlapping and leaves other cases unresolved; it does not claim the mold is checked. Unsupported forms are reported as such, and the partial output says the module has not been checked.

6060

61−A single-arm cell pattern can bind two or more positions, with its last binder capturing the remaining tail. Duplicate and shadowed names are rejected. A definite non-cell spine fails; an intermediate union or collection that might contain a cell remains unsupported. Nested patterns, wildcard patterns and faced records are not covered by this rule.

61+A direct unshadowed prelude call can use checked source layouts when a positional argument is a directly named, already inferred root gate. For two-slot function samples, the checker can match a named update against an unnamed generic gate sample without confusing a binder face with a nested record face. Both explicitly named slots must agree; source boundaries are evidence for this fit, not a call-arity rule. The source gate and prelude annotation must be available from their checked bindings. Local or dynamic gates, aliases without direct evidence, recursive or SCC placeholder bodies, other sample shapes and unresolved call-sample variables remain unsupported by this proof. Ordinary inference remains the fallback.

62+

63+The checker retains a per-analysis index of finalized root gates and a prelude source table bound to the entire trusted prepared interface. A dependency screen avoids building the table when the root cannot use it; changing the interface invalidates it. The host remains responsible for supplying a prepared interface paired with its source. The matcher checks each slot and product in both directions with a shared substitution. Before returning its tentative proof it requires both complete call samples to normalize to closed, tag-free types, then repeats every slot check and requires the substitution and fresh-ID counter to remain unchanged. This keeps later argument or enclosing constraints from invalidating an earlier face check, and preserves pending constraints, capital checks and projection evidence. These scans and the bounded second proof add work; they do not establish a global linear-time bound.

64+

65+Before the empty-capital optimization below, single sequential eval runs including startup showed that 2,000 ordinary gates used 70.20 seconds of user CPU at baseline and 70.64 seconds with the cached source table. Fifty unsupported eligible scalar-slot calls used 24.75 and 25.71 seconds, while fifty function-slot failures used 24.15 and 25.36 seconds. Fifty successful calls took 26.56 seconds before the final stability replay and 26.99 seconds with it. These are synthetic measurements, not production performance limits.

66+

67+Restricted-number promotion only applies to written capital variables. If none are present, it returns immediately instead of traversing the environment. In one startup-inclusive pair of runs on 2,000 independent gates, output was byte-identical and user CPU fell from 71.67 to 38.26 seconds; wall time was 72.80 versus 51.66 seconds while other checks were running. This does not establish a bound for dependent modules or a complete-checker benchmark.

68+

69+A bounded source proof can also establish distinct literal heads when a union case is a one-hop application of a uniquely resolved local generic mold. It compares literal runtime nouns and checks the original mold normally before publishing an interface. The same source proof improves the partial report, which still says the mold is not checked. The new proof declines nested or qualified applications, opaque references, recursive-index states, holes and deferred obligations; other valid unions can remain unsupported. A 256-node source budget and a separate 256-entry inherited-state budget apply per attempt. They do not bound the existing pairwise union pass, parsing, atom or name sizes, or downstream checking. Prepared interfaces and inference state remain trusted inputs. `tools/type-union-source-test` and the shared ship guard exercise source resolution, reporting, rollback and these bounds. A separate positive witness can identify overlap in two-field, literal-headed cases when a unique one-hop local, one-parameter generic alias is applied to a concrete primitive payload. It compares the literal noun values and proves the payloads have a shared noun, so an empty or unknown payload is not a witness. The partial report identifies both original case sites. `infer-jibb-file-detailed` returns structured overlap evidence for the first failed mold, including the originating path, exact source, mold name and both case spans. Ordinary Jibb imports preserve a child’s evidence through source and cache checks; the legacy `infer-jibb-file` API remains a text-result adapter and renders both excerpts. Specialized API and prepared-prelude paths retain their existing generic or text-only error boundaries. This witness uses a shared 256-node source/pair budget per attempt; generic-wrapper parameter validation has a separate 256-entry cap. An unsupported earlier case may hide a later overlap. Existing pairwise union analysis, parsing, atom and name sizes, source-excerpt rendering, and downstream checking remain outside these budgets. `tools/type-union-alias-overlap-test` checks the source proof and partial report; `tools/type-full-overlap-test` checks the detailed and legacy full-module paths, source attribution and cache behavior.

70+

71+A single-arm cell pattern can bind two or more positions, with its last binder capturing the remaining tail. Duplicate and shadowed names are rejected. A definite non-cell spine fails; an intermediate union or collection that might contain a cell remains unsupported. For a known non-union cell, a separate one-arm rule also accepts structured patterns, including nested literal and wildcard positions, when the existing coverage proof establishes the whole pattern. It binds payloads with their original types and checks result context; unknown, partially covered, union or recursive spines stay unsupported.

6272

6373String interpolation infers its pieces in order and preserves substitutions and pending constraints. A piece with a known atom aura, unrestricted `@`, or a tape `(list @tD)` is accepted; an isolated decimal literal takes its normal `@ud` default. A known cell reports that it needs a printer, and an explicitly generic atom asks for an aura at its use site. Loobeans, term singletons, non-tape collections, open types and a type fixed only later remain unsupported in this fragment.

6474

65−The Hoon bridge translates imported `*` as the any-noun type, directly or within supported nonrecursive cells. The reader may still decline a disjoint tagged union with a noun payload, and recursive imports containing `*` remain unsupported. It accepts an exact fork of the two loobean singletons as `?`, and each singleton separately as `%.y` or `%.n`, including inside supported faced cells. Contextual literals specialize against a loobean singleton. Open `%f`, other values, and other forks containing loobean singletons remain unsupported; recursive Hoon molds containing flags can also fail closed.

75+The Hoon bridge translates imported `*` as the any-noun type, directly or within supported nonrecursive cells. The reader may still decline a disjoint tagged union with a noun payload, and recursive imports containing `*` remain unsupported. It accepts an exact fork of the two loobean singletons as `?`, and each singleton separately as `%.y` or `%.n`, including inside supported faced cells. Contextual loobean literals specialize against a matching singleton by noun, including a proven singleton in a direct union; named loobean singletons do not silently widen to a distinct aura. Open `%f`, other values, and other forks containing loobean singletons remain unsupported; recursive Hoon molds containing flags can also fail closed.

6676

6777A bare tag that provably matches no case of a known union reports the union and tag sites. This covers casts, single-argument calls, contextual unit payloads, list items and supported branch arms, including unnamed imported unions. For syntactic tuples, ordered fit replay can identify a missing tag in a nested position; an earlier mismatch or uncertainty stops the replay instead of guessing. Existing tags whose shape or payload does not fit retain the ordinary mismatch; unresolved tags stay pending.

6878

@@ -72,29 +82,57 @@ For supported closed unions, the type printer keeps the union’s origin separat

7282

7383Multi-argument calls form one right-nested sample: `f a b c` supplies `[a [b c]]`, with the last argument able to be a cell itself. The fragment fits the complete sample, preserving known faces and shared variables. Known sample positions can provide list or union context to arguments; unknown sample shapes use ordinary inference and some contextual forms remain unsupported. For a definite mismatch, the diagnostic points to a specific argument when it can establish which one failed; otherwise it reports the combined sample.

7484

75−A list literal can be inferred when a cast or known gate sample supplies a list type and the supplied prelude has the validated standard list definition. Empty, nonempty and nested literals work, including contextual union tags in elements; mismatched elements report the item and expected type. Imported Hoon lists share this representation. Under the same known context, `~` and zero-valued term literals fit an empty list, and a two-item unfaced cell `[head tail]` is a cons; cons cells and list literals can be nested. Mismatched heads or tails report both sites. A known list result also supplies context through complete loobean, unit-shaped and list-shaped branches, including recursive and nested branches. A known gate sample also supplies context to corresponding positions of a single tuple or record argument, including nested cells; a zero literal can therefore fit a list position. A bound zero constant still remains unsupported rather than a definite mismatch, and an unknown callee does not supply context. Uncontextualized list literals also infer with a fresh element variable, including empty and nested lists; the resulting variable can generalize. Unresolved item tags and uncertain widening remain unsupported. Faced or longer cons cells, and a missing or altered prelude list remain unsupported. For a known standard list with a supported element type, it also infers a complete two-arm branch using `~` and `[item rest]`, in either order. The binders have the element and list types and cannot shadow or duplicate names. Unknown subjects, unsupported element types, other patterns and incomplete arms remain unsupported.

85+A list literal can be inferred when a cast or known gate sample supplies a list type and the supplied prelude has the validated standard list definition. Empty, nonempty and nested literals work, including contextual union tags in elements; mismatched elements report the item and expected type. Imported Hoon lists share this representation. Under the same known context, `~` and zero-valued term literals fit an empty list, and a two-item unfaced cell `[head tail]` is a cons; cons cells and list literals can be nested. Mismatched heads or tails report both sites. A known list result also supplies context through complete loobean, unit-shaped and list-shaped branches, including recursive and nested branches. Known loobean result context can propagate through supported complete branches and binder-only cell arms, with a final directional fit; a binder-only arm over a union subject remains unsupported. A known gate with an unresolved result variable can also receive an enclosing result type before its argument is inferred, for example allowing `^- (list @t) (id ~)`; unknown callees and unresolved targets retain the conservative path. A known gate sample supplies context to corresponding positions of a single tuple or record argument, including nested cells; a zero literal can therefore fit a list position. A bound zero constant still remains unsupported rather than a definite mismatch, and an unknown callee does not supply context. Uncontextualized list literals also infer with a fresh element variable, including empty and nested lists; the resulting variable can generalize. Unresolved item tags and uncertain widening remain unsupported. Faced or longer cons cells, and a missing or altered prelude list remain unsupported. For a known standard list with a supported element type, it also infers a complete two-arm branch using `~` and `[item rest]`, in either order. The binders have the element and list types and cannot shadow or duplicate names. Unknown subjects, unsupported element types, other patterns and incomplete arms remain unsupported.

86+

87+A term-headed pair such as `gap+%s2` follows the same contextual inference as `[%gap %s2]`; its synthetic head uses the pair’s span in diagnostics.

7688

7789A backtick constructs a unit when the supplied prelude has the validated standard `unit` template. Its payload is inferred normally, retaining pending literals and generic variables; nested units work and the prelude’s `some` becomes available. With ordinary result annotations, its `bind`, `biff`, `both`, `clap`, `clef` and `flit` also infer. A known unit in a cast, call, list item or record field supplies its payload context, including nested units and lists; definite mismatches identify the payload and context. Unrelated union identities, some variable-dependent fits, and missing or altered prelude templates remain unsupported.

7890

7991A known union of `~` and a null-headed cell can be matched by `~` and `[~ value]` arms in either order. The payload binder is checked for shadowing. Unknown subjects, missing or duplicate arms, and unresolved branch results remain unsupported; this fragment infers the prelude’s `fall` and `need` signatures.

8092

81−A known closed union with two or more arms can be matched when each arm provably covers or excludes each remaining case. The checker first tries whole cases; when a pattern splits a case, it can expand known `?` positions into their two noun values, up to 64 alternatives across the union. Binders retain the original case type, and one arm may bind several refinements of that case. It reports missing alternatives and arms already covered, checks tags by noun value, and supports imported and generic union cases. Other partial patterns, expansions above the limit, binders spanning distinct cases, differing arm result types and some complex two-arm subjects remain unsupported. When a cast or known call sample supplies a result type, a known union subject accessed by a wing can propagate that context through whole-case arms and supported finite loobean refinements, including nested cell and list positions. Other partial-pattern context and non-wing subjects remain unsupported. The Grammar’s `step` block infers in this fragment, but its module is not yet checked.

93+The checked inference fragment represents the empty mold `!!` explicitly. A cell with a proven-empty field is empty, while a gate returning `!!` and the empty values of `(list !!)` and `(unit !!)` remain inhabited. Supported union matches discard proven-empty cases, reject unreachable list or unit payload arms, and require a proof of reachability for fixed opaque cases. A written capital may have an inhabited instance; the existing definition-boundary checks still reject forcing it to a concrete empty type. A directly known standard `(list !!)` permits a single null arm, including in a result context. Unknown and opaque types, other one-arm list subjects, and proofs exceeding their budgets fail closed. Emptiness checks use up to 256 type-node visits per fit or list/unit reachability proof and 4,096 visits when filtering union cases. These bounds do not cover substitution walking, parsing, normalization, source lookup or repeated attempts. This is a supported checking slice, not a proof of arbitrary recursive molds or runtime execution.

94+

95+A known closed union with two or more arms can be matched when each arm provably covers or excludes each remaining case. The checker first tries whole cases; when a pattern splits a case, it can expand known `?` positions into their two noun values, up to 64 alternatives across the union. Binders retain the original case type, and one arm may bind several refinements of that case. It reports missing alternatives and arms already covered, checks tags by noun value, and supports imported and generic union cases. Other partial patterns, expansions above the limit, binders spanning distinct cases, differing arm result types and some complex two-arm subjects remain unsupported. When a cast or known call sample supplies a result type, a known union subject accessed by a wing, a grouped wing or a supported shallow call can propagate that context through whole-case arms and supported finite loobean refinements, including nested cell and list positions. Other partial-pattern contexts and subject forms remain unsupported. The Grammar’s `step` block infers in this fragment, but its module is not yet checked.

8296

8397A known closed union can also provide context to each arm of a complete loobean or unit-shaped branch in a cast or a call with a known union sample. Nested branches and transparent groups work; a mismatch reports the expected union and the offending arm. General patterns and context through bodies with local definitions remain unsupported, and unrelated unresolved tags stay pending.

8498

85−The separate `jibb-dev/lib/jibb-import.hoon` is an unfinished reader for selected Hoon type graphs. It handles named recursion, nested map, set, queue, list, unit, jar and jug arguments, direct ordered maps, and direct `$^` unions whose source branches can be proved disjoint. It also reads ordered map fields in records when the map arguments are syntactically fixed atom molds and other fields are fixed atom molds or standard collections of static atom molds. Collection names must not be shadowed. The reader can also import a mark door sample, removing its outer sample face and validating its build subject. For a mark whose sample is exactly a named arm of its single Ford-imported `/sur` core, it can recover a source-proved nonrecursive union, including source-location wrappers around fields; recursive or unverified fallback results remain unsupported. The reader checks explicit Hoon `$%`, `$?` and `$^` unions against the Grammar’s disjointness rule, as @iko confirmed on 2026-10-30. For an explicit `$%` with distinct literal head tags, it can also prove restricted local named payload dependencies, including bare `~` fields, re-evaluate and validate each source branch, and recover the union before Hoon collapses it. The real Tlon `notes.u-note` exercises its `[%deleted ~]` case. It rejects recursive or computed dependencies, inherited same-name collisions, unsupported nested unions and proofs exceeding a shared 4,096-node budget. It re-evaluates statically recognizable source branches before Hoon can collapse them, checks materialized fork cases, and rejects shapes it cannot prove disjoint. Static records may also have verified standard-collection and `path` siblings. One direct explicit union argument in a standard list, set, map or unit is accepted when its call wrapper and collection provenance are verified and its static cases are pairwise disjoint. A synthetic regression checks that forged wrapper subjects, samples and tails are rejected. Other collection-union forms, nested ordered maps, general source-level disjointness and complete integration with the checker remain unfinished. `+golden-types-imports` can consume fixed-aura atoms, valid term singletons, Hoon's `%n` zero singleton as Jibb `~`, nested faced or unfaced cells, unions of supported, pairwise-disjoint cases, and opaque standard collections with supported arguments from caller-supplied reader results for declared `/-` imports; `+golden-types-with-marks` accepts the same shapes for declared marks. The caller must pass unchanged results from the source-aware reader: the bridge validates the supplied graph but cannot detect source cases Hoon collapsed before that graph was built. The opaque collection types retain their names and arguments for identity, unification and printing. The validated standard prelude `list` mold shares the imported list representation; other Jibb-written collection molds and most prelude collection operations remain unsupported. Other forms remain unsupported. Its disjointness proof is conservative and can reject a valid union it cannot prove disjoint. Collection recognition requires the originating `/sur` core. The reader validates direct zuse subjects and Ford subjects consisting of faced imported cores and a validated tail, checking imported cores transitively; it rejects shadowed names, inconsistent core subjects and other subject shapes. For a recursive reference, the reader matches the exact Hoon hold against named arms in validated cores, including transitive Ford imports; it rejects missing, unlabelled or ambiguous origins. Its fixtures include three real Tlon files; `tools/importer-test` compares the internal projection under eval, and the ship test compares the same golden output. `tools/type-import-test` and `tools/type-mark-test` compare bridge reports under eval and on the ship. `tools/type-tlon-test` and its ship counterpart exercise four real Tlon presence unions and a field read through the source-aware reader and partial checker. `tools/clay-fixtures` also passes Clay-built `/sur` molds and mark samples through the Clay-built importer and partial checker.

99+The separate `jibb-dev/lib/jibb-import.hoon` is an unfinished reader for selected Hoon type graphs. It handles named recursion, nested map, set, queue, list, unit, jar and jug arguments, direct ordered maps, and direct `$^` unions whose source branches can be proved disjoint. It also recognizes a direct ordered-map call with two simple named mold operands, as in Tlon `notes.log`, after validating provenance and operand source; revisiting the same map hold fails closed. It also reads ordered map fields in records when the map arguments are syntactically fixed atom molds and other fields are fixed atom molds or standard collections of static atom molds. Collection names must not be shadowed. The reader can also import a mark door sample, removing its outer sample face and validating its build subject. For a mark whose sample is exactly a named arm of its single Ford-imported `/sur` core, it can recover a source-proved nonrecursive union, including source-location wrappers around fields; recursive or unverified fallback results remain unsupported. The reader checks explicit Hoon `$%`, `$?` and `$^` unions against the Grammar’s disjointness rule, as @iko confirmed on 2026-10-30. For an explicit `$%` with distinct literal head tags, it can also prove restricted local named payload dependencies, including bare `~` fields, re-evaluate and validate each source branch, and recover the union before Hoon collapses it. The real Tlon `notes.u-note` exercises its `[%deleted ~]` case. A bounded fallback also recovers one level of local named tagged unions inside such a union, including Tlon `notes.u-notebook` and `notes.u-notes`. Source-proved tagged unions can also be wrapped in Hoon `$~` defaults, including a downstream union using Tlon `epic.saga`; the selected source and projected branches still undergo the same provenance and disjointness checks. The tagged-source helper peels up to four consecutive default wrappers, while default wrappers encountered inside dependency proofs consume the existing semantic-node budget. A source-proved nested self-recursive union retains its named owner, including Tlon `notes.import-node`; deeper, mutually recursive or unproven cases stay unsupported. The nested source proof has a 256-visit semantic-node budget, and source-location wrapper peeling is limited to four per node; Hoon evaluation and source scans are not metered. It rejects recursive or computed dependencies, inherited same-name collisions, unsupported nested unions and proofs exceeding a shared 4,096-node budget. It re-evaluates statically recognizable source branches before Hoon can collapse them, checks materialized fork cases, and rejects shapes it cannot prove disjoint. Static records may also have verified standard-collection and `path` siblings. One direct explicit union argument in a standard list, set, map or unit is accepted when its call wrapper and collection provenance are verified and its static cases are pairwise disjoint. A synthetic regression checks that forged wrapper subjects, samples and tails are rejected. Other collection-union forms, nested ordered maps, general source-level disjointness and complete integration with the checker remain unfinished. `+golden-types-imports` can consume fixed-aura atoms, valid term singletons, Hoon's `%n` zero singleton as Jibb `~`, nested faced or unfaced cells, unions of supported, pairwise-disjoint cases, and opaque standard collections with supported arguments from caller-supplied reader results for declared `/-` imports; `+golden-types-with-marks` accepts the same shapes for declared marks. The caller must pass unchanged results from the source-aware reader: the bridge validates the supplied graph but cannot detect source cases Hoon collapsed before that graph was built. The opaque collection types retain their names and arguments for identity, unification and printing. The validated standard prelude `list` mold shares the imported list representation; other Jibb-written collection molds and most prelude collection operations remain unsupported. Other forms remain unsupported. Its disjointness proof is conservative and can reject a valid union it cannot prove disjoint. Collection recognition requires the originating `/sur` core. The reader validates direct zuse subjects and Ford subjects consisting of faced imported cores and a validated tail, checking imported cores transitively; it rejects shadowed names, inconsistent core subjects and other subject shapes. For a recursive reference, the reader matches the exact Hoon hold against named arms in validated cores, including transitive Ford imports; it rejects missing, unlabelled or ambiguous origins. Its fixtures include three real Tlon files; `tools/importer-test` compares the internal projection under eval, and the ship test compares the same golden output. `tools/type-import-test` and `tools/type-mark-test` compare bridge reports under eval and on the ship. `tools/type-tlon-test` and its ship counterpart exercise four real Tlon presence unions and a field read through the source-aware reader and partial checker. `tools/clay-fixtures` also passes Clay-built `/sur` molds and mark samples through the Clay-built importer and partial checker.

100+

101+An import-free Jibb library can export an opaque single-parameter recursive identity when its source has exactly two distinct term-tagged cases: a text leaf and a node containing `(list (name M))`, optionally with one `$-(@t M)` event field. A module-local index records the exact parsed source, defining path and prepared prelude interface; it is shared across that module's inference passes, and its canonical `list` must be source-backed. The normal resolver publishes an interface only after all ordinary mold and value checks succeed. Same-origin aliases retain the defining identity and independently instantiate type arguments; distinct origins remain unsupported. The opaque identity is conservatively treated as gate-bearing for numeric defaulting, and gate-freedom remains unknown. Explicit literal-headed construction uses a source-proven one-layer view: the event result receives the existing type argument and recursive children keep the defining identity. It consumes the existing shared 256-step recursive inference budget, and a per-view 4,096-visit guard bounds the new face and substitution scan; longer scans decline. These bounds do not cover parsing, existing inference, atom sizes or repeated attempts. One startup-inclusive, shared-load comparison of 100 valid and 100 invalid source definitions took 29.67 s wall / 25.14 s user CPU before this slice and 33.47 s / 26.99 s with it; the former declined all 200 while the latter inferred the valid definitions. These single runs are not a production benchmark. Matches over explicit source tags, flat binder or wildcard fields, and nonbinding catch-alls use that same one-layer view and existing binder, coverage and branch checks. Up to 128 arms are screened per attempt; longer matches decline. A single-arm match on a direct in-scope wing can report its missing case, and a contextual one-arm call subject can use a nonbinding catch-all. Recursive children retain their nominal type and arguments. Subject recognition and view validation can each scan substitutions, and the scan cap applies separately to each attempt. In one separate startup-inclusive comparison of 100 valid and 100 invalid source matches, the construction-only checker took 30.18 s wall / 29.31 s user CPU and declined all 200, while the pattern slice took 28.28 s / 27.69 s and inferred or diagnosed them. These single shared-load figures are not production benchmarks. General structural fits, whole-case binders, nested recursive patterns, uncontextualized single-arm call subjects, recursive source with imports and local recursive molds remain unsupported; the test tree does not prescribe the eventual `element` representation. Caller-supplied detached interfaces and caches retain the existing trusted-input contract.

86102

87−Self-recursive `/sur` molds can cross the bridge as opaque module-and-name identities when their supported source-aware graph passes validation. Aliases, foreign references, recursive marks, unfolding, construction and field access remain unsupported; the partial printer declines recursive names that are not in scope.

103+Self-recursive `/sur` molds can cross the bridge as opaque module-and-name identities when their supported source-aware graph passes validation, including one-argument lists containing same-origin recursive references. The real Tlon `notes.import-node` reaches this bridge; it does not unfold or construct the recursive type. Aliases, foreign references, recursive marks, unfolding, construction and field access remain unsupported; the partial printer declines recursive names that are not in scope.

88104

89−Callers that have a `/sur` core and a name can use `+read-named`: it checks for a locally declared arm before asking Hoon to evaluate the mold, and reports evaluation failures with the final Hoon trace line. `+read-mold-in` remains available when the caller already has the selected type. The opt-in `+read-named-diagnostic` and `+read-mark-diagnostic` preserve successful graphs and distinguish definite `%invalid` aura and core evidence emitted directly by the reader from `%unsupported` failures. Other failures, including unverified union disjointness and vase recognition based only on a name, remain unsupported. These entry points revalidate and re-walk failed types; the opt-in `+golden-types-with-reader-diagnostics` accepts unchanged structured reader results and reports definite aura or core errors at their imported mold use sites, when the import and supplied input are unique. Ordered replay covers direct and nested cell samples, record and function casts, and non-generic same-module aliases; it stops at an unsupported prefix, cycle or shadowing failure. Union molds, generic applications, transitive modules and unsupported reader outcomes still report generic limitations. Replay repeats inference and may add work; this entry point remains partial. Existing checker entry points continue treating failed imports as unsupported. It also fails closed on repeated field faces along an imported record spine, including recursive roots; the diagnostic remains generic. Hoon type graphs can erase unfaced nested-cell boundaries, so the check may conservatively reject a valid source with equal names in distinct erased scopes. Faced nested records and union alternatives keep separate scopes.

105+The partial checker also recognizes a source-proven Jibb recursive mold consisting of `~` and one faced cell with a fixed-aura head and direct self tail. Its identity includes the defining path and name. It unfolds this shape for supported null and cell construction and for a two-arm null/cell match; static application-path literals use the verified public `qath` alias. The internal prelude defines `qath` as a transparent knot sequence and the public prelude re-exports it. Each inference attempt has 256 unfolding and static-segment steps; parsing and separate retries are not bounded by that limit. Dynamic application-path segments, broader patterns and other recursive shapes remain unsupported. Route and static-file existence checks remain milestone 4.

106+

107+Callers that have a `/sur` core and a name can use `+read-named`: it checks for a locally declared arm before asking Hoon to evaluate the mold, and reports evaluation failures with the final Hoon trace line. `+read-mold-in` remains available when the caller already has the selected type. The opt-in `+read-named-diagnostic` and `+read-mark-diagnostic` preserve successful graphs and distinguish definite `%invalid` evidence emitted directly by the reader from `%unsupported` failures. Other failures, including unverified union disjointness and vase recognition based only on a name, remain unsupported. These entry points revalidate and re-walk failed types; the opt-in `+golden-types-with-reader-diagnostics` accepts unchanged structured reader results and reports definite aura, core or proven union-overlap errors at their imported mold use sites, when the import and supplied input are unique. Ordered replay covers direct and nested cell samples, record and function casts, and non-generic same-module aliases; it stops at an unsupported prefix, cycle or shadowing failure. Union molds, generic applications, transitive modules and unsupported reader outcomes still report generic limitations. Replay repeats inference and may add work; this entry point remains partial. Existing checker entry points continue treating failed imports as unsupported. It also fails closed on repeated field faces along an imported record spine, including recursive roots; the diagnostic remains generic. Hoon type graphs can erase unfaced nested-cell boundaries, so the check may conservatively reject a valid source with equal names in distinct erased scopes. Faced nested records and union alternatives keep separate scopes.

108+

109+For supported source-aware Hoon `$?` unions, the reader can prove a definite overlap by independently evaluating and projecting the original cases, verifying each projected head against its source tag, and finding a shared runtime noun in a pair. Its positive witness traverses faces, named nodes, forks, cells, supported atom forms and `*`; `!!`, opaque references, applications and unproved aura intersections cannot themselves establish a witness. It compares singleton noun values independently of aura, and requires inhabited positions throughout a cell. Unknown or exhausted proof remains unsupported, while existing disjoint-source recovery still handles proven distinct cases. The source screen admits at most 128 cases and 4,096 raw noun nodes; dependency checking and the pair/type witness each have their own 4,096-node budget. Hoon evaluation, projected-graph validation, chapter lookup, atom byte sizes and other type-graph walks remain outside those budgets. The error points at the Jibb use; source case locations are unavailable. This is a partial named-reader analysis, not general imported-union checking or a mark-reader overlap diagnostic.

110+

111+In single startup-inclusive runs of eight Hoon reads, a benign three-case union used 37.78 seconds of user CPU with the earlier narrow witness and 39.99 seconds with the structural witness; a repeated-head union used 39.84 and 40.97 seconds. Other checks ran concurrently, so these measurements do not establish a production bound.

90112

91113The partial report can diagnose certain non-gate value dependency cycles, including cycles through gates. It requires an explicit atom or loobean result cast and a syntactically proven dependency group with unshadowed simple samples; it identifies the value and a dependency site. Untyped results, branches, nested definitions, qualified wings and complex samples remain unsupported. The proof constructs an additional dependency graph. One 24-case recursive/generic eval run took 19.7 s with it and 18.6 s before it, including startup; these single runs do not isolate the graph cost.

92114

93115The source-backed `+api-path-analysis-source` is a separate partial analysis, not an API check: it resolves reachable Jibb imports and declared mark graphs and returns path and scry segments, full and diff mark identities and their types. It also checks derived-name collisions. Full and diff payloads must be direct declared mark names; typed scry parameters must be a same-name, same-aura subset of the watch parameters, and unknown or duplicate segment binders fail closed. It creates no request gates. The caller must pass a trusted prepared prelude and unchanged source-aware reader results.

94116

117+`+api-path-evidence-source` retains that analysis with the API source, complete prepared prelude (including reserved names), supplied reader results and resolved Jibb dependency cache. `+api-path-watchability` classifies a unique declaration as watchable or not watchable, or reports unknown when evidence is absent or ambiguous. The artifact and reader results are trusted host inputs; the host must bind them to the source versions used later. This is declaration evidence, not proof about an arbitrary request value, a checked API module, a runtime validator or an island watch.

118+

119+For a unique supported declaration, `+api-request-parts` retains that evidence with the typed path parameters in source order, the full-state reply sample, and a fold type when there is one diff mark. The fold takes the tagged diff and previous full state and returns full state. Missing or ambiguous evidence, unsupported parameter auras and multiple-diff folds fail closed. These are components for a future request gate; they do not yet fix its argument order, construct a request, or prove watchability of a value.

120+

121+`+api-support-analysis-source` additionally infers supported ordinary API molds and values, resolves every declared mark, and retains their source, dependency and path evidence. Unsupported helpers or marks fail closed. An unused `/-` core is not independently validated, ordinary definitions that need derived gates remain unsupported, and this result is not a checked API interface or an exported request.

122+

123+The ordinary import resolver can infer derived request-gate types for multiple supported API paths. A case may take one typed path parameter before its reply gate, or one diff fold after the reply; a case with both, multiple parameters or diffs, or a separate scry path remains unsupported. Each reply maps the full mark type to a fresh `M` and the request result is `(ask M)`. Checked ordinary API values and molds, declared mark molds and a supported poke constructor are exported too. Every selected `/sur` core must have a directly used, successfully read mold; unselected core bindings are not independently validated, and Jibb module imports remain unsupported in this API fragment. The unchanged todo API fits this fragment.

124+

125+A call whose direct result is a known named generic union can receive a matching same-origin, same-arity result context before its arguments are inferred. This retains the ordered generic arguments and existing capital checks; pending tags, recursive or variable-bound origins and unrestricted atom cases remain conservative. Constructor fitting reports unsupported when an unresolved or opaque case could contain the requested tagged head. It keeps definite missing-case errors for proven nonmatching cases, including an explicitly atom-only faced head. The real todo callback `|=%got` can infer when an `(ask msg)` result context fixes its message union; the uncontextualized call remains unsupported.

126+

127+A two-item tuple with an explicit term, null or loobean head can receive payload context from a known union when every alternative is a literal-headed cell and its head noun is unique. The payload must be a direct wing-headed call, optionally grouped, with literal, wing or constructor arguments. The checker first retains the original inference if it already fits; otherwise it tries the contextual path once and fits the selected case and enclosing union. It declines this path if any substitution has a structural root, because a caller may have walked away variable provenance. Duplicate heads, opaque competitors and other shapes also stay conservative. The guard scans the substitution for each eligible tuple and may perform one extra shallow inference; it does not guarantee globally linear work. This lets an explicitly typed todo subscription body infer; it does not check an island or prove request watchability.

128+

129+`+gate-free-type` is a separate three-way proof over normalized checker types: it reports a gate-free result, a gate-bearing witness with its field path, or unknown. It tracks conservative inhabitance before reporting a gate in a cell, spends one shared node budget, and treats opaque recursion, open variables, unknown collection forms and `*` conservatively. Source-proven `qath` and the recognized list/unit representations have dedicated proofs. `+gate-free-mold-source` parses and resolves one named mold with a fresh active-root graph, retaining the complete prepared prelude, source bundle, trusted reader inputs, dependency cache and inferred mold. It caps classification at 256 nodes; parsing, import resolution and type inference are not covered by that cap. The host must canonicalize paths and bind trusted sources and reader results to their versions. API, store and private roots decline; other definitions and unused imported Hoon bindings are not fully checked. This is mold analysis, not a module, kind, island, watchability or runtime check, and it does not infer general gate-free constraints.

130+

131+Each case's canonical API identity and source-derived schema travel across imports in a nonrecursive graph certificate containing the exact source bundle, prelude, reserved scope and trusted reader results. Cached interfaces must match those inputs and cannot hide an active ancestor; unknown legacy entries are rebuilt from their unique supplied source. Request-bearing closures are limited to 256 paths and requests. Closed gate samples can also fit when an unnamed input slot corresponds to a named one, provided products are identical and nested value faces and ambiguous cell tails remain intact. This is type inference only: request lowering, runtime schema validation and value watchability proofs are not implemented.

132+

95133`+golden-types-with-prelude` accepts case-local Jibb module sources alongside `/sur` and mark results and the vendored prelude source. It resolves reachable ordinary library modules in dependency order, caching completed interfaces per invocation and exporting supported closed value schemes, direct generic unions, and simple or nonrecursive generic mold aliases whose bodies the fragment supports. It detects missing sources and cycles and rejects a dependency if its interface cannot be inferred by the fragment. Qualified wings can also read nested fields of an imported value, instantiating that value’s scheme independently at each use; missing, ambiguous and non-record fields remain unsupported.

96134

97−The supplied prelude is parsed into a **partial interface**: all names actually declared in the source are reserved, while only the molds and values this fragment can infer are available. These include the validated standard `list` mold, `unit`, `same`, `fall`, `need`, `lure`, `weld`, `snoc`, `turn`, `flop`, `rear`, `drop`, `skim`, `skip`, `murn`, `join` and `snip`; unsupported entries remain unavailable. The validated `list` is injected while the prelude’s gates are inferred; `weld` and `turn` use ordinary explicit result casts. An absent or altered `list` is not injected, and an altered declaration cannot leak through a direct or transitive mold alias. List-dependent prelude mold aliases remain unsupported because their templates are prepared before this injection. A named prelude union keeps the fixed `/lib/jibb/prelude/jibb` origin in every module, and its name remains unqualified when a library exports a type containing it. The prelude inventory is incomplete, so reserving the names in this source does not establish complete shadowing coverage. The source-backed internal prelude defines `poke`, which the public prelude re-exports as an ordinary transparent type. The partial checker resolves its supported source shape, preserves its public name, and rejects ordinary imports of the private internal path. An imported API with one mark and a matching direct `+$ poke` declaration can export a derived constructor and retain agent/mark metadata when the source representation has the supported agent case. Other API shapes, complete private module checking, root API and kind checking, stores, `ask`, `pure`, lowering and runtime effects remain unfinished. A possible store or root API declaring `+$ poke` reports that kind or scope needs unsupported inference; definite duplicate declarations and unrelated shadowing still report conflicts. Prepared interfaces and caches are trusted caller inputs; the future host and linker must ensure the private source validated during preparation is the same version used to lower derived constructors. A `*` payload may contain gates, so the fragment treats it conservatively; full gate-free checks are unfinished. The shared module-scope fixture compares the prepared and source-taking paths against the real prelude and a two-module golden under eval and on the ship.

135+The supplied prelude is parsed into a **partial interface**: all names actually declared in the source are reserved, while only the molds and values this fragment can infer are available. These include the validated standard `list` mold, `unit`, the doc-exact generic `cmd` union, `same`, `fall`, `need`, `bond`, `lure`, `weld`, `snoc`, `turn`, `lent`, `zing`, `flop`, `rear`, `drop`, `skim`, `skip`, `murn`, `join`, `snip`, `levy`, `lien`, `cork`, `corl`, `cury`, `curr`, `lead`, `late`, `trip` and `tuba`; unsupported entries remain unavailable. The validated `list` is injected while the prelude’s gates are inferred; `weld` and `turn` use ordinary explicit result casts. An absent or altered `list` is not injected, and an altered declaration cannot leak through a direct or transitive mold alias. The same validated template is available when prelude mold aliases are prepared, so supported direct and transitive aliases can use it. A named prelude union keeps the fixed `/lib/jibb/prelude/jibb` origin in every module, and its name remains unqualified when a library exports a type containing it. The prelude inventory is incomplete, so reserving the names in this source does not establish complete shadowing coverage. The source-backed internal prelude defines `poke`, which the public prelude re-exports as an ordinary transparent type. A dedicated trusted internal-prelude preparation path also supplies private comparison, arithmetic and text-conversion schemes for the Jibb-written `gth`, `add`, `dec`, `trip` and `tuba` wrappers. Ordinary module resolution rejects that primitive path even if a caller supplies a spoofed root or bundle. The low-level prepared interface is still trusted host input; the host must select the vendored sources and canonicalize paths. Primitive execution and shape-based jet recognition are not implemented. The Jibb-written `lth`, `gte` and `lte` gates compose the source-backed `gth` and `not` gates; supported calls infer a shared atom constraint and return `?`. Their execution and jet recognition await the backend. The source-backed `add` and `dec` wrappers use private arithmetic interfaces whose shared atom variable excludes loobeans; the partial checker preserves that constraint through supported inference and prints `where A is an atom other than ?`. The partial checker resolves the supported `poke` source shape, preserves its public name, and rejects ordinary imports of the private internal path. The Jibb-written `lent` recursively counts a list using `add`; the partial checker infers its generic list argument and `@ud` result. Its execution and jet recognition remain unverified until the backend exists. The Jibb-written `zing` concatenates homogeneous lists in order using `weld`; the checker infers `(list (list A))` to `(list A)`, including for gate elements. Hoon `zing` also accepts heterogeneous noun lists, which this type does not express. `tools/hoon --raw -f tools/testdata/zing-hoon-reference.hoon` compares an equivalent Hoon recursion with Hoon `zing` on selected finite inputs; it does not execute Jibb or verify lowering or jet recognition. The Jibb-written `lead` and `late` are curried pair constructors: `((lead a) b)` returns `[a b]`, while `((late a) b)` returns `[b a]`. The checker infers independent argument types and accepts gates as ordinary values; neither helper invokes an input gate. A Hoon translation is compared with Hoon’s helpers by `tools/hoon --raw -f tools/testdata/lead-late-hoon-reference.hoon`. This does not execute Jibb or verify lowering or jet recognition. An imported API with one mark and a matching direct `+$ poke` declaration can export a derived constructor and retain agent/mark metadata when the source representation has the supported agent case. Other API shapes, complete private module checking, root API and kind checking, stores, complete `ask` and `pure` checking, lowering and runtime effects remain unfinished. A possible store or root API declaring `+$ poke` reports that kind or scope needs unsupported inference; definite duplicate declarations and unrelated shadowing still report conflicts. Prepared interfaces and caches are trusted caller inputs; the future host and linker must ensure the private source validated during preparation is the same version used to lower derived constructors. A `*` payload may contain gates, so the fragment treats it conservatively; full gate-free checks are unfinished. The shared module-scope fixture compares the prepared and source-taking paths against the real prelude and a two-module golden under eval and on the ship.

98136

99137`+prepare-prelude` derives the interface and declared-name inventory from the trusted vendored source. Hosts can reuse its result with `+golden-types-with-prepared-prelude`; they must pass the unchanged result of preparation, not an independently constructed value. Empty, malformed and duplicate-name prelude sources fail closed. The source-taking `+prepare-prelude` and `+golden-types-with-prelude` do not supply the internal module; their `-and-internal` or `-with-internal` variants accept its source for the supported private import. API files, modules with `main`, unsupported definitions and many other features remain outside this subset. The older `+golden-types-with-modules` entry point fails closed for imports because it has no prelude scope. None of these partial reports claims the module has been checked.

100138

@@ -107,16 +145,26 @@ And the design notes:

107145| 3. The parser | Why recursive descent (the grammar is LL(2) after the layout pass), the EBNF rule by rule with the node each gives, what the EBNF leaves out and how it's filled in, spacing, and where each error points, with its message |

108146| 4. Printed formats | The token, tree and error formats the golden files hold |

109147

148+Source-backed `like` maps the product of an existing `(like A)` result while retaining its position and remaining input. The partial checker infers supported positional calls by peeling only known sample-slot faces, retaining faces belonging to values; ambiguous variable-bound spines and nested face loss remain unsupported. Backend execution remains outstanding.

149+

150+The internal prelude defines transparent `(ask M)` cases for pure, agent and store requests; the public prelude re-exports it and defines `pure` in Jibb. Preparation supplies the private module with `list.core` and `unit.core` only from validated canonical public templates. If a template is unavailable, an isolated check validates the private molds, but only molds independently inferred against the actual available templates enter the interface. The partial checker infers supported constructors and exhaustive matches; absent versus present-zero state remains distinguishable. Agent and store receiver fields carry raw nouns and cannot prove schema validity or watchability. The public prelude also defines the documented `sub` union in Jibb; supported watch payloads retain the public `(ask M)` type. A `sub` value is not itself proof that its request is watchable. Generated decoders, source-bound runtime validation, request lowering, other derived request shapes and island watch checks remain unfinished. Public prelude preparation is partial: consumers must verify that `ask` was actually exported with its source origin.

151+

152+Public identity aliases of private generic unions retain their public name when the origin, arity and argument order match exactly, including through imported values. Fixed, reordered, repeated and phantom generic aliases remain unsupported where a safe public name cannot be recovered; a fixed nongeneric alias is not printed as though it accepted type arguments.

153+

154+The partial checker reserves `proj` in module, local, sample, pattern and import bindings, including bindings inside unsupported source; a field, tag or path segment may still have that spelling. With a known expected record type, it checks selected explicit `(proj record)` calls over closed, uniquely faced records, preserving the source expression, its type, the result type and field axes in the checked interface. Imported and private-prelude dependencies retain the source needed to lower those plans. The checker does not yet lower or execute them. It supports selecting one or more fields in their original order; a single selected field keeps its face and uses one source axis. Reordered fields, unknown or open record spines, some nested contexts and recursive groups with projections remain unsupported. A directional fit of a wider faced record fails closed instead of inserting a projection, including within supported list, unit and record positions. To limit repeated work, record-spine proofs are reused along the same closed spine and stop at 1,024 fields; field boundaries and the special handling of positional calls reset the appropriate proof. Prepared interfaces and their source remain trusted host inputs.

155+

110156## The tree

111157

112158Every node is `[%tag at=span …]`, so `+span-of` finds its span in one place; the few that aren't say so in the `%tree` chapter. The kinds of node:

113159

114160- **Module**: imports (`%sur` for `/-`, `%mark` for `/%`, `%jibb` for `/=`), then definitions (`%mold` for `+$`, `%value` for `++`).

115161- **Expressions** (`expr`): `%lit`, `%str`, `%path`, `%qath`, `%wing`, `%change`, `%pair`, `%unit`, `%group`, `%list`, `%tuple`, `%gate-wide`, `%ctor`, `%call`, `%gate`, `%cast`, `%trace`, `%branch`, `%crash`, and `%body` for an indented body, with its local definitions if it has any.

116−- **Molds as written** (`shape`): `%aura`, `%noun`, `%void`, `%flag`, `%const`, `%ref`, `%tvar`, `%path`, `%apply`, `%cell`, `%union`, `%fn`, `%generic`. A `%union` spans its first through last case and has no lead token; a single case is its own mold. `%generic` spans from the `|$` after a `+$` name through its body.

162+- **Molds as written** (`shape`): `%aura`, `%hole`, `%noun`, `%void`, `%flag`, `%const`, `%ref`, `%tvar`, `%path`, `%apply`, `%cell`, `%union`, `%fn`, `%generic`. A `%hole` retains the span of `_`; an inferred typed path segment retains that span separately from its enclosing segment. A `%union` spans its first through last case and has no lead token; a single case is its own mold. `%generic` spans from the `|$` after a `+$` name through its body.

117163- **Samples, fields and patterns**: a sample is `%bind`, `%face`, `%pun`, `%cell` or `%bare`, since a bare name binds anywhere in a sample; a pattern is `%lit`, `%str`, `%any`, `%bind` or `%cell`.

118164- **Literals** (`lit`) keep the form they matched, their aura and value, and their text as written, which the printers show.

119165

166+The parser accepts type holes. The partial checker records each ordinary hole with its span and validates the obligations created in a value or local definition before generalization. A solved concrete type or an explicitly written in-scope capital resolves a hole; a later use cannot repair it. Independent decimal holes may default to `@ud` when the surrounding inferred type is gate-free; variables reachable from the environment or written capitals are protected from premature defaulting. Structural named-mold holes are diagnosed at their source, while complex named molds, inferred path segments, recursive groups with holes and unresolved constraints remain unsupported. Partial prelude and API interfaces cannot silently export unchecked holes. A separate syntax-tree pass reports duplicate names within a written record at both field sites, including in unused definitions; nested and separate records have independent scopes.

167+

120168The tree keeps everything the checker needs to report an error at the code as written: open and closed brackets give the same node, but every node keeps its span.

121169

122170## Positions and errors

@@ -141,3 +189,15 @@ Note 4 has examples of each.

141189## Speed

142190

143191Starting `urbit eval` and building the library takes about 8 s. A 2,000-line module of 400 definitions then parses in about a second. Loops over definitions, arms, lines and items are tail calls, so a long module grows no stack; nesting costs a few stack frames a level, and 100,000 nested brackets still parse (note 3).

192+

193+The experimental deferred constructor path can close a small import-free library transaction when ordinary resolution stalls. It retries definitions whose earlier attempts failed from their original states, retaining only successful attempts. A transaction with at most 64 definitions makes at most 4,096 attempts; it stops after a pass with no progress. This bounds the new attempt count, not each attempt's parsing, type walks or ordinary inference. Deferred definitions are restricted to simple one-component wings, literals, static strings, gates, transparent groups and empty bodies, calls, casts and a restricted boolean branch. Each successful call or cast fit must have exactly equal normalized operands so later substitutions cannot invalidate a face check. A multi-argument call also needs closed argument, sample and product types because positional face checks depend on slot boundaries and whether the result can be a cell. Other fits fail closed. A 512-node screen bounds visited expression nodes and a separate 512-node scan bounds each stability check; neither bounds mold shapes, string-piece checks, parsing, normalization, lookup, or total repeated inference. It accepts only a direct constructor callback with a closed input, records its pending fit under the source-owned inference state, and generalizes each definition against the live environment and pending constraints. Before publication it discharges and replays every edge, rejects unresolved tags or changed replay state, and checks that all molds and values are complete. The reporter reads the committed schemes for definitions added by the transaction. API and store paths, `main`, prepared preludes, imports, recursive groups, unresolved holes or written capitals, and new projection actions remain outside this path. `%grec` in the constraint or freshness scan is conservatively unsupported. This is not an island-kind, runtime, or watchability check.

194+

195+An expected cell type can supply context to both arms of a loobean branch. This slice first retains any ordinary inference that already fits. Otherwise it retries from the original state only when a syntax screen excludes nested branches, casts, gates and local bodies, and a substitution screen excludes structural bindings. Both arms must fit, their normalized results and the expected type must be closed, their result types must match, and both fits must replay without changing the final substitution or fresh-ID counter. A successful retry retains the original arm type and its written faces; a failed retry returns the original inference result. The source and substitution screens each visit at most 512 entries. This permits at most one extra attempt for an eligible branch; the screens do not bound preexisting inference, type walks, list construction, or work across separate analyses.

196+

197+In an isolated diagnostic with the real todo API and reader inputs, this cell context allowed the original update body to infer when its result type was written explicitly and experimental source-defined text helpers were supplied. The unchanged island still needs those text helpers, an actual source-backed `program` and UI interface, context propagation across definitions, island-kind checking and watchability proof. This branch change itself provides no runtime implementation or watchability evidence.

198+

199+A deferred boolean branch must use both distinct literal loobean patterns. Its subject is unified with `?`; the arms are inferred in source order without contextual retry. Equal normalized arm types are retained directly. When both written arms are direct literals that each created their own unbound pending tag, the checker can instead retain two source-owned fit obligations to a shared, monomorphic result variable. A later definition may close that variable; replay uses the ordinary literal fit, requires a closed atomic target or a union of direct constant/cell cases, and rejects faced targets and faced union cases. It replays all edges under the final substitution without adding bindings or fresh IDs. This does not support deferred list literals, union-pattern reachability, arbitrary branch expressions or prepared-prelude/imported modules. It does not establish request watchability.

200+

201+Before a fallback, the checker screens the already parsed source for a direct single-constructor call beneath groups, gates, casts or bodies without local definitions. The screen visits at most 64 AST nodes per definition and rejects sources with more than 64 definitions or 65,536 bytes. A transaction is attempted at most once per resolver or report invocation and holds at most 64 pending edges. These limits do not bound the initial parsing, ordinary resolution, normalization, or total work across separate analyses. On the pre-recursive-index snapshot, startup-inclusive synthetic 1,000-gate comparisons had baseline/candidate user times of 25.97/29.30 seconds and 26.30/27.46 seconds in reverse order. These are limited shared-load measurements, not production benchmarks. The trimmed source-backed and direct-guard fixture passed in 28.13 seconds wall and 27.53 seconds user on one run after screening; its cases include parse-success checks in the same transaction source pass. The outer resolver and reporter each parse independently, and a fallback currently parses the source again.

202+

203+A single sequential, startup-inclusive comparison against checkpoint `c96597d` measured user CPU for an unrelated stalled library at 25.04 seconds baseline and 26.32 seconds with the screened fallback; an incompatible constructor took 25.72 and 27.16 seconds; a direct constructor that the baseline declined and the candidate resolved took 24.46 and 26.79 seconds. These are small shared-load measurements, not a production benchmark. The screen was separately checked with a trapping fallback: the unrelated source skipped it, while the eligible conflicting source reached it.

docs/development.md+78−4

@@ -14,6 +14,8 @@ From the plan's Setup and ground rules, and from @iko:

1414- **Push straight to `master`.** @iko reviews work in the project's chat, not in pull requests, so there are none. Run the checks below first.

1515- **Keep docs/ current**: [status.md](status.md) when a milestone moves, [open-questions.md](open-questions.md) when a question is settled or found.

1616

17+The source-backed generic-union guard can be run under eval with `tools/type-union-source-test`; its `test-union-source` arm is also assembled for the fake ship. It checks a bounded partial inference slice, not general union completeness. `tools/type-union-alias-overlap-test` exercises the separate positive overlap witness and its shared ship test arm. `tools/type-full-overlap-test` checks structured full-module overlap evidence and the legacy error text under eval; both of its test arms are assembled for the fake ship.

18+

1719## Setting up a machine

1820

1921The tools need Python 3 and `urbit` (vere) on `PATH`; the ship tools also need a fake `~zod` and click. Everything so far ran with vere 4.6 on Linux.

@@ -60,13 +62,45 @@ git clone https://github.com/urbit/tools /root/src/tools

6062| --- | --- |

6163| `tools/golden` | Runs the golden cases under `urbit eval`: every case, or those matching `--case`; `--update` rewrites the expected outputs; `--show` prints them |

6264| `tools/importer-test` | Compares the partial Hoon importer's diagnostic trees and errors with `tests/importer/tree.txt` under `urbit eval` |

65+| `tools/type-import-default-test` | Compares default-wrapped union source proofs and adversarial cases under eval; the same golden runs on the ship |

6366| `tools/type-import-test` | Composes the Hoon importer with the partial checker and compares `tests/type-import/expected.txt` under eval |

67+| `tools/type-import-overlap-test` | Checks source-aware Hoon union overlap, provenance and proof-budget controls under eval; the same fixture runs on the ship |

68+| `tools/type-import-structural-test` | Checks multi-case and nested Hoon union overlap witnesses under eval and on the ship |

69+| `tools/type-union-source-test` | Checks bounded local generic-alias disjointness and state guards under eval and on the ship |

70+| `tools/type-union-alias-overlap-test` | Checks source-backed generic-alias overlap witnesses under eval and on the ship |

71+| `tools/type-full-overlap-test` | Checks structured full-module overlap evidence and imported-source attribution |

6472| `tools/type-tlon-test` | Runs the real Tlon presence source through the importer and partial checker, comparing `tests/type-tlon/expected.txt` under eval |

6573| `tools/type-import-diagnostic-test` | Compares the structured reader diagnostic bridge report under eval |

6674| `tools/type-mark-test` | Checks the partial checker’s mark import boundary against `tests/type-mark/expected.txt` under eval |

6775| `tools/type-poke-test` | Checks source-backed prelude and poke-only API reports against `tests/type-poke/expected.txt` under eval |

6876| `tools/type-api-paths-test` | Checks partial API path analysis with real todo mark samples against `tests/type-api-paths/expected.txt` under eval |

69−| `tools/type-api-paths-test` | Compares partial API path analysis, including real todo marks, with its golden report under eval |

77+| `tools/type-api-evidence-test` | Runs source, scope, reader-result and declaration-watchability evidence guards under eval and on the ship |

78+| `tools/type-hole-guards-test` | Runs the shared hole-defaulting and API interface guards under eval; the same checks run on the ship |

79+| `tools/type-list-alias-test` | Runs the shared prelude list-alias and provenance guards under eval and on the ship |

80+| `tools/type-generic-recursion-test` | Checks source-backed generic recursive identity and provenance under eval and on the ship |

81+| `tools/type-generic-construction-test` | Checks source-backed one-layer recursive construction, provenance and fuel under eval and on the ship |

82+| `tools/type-generic-pattern-test` | Checks source-backed recursive patterns, catch-all coverage, state and per-attempt fuel/arm limits under eval and on the ship |

83+| `tools/type-deferred-test` | Checks the bounded source-owned deferred inference transaction under eval and on the ship |

84+| `tools/type-deferred-resolver-test` | Checks deferred resolution, report consistency and atomic failure under eval and on the ship |

85+| `tools/type-deferred-context-test` | Checks deferred source order and literal branch contexts under eval and on the ship |

86+| `tools/type-cell-branch-test` | Checks closed-cell branch context, rollback and bounded retry screens under eval and on the ship |

87+| `tools/type-generic-alias-test` | Runs public/private generic union alias and provenance guards under eval and on the ship |

88+| `tools/type-positional-face-guards-test` | Runs positional-call and nested-face guards under eval and on the ship |

89+| `tools/type-qath-guards-test` | Runs source-provenance, recursive unfolding and face guards under eval and on the ship |

90+| `tools/type-todo-partial-test` | Reports partial inference of the unchanged todo island through the real API and readers under eval and on the ship |

91+| `tools/type-todo-api-test` | Exercises the actual todo API through the real Hoon readers and partial checker |

92+| `tools/type-direct-gate-test` | Checks a synthetic source-backed program report and direct gate provenance under eval and on the ship |

93+| `tools/type-closed-gate-guards-test` | Checks closed gate sample labels and face uncertainty under eval and on the ship |

94+| `tools/type-constructor-fit-guards-test` | Checks constructor-case uncertainty and known mismatches under eval and on the ship |

95+| `tools/type-nested-union-guards-test` | Checks nested tagged-union case selection and uncertainty under eval and on the ship |

96+| `tools/type-empty-test` | Checks source-backed empty molds, inhabitedness, coverage and proof budgets under eval and on the ship |

97+| `tools/type-gate-free-guards-test` | Checks bounded gate-free verdicts, inhabitation and witness paths under eval and on the ship |

98+| `tools/type-gate-free-source-test` | Checks source-backed todo mold analysis through the real readers under eval and on the ship |

99+| `tools/type-sub-guards-test` | Checks source-backed subscription mold dependencies under eval and on the ship |

100+| `tools/type-ask-guards-test` | Runs ask origin and canonical list/unit bootstrap guards under eval and on the ship |

101+| `tools/type-request-guards-test` | Runs request evidence, source consistency and cache provenance guards under eval and on the ship |

102+| `tools/type-proj-guards-test` | Runs projection evidence, name-scope and dependency guards under eval and on the ship |

103+| `tools/type-arithmetic-guards-test` | Runs restricted atom-variable, unification and projection guards under eval and on the ship |

70104| `tools/type-module-scope-test` | Checks the partial module checker’s prelude boundary and duplicate-source rejection against `tests/type-module-scope/expected.txt` under eval |

71105| `tools/clay-fixtures` | Syncs `my-app`, builds its example `/sur` files and marks through Clay, checks selected mold and mark projections and the partial checker, and records Ford and mark subject shapes on the fake ship |

72106| `tools/hoon` | Evaluates Hoon with the library in scope, as `tools/hoon '(golden /a/b/jibb (crip "++ main view"))'`; `--cord name=file` binds a file's text, `-f` reads the expression from a file |

@@ -74,6 +108,7 @@ git clone https://github.com/urbit/tools /root/src/tools

74108| `tools/ship` | Runs the fake ship: `start`, `stop`, `status`, `log`, `sync <desk>`, `test`, `gen-tests`, `check-commit`, `scry`, `hoon`, `run`, `poke`, `commit`, `mount`, `unmount` |

75109| `tools/testdata/selftest` | Tests `tools/golden` and `tools/hoon` against a stub library, and `tools/doc-blocks` against Markdown it writes |

76110| `tools/testdata/ship-selftest` | Tests `tools/ship`'s test generator and runner against a stub library on the ship |

111+| `tools/testdata/clay-fixtures-selftest` | Tests temporary Clay fixture cleanup and signal handling without a ship |

77112

78113`tools/golden` starts `urbit eval` once and builds the library, which takes about 8 s, then runs every case under `mule`, so a crash fails only its own case.

79114

@@ -82,25 +117,62 @@ git clone https://github.com/urbit/tools /root/src/tools

82117```

83118tools/golden # all cases pass

84119tools/importer-test # Hoon importer fixture projections match

120+tools/type-import-default-test # default-wrapped source proofs match

85121tools/type-import-test # importer/checker bridge golden report matches

122+tools/type-import-overlap-test # source-aware Hoon overlap and provenance controls

123+tools/type-import-structural-test # nested and multi-case Hoon overlap controls

124+tools/type-union-source-test # local generic-alias union guards

125+tools/type-union-alias-overlap-test # local generic-alias overlap diagnostics

126+tools/type-full-overlap-test # full-module overlap evidence

86127tools/type-tlon-test # real Tlon importer/checker report matches

87128tools/type-import-diagnostic-test # direct structured reader diagnostics match

88129tools/type-mark-test # mark/checker bridge golden report matches

89130tools/type-poke-test # source-backed poke/API bridge report matches

90131tools/type-api-paths-test # partial API path analysis report matches

91−tools/type-api-paths-test # partial API path analysis report matches

132+tools/type-api-evidence-test # API declaration evidence guards pass

133+tools/type-hole-guards-test # hole defaulting and API guards pass

134+tools/type-list-alias-test # prelude list-alias guards pass

135+tools/type-generic-alias-test # generic union alias guards pass

136+tools/type-positional-face-guards-test # positional sample face guards pass

137+tools/type-qath-guards-test # qath source and unfolding guards pass

138+tools/type-todo-partial-test # unchanged todo partial report and reader failure controls

139+tools/type-todo-api-test # real todo API partial inference and reader guards pass

140+tools/type-direct-gate-test # direct gate source and provenance guards pass

141+tools/type-generic-recursion-test # source-backed recursive identities and provenance

142+tools/type-generic-construction-test # source-backed recursive construction and bounds

143+tools/type-generic-pattern-test # source-backed recursive patterns and bounds

144+tools/type-deferred-test # source-owned deferred inference guards

145+tools/type-deferred-resolver-test # resolver consistency and failure guards

146+tools/type-deferred-context-test # deferred source-order and branch guards

147+tools/type-cell-branch-test # contextual branch rollback and bounds

148+tools/type-closed-gate-guards-test # closed gate fit guards pass

149+tools/type-constructor-fit-guards-test # constructor fit guards pass

150+tools/type-nested-union-guards-test # nested union selector guards pass

151+tools/type-empty-test # empty mold and uninhabited-case guards pass

152+tools/type-gate-free-guards-test # bounded gate-free classifier guards pass

153+tools/type-gate-free-source-test # real todo mold analysis and source guards pass

154+tools/type-sub-guards-test # subscription source guards pass

155+tools/type-ask-guards-test # ask source and bootstrap guards pass

156+tools/type-request-guards-test # request evidence and cache guards pass

157+tools/type-proj-guards-test # projection evidence and scope guards pass

158+tools/type-arithmetic-guards-test # arithmetic constraint guards pass

92159tools/type-module-scope-test # module/prelude scope golden report matches

93160tools/hoon check-spans-test # prints <<>>

161+tools/hoon itype-unify-test # type-unification controls pass

162+tools/hoon -f tools/testdata/zing-hoon-reference.hoon # Hoon translation agrees on four inputs

163+tools/hoon -f tools/testdata/lead-late-hoon-reference.hoon # Hoon translation agrees on selected inputs

164+tools/hoon -f tools/testdata/succ-hoon-reference.hoon # Hoon translation agrees on selected inputs

94165tools/testdata/selftest # 22 checks, 0 failed

95166tools/doc-blocks docs/spec # every jibb block has its case

96167tools/ship gen-tests --check # tests/lib/jibb.hoon is up to date

97168tools/ship test # the cases pass as -test arms on the ship

98169tools/testdata/ship-selftest # when tools/ship changed

170+tools/testdata/clay-fixtures-selftest # scratch fixture cleanup without a ship

99171tools/ship check-commit # when the mark or the desks changed

100−tools/clay-fixtures # when the my-app Hoon fixtures or importer changed

172+tools/clay-fixtures # builds example fixtures and real Tlon notes through Clay

101173```

102174

103−`tools/ship test` regenerates `tests/lib/jibb.hoon` and syncs the `jibb-dev` desk before it runs, so commit the regenerated file. A run with `--stub`, `--lib`, or a custom `--golden` isolates its generated golden tests from the repository's other test programs; run the default command afterward to restore and test those programs. It also runs the independent `tests/lib/jibb-import.hoon` test against the same importer fixtures and expected diagnostic projection as `tools/importer-test`. The projection is an internal tree, not the Jibb type printer. `tests/lib/jibb-bridge.hoon` also runs the importer/checker bridge fixture on the ship; `tools/type-import-test` runs the same report under eval. `tests/lib/jibb-tlon-bridge.hoon` and `tools/type-tlon-test` run the real Tlon presence reader/checker fixture on both. The structured reader diagnostics have their own `tests/lib/jibb-import-diagnostic.hoon` ship test and `tools/type-import-diagnostic-test` eval test. The mark bridge has its own `tests/lib/jibb-mark-bridge.hoon` ship test and `tools/type-mark-test` eval test; both compare the same fixture report. `tests/lib/jibb-poke-bridge.hoon` and `tools/type-poke-test` share the source-backed prelude and poke-only API fixture. `tests/lib/jibb-api-paths.hoon` and `tools/type-api-paths-test` share partial path analysis over the real todo marks; this does not generate request interfaces. `tests/lib/jibb-module-scope.hoon` and `tools/type-module-scope-test` compare the prelude scope report on the ship and under eval.

175+`tools/ship test` regenerates `tests/lib/jibb.hoon` and syncs the `jibb-dev` desk before it runs, so commit the regenerated file. Sync preflights and splits large deletion lists into bounded click requests, waiting for each Clay revision; a failure stops later batches. The ship self-test exercises this when switching from the full desk to a smaller fixture desk. A run with `--stub`, `--lib`, or a custom `--golden` isolates its generated golden tests from the repository's other test programs; run the default command afterward to restore and test those programs. It also runs the independent `tests/lib/jibb-import.hoon` test against the same importer fixtures and expected diagnostic projection as `tools/importer-test`. The projection is an internal tree, not the Jibb type printer. `tests/lib/jibb-bridge.hoon` also runs the importer/checker bridge fixture on the ship; `tools/type-import-test` runs the same report under eval. `tests/lib/jibb-tlon-bridge.hoon` and `tools/type-tlon-test` run the real Tlon presence reader/checker fixture on both. The structured reader diagnostics have their own `tests/lib/jibb-import-diagnostic.hoon` ship test and `tools/type-import-diagnostic-test` eval test. The mark bridge has its own `tests/lib/jibb-mark-bridge.hoon` ship test and `tools/type-mark-test` eval test; both compare the same fixture report. `tests/lib/jibb-poke-bridge.hoon` and `tools/type-poke-test` share the source-backed prelude and poke-only API fixture. `tests/lib/jibb-api-paths.hoon` and `tools/type-api-paths-test` share partial path analysis over the real todo marks; this does not generate request interfaces. `tests/lib/jibb-module-scope.hoon` and `tools/type-module-scope-test` compare the prelude scope report on the ship and under eval.

104176

105177## Golden cases

106178

@@ -141,3 +213,5 @@ Write `source.jibb` and `about.txt` by hand, run `tools/golden --update --case <

141213## Commits

142214

143215A short subject in the imperative, then a body that says what changed and why, wrapped at 72 columns, as in `git log`. Each commit leaves every check passing.

216+

217+`tools/type-deferred-test` exercises the bounded, source-owned constructor transaction and low-level freshness/replay guards. `tools/type-deferred-resolver-test` checks the experimental import-free library resolver, report consistency, atomic failure, and that both source orders of a late face constraint decline. These checks do not establish island-kind or watchability support.

docs/open-questions.md+19−5

@@ -18,7 +18,7 @@ On 2026-10-30, @iko adopted gate-free `eq` arguments and map and set keys, treat

1818

1919## Questions milestone 2 raises

2020

21−Found while writing [prompts/milestone-2.md](prompts/milestone-2.md), checking it against the doc's examples, and building the checker. The numbering is retained so existing references stay valid. Questions 3, 18, 25, 26 and 27 remain open; the other questions are settled.

21+Found while writing [prompts/milestone-2.md](prompts/milestone-2.md), checking it against the doc's examples, and building the checker. The numbering is retained so existing references stay valid. Question 3 remains open; the field-order detail in question 32 is being clarified. The other questions are settled.

2222

23231. **Settled: how the prelude identifies jetted functions.** On 2026-10-30, @iko said the prelude functions have working Jibb implementations, and the compiler recognizes their shapes and uses the Hoon versions so jets can fire.

24242. **Settled: how the prelude keeps helpers private.** On 2026-10-30, @iko chose a separate internal prelude module imported by the prelude, without exposing the imported helpers.

@@ -37,7 +37,7 @@ Found while writing [prompts/milestone-2.md](prompts/milestone-2.md), checking i

373715. **Settled: unrestricted atoms and shared auras.** On 2026-10-30, @iko said `@` means any atom, independently at each occurrence, so Hoon `dime` and `pint` keep their bare-`@` fields. A specific atom such as `@ud` fits where `@` is expected; an `@` value needs a check to fit `@ud`. Shared atom types use one capital, with the atom constraint inferred from its body, as for `add` taking `[A A]` and returning `A`.

383816. **Settled: loobeans in union disjointness.** On 2026-10-30, @iko said `?` counts as its two atoms, `%.y` and `%.n`: it is disjoint from any cell and overlaps the constants 0 and 1.

393917. **Settled: empty cases in union disjointness.** On 2026-10-30, @iko said `!!` is disjoint from every case. A cell containing an empty position at any depth is itself empty and is also disjoint from every case.

40−18. **The two uses of Hoon `like`.** Hoon `+like` is a wet mold builder, but the gate it returns is callable and applies its supplied gate to the product. In a verified Hoon 135 example, applying `(like f)` to `[[1 2] [7 8 ~]]` produces an edge whose product is `8` when `f` is identity and `42` when `f` returns `42`; the resulting nail is the original input. Jibb molds are types, not callable values. The prelude now declares a generic `(like A)` mold and a `wonk` extractor; both parse, but their full type and backend validation remain outstanding. Should it also expose a value gate under `like`? If so, should the value preserve Hoon's input shape and behavior, or instead map the product of an already constructed edge? @iko is reviewing these alternatives; the exact public signature is not yet decided.

40+18. **Settled: the value gate `like`.** On 2026-10-31, @iko chose a gate `(like convert result)` that maps the product of an existing `(like A)` result with `convert=$-(A B)`, yielding `(like B)` while preserving its position and remaining input. An absent result stays absent. The `(like A)` mold remains available in the separate mold namespace. Hoon's wet `+like` instead builds a gate that constructs a result from an input noun; the chosen Jibb value gate is an adaptation of that behavior.

414119. **Settled: Hoon aura families and `step.hoon`.** On 2026-10-30, @iko chose `step.hoon` for Hoon 1c `step`, avoiding a clash with the Grammar example's `step`, and chose one-way widening across Hoon aura families: for example, `@ud` and `@ux` fit `@u`, and `@tD` fits `@t`. The reverse needs a check. The `step.hoon` group representation is not implemented yet.

424220. **Settled: the type of `clap`.** On 2026-10-30, @iko chose one shared value type for both units and the combining gate. If either unit is absent, `clap` returns the other; if both are present, it applies the gate to their values and wraps the result.

434321. **Settled: duplicate faces in imported Hoon records.** On 2026-10-30, @iko chose to reject an imported Hoon record with duplicate field names where its type is used. Hoon permits `[a=@ud a=@t]` and picks the first `a`; Jibb rejects it.

@@ -46,11 +46,25 @@ Found while writing [prompts/milestone-2.md](prompts/milestone-2.md), checking i

4646

474724. **Settled: how the internal prelude provides `poke`.** On 2026-10-31, @iko chose to define `poke` in the source-backed private internal prelude module and re-export it through the public prelude as an ordinary transparent type. Ordinary modules can construct and inspect its values. This settles `poke`; it does not decide the representation of `ask` or `qath`.

4848

49−25. **How the prelude provides `ask` and `qath`.** The spec calls both opaque, but Jibb has no syntax for a sealed type export. Following the decision for `poke`, @iko has been asked whether these should also be ordinary transparent types defined in the internal prelude, or whether they should retain opacity through a compiler mechanism. Their representations remain undecided.

49+25. **Settled: how the prelude provides `ask` and `qath`.** On 2026-10-31, @iko chose ordinary transparent types defined in the internal prelude and re-exported normally, as for `poke`. Callers may construct and inspect their values.

5050

51−26. **The `step` example's `at` binder.** The Grammar's `describe` pattern `[t %sent at]` binds `at`, but the agreed prelude inventory includes Hoon's `at` from section 4b, and names may not shadow the prelude. The current incomplete prelude omits `at`, so its partial inference does not reveal this conflict. @iko has been asked whether to rename the binder, rename the prelude gate, or change the shadowing rule.

51+26. **Settled: the `step` example's `at` binder.** On 2026-10-31, @iko chose to rename the `describe` pattern binder to `sent-at`, keeping Hoon's `at` in the prelude and the no-shadowing rule.

5252

53−27. **Duplicate fields in a Jibb-written record.** The Grammar rejects duplicate field names in imported Hoon records, but does not say what `+$ item [name=@t name=@ud]` means when written in Jibb. @iko has been asked whether to reject it or permit it and select the first field. A provisional bounded validation experiment declines the shape while this is open.

53+27. **Settled: duplicate fields in a Jibb-written record.** On 2026-10-31, @iko chose to reject duplicate field names, as for imported Hoon records.

54+

55+28. **Settled: arithmetic on loobeans.** On 2026-10-31, @iko chose to reject loobean operands for arithmetic. Comparison may still accept loobeans and returns `?`. The checker needs to retain this constraint through inference, generalization and instantiation before it exports `add` or `dec`.

56+

57+29. **Settled: printing the arithmetic atom constraint.** On 2026-10-31, @iko chose `where A is an atom other than ?` for a generic arithmetic type whose atom variable excludes loobeans.

58+

59+30. **Settled: a hole inferred as a generic variable.** On 2026-10-31, @iko said a hole resolved to an explicitly written type variable counts as inferred: in `++ id |= x=A ^- _ x`, the result hole is `A`. Named molds must determine their own holes without constraints from later uses; an unconstrained hole is an error.

60+

61+31. **Settled: uses of a value with a hole.** On 2026-10-31, @iko said a value definition must determine its own holes; another definition's use cannot fix an otherwise unresolved hole. For example, `++ id |= x=_ x` remains an error even if a later definition calls `id` with a cord.

62+

63+32. **Partly settled: type-directed record projection.** On 2026-10-31, @iko chose an explicit `(proj record)` whose expected result type selects the fields. There is no automatic projection, and `proj` is reserved against definitions and imports. The result contains exactly the fields of its expected type. Whether the result may reorder fields from the source remains open.

64+

65+33. **Settled: watching a request with unknown provenance.** On 2026-10-31, @iko said an island may watch a request only if the checker proves it watchable at compile time. An unknown request, including one built or passed through a gate without sufficient evidence, is rejected rather than deferred to a runtime check.

66+

67+34. **Settled: constructors and equal noun literals.** On 2026-10-31, @iko said expressions with the same runtime representation count as equal, and cases that cannot be distinguished at runtime are rejected at compile time. Thus `|=%$` matches a case headed by `%$`, `%.y` or `~`: each is the noun 0. Cases with equal heads and overlapping payloads cannot coexist in a union.

5468

5569## Grammar questions never put to the doc's author

5670

docs/prelude-inventory.md+14−6

@@ -4,7 +4,9 @@ This is a working inventory, not a completed prelude interface. It lists top-lev

44

55The source is the fake ship's `%base` `/sys/hoon.hoon` (Hoon version 135), read through Clay with `tools/ship scry /cx/=base=/sys/hoon/hoon --raw`. SHA-256: `ef538ced0877230f02ff86f9fb7a0abc6833bb1cf0e8675742b4d6ce478fcc92`. It differs in bytes from [upstream Hoon at the inspected commit](https://github.com/urbit/urbit/blob/5a187fededc4582a34fcd6055c67bb63e0917b94/pkg/arvo/sys/hoon.hoon); verify against the actual target ship when updating this inventory.

66

7−The vendored prelude defines `poke` in its private internal module and re-exports it as a transparent type. The partial checker resolves its supported source shape and a narrow imported API constructor; complete checking of the private body, other API shapes, effect lowering and runtime execution remain unfinished. `ask` and `qath` are not yet defined there.

7+The vendored prelude defines `poke` in its private internal module and re-exports it as a transparent type. The partial checker resolves its supported source shape and a narrow imported API constructor; complete checking of the private body, other API shapes, effect lowering and runtime execution remain unfinished. `qath` is defined there as a transparent recursive knot sequence and re-exported by the public prelude; the partial checker supports its named identity, selected construction and matching, and static application-path literals. The internal prelude also defines a transparent generic `ask` with pure, agent and store cases; the public prelude re-exports it and defines `pure`. Supported source construction and matching infer, while derived requests, source-schema validation and execution remain unfinished.

8+

9+The prelude also declares the generic `cmd` mold exactly as in Overview, Effects. The partial checker infers its five cases and independent message types in the supported examples; complete module checking and backend validation remain outstanding. The public prelude also declares `sub`; the partial checker infers supported constructions, while request watchability and execution remain outstanding.

810

911Hoon `+$` arms are marked **mold** below; `++` arms can be gates, doors or mold generators, and need individual inspection. Jibb's loobean `not` and Hoon's bitwise `not.bit` are distinct. Parser helpers outside 3g are excluded from the intended prelude except the specifically listed `slav` and `slaw`; the raw candidates below still need to be classified.

1012

@@ -12,6 +14,8 @@ Hoon `+$` arms are marked **mold** below; `++` arms can be gates, doors or mold

1214

1315`add`, `dec`, `div`, `dvr`, `gte`, `gth`, `lte`, `lth`, `max`, `min`, `mod`, `mul`, `sub`.

1416

17+The source-backed `gth` gate calls a compiler-supplied private comparison interface. The partial checker accepts supported equal-aura atom arguments, including loobeans, and returns `?`; lowering, jet recognition and execution remain unfinished. The public `add` and `dec` gates are written in Jibb over private primitive interfaces. The partial checker infers a shared atom type that excludes loobeans, including through supported generic calls. The Jibb-written `lth`, `gte` and `lte` gates compose `gth` and `not`; supported calls infer a shared atom constraint and return `?`. Primitive execution and jet recognition remain unfinished.

18+

1519## 1c

1620

1721`bite` (mold), `bloq` (mold), `each`, `gate` (mold), `list`, `lone`, `lest`, `mold` (mold), `pair`, `pole`, `qual`, `quip`, `step`, `trap`, `tree`, `trel`, `unit`.

@@ -22,13 +26,13 @@ Hoon `+$` arms are marked **mold** below; `++` arms can be gates, doors or mold

2226

2327`biff`, `bind`, `bond`, `both`, `clap`, `clef`, `drop`, `fall`, `flit`, `hunt`, `lift`, `mate`, `need`, `some`.

2428

25−The following is an audit of the Hoon 135 bodies, not a completed Jibb interface. The partial checker infers `fall`, `need`, `some`, `bind`, `biff`, `both`, `clap`, `clef`, `drop` and `flit`; the remaining written implementations have been parsed, but complete checker validation remains outstanding. Backend validation remains outstanding for all of them.

29+The following is an audit of the Hoon 135 bodies, not a completed Jibb interface. The partial checker infers `fall`, `need`, `some`, `bind`, `biff`, `bond`, `both`, `clap`, `clef`, `drop` and `flit`; the remaining written implementations have been parsed, but complete checker validation remains outstanding. Backend validation and jet recognition remain outstanding for all of them.

2630

2731| Name | Hoon behavior | Jibb status |

2832| --- | --- | --- |

2933| `biff` | Applies a gate returning a unit to a present value; absent stays absent. | Written |

3034| `bind` | Applies a gate to a present value and wraps the result; absent stays absent. | Written |

31−| `bond` | Calls a fallback trap for an absent unit, otherwise returns its value. | Missing |

35+| `bond` | Calls a fallback trap for an absent unit, otherwise returns its value. | Written and inferred as a curried gate; backend validation remains outstanding |

3236| `both` | Returns a unit of both values when both units are present. | Written |

3337| `clap` | Returns the present unit if only one is present; combines both values with a gate if both are present. | Written with one shared type for both units and the combining gate, as @iko chose |

3438| `clef` | Applies a gate returning a unit when both inputs are present; otherwise returns an absent unit. | Written |

@@ -45,7 +49,7 @@ The following is an audit of the Hoon 135 bodies, not a completed Jibb interface

4549

4650`snoc`, `lure`, `fand`, `find`, `flop`, `gulf`, `homo`, `join`, `bake`, `lent`, `levy`, `lien`, `limo`, `murn`, `oust`, `reap`, `rear`, `reel`, `roll`, `scag`, `skid`, `skim`, `skip`, `slag`, `snag`, `snip`, `sort`, `spin`, `spun`, `swag`, `turn`, `weld`, `snap`, `into`, `welp`, `zing`.

4751

48−The current prelude writes `snoc`, `lure`, `flop`, `join`, `levy`, `lien`, `murn`, `rear`, `reel`, `roll`, `skim`, `skip`, `snip`, `turn` and `weld`. `murn` keeps the present products of its gate in order; `join` inserts a separator between items; `snip` drops the last item, and `rear` returns it or crashes on an empty list. The folds take an explicit initial value as the Prelude table specifies. The partial checker infers `snoc`, `lure`, `weld`, `turn`, `flop`, `rear`, `skim`, `skip`, `murn`, `join` and `snip` using the validated prelude `list` mold; other list helpers remain limited by that fragment. The result casts on `drop`, `skim`, `skip`, `murn`, `join` and `snip` state their existing result types without changing their bodies. Backend validation remains outstanding for all of them.

52+The current prelude writes `snoc`, `lure`, `flop`, `join`, `lent`, `zing`, `levy`, `lien`, `murn`, `rear`, `reel`, `roll`, `skim`, `skip`, `snip`, `turn` and `weld`. `lent` counts items by recursion and `add`; `murn` keeps the present products of its gate in order; `join` inserts a separator between items; `snip` drops the last item, and `rear` returns it or crashes on an empty list. The folds take an explicit initial value as the Prelude table specifies. The partial checker infers `snoc`, `lure`, `weld`, `turn`, `flop`, `rear`, `skim`, `skip`, `murn`, `join`, `snip`, `lent`, `zing`, `levy` and `lien` using the validated prelude `list` mold; other list helpers remain limited by that fragment. The result casts on `drop`, `skim`, `skip`, `murn`, `join`, `snip`, `levy` and `lien` state their existing result types without changing their bodies. `zing` concatenates homogeneous lists in order; Hoon’s raw `zing` can also flatten heterogeneous noun lists, which this Jibb type does not express. A Hoon translation agrees with Hoon `zing` on selected finite inputs; this is not Jibb execution. Backend validation and jet recognition remain outstanding for all of them.

4953

5054## 2c

5155

@@ -95,6 +99,8 @@ The current prelude writes `snoc`, `lure`, `flop`, `join`, `levy`, `lien`, `murn

9599

96100`aftr`, `cork`, `corl`, `cury`, `curr`, `fore`, `head`, `same`, `succ`, `tail`, `test`, `lead`, `late`.

97101

102+The source-backed `cork` and `corl` compose gates forward and backward, respectively; `cury` and `curr` bind the first and second item of an unfaced pair. `succ` increments an atom through `add`; the partial checker infers a shared atom type excluding loobeans. A Hoon translation agrees with Hoon on ten selected inputs; Jibb execution and jet recognition remain unverified. `lead` and `late` are curried pair constructors: `((lead a) b)` returns `[a b]`, and `((late a) b)` returns `[b a]`. Their arguments may have independent types, including gate values, and neither constructor invokes a gate. The partial checker infers their polymorphic types. A Hoon translation agrees with Hoon’s helpers on selected inputs, but this is not Jibb execution; lowering and jet recognition remain to be validated by a backend.

103+

98104## 2o

99105

100106`jar`, `jug`, `map`, `qeu`, `set`.

@@ -117,7 +123,7 @@ Hoon 135's `3g` section has exactly 12 exports: ten `+$` molds (`coin`, `dime`,

117123| `dime` | `[p=@ta q=@]` in Hoon. The `q` field accepts any atom, as does Jibb `@` after @iko's decision in question 15. |

118124| `edge` | `[p=hair q=(unit [p=* q=nail])]`: a parsing position and either no result or a result and remaining input. |

119125| `hair` | `[p=@ud q=@ud]`: a parsing position. |

120−| `like` | A wet mold builder parameterized by a gate `a=$-(* *)`; its generated gate takes a noun, builds an `edge`-shaped result, and applies `a` to the product on success. The prelude declares the generic mold `+$ like |$ [A] [p=hair q=(unit [p=A q=nail])]`. A callable Jibb value form remains open in question 18. |

126+| `like` | A wet mold builder parameterized by a gate `a=$-(* *)`; its generated gate takes a noun, builds an `edge`-shaped result, and applies `a` to the product on success. The prelude declares the generic mold `+$ like |$ [A] [p=hair q=(unit [p=A q=nail])]`. The Jibb value gate maps the product of an existing result and preserves its position and remaining input; the partial checker infers supported calls, while backend validation remains outstanding. |

121127| `nail` | `[p=hair q=tape]`: parsing input. |

122128| `pint` | `[p=[p=@ q=@] q=[p=@ q=@]]` in Hoon. The four positions accept atoms independently; Jibb `@` now has the same meaning. |

123129| `rule` | A gate mold `$-(nail edge)`; Hoon constructs its sample and product from the `nail` and `edge` molds. |

@@ -146,7 +152,7 @@ The following shapes can be written as Jibb declarations once their referenced p

146152 [%2 p=(list tank)]

147153```

148154

149−The compiler-result `tone.hoon` has the three cases listed above; the qualified name is a prelude group member, not a `+$` identifier containing a dot. Question 15 in [open-questions.md](open-questions.md) records @iko's decision that `@` is an unrestricted atom, resolving the `dime` and `pint` mismatch. The callable value form of `like` remains unresolved. The new `like` mold and `wonk` gate parse, but full type and backend validation remain outstanding.

155+The compiler-result `tone.hoon` has the three cases listed above; the qualified name is a prelude group member, not a `+$` identifier containing a dot. Question 15 in [open-questions.md](open-questions.md) records @iko's decision that `@` is an unrestricted atom, resolving the `dime` and `pint` mismatch. The source-backed value form of `like` maps an existing result's product. Supported calls infer in the partial checker; complete checking and backend validation for `like` and `wonk` remain outstanding.

150156

151157## 4a

152158

@@ -156,6 +162,8 @@ The compiler-result `tone.hoon` has the three cases listed above; the qualified

156162

157163`at`, `cass`, `cuss`, `crip`, `mesc`, `runt`, `sand`, `sane`, `ruth`, `trim`, `trip`, `teff`, `taft`, `tuba`, `tufa`, `tuft`, `wack`, `wick`, `woad`, `wood`.

158164

165+The prelude writes `trip` and `tuba` over private primitives. Their inferred types are `$-(@t (list @tD))` and `$-((list @tD) (list @c))`, matching the target ship's Hoon 135 definitions. Composition with `lent` and invalid argument controls pass in the partial checker; primitive lowering, execution and jet recognition remain unfinished.

166+

159167## 4k

160168

161169`co`.

docs/prompts/milestone-2.md+9−7

@@ -49,7 +49,7 @@ And from the plan's Risks:

4949

5050## First steps

5151

52−1. **Specify the prelude inventory.** The checker needs the prelude's complete exported inventory and signatures; include all names from the listed Hoon library sections except explicitly excluded groups, as `docs/open-questions.md` question 3 records. The prelude imports private helpers and low-level primitives from a separate internal module without exposing them; its public foundational gates are implemented in Jibb on those primitives. The source-backed internal module defines `poke`; the public prelude re-exports it as an ordinary transparent type that modules can construct and inspect, as question 24 records. This decision does not specify the representation of `ask` or `qath`.

52+1. **Specify the prelude inventory.** The checker needs the prelude's complete exported inventory and signatures; include all names from the listed Hoon library sections except explicitly excluded groups, as `docs/open-questions.md` question 3 records. The prelude imports private helpers and low-level primitives from a separate internal module without exposing them; its public foundational gates are implemented in Jibb on those primitives. The source-backed internal module defines `poke`, `ask` and `qath`; the public prelude re-exports them as ordinary transparent types that modules can construct and inspect, as questions 24 and 25 record. Their current representations and partial checker support are described in `docs/compiler.md`.

5353

5454 The plan's three core-language rules were adopted: gate-free `eq` arguments and map and set keys, with gates opaque for union matching; jetted prelude functions taking gates; and rejection of a non-gate value that depends on itself even through a gate.

55552. **Start the importer early**, as the plan's Risks ask: first on a small `/sur` file, then on Tlon's. "Suggested design" below has a way in.

@@ -59,8 +59,9 @@ And from the plan's Risks:

5959The rules are scattered across the tabs. This is a map of them, not a replacement: read each in place, and where this summary and the doc differ, the doc is right.

6060

6161**Types and inference** (Grammar: Molds, Modules, Runes, Expressions; Decisions: Inference, Type variables, Sample names, Inline gates)

62−- Hindley–Milner with aura variables: "every expression has a principal type, and there is no general subtyping". A specific atom fits `@`, a specific noun fits `*`, and a more specific aura fits an ancestor in its Hoon aura family, each only in that direction; the reverse needs a check.

62+- Hindley–Milner with aura variables: "every expression has a principal type, and there is no general subtyping". A specific atom fits `@`, a specific noun fits `*`, and a more specific aura fits an ancestor in its Hoon aura family, each only in that direction; the reverse needs a check. Explicit `proj` is a type-directed operation.

6363- `@` means any atom, independently at each occurrence. A specific atom such as `@ud` fits where `@` is expected; an `@` value needs a check to fit `@ud`. `@ud` and `@ux` also fit `@u`, and `@tD` fits `@t`, following Hoon aura families; the reverse needs a check. Distinct specific auras remain distinct. `add` takes `[A A]` and returns `A`, with an atom constraint inferred for the shared type variable.

64+- The reserved, explicit `(proj record)` selects fields according to its expected result type. The checker records the projection and lowering evaluates the source once and builds that layout. A direct call does not insert a projection, and a module cannot define or import another `proj`.

6465- Faces are part of record types: `[a=@ b=@]` and `[x=@ y=@]` don't unify. An unnamed position can unify with a faced one and take its face, so `[0 0]` fits `[x=@ud y=@ud]`. A single-item cell `[a]` is `a`; an empty `[]` is an error.

6566- Type variables are capitals, "generalized per `++`". A capital in a local `++` shares the enclosing `++`'s variable of that name if the enclosing `++` also uses it; otherwise the local `++` introduces and generalizes its own variable. For example, `++ inner |= y=A y` shares `A` with an enclosing gate whose sample is `x=A`, but generalizes its own `A` if the enclosing `++` does not use `A`. A different type takes a different capital. A body cannot force two distinct capitals to be equal; use the same capital where a type is shared. "A type variable used where an atom is required gains an atom constraint", so `++ clamp |= [lo=A hi=A n=A]`, calling `gth` and `max`, works on any one aura; "It can become nothing more specific: a body that makes `A` a `@ud` or a list is an error." Names "may refer to each other in any order", so infer `++` definitions in dependency order, a group of mutually recursive ones together.

6667- The checker infers a gate-free constraint for `eq` arguments and map and set keys and retains it when a type variable is generalized. The requirement applies recursively to nested values; union-case matching treats gates as opaque. Print a gate-free constraint as `$-([A A] ?) where A contains no gates` and an atom constraint as `$-([A A] A) where A is an atom`; separate multiple clauses with commas, as `where A is an atom, B contains no gates`.

@@ -68,12 +69,13 @@ The rules are scattered across the tabs. This is a map of them, not a replacemen

6869- A sample's mold may be left out: every bare name in a sample binds, at any depth, as in `|=(p title.p)` "when the call fixes the type", `|= [a=@ b]` and `|=(m ~)`.

6970- Generic molds: `+$ result |$ [V E]` with cases below, applied as `(result V E)`; `|$` goes right after a `+$`'s name, and the prelude's `cmd` and `sub` use `|$ [M]`.

7071- `!!` is the empty mold, and as an expression it has any type. `*` is the noun type, not a type variable; generic positions such as the keys in `each` and `table` use a capital. A value of a more specific noun type can be used where `*` is expected.

71−- `poke` is transparent and re-exported from the source-backed internal prelude. `ask` and `qath` are opaque, built only by derived gates, `pure` and application-path literals.

72+- `_` is an inferable hole wherever a mold can appear, including an inferred path-segment aura. A hole resolved to an explicitly named generic variable is resolved; an unconstrained hole is an error. A named mold or value definition must determine its own holes without constraints from later uses.

73+- `poke`, `ask` and `qath` are transparent types defined in the internal prelude and re-exported normally. Derived gates and `pure` also construct requests; application-path literals have type `qath`.

7274- The Literals table gives every other literal its type: `0x1f` a `@ux`, ships `@p`, dates `@da`, durations `@dr`, `~.knot` a `@ta`, strings `@t`, `` `x `` a `(unit A)`, `~[…]` a `(list A)`, `gap+%s2` the pair `[%gap %s2]`, `/posts/~zod` a `path`, `%/blog` a `qath`.

7375

7476**Tags, `~`, numbers and cells wait for their context** (Grammar: Tag resolution, Literals by context)

7577- A tag or `~` gets a fresh variable and a pending constraint, checked once unification fixes the variable: against a union's cases, by shape and shared tag positions, or as a constant atom for `@tas`, `@ta`, `@` or `*`. A literal that matches nothing is "an error naming the union, such as "msg has no case %submitt"".

76−- `|=%typed` is a case's constructor: "against `$-(@t M)` it is `|=(t [%typed t])`, requiring `M` to have a case `[%typed @t]`. It works for cases tagged at their head; a bare tag is always a value."

78+- `|=%typed` is a case's constructor: "against `$-(@t M)` it is `|=(t [%typed t])`, requiring `M` to have a case `[%typed @t]`. A literal case head matches by noun value, so `|=%$` also matches `%.y` and `~` heads; a bare tag is always a value."

7779- A variable constrained by tag resolution, and any it mentions, doesn't generalize; it stays open until something in the module fixes it. An island's `main` fixes its messages. A tag constraint still open when the module is checked is an error asking for a `^-`; the checker never guesses. Gate-free constraints are retained when generalized.

7880- "Wing access, changes and `?-` on a type not yet known wait the same way." A change with no items, `m()`, is an error; the parser still accepts it. Patterns don't wait: they're checked against the subject's type.

7981- Number and cell literals each "takes a default when its `++` is checked": a number `@ud`, a cell a tuple. But "A number takes `@ud` only if nothing fixes its aura and its `++` isn't generic over it", so `++ inc |= n=A (add n 1)` stays generic: unlike a tag's, a number's variable doesn't stop its `++` from generalizing. A cell can also become a record or, where a list is expected, a cons.

@@ -107,19 +109,19 @@ The rules are scattered across the tabs. This is a map of them, not a replacemen

107109- "Island data and models can't hold gates; the checker names the field."

108110

109111**API files, stores and derived gates** (overview: Agent APIs, Effects; Grammar: Modules)

110−- `/ui/api/<agent>.jibb` declares `+$ poke` and `+$ paths`; "`poke` and `paths` are declarations, not molds." "A path case is a request name, a path and a type", and "A case can name another scry path, as in `[%changes /updates (facts todos todo-update) scry=/todos]`, used only by pages." An island watching a request whose case has `scry=` has a type error.

112+- `/ui/api/<agent>.jibb` declares `+$ poke` and `+$ paths`; "`poke` and `paths` are declarations, not molds." "A path case is a request name, a path and a type", and "A case can name another scry path, as in `[%changes /updates (facts todos todo-update) scry=/todos]`, used only by pages." An island may watch a request only when the checker proves it is watchable; a separate `scry=` path or unknown watchability is a type error.

111113- Each poke type gives a constructor, as `todo-action.todo`, and each path case a request, as `(todos.todo |=%got)`. A path with typed segments takes them too: the overview's `(post.api slug same)` suggests they come first. A `(facts full diff …)` case's request also takes a fold, as `$-([[%todo-update todo-update] todos] todos)`.

112114- A store's `+$ poke` is a declaration, not a mold. A store exports a constructor per poke type and a `state` request. Clashing derived names are errors, including clashes with an import face. The checker must account for the fact that the type of `main` determines whether a module is a store.

113115

114116**The prelude** (overview: Prelude, Layout and styling, Links and URLs, Effects)

115117- Hoon's standard library regrouped, "written in Jibb and vendored as `/lib/jibb/prelude`", plus `eq`, `not`, `page`, `program`, `store`, `pure`, `island`, the layout elements and molds, `attr`, `theme`, and `cmd` and `sub` as the overview's Effects block writes them.

116−- Signatures change where the Prelude table says: `clap` takes two units of one value type and a combining gate over that type; maps and sets are plain gates over Hoon's trees, as `(get.by m k)`; folds take a start, as `(roll xs init f)`, `rep.by` and `rep.in`; ordered maps go through lull's `on`, as `(get.on lte m k)`.

118+- Signatures change where the Prelude table says: `clap` takes two units of one value type and a combining gate over that type; the value gate `(like convert result)` maps the product of a `(like A)` to a `(like B)`, preserving position and remaining input; maps and sets are plain gates over Hoon's trees, as `(get.by m k)`; folds take a start, as `(roll xs init f)`, `rep.by` and `rep.in`; ordered maps go through lull's `on`, as `(get.on lte m k)`.

117119- Left out: signed and float gates, parser helpers outside 3g other than the explicitly listed `slav` and `slaw`, and the table's "The rest" (1b, 2p, 3d, 3f, 4c, 4n, 4o, 5a–5f); "`jam`, `cue` and `fein` run inside the runtime".

118120- Write the prelude in Jibb, enough to give every name its type. Foundational gates use private low-level primitives from the internal prelude module. Jetted functions have working Jibb implementations; the compiler recognizes their shapes and uses the Hoon versions so jets can fire. They may take gates as arguments; the Nock backend comes in milestone 3.

119121- Element signatures are in the Layout and styling table. Paths and unchecked cords have separate declarations, with `link-unsafe`, `image-unsafe` and `go-unsafe` for the unchecked forms. Both navigation declarations produce `[%go url=@t]`; `go` converts its application path to a cord including the app's base path. "The same attribute twice in a literal list is an error."

120122

121123**Errors**

122−- Each one the Grammar tab describes needs a golden case with its message. A start on the list: an aura mismatch; mismatched faces; "msg has no case %submitt"; an unresolved tag, as the Grammar's `add-button` ("nothing fixes the union of %add"); an open constraint at the end of a module; a `|=%tag` whose union has no such case tagged at its head; a union whose cases overlap; a missing `?-` case, named; an arm that earlier arms cover; a value that refers to itself; a shadowed name, including a prelude or imported one; a cell in `{…}` with no printer; an atom of a generic aura in `{…}` or a path's `(…)`; a capital that a body makes a `@ud` or a list; `~[text "hi"]`, where the checker suggests `~[(text "hi")]`; clashing derived names; an import cycle; from an import, a signed or float aura, a core, gate or vase, or a `$%`, `$?` or `$^` whose cases don't differ as nouns, or a record with duplicate field names, each where used; a `(facts …)` outside an API file's `paths`; a gate in island data or a model, naming the field; a repeated attribute in a literal list. Read the Grammar tab, and the other tabs' mentions of "error" and "the checker", and make the list complete.

124+- Each one the Grammar tab describes needs a golden case with its message. A start on the list: an aura mismatch; mismatched faces; "msg has no case %submitt"; an unresolved tag, as the Grammar's `add-button` ("nothing fixes the union of %add"); an open constraint at the end of a module; a `|=%tag` whose union has no case with an equal literal head; a union whose cases overlap; a missing `?-` case, named; an arm that earlier arms cover; a value that refers to itself; a shadowed name, including a prelude or imported one; a cell in `{…}` with no printer; an atom of a generic aura in `{…}` or a path's `(…)`; a capital that a body makes a `@ud` or a list; `~[text "hi"]`, where the checker suggests `~[(text "hi")]`; clashing derived names; an import cycle; from an import, a signed or float aura, a core, gate or vase, or a `$%`, `$?` or `$^` whose cases don't differ as nouns, or a record with duplicate field names, each where used; a `(facts …)` outside an API file's `paths`; a gate in island data or a model, naming the field; a repeated attribute in a literal list. Read the Grammar tab, and the other tabs' mentions of "error" and "the checker", and make the list complete.

123125- For a `+$` whose cases overlap or do not fit, suggest that a record or tuple leaves its `[` open on the `+$` line. `+$ pt` above `@t` and `[@ud @ud]` is a valid union.

124126- "Each error names both conflicting sites, with excerpts." Today's `error` is `[file line col msg]`, a start only; spans keep each node's end so that a type error can underline both sites.

125127- Messages name things in the doc's words and quote the code they're about in backticks, as milestone 1's do. Their wording is fixed by the golden tests once written.

docs/spec/core-language.md+2−1

@@ -71,7 +71,7 @@ axis = digit { digit } ; (* at least 1 *)

7171

7272## Lowering from Jibb

7373

74−Types, faces and casts leave nothing behind; everything else lowers by these rules.

74+Types, faces and casts leave nothing behind. Everything else lowers by these rules.

7575

7676| Jibb | Core language |

7777| --- | --- |

@@ -82,6 +82,7 @@ Types, faces and casts leave nothing behind; everything else lowers by these rul

8282| `gap+%s2` | `(cons %gap %s2)` |

8383| `/posts/~zod`, `%/blog/(slug)` | A list of knots, typed segments printed by their aura's native; the runtime adds the base path to an application path |

8484| `title.p`, `space.theme.theme` | `slot` at the field's axis, nested for longer wings |

85+| `(proj record)` | Apply a `lam` to the source once; its body constructs the expected record from the required fields using `slot` and `cons`, discarding extra fields |

8586| `card.card`, an import | The qualified name `components/card:card` |

8687| `m(draft=t error=~)` | One `edit` per item, in order: `(edit 7 (edit 6 m t) ~)` |

8788| `f a b c` | `(app f (cons a (cons b c)))`: the arguments are the sample |

docs/spec/decisions.md+9−4

@@ -24,19 +24,21 @@ The choices behind the Language tab, made on 2026-10-23; a later date marks a re

2424| Several open brackets | The deeper lines go to the last bracket, or the last rune's body, left open on a line, and the brackets before it close with it: `(column ~ ~[` needs no `)` | Decided 2026-10-30 |

2525| Jibb code blocks | Labelled `jibb` in this doc; each is a golden test | Decided 2026-10-30 |

2626| Definitions | `++` for values, `+$` for molds; no `=/` | Decided |

27−| Unions | No `$?`: a `+$` with its cases on the lines below is a union, so every union written in Jibb has a name; one case is just that mold; a mold that isn't a union counts as a union of one case for tags and `\|=%tag`; a generic's `\|$` comes right after the `+$`'s name; tags anywhere; cases differ as nouns, with `?` treated as the two atoms `%.y` and `%.n`, disjoint from cells and overlapping constants 0 and 1, and `!!` or any cell with an empty position disjoint from every case; a tag literal or `~` waits for its union, and an unresolved one is an error | Decided 2026-10-30 |

27+| Unions | No `$?`: a `+$` with its cases on the lines below is a union, so every union written in Jibb has a name; one case is just that mold; a mold that isn't a union counts as a union of one case for tags and `\|=%tag`; a generic's `\|$` comes right after the `+$`'s name; tags anywhere; constructor heads and case disjointness compare literal noun values regardless of spelling, so `%$`, `%.y` and `~` are equal and overlapping cases are errors; cases differ as nouns, with `?` treated as the two atoms `%.y` and `%.n`, disjoint from cells and overlapping constants 0 and 1, and `!!` or any cell with an empty position disjoint from every case; a tag literal or `~` waits for its union, and an unresolved one is an error | Decided 2026-10-31 |

2828| Printed unnamed unions | Print the cases separated by spaces, as `%approve %deny`; this is print-only, not Jibb syntax | Decided 2026-10-30 |

29−| Printed type constraints | Print an atom constraint as `$-([A A] A) where A is an atom` and a gate-free constraint as `$-([A A] ?) where A contains no gates`; separate multiple clauses with commas, as `where A is an atom, B contains no gates` | Decided 2026-10-30 |

29+| Printed type constraints | Print an atom constraint as `$-([A A] A) where A is an atom`, an arithmetic atom constraint as `where A is an atom other than ?`, and a gate-free constraint as `$-([A A] ?) where A contains no gates`; separate multiple clauses with commas, as `where A is an atom, B contains no gates` | Decided 2026-10-31 |

3030| Branching | `?-` only, loobeans included; exhaustive, with explicit catch-alls; covered arms are errors; failures say `!!` | Decided 2026-10-29 |

3131| Equality and negation | The gates `eq` and `not`, with Hoon's bitwise `not` exposed as `not.bit`; `eq`'s arguments and map and set keys contain no gates, even nested; the checker infers and generalizes that constraint; union matching never inspects a gate to distinguish cases | Decided 2026-10-30 |

3232| Special rules | No built-ins; type-directed rules are welcome, each listed in the Grammar tab | Decided 2026-10-29 |

3333| Inference | Hindley–Milner with aura variables; `@` is any atom, a specific atom fits `@` and a more specific aura fits an ancestor in its Hoon aura family, but each reverse needs a check, and repeated atom-constrained capitals give the same type; a number takes `@ud` only where its `++` isn't generic over its aura; distinct specific auras remain distinct; faces are part of record types, and an unnamed position can take a face but two different faces don't unify; principal types | Decided 2026-10-30 |

34−| Effects | The library unions `cmd` and `sub`; `poke` is a transparent type, and requests are opaque, from derived gates and `pure`; islands read agents only by watching; replies get full state, and diffs take a fold; timers carry the time; `%who` gives the owner's `@p`; nacks reach replies as text | Decided 2026-10-31 |

34+| Effects | The library unions `cmd` and `sub`; `poke`, `ask` and `qath` are transparent types defined in the internal prelude and re-exported normally; derived gates and `pure` also construct requests; islands read agents only by watching; replies get full state, and diffs take a fold; timers carry the time; `%who` gives the owner's `@p`; nacks reach replies as text | Decided 2026-10-31 |

3535| Poke representation | The source-backed private internal prelude module defines `poke`, and the public prelude re-exports it as an ordinary transparent type. Ordinary modules can construct and inspect its values | Decided 2026-10-31 |

36−| Agent APIs | `/ui/api/<agent>.jibb` with `+$ poke` and `+$ paths`, over the agent's mark types; a case is a name, a path and a type, with `(facts full diff …)` for diffs, told apart by mark; an optional scry path, for pages; an island watching such a request has a type error; typed segments by aura | Decided 2026-10-30 |

36+| Agent APIs | `/ui/api/<agent>.jibb` with `+$ poke` and `+$ paths`, over the agent's mark types; a case is a name, a path and a type, with `(facts full diff …)` for diffs, told apart by mark; an optional scry path, for pages; an island may watch a request only when the checker proves it is watchable, so a separate scry path or unknown watchability is an error; typed segments by aura | Decided 2026-10-31 |

3737| Mark names | Any name: `/%` names types after marks, and constructors poke with their type's mark; no alias marks | Decided 2026-10-26 |

3838| Derived gates | API files and stores give a constructor per poke type and a checked request per path or store state; clashing names are errors, including a derived name that clashes with an import face | Decided 2026-10-30 |

3939| Hoon types | A fixed translation table; `map`, `set`, `qeu`, `jar`, `jug` by name; `mop` as `(mop K V)`, read with `on`; imported `$%`, `$?` and `$^` cases must differ as nouns, and records with duplicate field names are errors where used; unused molds skipped | Decided 2026-10-30 |

40+| Record fields | Duplicate field names in a Jibb-written record are an error, as they are in an imported Hoon record | Decided 2026-10-31 |

41+| Record projection | The explicit type-directed operation `proj` takes a record and uses its expected result type to select its fields; no projection is inserted automatically. `proj` is reserved and cannot be defined or imported under that name. The result has exactly the fields declared by its type | Decided 2026-10-31 |

4042| Layout | Indentation; juxtaposed calls; a bracket open at line end takes one item per line, with no closer | Decided |

4143| Elements | Ordinary gates; containers take attribute lists; `stack` switches at `wide`; `el` adds attributes and wins; headings 1 to 6; `form` sends on Enter, the innermost when nested; `image` from an application path, sized from the file, or a sized URL; no focus control for now | Decided 2026-10-29 |

4244| Long calls | One argument per line inside parentheses | Decided |

@@ -44,6 +46,7 @@ The choices behind the Language tab, made on 2026-10-23; a later date marks a re

4446| Empty mold | `!!`, with no values; the expression has any type; pages are `(element !!)`, which keeps islands out of islands | Decided 2026-10-29 |

4547| Noun mold | `*` is the noun type, not a type variable; use a capital for a generic type; a value of a more specific noun type can be used where `*` is expected | Decided 2026-10-30 |

4648| Type variables | Capitals, generalized per `++`; a capital in a local `++` shares the enclosing `++`'s variable of that name if the enclosing `++` also uses it; otherwise it is introduced and generalized locally; a different type takes a different capital; a body cannot force distinct capitals to be equal, so a shared type uses the same capital; one used where an atom is required gains an inferred atom constraint, and cannot be fixed to a more specific type in its body | Decided 2026-10-30 |

49+| Partial type annotations | `_` may appear wherever a mold may appear and marks that part of the type for inference; a hole inferred as a named type variable is resolved; an unconstrained hole is an error, and a named mold or value definition must determine its own holes without constraints from later uses | Decided 2026-10-31 |

4750| Loobean mold | `?`, switched with `?-` | Decided 2026-10-26 |

4851| Defaults | None | Decided |

4952| Modules | Records, not cores | Decided |

@@ -52,6 +55,7 @@ The choices behind the Language tab, made on 2026-10-23; a later date marks a re

5255| Binding patterns | In `?-` arms; the last position binds the rest | Decided 2026-10-29 |

5356| Text | Strings are written only as `"…"` and are always cords; tapes come from `trip`; `{…}` prints by aura, a bare `@` as `@ud`, and an atom whose aura its `++` is generic over is an error; `print-date` prints Urbit-style to the minute in the theme's zone, from jibb-dev's zone table; numbers keep Hoon's form | Decided 2026-10-30 |

5457| Auras | Specific auras stay distinct; `@` is any atom, a more specific aura fits an ancestor in its Hoon aura family one way, with the reverse requiring a check, and shared atom-constrained type variables preserve the same aura | Decided 2026-10-30 |

58+| Loobean arithmetic | Arithmetic rejects loobean operands; comparison may accept them and returns `?` | Decided 2026-10-31 |

5559| Crashes | As in Hoon; an island keeps its model and shows the standard notice; a failing page, or one rendering a control outside an island, gets Jibb's error page; no render limit, so an endless render stalls the ship | Decided 2026-10-29 |

5660| Refinement types | None | Decided |

5761| Imports | `/-`, `/%` (a mark's type, with no face) and `/=`; no `/+`; cycles are errors | Decided 2026-10-29 |

@@ -78,6 +82,7 @@ The choices behind the Language tab, made on 2026-10-23; a later date marks a re

7882| Links | All text escaped; in-app links are application paths, as `%/blog/(slug)`, with no query or fragment, checked at compile time against routes and static files; paths and unchecked `https`, `mailto` and `tel` URLs and root-relative cords such as `"/apps/groups"` have separate declarations; `link-unsafe`, `image-unsafe` and `go-unsafe` are the unchecked forms; both navigation declarations produce `[%go url=@t]`, with `go` converting the path to a cord including the app's base path; other cords render as text; a CSP on every page | Decided 2026-10-30 |

7983| Data layer | Hoon's nouns: units, treaps, loobeans | Decided |

8084| Prelude | Hoon's standard library regrouped: all names from the listed sections except explicitly excluded groups, including all of 3g, with Hoon's `tone` exposed as `tone.hoon` and Hoon's 1c `step` as `step.hoon`; arithmetic over aura variables, units, lists, maps, sets, queues, ordered maps, function helpers, text, atom printing, a zoned date printer, time and data molds; folds take a start; jetted functions have working Jibb implementations, whose shapes the compiler recognizes to use the Hoon versions, and may take gates; private helpers and low-level primitives live in a separate internal module imported without exposing them, with public foundational gates implemented in Jibb on those primitives; `clap` takes two units of the same type and a combining gate over that type; no signed or float gates, or parser gates outside 3g except `slav` and `slaw`; signed or float auras are errors | Decided 2026-10-30 |

85+| `like` | The `(like A)` mold remains available; the value gate `like` maps the product of an existing `(like A)` with a gate `$-(A B)`, preserving the position and remaining input, and returns `(like B)` | Decided 2026-10-31 |

8186| Wire format | Noun channels; Jibb's own noun codec in the browser | Decided 2026-10-29 |

8287| Hosting | One thin host agent on `%jibb` binds, caches and serves every Jibb desk; each desk vendors jibb-dev, names its base path in docket's `site+`, and builds and renders with its own copy through fixed entry points; install `%jibb` first; app agents stay plain Hoon; pokes only from the ship | Decided 2026-10-29 |

8388| Private pages | Served by the host per request and never cached; non-owners go to the login page | Decided 2026-10-29 |

docs/spec/grammar.md+13−12

@@ -91,7 +91,7 @@ Imports come first:

9191/= card /ui/components/card :: a Jibb module

9292```

9393

94−An imported Hoon record with duplicate field names is an error where used; imported union cases must differ as nouns. `/%` names a type after its mark, so it takes no face, and any mark name works; Hoon's `/%` binds the mark's core instead. Derived constructors such as `todo-action.todo` supply the agent and mark, so code never writes one. API modules re-export their `/%` types, not `/-` faces or `/=` modules. Import cycles are errors.

94+An imported Hoon record with duplicate field names is an error where used; imported union cases must differ as nouns. `/%` names a type after its mark, so it takes no face, and any mark name works; Hoon's `/%` binds the mark's core instead. Derived constructors such as `todo-action.todo` supply the agent and mark, so callers need not write those details. API modules re-export their `/%` types, not `/-` faces or `/=` modules. Import cycles are errors.

9595

9696## Modules

9797

@@ -102,7 +102,7 @@ A file is a module: imports, then definitions.

102102- Molds and values have separate namespaces, told apart by position: `todo-action.todo` is a mold and its constructor, `todos.todo` a mold and a request.

103103- `main`'s type decides the kind: `(element !!)` a page; `(page R D)` a page with data, from parameters `R` to data `D`; `(program D X M)` an island, with data, model and messages; `(store S)` a store with state `S`. They're built by `(page load view)`, `(program init update view subs)` and `(store init update)`. A module without `main` is a library.

104104- Everything is exported and read through the import's face, as `card.card`. The prelude keeps private helpers in a separate internal module; it imports them without exposing them.

105−- An API module, `/ui/api/<agent>.jibb`, also exports derived gates: a constructor per `poke` type, adding the agent and mark, and a request per `paths` case, taking a reply over full state, plus a fold for `(facts full diff …)`. An island that watches a request whose case has a separate `scry=` path has a type error. A store's `+$ poke` is a declaration, not a mold; a store exports a constructor per `poke` type and a `state` request. Clashing derived names are errors, including a derived name that clashes with an import face.

105+- An API module, `/ui/api/<agent>.jibb`, also exports derived gates: a constructor per `poke` type, adding the agent and mark, and a request per `paths` case, taking a reply over full state, plus a fold for `(facts full diff …)`. An island may watch a request only when the checker proves it is watchable. A request whose case has a separate `scry=` path, or whose watchability cannot be proved, is a type error. A store's `+$ poke` is a declaration, not a mold; a store exports a constructor per `poke` type and a `state` request. Clashing derived names are errors, including a derived name that clashes with an import face.

106106

107107Names the host reads, by file:

108108

@@ -118,29 +118,30 @@ Every other name is free.

118118

119119## Molds

120120

121−A mold is only a type: never called on a noun, and with no default. Types are inferred, Hindley–Milner with aura variables: every expression has a principal type, and there is no general subtyping. These one-way widenings are allowed: a value of a specific atom type fits `@`, a value of a specific noun type fits `*`, and a more specific aura fits an ancestor in its Hoon aura family; the reverse of each widening needs a check.

121+A mold is only a type: never called on a noun, and with no default. Types are inferred, Hindley–Milner with aura variables: every expression has a principal type, and there is no general subtyping. These one-way widenings are allowed: a value of a specific atom type fits `@`, a value of a specific noun type fits `*`, and a more specific aura fits an ancestor in its Hoon aura family; the reverse of each widening needs a check. Records can also be projected explicitly, as described below.

122122

123−- **Atoms**: `@` is any atom, regardless of aura; auras such as `@ud`, `@t`, `@p` and `@da` are specific atom types. An `@ud` value fits where `@` is expected, but an `@` value needs a check to fit `@ud`. A more specific aura also fits an ancestor in its Hoon aura family: `@ud` and `@ux` fit `@u`, and `@tD` fits `@t`. The reverse needs a check. Distinct specific auras remain distinct; sharing an ancestor does not make them unify. Each bare `@` independently accepts any atom: it is not an aura variable. Atoms that must share a type take one capital, as `[lo=A hi=A]`, with the atom constraint inferred from the body. `add` takes `[A A]` and returns `A`, with `A` constrained to atoms, so `(add n 1)` with `n=@ud` is a `@ud`. `?` is a loobean.

123+- **Partial annotations**: `_` may appear wherever a mold may appear. It marks a part of the type for the checker to infer, so a type annotation can specify only the parts it needs to. A hole inferred to be a named type variable is resolved: in `++ id |= x=A ^- _ x`, the result hole is `A`. An unconstrained hole is an error. A named mold or value definition must determine its own holes: `+$ box [item=_]` and `++ id |= x=_ x` do not determine their holes, and later uses cannot fix them.

124+- **Atoms**: `@` is any atom, regardless of aura; auras such as `@ud`, `@t`, `@p` and `@da` are specific atom types. An `@ud` value fits where `@` is expected, but an `@` value needs a check to fit `@ud`. A more specific aura also fits an ancestor in its Hoon aura family: `@ud` and `@ux` fit `@u`, and `@tD` fits `@t`. The reverse needs a check. Distinct specific auras remain distinct; sharing an ancestor does not make them unify. Each bare `@` independently accepts any atom: it is not an aura variable. Atoms that must share a type take one capital, as `[lo=A hi=A]`, with the atom constraint inferred from the body. `add` takes `[A A]` and returns `A`, with `A` constrained to atoms, so `(add n 1)` with `n=@ud` is a `@ud`. Arithmetic rejects loobean operands: `?` contains only 0 and 1, while an arithmetic result need not. Comparison may take loobeans and returns `?`.

124125- **Constants**: `%add`, `~` and the loobeans have one value each.

125−- **Records and tuples**: `[text=@t done=?]`, `[@t ?]`. An empty `[]` is an error. Faces are part of the type, so `[a=@ b=@]` and `[x=@ y=@]` don't unify. An unnamed position can unify with a faced position and take its face, so `[0 0]` fits `[x=@ud y=@ud]`; two different faces don't unify. A record too long for one line can leave its `[` open, with one field per deeper line, as an expression's bracket does.

126+- **Records and tuples**: `[text=@t done=?]`, `[@t ?]`. An empty `[]` is an error. Duplicate field names in a record are an error. Faces are part of the type, so `[a=@ b=@]` and `[x=@ y=@]` don't unify. An unnamed position can unify with a faced position and take its face, so `[0 0]` fits `[x=@ud y=@ud]`; two different faces don't unify. The explicit type-directed operation `(proj record)` selects fields from its argument according to the expected result type: `^- [x=@ud y=@ud] (proj wider)`, or `(f (proj wider))` when `f` expects that record. The source is evaluated once, and the result contains exactly the fields in the expected layout. No projection is inserted for a direct call. `proj` is reserved: a module cannot define or import another name `proj`. A record too long for one line can leave its `[` open, with one field per deeper line, as an expression's bracket does.

126127- **Unions**: a `+$` with several cases below it. Every union written in Jibb has a name, so one used in a field, a sample, a cast, a gate's mold or an argument gets its own `+$`; only imports bring in unions without one. Tags take their union from context, as Tag resolution describes. Cases must differ as nouns: inhabited cases must differ at some position of their right-nested cells, where one is an atom and the other a cell, or both are different constants. `*`, type variables and molds that can be either, such as `(list A)`, can overlap atoms and cells. `?` counts as the two atoms `%.y` and `%.n`: it is disjoint from cells and overlaps the constants 0 and 1. The empty mold `!!` is disjoint from every case; a cell with an empty position at any depth is itself empty and is also disjoint from every case. A union whose cases don't all differ is rejected.

127128- **Containers**: `(list A)`, `(unit A)`, `(set A)`, `(map K V)`, `(mop K V)`, `(qeu A)`, `(jar K V)`, `(jug K V)`.

128129- **Gates**: `$-(A B)`. Type variables are capitals, generalized per `++`. A capital in a local `++` shares the enclosing `++`'s variable of the same name if the enclosing `++` also uses it; otherwise the local `++` introduces and generalizes its own variable. For example, `++ inner |= y=A y` uses the enclosing `A` when its enclosing gate has a sample `x=A`; if the enclosing `++` does not use `A`, `inner` generalizes its own `A`. Use another capital for a different type. A body can't force two distinct capitals to be equal; use the same capital wherever a type must be shared. A type variable used where an atom is required gains an atom constraint, so `++ clamp |= [lo=A hi=A n=A]`, whose body calls `gth` and `max`, works on any one aura. It can become nothing more specific: a body that makes `A` a `@ud` or a list is an error.

129−- **Paths**: `/todos` is constant, `/` empty, and `/todo/[id=@ud]` typed by aura. `%/blog/(slug)` is an `qath`, checked against routes and static files.

130+- **Paths**: `/todos` is constant, `/` empty, and `/todo/[id=@ud]` typed by aura. A typed segment may use `_` for an inferred aura; it still must resolve to an aura that the path rules can print and parse. `%/blog/(slug)` is an `qath`, checked against routes and static files.

130131- **Generic molds**: `+$ result |$ [V E]` with cases below; `|$` goes only right after a `+$`'s name.

131132- **Noun**: `*`, not a type variable; use a capital for a generic type. A value already known to have a more specific noun type, such as `@ud`, can be used where `*` is expected. **Empty**: `!!`.

132133- **Pokes**: `poke` is defined in the source-backed private internal prelude module and re-exported by the public prelude as an ordinary transparent type. Ordinary modules can construct and inspect its values.

133−- **Opaque**: `ask` and `qath`, built only by derived gates, `pure` and application-path literals. `(facts full diff …)` appears only in an API file's `paths`.

134+- **Effect and application-path types**: `poke`, `ask` and `qath` are transparent types, defined in the internal prelude and re-exported normally; callers can construct and inspect their values. Derived gates and `pure` also construct requests, and application-path literals have type `qath`. `(facts full diff …)` appears only in an API file's `paths`.

134135- **Identity**: recursive molds go by name and module.

135136

136−`eq`'s arguments and map and set keys must contain no gates, even nested inside another value. The checker infers this gate-free constraint on type variables and retains it when generalizing a `++`, so a generic helper that calls `eq` stays generic over gate-free types. Printed types show the constraint as `$-([A A] ?) where A contains no gates`. An inferred atom constraint prints as `$-([A A] A) where A is an atom`. Multiple clauses are comma-separated, as `where A is an atom, B contains no gates`. Union-case matching treats gates as opaque and never inspects a gate to distinguish cases.

137+`eq`'s arguments and map and set keys must contain no gates, even nested inside another value. The checker infers this gate-free constraint on type variables and retains it when generalizing a `++`, so a generic helper that calls `eq` stays generic over gate-free types. Printed types show the constraint as `$-([A A] ?) where A contains no gates`. An inferred atom constraint prints as `$-([A A] A) where A is an atom`; an arithmetic atom constraint that excludes loobeans prints as `where A is an atom other than ?`. Multiple clauses are comma-separated, as `where A is an atom, B contains no gates`. Union-case matching treats gates as opaque and never inspects a gate to distinguish cases.

137138

138139## Tag resolution

139140

140141A tag literal or `~` gets a fresh type variable and a pending constraint: the variable must become a union with a matching case, or an atom type the term fits. A mold that isn't a union counts as a union of one case, for tags and for `|=%tag`: `[%go "x"]` fits `+$ go [%go url=@t]`, and `|=%typed` works against `$-(@t M)` when `M` is `[%typed text=@t]`. Once unification fixes the variable, each constraint is checked against the union's cases or, for `@tas`, `@ta`, `@` or `*`, makes the tag that constant atom. A literal that matches nothing is an error naming the union, such as "msg has no case %submitt".

141142

142143- A constraint records the literal's shape, such as `[@t %draft]`, and matches cases by shape and shared tag positions; a literal in a field position is checked against that field.

143−- `|=%typed` is a case's constructor: against `$-(@t M)` it is `|=(t [%typed t])`, requiring `M` to have a case `[%typed @t]`. It works for cases tagged at their head; a bare tag is always a value.

144+- `|=%typed` is a case's constructor: against `$-(@t M)` it is `|=(t [%typed t])`, requiring `M` to have a case `[%typed @t]`. It works for cases whose head is a literal with the same noun as the tag, regardless of how that literal is written: `|=%$` also constructs a case headed by `%.y` or `~`, since each is the noun 0. A bare tag is always a value.

144145- A variable constrained by tag resolution, and any it mentions, doesn't generalize; it stays open until something in the module fixes it. An island's `main` fixes its messages, so islands resolve their own tags. The inferred gate-free constraint is retained when a type variable is generalized.

145146- A constraint still open when its module is checked is an error asking for a `^-`; the checker never guesses. Library helpers can cast, as in `^- (list attr)`.

146147- Wing access, changes and `?-` on a type not yet known wait the same way.

@@ -211,7 +212,7 @@ Tags can sit anywhere in a case, and a case can carry several:

211212 [%move %left n] "left {n}"

212213 [%move %right n] "right {n}"

213214 [t %draft] t

214− [t %sent at] t

215+ [t %sent sent-at] t

215216 %stop "stop"

216217```

217218

@@ -261,7 +262,7 @@ rune = "|=" field ( expr | body )

261262 | "?-" expr INDENT arm { NEWLINE arm } DEDENT ;

262263arm = pattern ( expr | body ) ; (* every case covered; see Patterns *)

263264

264−mold = aura | "*" | "!!" | "?" | "~" | term | loobean | ref | typevar

265+mold = aura | "_" | "*" | "!!" | "?" | "~" | term | loobean | ref | typevar

265266 | pathmold

266267 | "(" ref mold { mold } ")" | "(" ref { mold } mlines

267268 | "[" field { field } "]" | "[" { field } flines

@@ -270,7 +271,7 @@ field = [ name "=" ] mold | "=" name ; (* =msg is msg=msg *)

270271mlines = INDENT mold { NEWLINE mold } DEDENT ; (* a mold's ( left open *)

271272flines = INDENT field { NEWLINE field } DEDENT ; (* a mold's [ left open *)

272273pathmold = "/" [ segment { "/" segment } ] ;

273−segment = knot | "[" name "=" aura "]" ;

274+segment = knot | "[" name "=" ( aura | "_" ) "]" ;

274275

275276pattern = term | number | string | ship | loobean | "~" | "*" | name

276277 | "[" pattern { pattern } "]" ;

docs/spec/overview.md+4−2

@@ -97,6 +97,8 @@ Hoon's standard library regrouped, written in Jibb and vendored as `/lib/jibb/pr

9797| Parsers | [4d](https://docs.urbit.org/hoon/stdlib/4d)–[4i](https://docs.urbit.org/hoon/stdlib/4i), parser helpers in 4j and 4l | Left out, except the explicitly listed `slav` and `slaw` |

9898| The rest | [1b](https://docs.urbit.org/hoon/stdlib/1b), [2p](https://docs.urbit.org/hoon/stdlib/2p), [3d](https://docs.urbit.org/hoon/stdlib/3d), [3f](https://docs.urbit.org/hoon/stdlib/3f), [4c](https://docs.urbit.org/hoon/stdlib/4c), [4n](https://docs.urbit.org/hoon/stdlib/4n), [4o](https://docs.urbit.org/hoon/stdlib/4o), [5a](https://docs.urbit.org/hoon/stdlib/5a)–[5f](https://docs.urbit.org/hoon/stdlib/5f) | Left out; `jam`, `cue` and `fein` run inside the runtime |

9999

100+The prelude's `(like A)` mold describes a result with a product of type `A`. Its value gate `(like convert result)` maps a present product with `convert=$-(A B)` and returns `(like B)`, preserving the position and remaining input; an absent result stays absent.

101+

100102Maps are Hoon's trees on both sides, so equal maps are equal nouns. Requests check incoming maps and sets with `apt`.

101103

102104## The Elm architecture on Urbit

@@ -150,9 +152,9 @@ Loads and renders run in Nock.

150152 [%url reply=$-(path M)]

151153```

152154

153−- `poke` is a transparent type; `ask` is opaque, built only by derived gates and `pure`. A derived poke constructor such as `(todo-action.todo [%add draft.m])` checks its value and supplies the agent and mark, so one island can poke several agents. The agent's mark rechecks on the ship; a nack's `tang` reaches the reply as text. Store constructors poke the store in the browser.

155+- `poke`, `ask` and `qath` are transparent types defined in the internal prelude and re-exported normally. Derived gates and `pure` also construct requests. A derived poke constructor such as `(todo-action.todo [%add draft.m])` checks its value and supplies the agent and mark, so one island can poke several agents. The agent's mark rechecks on the ship; a nack's `tang` reaches the reply as text. Store constructors poke the store in the browser.

154156- A request such as `(todos.todo |=%got)` comes from a declared path or a store's `state`; its reply always gets full state. A path with diffs also takes a fold, `(changes.todo |=%got apply)`, which the runtime applies first. Facts are checked; a bad one crashes the reply, which counts as a crashed `update`.

155−- Islands read agents only by watching. A watch's first fact must be full state, so watching a request whose path case has a separate `scry=` path is a type error in an island. The runtime acks facts, rewatches after a kick or a dropped connection and reseeds from the first fact; a refused watch shows the crash notice.

157+- Islands read agents only by watching. A watch's first fact must be full state, so watching a request whose path case has a separate `scry=` path is a type error in an island. The checker must prove a request is watchable; unknown watchability is also a type error. The runtime acks facts, rewatches after a kick or a dropped connection and reseeds from the first fact; a refused watch shows the crash notice.

156158- Watches match by agent and path, timers by gap, and the newest reply is always used. After each `update`, `subs` is diffed to start and stop watches and timers. `%now` and `%every` give the time, `%who` the owner's `@p` from `/~/name`; `%wait` is a one-shot delay.

157159

158160Inputs send a message per `input` event, and one per IME composition, so validation runs as you type; only commands reach the ship. After every event, controls reset to the latest view, so a toggle whose poke fails unchecks. A field's text is rewritten only when it differs, which keeps the caret. Fields are read-only until their island starts.

docs/status.md+125−8

@@ -19,9 +19,61 @@ On 2026-10-30, @iko decided that Jibb drops `$?`, so a `+$` takes a union's case

1919

2020## Milestone 2: in progress

2121

22−The repository spec records the subsequent type-system and prelude decisions; those changes also need synchronization to the Claude document. An initial inference fragment and a standalone Hoon type reader are being tested. The fragment explicitly reports that it does not check a module; partial bridges pass Hoon `*` in supported nonrecursive molds, selected Hoon atoms, term singletons, the null singleton, the two loobean singletons and their exact fork, nested faced or unfaced cells, supported disjoint unions and opaque standard collections from `/sur` molds and marks into inference. Collections retain their names and supported arguments for printing and unification; nested supported union arguments are retained too. The bridge trusts unchanged results from the source-aware reader; a materialized type graph alone cannot reveal cases Hoon already collapsed. The source-validated standard prelude `list` mold shares this representation with imported lists; other Jibb-written collection molds and most prelude collection operations remain unsupported; malformed names and arities fail closed. Selected self-recursive `/sur` molds cross as opaque module-and-name identities; aliases, foreign references, recursive marks, unfolding and construction remain unsupported. The reader handles mark samples, including a source-proved nonrecursive union from a single Ford-imported `/sur` core, recursive molds whose origins can be verified through Ford imports, nested collections, direct ordered maps, certain ordered-map fields, direct `$^` unions whose cases can be proved disjoint, and one verified explicit union argument in a list, set, map or unit. Tagged `$%` cases can additionally use restricted local named payload molds and bare `~` fields, as in the real Tlon `notes.u-note`, with a bounded source proof; unsupported or ambiguous dependencies fail closed. Ambiguous recursive origins fail closed; recognizable explicit unions are checked from source before Hoon can collapse their cases, as @iko confirmed for imported `$%`, `$?` and `$^`, while other nested unions, nested ordered maps, general union disjointness and complete import integration remain unfinished. Opt-in structured reader APIs preserve successful graphs and distinguish definite unsupported-aura and core evidence from failures the reader cannot prove; unverified union disjointness and name-only vase recognition remain unsupported. They revalidate and re-walk failed types. An opt-in partial checker entry point consumes unchanged reader results and reports definite aura or core errors at imported mold use sites when their inputs are unique. Ordered replay covers nested cell samples, record and function casts, and non-generic same-module aliases; unsupported prefixes, cycles and shadowing stop it. Union molds, generic applications, transitive modules and unsupported reader outcomes remain generic. Replay repeats inference and may add work. The partial checker resolves a subset of ordinary library imports in dependency order using supplied Jibb sources and a source-derived partial prelude interface, caches completed interfaces per run, detects missing sources and cycles, and resolves nested fields of imported values with independent scheme instantiation. The source-backed internal prelude defines `poke` and the public prelude re-exports it as a transparent type. The partial checker resolves its supported source shape and rejects ordinary imports of the private path. An imported API with one mark and a matching direct `+$ poke` declaration can export a constructor and retain agent/mark metadata when the representation has the supported agent case. A separate partial analysis resolves supported API path declarations and their full and diff mark types, including the todo paths; it does not create requests or check an API module. Complete private module checking, other API shapes, request gates, root API and kind checking, stores, `ask`, `pure`, lowering and runtime effects remain unfinished. A possible store or root API with `+$ poke` reports unsupported kind or scope, while definite duplicates and unrelated shadowing still report conflicts. The prelude inventory is incomplete. The inference fragment supports unrestricted `@`, selected one-way widenings including aura-family ancestors, generalized atom constraints arising from explicit capitals or bare sample binders, acyclic local value definitions with captures, selected single self-recursive top-level and local gates, simple and nonrecursive generic mold aliases, selected faced record casts and field reads, and contextual tags, `~` and constructors for closed disjoint unions, including direct nonrecursive generic unions and propagation through complete loobean and unit-shaped branches in casts and known union-sample calls, including nested branches. Multi-argument calls form a right-nested sample, retain known faces and shared type variables, and can use known sample positions to contextualize list and union arguments. A definite mismatch points to the failing argument when the fragment can establish it, otherwise to the combined sample; unsupported contextual forms still fail closed. For a supported recursive gate, the checker infers the sample first and uses its exact type, including field faces, for one monomorphic self reference. It generalizes after the body is checked; subsequent uses instantiate it independently. Incompatible recursive arguments can report the gate and argument sites. For a complete loobean branch with one direct self-call arm, a separately inferred closed base type can seed the recursive result before the whole body is checked. Open or pending base types do not seed it; other branch shapes remain subject to the fragment’s existing limits. A supported single local recursive gate also uses a monomorphic self reference and generalizes variables free of the enclosing environment after checking its body; captured variables remain shared. The checker collects written capitals per `++` before inference, excluding nested definitions: a capital used in an enclosing definition is shared with its locals even when written later, while a capital introduced only in a local definition is generalized there. Sibling locals can introduce independent capitals with the same spelling; generic mold parameters keep their own scope. Top-level groups of syntactic gates are inferred together with monomorphic placeholders and shared substitutions, then generalized only after the whole group checks; downstream uses and library interfaces instantiate those schemes independently. A dependency graph identifies groups with two iterative depth-first passes; its conservative local-reference edges can reject otherwise valid programs. Supported local mutually recursive gate groups also use shared monomorphic placeholders and generalize only after the group checks, preserving captured outer variables. A bounded dependency proof reports certain non-gate cycles through values and gates when an explicit atom or loobean result cast and simple unshadowed expressions establish the cycle. Other mixed gate/value cycles, polymorphic recursion, unresolved literal constraints and unresolved branch joins remain unsupported. Reporting repeats inference for a single recursive gate outside a group; grouped reports use the stored schemes. Its performance cost remains unmeasured. A single-arm cell pattern accepts two or more binders, the last capturing the remaining tail; duplicate and shadowed binders are rejected. Intermediate union or collection tails, nested patterns, wildcards and faced records remain unsupported. String interpolation accepts known atom auras, unrestricted `@`, tapes and isolated decimal literals; a known cell asks for a printer, and an explicitly generic atom asks for an aura. Loobeans, term singletons, non-tape collections, open types and a type fixed only later remain unsupported. A known closed union with two or more arms supports patterns that provably cover or exclude each remaining case, including payload binders, imported and generic cases, and binder-free catch-alls. Partial boolean patterns can split known `?` positions into their two noun values, up to 64 alternatives across the union; binders retain their original case type. Missing alternatives and covered arms are reported. Other partial patterns, expansions above the limit, binders spanning distinct cases, differing arm result types and some complex two-arm subjects remain unsupported. A cast or known call sample can supply result context through whole-case arms and supported finite loobean refinements for a known union accessed by a wing, including nested cell and list positions; other partial-pattern context and non-wing subjects remain unsupported. The Grammar’s `step` block infers in this fragment, but its module is not yet checked. A bare tag proved absent from a known union reports the union and tag sites in casts, single-argument calls, unit payloads, list items and supported branch arms; imported unnamed unions print their cases. Ordered fit replay can identify a missing tag nested in a syntactic tuple, stopping at an earlier mismatch or uncertainty. Known faced records support uniquely named field changes, including nested wings, with field context passed to replacements and the original record type retained. Missing fields, empty changes and definite mismatches report sites; the expected-type site is the edit because the original field declaration location is not retained. Unknown or partly unfaced spines, ambiguous fields and repeated edits remain unsupported. A known record cast supplies field context to its tuple or record initializer, including nested list and union fields; mismatch diagnostics use the cast mold because the original field declaration location is not retained. Isolated cart-style `init` and `update` expressions infer, while the complete cart-store fails closed because its kind and declaration scope remain unchecked. Uncontextualized list literals infer a fresh element type, including empty and nested lists, with independently generalized uses. Unresolved item tags and uncertain widening remain unsupported. Backtick unit construction uses the validated standard prelude unit template, infers its payload without losing pending constraints, and makes the prelude’s `some` available. Ordinary result annotations also let its `bind`, `biff`, `both`, `clap`, `clef` and `flit` infer. A known unit in a cast, call, list item or record field supplies context to its payload, including nested units and lists; mismatches identify the payload and context. Unrelated union identities, some variable-dependent fits, and missing or altered prelude unit templates remain unsupported. Contextual null-headed cells fit their cases, but do not supply a `|=%$` constructor; unresolved nulls remain pending and are reported separately from tags. A known union of `~` and a null-headed cell supports a complete `~` / `[~ value]` branch in either order, including shadow checks; unknown subjects, missing or duplicate arms, and unresolved branch results remain unsupported. This fragment infers the prelude’s `fall` and `need` signatures. With the validated prelude list and a known cast or gate sample, empty, nonempty and nested list literals infer their element types, including contextual union tags; a mismatched element names both sites. In that context `~` and zero-valued terms fit an empty list, and two-item unfaced cells form cons lists, including nested cons and imported-list contexts; invalid heads or tails name both sites. A known gate sample also supplies context to matching positions in a single tuple or record argument, including nested cells; zero literals can fit list positions. A bound zero constant remains unsupported rather than a definite mismatch, and an unknown callee does not supply context. Faced or longer cells and a missing or altered prelude list fail closed. A known list result also supplies context through complete loobean, unit-shaped and list-shaped branches, including recursive and nested branches. For a known standard list with a supported element type, a complete `~` / `[item rest]` branch infers the element and tail types in either arm order and checks binders for shadowing. Unknown subjects, unsupported element types and other or incomplete list patterns remain unsupported. A value with type variable `A` can fit a field whose type is that same `A`, including in generic union payloads and nested or repeated record fields. Other variable-dependent face merges remain unsupported. Forced equality of distinct written capitals now reports both source sites, following @iko’s decision; forcing one to a concrete type remains unsupported. Imported record spines with repeated faces fail closed where used, but only with a generic unsupported diagnostic. Hoon may erase unfaced nested-cell boundaries, so the check can conservatively reject valid names in distinct erased scopes. Supported closed unions print using an in-scope name or imported alias; an unnamed nongeneric union prints its cases, parenthesized when nested. The latter is print-only. Generic union types retain all arguments in their printed name; if that name is unavailable, the partial printer reports the limitation. Different import faces for the same origin remain compatible; compatibility across distinct union origins and some generic-argument comparisons remain unsupported. Nonrecursive generic aliases can reorder, repeat or omit parameters while retaining a union’s origin, including through local scopes and library interfaces. A generic union declared directly inside a body remains unsupported, as do differing-variable face constraints in a union payload. A transitive generic union whose name is unavailable is reported as unsupported instead of hiding its arguments. Unfixed decimal literals default to `@ud` in gate-free inferred types; recursive molds, general branch tag context, other constraint cases and defaulting inside gate types still need work. Collection recognition checks the originating core and fails closed on shadows or unsupported Ford subject shapes; a wrapper regression also rejects forged subjects, samples and tails. Its golden fixtures include three real Tlon files. A Clay test passes a Ford-built nested union through the reader into partial inference. The partial prelude includes `murn`, `join`, `snip`, `rear` and the newly agreed shared-type `clap`, parsed but still awaiting checker and backend validation, and [prelude-inventory.md](prelude-inventory.md) is a source audit, not the complete inventory or signatures. The milestone remains unfinished.

22+The parser accepts `_` in mold positions and typed path segments, retaining each hole’s span. The partial checker tracks ordinary annotation holes through inference and requires each value or local definition to resolve its own holes before generalization. A hole can resolve to a concrete type or an explicitly written in-scope type variable; later uses cannot fix an unresolved definition. Independent decimal holes can default, but captured variables are not defaulted prematurely. Structural named molds with an unresolved hole report its site. Complex mold forms, inferred path segments, mutual recursive groups and other unsupported constraints still fail closed, and the fragment does not claim the module is checked. A syntax-tree pass rejects duplicate field names within each written record and reports both sites. The repository spec now records that `ask` and `qath` are transparent; complete request checking remains outstanding.

2323

24−The shared prelude interface reserves every name present in the supplied vendored source and makes only supported inferred entries available, including `list`, `unit`, `same`, `fall`, `need`, `lure`, `weld`, `snoc` and `turn`. The validated standard `list` mold is injected when the prelude’s own gates are inferred; `weld` and `turn` have ordinary explicit result casts. An absent or altered `list` is not injected, and an altered declaration cannot leak through direct or transitive mold aliases. List-dependent prelude mold aliases remain unsupported because their templates are prepared before injection. Unsupported entries such as most list helpers remain reserved but unavailable; backend validation of the helpers remains outstanding. All callers use the same prelude origin, so a library can export a type containing unqualified `(unit A)` to another module. Preparation rejects empty, malformed, conflicting or import-bearing source; the prepared value is trusted and must come unchanged from `+prepare-prelude`. The module-scope fixture compares the prepared and source-taking paths against the real prelude and a two-module golden under eval and on the ship. The source and checker remain incomplete, so this does not establish complete shadowing coverage or a checked module.

24+On 2026-10-31, @iko chose explicit, result-directed `(proj record)` to construct a record with exactly the expected fields, and reserved `proj` against definitions and imports. The partial checker handles selected explicit calls with known, closed record types, records field-selection evidence for later lowering, and reserves the name across source bindings. Reordered fields, some nested contexts and several open or recursive cases remain unsupported; lowering and execution are not implemented yet. The field-order question remains open.

25+

26+The internal prelude also defines `qath` as a transparent recursive knot sequence, re-exported by the public prelude. The partial checker recognizes its source identity, supports selected null/cell construction and matching, and types static application-path literals. Construction and matching for other recursive shapes, broader patterns and dynamic application-path segments remain unsupported. A 256-step limit applies per inference attempt, not to parsing or retries; checking routes and static files remains milestone 4.

27+

28+The checker also recognizes a limited source-proven generic recursive tree in an import-free defining module. Its nominal identity retains the defining path, mold name and type arguments, including across supported imports and aliases. With a known expected type it can construct supported tagged cases by checking one source-proven layer at a time. Flat matches with explicit tags or nonbinding catch-alls also work for these source-proven trees, as does a missing-case diagnostic for a supported single-arm match. At most 128 arms are screened per attempt; whole-case binders and nested patterns remain unsupported. Broader pattern matching, general structural fits and gate-free proof remain unsupported; this is not yet the prelude's `element` implementation or island checking. The source index uses fixed-shape checks during mold collection. Each construction or supported pattern attempt has 256 unfolding steps and at most 4,096 face and substitution visits per scan; pattern subject recognition and view validation can each scan separately. Parsing, other inference and retries remain outside those limits. A single startup-inclusive comparison of 1,000 ordinary gates produced identical reports and used 29.12 seconds of user CPU before the shared-resolver refactor and 28.55 seconds after it, with other work running; it is not a general performance bound.

29+

30+A bounded local source proof recognizes a narrow class of generic-alias union cases with different literal heads, then applies the ordinary mold checks. Nested or qualified aliases and several open states remain unsupported, including a valid alias used during the deferred transaction; the partial report states that the mold itself has not been checked. `tools/type-union-source-test` exercises the source and state bounds and failure paths under eval and on the ship. A separate bounded witness now reports proven collisions between supported literal-headed aliases, with both original case sites; unknown payload intersections still decline. The detailed full-module result now carries the first failed mold’s source-bound overlap evidence, including through ordinary Jibb imports; the legacy text result renders both case excerpts. Specialized API and prelude paths remain limited. The shared guards pass under eval and on the ship.

31+

32+The checker can experimentally discharge a narrowly scoped direct-constructor constraint while resolving an import-free library without a prepared prelude. It preserves independent generalized schemes and publishes only after all source molds, values, and recorded constraints close. API/store paths, `main`, imports, prepared preludes, recursive groups, open constraints, projection actions, and `%grec` in the constraint graph remain unsupported by this route. The fallback also declines source shapes outside its bounded direct-call screen. It does not yet typecheck the unchanged todo island or establish watchability.

33+

34+Closed cell context can now flow through a bounded loobean branch while preserving the inferred value faces and original failed-inference behavior. Open or structurally uncertain substitutions and nested retry shapes remain unsupported. This does not by itself provide the missing text and UI prelude definitions, cross-definition context, island-kind checks, or watchability evidence needed by the unchanged todo island.

35+

36+The internal prelude defines a transparent generic `ask` with pure, agent and store cases, re-exported alongside the Jibb-written `pure` gate. The partial checker infers supported constructors and exhaustive matches. Agent and store receivers operate on raw nouns; their fields do not prove schema validity or watchability. The public prelude now defines the documented source-backed `sub` union; supported `%watch` payloads retain the public `(ask M)` type. Constructing a `sub` does not prove that its request is watchable. Request lowering, checked decoding, runtime validation and island watch checking remain unimplemented.

37+

38+Known same-origin generic-union result context can now constrain a call before its arguments are inferred. An unresolved or opaque constructor target stays unsupported rather than producing a definite mismatch; proven missing tags still report errors. A todo request with explicit `(ask msg)` context can infer `|=%got`; its uncontextualized form remains unsupported. A two-item literal-headed tuple can receive payload context from a known union of uniquely headed literal cells when its payload is a shallow wing-headed call with literal, wing or constructor arguments. Existing inference takes precedence when it fits; otherwise the checker tries the contextual path once. It conservatively declines that path when any substitution has a structural root, as well as for duplicate or opaque competitors. The guard scans substitutions per eligible tuple and may add one shallow inference; no global linear-time bound is claimed. This allows an explicitly typed todo subscription body to infer, but does not check the island or prove request watchability.

39+

40+A separate source-backed analysis can prove one named mold gate-free, report a definite gate with a field path, or return unknown. It retains the prepared prelude, source bundle, reader results and resolved imports; the actual todo model proves gate-free, while a callback field reports its path and `*` remains unknown. Its classifier is capped at 256 nodes, not the surrounding parse and import work. API, store and private roots are unsupported, and the artifact does not check a module or island, infer generalized constraints, or prove watchability.

41+

42+The partial checker can also match a directly named, checked root gate against a generic gate sample in a direct, unshadowed source-backed prelude call. It uses the written two-slot sample layouts to preserve nested record faces, then requires the complete call samples to be closed and tag-free and repeats the fit under the final substitution. The proof falls back to existing inference for unavailable or ambiguous source layouts, local or dynamic gates, aliases, recursive placeholders and open generic caller types. It preserves written-capital checks and projection evidence; it does not add `program`, check islands or prove request watchability. Prepared prelude source and interface remain a trusted pair.

43+

44+The API path analyzer can retain its source, complete prepared prelude, reader results and resolved dependencies as evidence, and classify a unique declaration as watchable, not watchable or unknown. It does not yet prove the provenance of request values or check island subscriptions. Prepared artifacts and reader results remain trusted host inputs.

45+

46+For a unique supported path declaration, the request-parts analysis derives ordered typed path parameters, a full-state reply sample and a fold type for one diff mark. Multiple diffs and unsupported or ambiguous evidence fail closed. By itself it does not create request gates or establish watchability of values.

47+

48+A separate supporting-definition analysis infers supported ordinary API molds and values and resolves all declared marks, retaining their source and dependency evidence. It fails closed on unsupported helpers or marks; unused `/-` cores are not independently validated, and definitions depending on derived gates remain unsupported. This does not check or export the whole API.

49+

50+Ordinary imports can infer derived request-gate types for multiple supported API paths. A case may take one typed segment before the reply or one diff fold after it; the unchanged todo API's plain, typed and diff requests infer, including a named closed fold. Checked ordinary API definitions, mark molds and a supported poke constructor are exported. Each `/sur` core must have a directly used, successfully read mold; unselected bindings are not independently validated. Jibb module imports, scry paths, multiple parameters or diffs and a parameter together with a fold remain unsupported. Source-qualified request evidence and exact trusted graph inputs survive transitive imports and cached interfaces, while stale or ambiguous evidence fails closed. This is a type-only interface: request execution, schema validation and proof that a request value is watchable remain unimplemented. In one loaded-machine run, the real-todo eval took 195.83 s wall and 67.83 s user CPU; the prior prototype took 111.81 s wall and 64.60 s user. Both include Hoon compilation and reader setup and overlapped other work, so they are not isolated checker benchmarks.

51+

52+The Hoon reader's tagged-union source proof also handles `$~` default wrappers. A shared eval and ship golden exercises the unmodified Tlon `epic.saga` mold as a named payload in a labeled downstream extension, alongside overlap, recursive, shadow and malformed-wrapper controls. The tagged-source helper peels at most four consecutive defaults; defaults inside dependency proofs spend the existing semantic-node budget. Other unverified nested unions and dependencies remain unsupported.

53+

54+The repository spec records the subsequent type-system and prelude decisions, including the chosen `like` result-mapping gate; those changes also need synchronization to the Claude document. An initial inference fragment and a standalone Hoon type reader are being tested. The fragment explicitly reports that it does not check a module; partial bridges pass Hoon `*` in supported nonrecursive molds, selected Hoon atoms, term singletons, the null singleton, the two loobean singletons and their exact fork, nested faced or unfaced cells, supported disjoint unions and opaque standard collections from `/sur` molds and marks into inference. Collections retain their names and supported arguments for printing and unification; nested supported union arguments are retained too. The bridge trusts unchanged results from the source-aware reader; a materialized type graph alone cannot reveal cases Hoon already collapsed. The source-validated standard prelude `list` mold shares this representation with imported lists; other Jibb-written collection molds and most prelude collection operations remain unsupported; malformed names and arities fail closed. Selected self-recursive `/sur` molds, including Tlon `notes.import-node` with list-wrapped self references, cross as opaque module-and-name identities; aliases, foreign references, recursive marks, unfolding and construction remain unsupported. The reader handles mark samples, including a source-proved nonrecursive union from a single Ford-imported `/sur` core, recursive molds whose origins can be verified through Ford imports, nested collections, direct ordered maps, including source-validated named operands such as Tlon `notes.log`, certain ordered-map fields, direct `$^` unions whose cases can be proved disjoint, and one verified explicit union argument in a list, set, map or unit. Tagged `$%` cases can additionally use restricted local named payload molds, bare `~` fields and one level of local named tagged unions, as in real Tlon `notes`, with bounded source proof; unsupported or ambiguous dependencies fail closed. Ambiguous recursive origins fail closed; recognizable explicit unions are checked from source before Hoon can collapse their cases, as @iko confirmed for imported `$%`, `$?` and `$^`, while other nested unions, nested ordered maps, general union disjointness and complete import integration remain unfinished. Opt-in structured reader APIs preserve successful graphs and distinguish definite unsupported-aura and core evidence from failures the reader cannot prove; unverified union disjointness and name-only vase recognition remain unsupported. They revalidate and re-walk failed types. An opt-in partial checker entry point consumes unchanged reader results and reports definite aura or core errors at imported mold use sites when their inputs are unique. Ordered replay covers nested cell samples, record and function casts, and non-generic same-module aliases; unsupported prefixes, cycles and shadowing stop it. Union molds, generic applications, transitive modules and unsupported reader outcomes remain generic. Replay repeats inference and may add work. The partial checker resolves a subset of ordinary library imports in dependency order using supplied Jibb sources and a source-derived partial prelude interface, caches completed interfaces per run, detects missing sources and cycles, and resolves nested fields of imported values with independent scheme instantiation. The source-backed internal prelude defines `poke` and the public prelude re-exports it as a transparent type. A dedicated trusted preparation path supplies private comparison and arithmetic schemes to the Jibb-written `gth`, `add` and `dec` wrappers; ordinary imports cannot access them. The public `add` and `dec` wrappers use private arithmetic interfaces; supported inference preserves the shared atom constraint that excludes loobeans. Primitive execution, jet recognition and length remain unfinished. The partial checker resolves its supported source shape and rejects ordinary imports of the private path. An imported API with one mark and a matching direct `+$ poke` declaration can export a constructor and retain agent/mark metadata when the representation has the supported agent case. A separate partial analysis resolves supported API path declarations and their full and diff mark types, including the todo paths; it does not by itself create requests or check an API module. Ordinary imports additionally infer the supported multi-path request-gate types described above. Complete private module checking, other API shapes, request lowering, root API and kind checking, stores, complete `ask` and `pure` checking and runtime effects remain unfinished. A possible store or root API with `+$ poke` reports unsupported kind or scope, while definite duplicates and unrelated shadowing still report conflicts. The prelude includes the doc-exact generic `cmd` union; the prelude inventory is incomplete. The inference fragment supports unrestricted `@`, selected one-way widenings including aura-family ancestors, generalized atom constraints arising from explicit capitals or bare sample binders, acyclic local value definitions with captures, selected single self-recursive top-level and local gates, simple and nonrecursive generic mold aliases, selected faced record casts and field reads, and contextual tags, `~` and constructors for closed disjoint unions, including direct nonrecursive generic unions and propagation through complete loobean and unit-shaped branches in casts and known union-sample calls, including nested branches. Known loobean result context also propagates through supported complete branches and binder-only cell arms; binder-only arms over union subjects remain unsupported. A directly known named union can instantiate an unconstrained generic gate sample with its origin, generic arguments and faces preserved; unnamed, pending, recursive and variable-bound cases remain unsupported. A known gate with an unresolved result variable can receive a known enclosing result type before its arguments are inferred; unknown calls and unresolved targets remain conservative. Multi-argument calls form a right-nested sample, retain known faces and shared type variables, and can use known sample positions to contextualize list and union arguments. A definite mismatch points to the failing argument when the fragment can establish it, otherwise to the combined sample; unsupported contextual forms still fail closed. For a supported recursive gate, the checker infers the sample first and uses its exact type, including field faces, for one monomorphic self reference. It generalizes after the body is checked; subsequent uses instantiate it independently. Incompatible recursive arguments can report the gate and argument sites. For a complete loobean branch with one direct self-call arm, a separately inferred closed base type can seed the recursive result before the whole body is checked. Open or pending base types do not seed it; other branch shapes remain subject to the fragment’s existing limits. A supported single local recursive gate also uses a monomorphic self reference and generalizes variables free of the enclosing environment after checking its body; captured variables remain shared. The checker collects written capitals per `++` before inference, excluding nested definitions: a capital used in an enclosing definition is shared with its locals even when written later, while a capital introduced only in a local definition is generalized there. Sibling locals can introduce independent capitals with the same spelling; generic mold parameters keep their own scope. Top-level groups of syntactic gates are inferred together with monomorphic placeholders and shared substitutions, then generalized only after the whole group checks; downstream uses and library interfaces instantiate those schemes independently. A dependency graph identifies groups with two iterative depth-first passes; its conservative local-reference edges can reject otherwise valid programs. Supported local mutually recursive gate groups also use shared monomorphic placeholders and generalize only after the group checks, preserving captured outer variables. A bounded dependency proof reports certain non-gate cycles through values and gates when an explicit atom or loobean result cast and simple unshadowed expressions establish the cycle. Other mixed gate/value cycles, polymorphic recursion, unresolved literal constraints and unresolved branch joins remain unsupported. Reporting repeats inference for a single recursive gate outside a group; grouped reports use the stored schemes. Its performance cost remains unmeasured. A single-arm cell pattern accepts two or more binders, the last capturing the remaining tail; duplicate and shadowed binders are rejected. A structured single-arm pattern also works for a known non-union cell when coverage is proven, including nested literal and wildcard positions. Intermediate union or collection tails, nested patterns, wildcards and faced records remain unsupported. String interpolation accepts known atom auras, unrestricted `@`, tapes and isolated decimal literals; a known cell asks for a printer, and an explicitly generic atom asks for an aura. Loobeans, term singletons, non-tape collections, open types and a type fixed only later remain unsupported. A known closed union with two or more arms supports patterns that provably cover or exclude each remaining case, including payload binders, imported and generic cases, and binder-free catch-alls. Partial boolean patterns can split known `?` positions into their two noun values, up to 64 alternatives across the union; binders retain their original case type. Missing alternatives and covered arms are reported. Other partial patterns, expansions above the limit, binders spanning distinct cases, differing arm result types and some complex two-arm subjects remain unsupported. A cast or known call sample can supply result context through whole-case arms and supported finite loobean refinements for a known union accessed by a wing, a grouped wing or a supported shallow call, including nested cell and list positions; other partial-pattern contexts and subject forms remain unsupported. The Grammar’s `step` block infers in this fragment, but its module is not yet checked. A bare tag proved absent from a known union reports the union and tag sites in casts, single-argument calls, unit payloads, list items and supported branch arms; imported unnamed unions print their cases. Ordered fit replay can identify a missing tag nested in a syntactic tuple, stopping at an earlier mismatch or uncertainty. Known faced records support uniquely named field changes, including nested wings, with field context passed to replacements and the original record type retained. Missing fields, empty changes and definite mismatches report sites; the expected-type site is the edit because the original field declaration location is not retained. Unknown or partly unfaced spines, ambiguous fields and repeated edits remain unsupported. A known record cast supplies field context to its tuple or record initializer, including nested list and union fields; mismatch diagnostics use the cast mold because the original field declaration location is not retained. Isolated cart-style `init` and `update` expressions infer, while the complete cart-store fails closed because its kind and declaration scope remain unchecked. Uncontextualized list literals infer a fresh element type, including empty and nested lists, with independently generalized uses. Unresolved item tags and uncertain widening remain unsupported. Backtick unit construction uses the validated standard prelude unit template, infers its payload without losing pending constraints, and makes the prelude’s `some` available. Ordinary result annotations also let its `bind`, `biff`, `both`, `clap`, `clef` and `flit` infer. A known unit in a cast, call, list item or record field supplies context to its payload, including nested units and lists; mismatches identify the payload and context. Unrelated union identities, some variable-dependent fits, and missing or altered prelude unit templates remain unsupported. Literal singleton heads compare by runtime noun, so `|=%$` also matches explicit null- and loobean-zero-headed cases. When equal heads have disjoint payloads, the constructor selects a uniquely proven compatible payload; unknown and ambiguous candidates remain unsupported. Unresolved nulls remain pending and are reported separately from tags. A known union of `~` and a null-headed cell supports a complete `~` / `[~ value]` branch in either order, including shadow checks; unknown subjects, missing or duplicate arms, and unresolved branch results remain unsupported. This fragment infers the prelude’s `fall` and `need` signatures. With the validated prelude list and a known cast or gate sample, empty, nonempty and nested list literals infer their element types, including contextual union tags; a mismatched element names both sites. In that context `~` and zero-valued terms fit an empty list, and two-item unfaced cells form cons lists, including nested cons and imported-list contexts; invalid heads or tails name both sites. A known gate sample also supplies context to matching positions in a single tuple or record argument, including nested cells; zero literals can fit list positions. A bound zero constant remains unsupported rather than a definite mismatch, and an unknown callee does not supply context. Faced or longer cells and a missing or altered prelude list fail closed. A known list result also supplies context through complete loobean, unit-shaped and list-shaped branches, including recursive and nested branches. For a known standard list with a supported element type, a complete `~` / `[item rest]` branch infers the element and tail types in either arm order and checks binders for shadowing. Unknown subjects, unsupported element types and other or incomplete list patterns remain unsupported. A value with type variable `A` can fit a field whose type is that same `A`, including in generic union payloads and nested or repeated record fields. Other variable-dependent face merges remain unsupported. Forced equality of distinct written capitals now reports both source sites, following @iko’s decision; forcing one to a concrete type remains unsupported. Imported record spines with repeated faces fail closed where used, but only with a generic unsupported diagnostic. Hoon may erase unfaced nested-cell boundaries, so the check can conservatively reject valid names in distinct erased scopes. Supported closed unions print using an in-scope name or imported alias; an unnamed nongeneric union prints its cases, parenthesized when nested. The latter is print-only. Generic union types retain all arguments in their printed name; if that name is unavailable, the partial printer reports the limitation. Different import faces for the same origin remain compatible; compatibility across distinct union origins and some generic-argument comparisons remain unsupported. Nonrecursive generic aliases can reorder, repeat or omit parameters while retaining a union’s origin, including through local scopes and library interfaces. A generic union declared directly inside a body remains unsupported, as do differing-variable face constraints in a union payload. A transitive generic union whose name is unavailable is reported as unsupported instead of hiding its arguments. Unfixed decimal literals default to `@ud` in gate-free inferred types; recursive molds, general branch tag context, other constraint cases and defaulting inside gate types still need work. Collection recognition checks the originating core and fails closed on shadows or unsupported Ford subject shapes; a wrapper regression also rejects forged subjects, samples and tails. Its golden fixtures include three real Tlon files. A Clay test passes a Ford-built nested union through the reader into partial inference. The partial prelude includes `murn`, `join`, `snip`, `rear` and the agreed shared-type `clap`; supported calls infer, while backend validation remains outstanding, and [prelude-inventory.md](prelude-inventory.md) is a source audit, not the complete inventory or signatures. The milestone remains unfinished.

55+

56+The shared prelude interface reserves every name present in the supplied vendored source and makes only supported inferred entries available, including `list`, `unit`, `same`, `fall`, `need`, `bond`, `lure`, `weld`, `snoc`, `turn` and `lent`. The validated standard `list` mold is injected when the prelude’s own gates are inferred; `weld` and `turn` have ordinary explicit result casts. An absent or altered `list` is not injected, and an altered declaration cannot leak through direct or transitive mold aliases. The same validated template is available when prelude mold aliases are prepared, so supported direct and transitive aliases can use it. Unsupported entries such as most list helpers remain reserved but unavailable; backend validation of the helpers remains outstanding. All callers use the same prelude origin, so a library can export a type containing unqualified `(unit A)` to another module. The source-only `+prepare-prelude` rejects empty, malformed, conflicting or import-bearing source; `+prepare-prelude-with-internal` also accepts the supported private internal import. Prepared values are trusted and must come unchanged from the matching preparation arm. When canonical public list or unit templates are missing or altered, independently inferred private molds remain available, while molds that depend on those templates do not. The module-scope fixture compares the prepared and source-taking paths against the real prelude and a two-module golden under eval and on the ship. The source and checker remain incomplete, so this does not establish complete shadowing coverage or a checked module.

57+

58+The prelude has a Jibb-written `succ` gate that increments through `add`; partial inference retains its arithmetic atom constraint. A Hoon translation agrees with Hoon on ten selected inputs. Jibb execution and jet recognition remain unverified.

59+

60+The prelude has Jibb-written curried `lead` and `late` pair constructors, inferred with independent argument types including gate values. Their focused golden passes under eval and on the ship, and a Hoon-reference comparison covers operand order. Jibb backend execution remains unverified.

61+

62+The prelude also has a Jibb-written `zing` that concatenates homogeneous lists via `weld`. Its focused golden infers empty, nested text, ship, generic and gate-element lists and reports a non-list error; the same golden passes on the ship. A Hoon translation agrees with Hoon `zing` on selected finite inputs, not on Jibb execution. Hoon’s raw helper additionally accepts heterogeneous noun lists, which the Jibb signature does not express. Backend lowering and jet recognition remain unverified.

63+

64+The experimental deferred constructor transaction conservatively declines tuples, most branches, field reads, nonidentical successful call/cast fits, and multi-argument calls with open argument, sample or result types. This prevents a later substitution from invalidating an earlier face-propagation check; cases requiring deferred structural fits remain unsupported. It can retry source definitions after later dependencies become available, and a two-arm boolean branch can retain separately owned literal-result obligations until a later closed context resolves them. Faced targets or union cases, list literals and general union-pattern branches remain unsupported.

65+

66+The checked inference slice now represents `!!`, proves empty cell positions and filters proven-empty union cases. List and unit payload arms whose elements are empty are rejected as unreachable; fixed opaque cases fail closed when reachability is unknown. The new shared guard covers checked interfaces, partial diagnostics and proof budgets. Its shared guard runs under eval and on the ship.

67+

68+An eval and ship fixture now reports partial inference for the unchanged todo island with its real API and Hoon readers. It verifies that the source fixtures match `my-app` and exercises missing or duplicate imports; the report does not claim the module or island has been checked. The prelude also has a Jibb-written recursive `lent` whose supported generic calls infer `@ud`. Execution and shape-based jet recognition remain future backend work. Nested union tests check equal runtime nouns, different nested tags, empty fields and unknown inhabitation.

69+

70+The prelude now writes `lth`, `gte` and `lte` in Jibb using `gth` and `not`. Supported generic and concrete calls infer, including loobeans; mismatched explicit auras fail. Execution, jet recognition and complete import checking remain unfinished.

71+

72+The prelude also writes `trip` and `tuba` over private primitives, with inferred cord, tape and UTF-32 list types matching the target ship's Hoon 135 definitions. Their composition with `lent` and invalid argument controls pass under eval and on the ship; primitive lowering, execution and jet recognition remain unfinished. In the unchanged todo report, `update` now reaches its remaining branch-context limitation instead of failing on missing text names.

73+

74+The Hoon reader can prove overlaps among supported original `$?` source cases, including nested cells and unions with more than two cases, and report them at a Jibb use site. It evaluates each case independently and compares runtime noun values. Other overlaps, Hoon case locations and mark-reader overlap diagnostics remain unfinished. The source screen allows at most 128 cases and 4,096 source noun nodes; dependency checking and pairwise witness analysis each have a separate 4,096-node budget. These budgets do not bound chapter lookup, Hoon evaluation or graph walks.

75+

76+Restricted-number promotion now skips an environment scan when a definition has no written capitals. In a single startup-inclusive pair on 2,000 independent gates, output was identical and user CPU fell from 71.67 to 38.26 seconds; wall time was 72.80 versus 51.66 seconds with other checks running. This is a partial-inference measurement, not a complete checker or a bound on dependent modules.

2577

2678## Milestone 1: parser and mark

2779

@@ -39,9 +91,9 @@ What the plan asks for, and where it is:

3991

4092Besides the plan's list:

4193

42−- 565 golden cases: 349 that parse and 216 that fail, each failure at a stated line and column. One failing case has an unclear expectation (corpus question 3). The newer type-output cases exercise only the partial inference fragment. Each case's `about.txt` quotes the doc's words it tests.

43−- The 565-case corpus passed under `urbit eval` in 70.5 s. The fake ship passed all 574 tests, including the importer, importer/checker and mark/checker bridges, module scope and unification checks, with 39.8 s for sync and 47.4 s for tests. The importer golden compares 182 projections; `tools/clay-fixtures` builds the example Hoon fixtures through Clay, checks a recursive Ford import's origin, and passes Clay-built types through the Clay-built importer and partial checker.

44−- `tools/testdata/selftest` (22 checks) and `tools/testdata/ship-selftest` test the tools themselves.

94+- 659 golden cases: 439 that parse and 220 that fail, each failure at a stated line and column. One failing case has an unclear expectation (corpus question 3). The newer type-output cases exercise only the partial inference fragment. Each case's `about.txt` quotes the doc's words it tests.

95+- The 659-case corpus passed under `urbit eval` in 103.2 s while other checks were running. The fake ship passed all 705 tests, including the source-overlap, structural-overlap, generic-union source and alias-overlap, full-module overlap, deferred-context, generic-recursion, generic-construction, generic-pattern, deferred-inference, empty-mold and cell-branch fixtures, importer, importer/checker and mark/checker bridges, module scope, unification, hole, qath, ask, default-wrapper importer, projection, arithmetic, generic-alias, positional-face, API-evidence, request, closed-gate, todo API, constructor, sub, nested-union, gate-free and direct-gate guards and the unchanged todo report. Desk sync took 99.8 s while other checks were running. The importer golden compares 221 projections; `tools/clay-fixtures` builds the example Hoon fixtures through Clay, checks a recursive Ford import's origin, and passes Clay-built types through the Clay-built importer and partial checker.

96+- `tools/testdata/selftest` (22 checks), `tools/testdata/ship-selftest` and `tools/testdata/clay-fixtures-selftest` test the tools themselves; the last checks temporary Clay fixture cleanup and signal handling without a ship.

4597- Two independent audits before 7c739b7, one of which compared the library with a reference parser written in Python from the doc over about 19,000 generated programs. Before ab797a9, a second Python parser, written from the decisions, agreed with the library on 8,000 generated programs and 900 hand-written probes.

4698- Speed: starting `urbit eval` and building the library takes about 8 s. After that, a 2,000-line module of 400 definitions parses in about a second. Loops over definitions, arms, lines and items grow no stack; nesting costs a few stack frames a level, and 100,000 nested brackets still parse (library section 3).

4799

@@ -111,28 +163,93 @@ Besides the plan's list:

111163| ad46655 | 2026-10-31 | Bridge selected imported any-noun molds |

112164| beada10 | 2026-10-31 | Import source-proved Ford mark unions, analyze API paths and infer list helpers |

113165| e28f7be | 2026-10-31 | Diagnose proven non-gate cycles and import Tlon null-payload union cases |

114−| This change | 2026-10-31 | Infer qualified fields of imported values |

166+| fd2f288 | 2026-10-31 | Infer qualified fields of imported values |

167+| ed9291e | 2026-10-31 | Infer term-headed pairs and function helpers, and import nested named unions |

168+| ad0265e | 2026-10-31 | Infer proven single-case patterns and the prelude command union |

169+| 413b12b | 2026-10-31 | Propagate known result context into generic calls and batch ship deletions |

170+| c690076 | 2026-10-31 | Propagate loobean context, infer predicate helpers, and import named ordered-map operands |

171+| 0bf6178 | 2026-10-31 | Bridge recursive Tlon lists and prepare a private comparison interface |

172+| 4e472b5 | 2026-10-31 | Pass known named unions through polymorphic gates |

173+| e3e184f | 2026-10-31 | Parse type holes, reject duplicate written record fields, and extend partial union inference and imports |

174+| 80e221a | 2026-10-31 | Infer supported annotation holes and prelude list aliases |

175+| ba1fec4 | 2026-10-31 | Add the curried `bond` prelude gate |

176+| 0ea700d | 2026-10-31 | Infer a source-defined recursive `qath` subset and record the explicit `proj` decision |

177+| 75f5952 | 2026-10-31 | Check a subset of explicit `proj` calls and retain their lowering evidence |

178+| cf17925 | 2026-10-31 | Infer supported single-field projections |

179+| 1a891e2 | 2026-10-31 | Infer source-backed addition and decrement without loobean operands; record the watchability decision |

180+| 81af5fd | 2026-10-31 | Preserve public names of identity-generic union aliases and record the `like` decision |

181+| 640a442 | 2026-10-31 | Add the source-backed `like` result mapper and infer supported positional calls |

182+| 445a0a1 | 2026-10-31 | Retain source-backed API path evidence and classify declarations |

183+| f69493d | 2026-10-31 | Derive supported request components from API declarations |

184+| f0f6954 | 2026-10-31 | Analyze supported API helper definitions and declared marks |

185+| 3f55af7 | 2026-10-31 | Define source-backed transparent ask and pure |

186+| ae1ec26 | 2026-10-31 | Prove selected default-wrapped Hoon unions from source |

187+| dde791c | 2026-10-31 | Infer a source-backed request-gate type through ordinary imports |

188+| a1c5f35 | 2026-10-31 | Infer supported multi-path requests and named closed folds |

189+| 911ca0c | 2026-10-31 | Propagate union context, define subscriptions and match literal nouns |

190+| 72acdb3 | 2026-10-31 | Infer selected nested union payloads from context |

191+| 706035c | 2026-10-31 | Analyze gate-free source molds with field witnesses |

192+| 651b8ec | 2026-10-31 | Match source-proven gate samples in direct calls |

193+| cc8e389 | 2026-10-31 | Add source-backed list length and real todo regression |

194+| 4da6891 | 2026-10-31 | Add source-backed comparisons and nested Hoon union controls |

195+| 09db390 | 2026-10-31 | Skip unnecessary inference environment scans |

196+| 179d717 | 2026-10-31 | Diagnose source-proven Hoon union overlaps |

197+| 142f2e2 | 2026-10-31 | Prove structural overlaps across Hoon union cases |

198+| c96597d | 2026-10-31 | Track source-proven generic recursive identities |

199+| 190a9d5 | 2026-10-31 | Add source-backed list flattening |

200+| d9d51e6 | 2026-10-31 | Check source-proven recursive tree construction |

201+| 30b0a9e | 2026-10-31 | Match source-proven recursive tree cases |

202+| 72d85ab | 2026-10-31 | Add bounded deferred inference and expand runtime equality coverage |

203+| 22f3788 | 2026-10-31 | Check empty molds and propagate closed cell context into branches |

204+| 341bcb4 | 2026-10-31 | Keep deferred fits stable under later substitutions |

205+| b93a94b | 2026-10-31 | Prove local generic-alias union tags and add successor |

206+| 2826c93 | 2026-10-31 | Report generic-alias overlaps and retain deferred branch contexts |

207+| b5cdc80 | 2026-10-31 | Preserve full-module overlap source evidence |

208+| This change | 2026-10-31 | Add source-backed text conversion wrappers |

115209

116210## Checking it

117211

118212On a machine set up as [development.md](development.md) says:

119213

120214```

121−tools/golden # 565 cases under urbit eval

215+tools/golden # 659 cases under urbit eval

122216tools/importer-test # the Hoon importer fixture projection

217+tools/type-import-default-test # default-wrapped source proof golden

123218tools/type-import-test # the importer/checker bridge fixture

219+tools/type-import-overlap-test # source-aware Hoon overlap and provenance fixture

220+tools/type-import-structural-test # structural overlap and multi-case source fixture

221+tools/type-union-source-test # local generic-alias union guards

222+tools/type-union-alias-overlap-test # local generic-alias overlap diagnostics

223+tools/type-full-overlap-test # full-module overlap evidence

124224tools/type-tlon-test # the real Tlon reader/checker fixture

125225tools/type-mark-test # the mark/checker bridge fixture

126226tools/type-poke-test # the source-backed poke/API fixture

227+tools/type-api-evidence-test # API declaration evidence guards

127228tools/type-api-paths-test # partial API path metadata fixture

229+tools/type-hole-guards-test # hole defaulting and API interface guards

230+tools/type-list-alias-test # prelude list-alias guards

231+tools/type-generic-alias-test # generic union alias guards

232+tools/type-generic-recursion-test # source-proven generic recursion guards

233+tools/type-generic-construction-test # source-proven recursive construction guards

234+tools/type-generic-pattern-test # source-proven recursive pattern guards

235+tools/type-deferred-test # source-owned deferred inference guards

236+tools/type-deferred-resolver-test # resolver consistency and failure guards

237+tools/type-deferred-context-test # deferred source-order and branch guards

238+tools/type-empty-test # empty molds and coverage guards

239+tools/type-cell-branch-test # branch context and rollback guards

240+tools/type-positional-face-guards-test # positional sample face guards

241+tools/type-qath-guards-test # qath source and unfolding guards

242+tools/type-ask-guards-test # ask source and bootstrap guards

243+tools/type-proj-guards-test # projection evidence and scope guards

128244tools/type-module-scope-test # module and prelude scope fixture

129245tools/hoon check-spans-test # prints <<>> when the span checker works

130246tools/testdata/selftest # the tools themselves

131247tools/doc-blocks docs/spec # the doc's examples are golden cases

132248tools/ship start

133249tools/ship gen-tests --check # tests/lib/jibb.hoon is up to date

134−tools/ship test # the same 565 cases as -test arms on the ship

250+tools/ship test # the same 659 cases as -test arms on the ship

135251tools/testdata/ship-selftest

252+tools/testdata/clay-fixtures-selftest # scratch fixture cleanup without a ship

136253tools/ship check-commit # |commit stores .jibb files

137254tools/clay-fixtures # example /sur files and marks build through Clay

138255```

jibb-dev/lib/jibb-import.hoon+491−56

@@ -8,7 +8,8 @@

88:: Hoon's %hold nodes retain the generator's Hoon and its bound arguments.

99:: Comparing that Hoon to the standard generators identifies collections

1010:: before they expand into trees. Recursive holds are tracked by identity;

11−:: a repeated named hold becomes a module-qualified reference.

11+:: a repeated named hold becomes a module-qualified reference. A proven

12+:: nested self-recursive tagged union retains its own named boundary.

1213::

1314:: A direct $^ is read from its original branches and accepted only when

1415:: their imported shapes prove disjoint. A single nested $^ in a

@@ -38,6 +39,7 @@

3839 [%cell head=imported tail=imported]

3940 [%face name=term body=imported]

4041 [%fork cases=(list imported)]

42+ [%named module=term name=term body=imported]

4143 [%apply name=term args=(list imported)]

4244 [%ref module=term name=term]

4345 [%bad reason=@t]

@@ -45,7 +47,7 @@

4547 ==

4648+$ import-diagnostic

4749 $% [%ok value=imported]

48− [%invalid code=?(%aura %core) message=@t]

50+ [%invalid code=?(%aura %core %overlap) message=@t]

4951 [%unsupported message=@t]

5052 ==

5153+$ signatures (list [name=term code=hoon])

@@ -90,19 +92,29 @@

9092 ?: ?=([%dbug * *] raw) `+.+.raw

9193 ~

9294::

95+:: Bound metadata work separately from semantic source-node visits.

96+++ source-unwrap

97+ |= [raw=* left=@ud]

98+ ^- (unit *)

99+ =/ wrapper=(unit *) (source-gist-tail raw)

100+ ?~ wrapper `raw

101+ ?: =(left 0) ~

102+ $(raw u.wrapper, left (dec left))

103+::

93104++ tagged-term

94105 |= leaf=spec

95106 ^- (unit @)

96− =/ gist=(unit *) (source-gist-tail leaf)

97− ?^ gist $(leaf ;;(spec u.gist))

98− ?. ?=([%leaf %tas @] leaf) ~

99− `q.leaf

107+ =/ plain=(unit *) (source-unwrap leaf 4)

108+ ?~ plain ~

109+ ?. ?=([%leaf %tas @] u.plain) ~

110+ `+.+.u.plain

100111::

101112++ tagged-head

102113 |= branch=spec

103114 ^- (unit @)

104− =/ gist=(unit *) (source-gist-tail branch)

105− ?^ gist $(branch ;;(spec u.gist))

115+ =/ plain=(unit *) (source-unwrap branch 4)

116+ ?~ plain ~

117+ =. branch ;;(spec u.plain)

106118 ?+ branch ~

107119 [%bccl *]

108120 ?~ t.p.branch ~

@@ -120,6 +132,35 @@

120132 =/ rest $(cases t.cases, tags [u.tag tags])

121133 ?~ rest ~

122134 `[[u.tag i.cases] u.rest]

135+

136+::

137+:: Bound the new $? branch screen independently of the existing $% path.

138+:: Count raw noun nodes across all cases, and cap pairwise tag comparisons.

139+++ bounded-no-spec-unions

140+ |= [h=* fuel=@ud]

141+ ^- (unit @ud)

142+ ?: =(fuel 0) ~

143+ =. fuel (dec fuel)

144+ ?@ h `fuel

145+ ?: ?=([%bckt ^ ^] h) ~

146+ ?: ?=([%bcwt [^ [^ *]]] h) ~

147+ ?: ?=([%bccn [^ [^ *]]] h) ~

148+ =/ left=(unit @ud) $(h -.h)

149+ ?~ left ~

150+ $(h +.h, fuel u.left)

151+++ tagged-bounded-cases

152+ |= [cases=(list spec) tags=(list @) fuel=@ud left=@ud]

153+ ^- (unit (list tagged-case))

154+ ?~ cases `~

155+ ?: =(left 0) ~

156+ =/ remaining=(unit @ud) (bounded-no-spec-unions i.cases fuel)

157+ ?~ remaining ~

158+ =/ tag=(unit @) (tagged-head i.cases)

159+ ?~ tag ~

160+ ?: (lien tags |=(x=@ =(x u.tag))) ~

161+ =/ rest $(cases t.cases, tags [u.tag tags], fuel u.remaining, left (dec left))

162+ ?~ rest ~

163+ `[[u.tag i.cases] u.rest]

123164::

124165:: Benign source annotations have different typed representations on

125166:: Clay and under eval. Inspect the wrapper as a noun, and validate the

@@ -131,20 +172,46 @@

131172 ?: ?=([%dbug * *] raw) `+.+.raw

132173 ~

133174::

175+++ source-note-unwrap

176+ |= [raw=* left=@ud]

177+ ^- (unit *)

178+ =/ wrapper=(unit *) (source-note-tail raw)

179+ ?~ wrapper `raw

180+ ?: =(left 0) ~

181+ $(raw u.wrapper, left (dec left))

182+::

183+:: A bounded $~ source wrapper changes the default, not the mold.

184+:: Each annotation chain and default chain is separately bounded.

185+++ tagged-default-union

186+ |= [body=spec left=@ud]

187+ ^- (unit spec)

188+ =/ plain=(unit *) (source-unwrap body 4)

189+ ?~ plain ~

190+ =. body ;;(spec u.plain)

191+ ?. ?=([%bcsg *] body) `body

192+ ?: =(left 0) ~

193+ $(body q.body, left (dec left))

194+::

134195++ tagged-source-code

135196 |= [code=hoon name=term]

136197 ^- (unit (list tagged-case))

137198 =/ found=(unit spec) (local-mold-spec code name)

138199 ?~ found ~

139− =/ body=spec u.found

140− |-

141− =/ gist=(unit *) (source-gist-tail body)

142− ?^ gist $(body ;;(spec u.gist))

143− ?. ?=([%bccn *] body) ~

144− =/ cases=(list spec) p.body

145− ?~ cases ~

146− ?~ t.cases ~

147− (tagged-cases cases ~)

200+ =/ body=(unit spec) (tagged-default-union u.found 4)

201+ ?~ body ~

202+ ?- u.body

203+ [%bccn *]

204+ =/ cases=(list spec) p.u.body

205+ ?~ cases ~

206+ ?~ t.cases ~

207+ (tagged-cases cases ~)

208+ [%bcwt *]

209+ =/ cases=(list spec) p.u.body

210+ ?~ cases ~

211+ ?~ t.cases ~

212+ (tagged-bounded-cases cases ~ 4.096 128)

213+ * ~

214+ ==

148215::

149216:: Source proof for dependencies of an explicitly tagged union. Only

150217:: simple local molds, standard collections and distinct term enums are

@@ -165,8 +232,9 @@

165232++ local-mold-spec

166233 |= [code=hoon name=term]

167234 ^- (unit spec)

168− =/ note=(unit *) (source-note-tail code)

169− ?^ note $(code ;;(hoon u.note))

235+ =/ plain=(unit *) (source-note-unwrap code 4)

236+ ?~ plain ~

237+ =. code ;;(hoon u.plain)

170238 ?+ code ~

171239 [%ktcl *]

172240 ?. ?=([%name * *] p.code) ~

@@ -179,22 +247,36 @@

179247 ^- (unit @ud)

180248 ?~ cases `fuel

181249 ?: =(fuel 0) ~

182− ?. ?=([%leaf %tas @] i.cases) ~

183− ?: (lien seen |=(n=@ =(n q.i.cases))) ~

184− $(cases t.cases, seen [q.i.cases seen], fuel (dec fuel))

250+ =/ tag=(unit @) (tagged-term i.cases)

251+ ?~ tag ~

252+ ?: (lien seen |=(n=@ =(n u.tag))) ~

253+ $(cases t.cases, seen [u.tag seen], fuel (dec fuel))

185254::

186−++ safe-source-specs

187− |= [xs=(list spec) cor=type seen=(list term) fuel=@ud]

255+++ safe-source-specs-mode

256+ |= [xs=(list spec) cor=type seen=(list term) fuel=@ud allow-nested=?]

188257 ^- (unit @ud)

189258 ?~ xs `fuel

190− =/ left=(unit @ud) (safe-source-spec i.xs cor seen fuel)

259+ =/ left=(unit @ud) (safe-source-spec-mode i.xs cor seen fuel allow-nested)

191260 ?~ left ~

192261 $(xs t.xs, fuel u.left)

193262::

194−++ safe-source-name

195− |= [name=term cor=type seen=(list term) fuel=@ud]

263+++ safe-source-name-mode

264+ |= [name=term cor=type seen=(list term) fuel=@ud allow-nested=?]

196265 ^- (unit @ud)

197− ?: (lien seen |=(x=term =(name x))) ~

266+ :: Permit a direct root revisit or one proven nested self-revisit.

267+ :: Mutual cycles and inherited same-name bindings remain unavailable.

268+ ?: (lien seen |=(x=term =(name x)))

269+ ?. ?=([%core *] cor) ~

270+ ?. (scope-safe p.cor name) ~

271+ ?: =(seen ~[name]) `fuel

272+ ?. allow-nested ~

273+ ?. ?=([* [* ~]] seen) ~

274+ ?. =(i.seen name) ~

275+ =/ selected=(unit hoon) (local-arm-source cor name)

276+ ?~ selected ~

277+ =/ cases=(unit (list tagged-case)) (tagged-source-code u.selected name)

278+ ?~ cases ~

279+ `fuel

198280 =/ arm=(unit hoon) (local-arm-source cor name)

199281 ?~ arm

200282 ?. &(|(=(name %ship) =(name %path)) (scope-safe cor name)) ~

@@ -203,41 +285,64 @@

203285 ?. (scope-safe p.cor name) ~

204286 =/ body=(unit spec) (local-mold-spec u.arm name)

205287 ?~ body ~

206− (safe-source-spec u.body cor [name seen] fuel)

288+ (safe-source-spec-mode u.body cor [name seen] fuel allow-nested)

207289::

208−++ safe-source-spec

209− |= [shape=spec cor=type seen=(list term) fuel=@ud]

290+++ safe-source-spec-mode

291+ |= [shape=spec cor=type seen=(list term) fuel=@ud allow-nested=?]

210292 ^- (unit @ud)

293+ =/ plain=(unit *) (source-unwrap shape 4)

294+ ?~ plain ~

295+ =. shape ;;(spec u.plain)

211296 ?: =(fuel 0) ~

212297 =. fuel (dec fuel)

213− =/ gist=(unit *) (source-gist-tail shape)

214− ?^ gist $(shape ;;(spec u.gist))

215298 ?+ shape ~

216299 [%base *] ?:(|(?=([%atom *] p.shape) =(%flag p.shape) =(%null p.shape)) `fuel ~)

217300 [%leaf *] `fuel

301+ [%bcsg *] $(shape q.shape)

218302 [%bcts *] ?@ p.shape $(shape q.shape)

219303 ~

220− [%bccl *] (safe-source-specs p.shape cor seen fuel)

304+ [%bccl *] (safe-source-specs-mode p.shape cor seen fuel allow-nested)

305+ [%bccn *]

306+ :: A source proof may cross one named union dependency. Deeper

307+ :: named unions stay unsupported to bound recursive reprojection.

308+ ?. allow-nested ~

309+ ?. ?=([* [* ~]] seen) ~

310+ =/ cases=(unit (list tagged-case)) (tagged-cases p.shape ~)

311+ ?~ cases ~

312+ ?~ u.cases ~

313+ ?~ t.u.cases ~

314+ (safe-source-tagged-fuel-mode u.cases cor seen fuel allow-nested)

221315 [%bcwt *] (safe-source-enum p.shape ~ fuel)

222316 [%like *]

223317 ?. ?=([@ ~] p.shape) ~

224318 ?. ?=(~ q.shape) ~

225− (safe-source-name i.p.shape cor seen fuel)

319+ (safe-source-name-mode i.p.shape cor seen fuel allow-nested)

226320 [%make *]

227− ?. ?=([%wing [@ ~]] p.shape) ~

228− =/ n=term i.p.p.shape

321+ =/ wing=(unit term) (source-single-wing p.shape)

322+ ?~ wing ~

323+ =/ n=term u.wing

229324 ?. (lien `(list term)`~[%map %set %qeu %list %unit %jar %jug] |=(x=term =(x n))) ~

230325 ?. (scope-safe cor n) ~

231− (safe-source-specs q.shape cor seen fuel)

326+ (safe-source-specs-mode q.shape cor seen fuel allow-nested)

232327 ==

233328::

329+++ safe-source-tagged-fuel-mode

330+ |= [cases=(list tagged-case) cor=type seen=(list term) fuel=@ud allow-nested=?]

331+ ^- (unit @ud)

332+ ?~ cases `fuel

333+ =/ left=(unit @ud) (safe-source-spec-mode branch.i.cases cor seen fuel allow-nested)

334+ ?~ left ~

335+ $(cases t.cases, fuel u.left)

336+::

337+++ safe-source-name

338+ |= [name=term cor=type seen=(list term) fuel=@ud]

339+ ^- (unit @ud)

340+ (safe-source-name-mode name cor seen fuel &)

341+::

234342++ safe-source-tagged

235343 |= [cases=(list tagged-case) cor=type seen=(list term) fuel=@ud]

236344 ^- ?

237− ?~ cases &

238− =/ left=(unit @ud) (safe-source-spec branch.i.cases cor seen fuel)

239− ?~ left |

240− $(cases t.cases, fuel u.left)

345+ ?=(^ (safe-source-tagged-fuel-mode cases cor seen fuel &))

241346::

242347++ tagged-union-fallback

243348 |= [module=term name=term cor=type]

@@ -252,12 +357,19 @@

252357 ?~ selected ~

253358 =/ cases (tagged-source-code u.selected name)

254359 ?~ cases ~

255− ?. (safe-source-tagged u.cases cor ~[name] 4.096) ~

360+ :: Preserve the original budget when no nested union recovery is needed.

361+ =/ plain=? ?=(^ (safe-source-tagged-fuel-mode u.cases cor ~[name] 4.096 |))

362+ ?. |(plain (safe-source-tagged u.cases cor ~[name] 256)) ~

256363 =/ tried=(each (list type) tang)

257364 (mule |.((turn u.cases |=(c=tagged-case (~(play ut cor) [%kttr branch.c])))))

258365 ?. ?=([%& *] tried) ~

366+ :: Record the selected hold before projecting branches so an exact

367+ :: recursive revisit can retain its independently verified origin.

368+ =/ selected-type=(each type tang)

369+ (mule |.((~(play ut cor) (ream (cat 3 '*' name)))))

370+ ?. ?=([%& *] selected-type) ~

259371 =/ projected=(each (list imported) tang)

260− (mule |.((turn p.tried |=(t=type (walk module t catalog ~ `cor)))))

372+ (mule |.((turn p.tried |=(t=type (walk module t catalog ~[[p.selected-type [~ name]]] `cor)))))

261373 ?. ?=([%& *] projected) ~

262374 ?^ (first-bads p.projected) ~

263375 ?. (all-disjoint p.projected) ~

@@ -271,6 +383,140 @@

271383 ?. ?=([%cell [%atom %tas [~ @]] *] i.ys) ~

272384 ?. =(tag.i.xs u.value.head.i.ys) ~

273385 $(xs t.xs, ys t.ys)

386+

387+::

388+:: Unlike the disjoint-reader fallback, source overlap may have repeated

389+:: tags. Bound both raw case traversal and the number of pair attempts.

390+++ overlap-source-cases

391+ |= [cases=(list spec) fuel=@ud left=@ud]

392+ ^- (unit (list tagged-case))

393+ ?~ cases `~

394+ ?: =(left 0) ~

395+ =/ remaining=(unit @ud) (bounded-no-spec-unions i.cases fuel)

396+ ?~ remaining ~

397+ =/ tag=(unit @) (tagged-head i.cases)

398+ ?~ tag ~

399+ =/ rest $(cases t.cases, fuel u.remaining, left (dec left))

400+ ?~ rest ~

401+ `[[u.tag i.cases] u.rest]

402+++ overlap-repeated-tag

403+ |= cases=(list tagged-case)

404+ ^- ?

405+ ?~ cases |

406+ ?: (lien t.cases |=(c=tagged-case =(tag.c tag.i.cases))) &

407+ $(cases t.cases)

408+++ overlap-projections-match

409+ |= [xs=(list tagged-case) ys=(list imported)]

410+ ^- ?

411+ ?~ xs ?=(~ ys)

412+ ?~ ys |

413+ ?. ?=([%cell [%atom %tas [~ @]] *] i.ys) |

414+ ?. =(tag.i.xs u.value.head.i.ys) |

415+ $(xs t.xs, ys t.ys)

416+++ overlap-source-witness

417+ |= [module=term name=term cor=type]

418+ ^- ?

419+ ?. ?=([%core *] cor) |

420+ =/ selected=(unit hoon) (local-arm-source cor name)

421+ ?~ selected |

422+ =/ shape=(unit spec) (local-mold-spec u.selected name)

423+ ?~ shape |

424+ =/ body=(unit spec) (tagged-default-union u.shape 4)

425+ ?~ body |

426+ ?. ?=([%bcwt *] u.body) |

427+ =/ cases=(unit (list tagged-case)) (overlap-source-cases p.u.body 4.096 128)

428+ ?~ cases |

429+ ?. (overlap-repeated-tag u.cases) |

430+ ?. ?=(^ (safe-source-tagged-fuel-mode u.cases cor ~[name] 4.096 |)) |

431+ =/ tried=(each (list type) tang)

432+ (mule |.((turn u.cases |=(c=tagged-case (~(play ut cor) [%kttr branch.c])))))

433+ ?. ?=([%& *] tried) |

434+ =/ projected=(each (list imported) tang)

435+ (mule |.((turn p.tried |=(t=type (walk module t catalog ~ `cor)))))

436+ ?. ?=([%& *] projected) |

437+ ?^ (first-bads p.projected) |

438+ ?. (overlap-projections-match u.cases p.projected) |

439+ =/ witness=(unit overlap-proof-result) (overlap-case-pairs p.projected 4.096)

440+ ?~ witness |

441+ found.u.witness

442+::

443+:: Positive overlap evidence only: false means no proof, not disjointness.

444+:: Fuel is shared across all examined nodes and sibling alternatives.

445++$ overlap-proof-result [found=? left=@ud]

446+++ overlap-known-atom

447+ |= aura=term

448+ ^- ?

449+ (lien `(list term)`~[%t %tas %ud %f] |=(n=term =(n aura)))

450+++ overlap-inhabited-list

451+ |= [xs=(list imported) fuel=@ud]

452+ ^- (unit overlap-proof-result)

453+ ?~ xs `[| fuel]

454+ ?: =(0 fuel) ~

455+ =/ one=(unit overlap-proof-result) (overlap-inhabited i.xs (dec fuel))

456+ ?~ one ~

457+ ?: found.u.one one

458+ $(xs t.xs, fuel left.u.one)

459+++ overlap-inhabited

460+ |= [x=imported fuel=@ud]

461+ ^- (unit overlap-proof-result)

462+ ?: =(0 fuel) ~

463+ =. fuel (dec fuel)

464+ ?- x

465+ [%noun *] `[& fuel]

466+ [%void *] `[| fuel]

467+ [%atom *] `[|(?=(^ value.x) (overlap-known-atom aura.x)) fuel]

468+ [%face *] $(x body.x)

469+ [%named *] $(x body.x)

470+ [%fork *] (overlap-inhabited-list cases.x fuel)

471+ [%cell *]

472+ =/ a=(unit overlap-proof-result) $(x head.x)

473+ ?~ a ~

474+ ?. found.u.a a

475+ $(x tail.x, fuel left.u.a)

476+ * `[| fuel]

477+ ==

478+++ overlap-pair-list

479+ |= [xs=(list imported) y=imported fuel=@ud]

480+ ^- (unit overlap-proof-result)

481+ ?~ xs `[| fuel]

482+ ?: =(0 fuel) ~

483+ =/ p=(unit overlap-proof-result) (overlap-pair i.xs y (dec fuel))

484+ ?~ p ~

485+ ?: found.u.p p

486+ $(xs t.xs, fuel left.u.p)

487+++ overlap-pair

488+ |= [a=imported b=imported fuel=@ud]

489+ ^- (unit overlap-proof-result)

490+ ?: =(0 fuel) ~

491+ =. fuel (dec fuel)

492+ ?: ?=([%face *] a) $(a body.a)

493+ ?: ?=([%face *] b) $(b body.b)

494+ ?: ?=([%named *] a) $(a body.a)

495+ ?: ?=([%named *] b) $(b body.b)

496+ ?: ?=([%fork *] a) (overlap-pair-list cases.a b fuel)

497+ ?: ?=([%fork *] b) (overlap-pair-list cases.b a fuel)

498+ ?: ?=([%noun *] a) (overlap-inhabited b fuel)

499+ ?: ?=([%noun *] b) (overlap-inhabited a fuel)

500+ ?: &(?=([%cell *] a) ?=([%cell *] b))

501+ =/ p=(unit overlap-proof-result) $(a head.a, b head.b)

502+ ?~ p ~

503+ ?. found.u.p p

504+ $(a tail.a, b tail.b, fuel left.u.p)

505+ ?. &(?=([%atom *] a) ?=([%atom *] b)) `[| fuel]

506+ ?^ value.a

507+ ?^ value.b `[=(u.value.a u.value.b) fuel]

508+ `[&(=(u.value.a 0) (overlap-known-atom aura.b)) fuel]

509+ ?^ value.b `[&(=(u.value.b 0) (overlap-known-atom aura.a)) fuel]

510+ `[&((overlap-known-atom aura.a) (overlap-known-atom aura.b)) fuel]

511+++ overlap-case-pairs

512+ |= [xs=(list imported) fuel=@ud]

513+ ^- (unit overlap-proof-result)

514+ ?~ xs `[| fuel]

515+ ?: =(0 fuel) ~

516+ =/ p=(unit overlap-proof-result) (overlap-pair-list t.xs i.xs (dec fuel))

517+ ?~ p ~

518+ ?: found.u.p p

519+ $(xs t.xs, fuel left.u.p)

274520::

275521:: +read-mold-in: accept the /sur core as provenance. The core must be

276522:: built against zuse or validated Ford imports, and its selected arm

@@ -286,6 +532,8 @@

286532 [%| (crip "Hoon mold `{(trip name)}` is not declared")]

287533 ?. =(typ (~(play ut cor) (ream (cat 3 '*' name))))

288534 [%| 'Hoon module provenance does not match the selected mold']

535+ =/ overlap=(each ? tang) (mule |.((overlap-source-witness module name cor)))

536+ ?: &(?=(%& -.overlap) p.overlap) [%| 'Hoon union cases overlap']

289537 =/ result (read-with module name typ [~ cor])

290538 ?: ?=([%& *] result) result

291539 =/ fallback=(each (unit (each imported @t)) tang)

@@ -329,6 +577,7 @@

329577 ^- ?

330578 ?- node

331579 [%ref *] &

580+ [%named *] $(node body.node)

332581 [%face *] $(node body.node)

333582 [%cell *] |($(node head.node) $(node tail.node))

334583 [%fork *] (lien cases.node |=(child=imported (mark-has-ref child)))

@@ -385,6 +634,8 @@

385634 [%unsupported p.result]

386635 =/ selected=(each type tang) (mule |.((~(play ut cor) (ream (cat 3 '*' name)))))

387636 ?. ?=(%& -.selected) [%unsupported p.result]

637+ =/ overlap=(each ? tang) (mule |.((overlap-source-witness module name cor)))

638+ ?: &(?=(%& -.overlap) p.overlap) [%invalid %overlap 'Hoon union cases overlap']

388639 =/ again=(each imported tang) (mule |.((walk module p.selected catalog ~ [~ cor])))

389640 ?. ?=(%& -.again) [%unsupported p.result]

390641 =/ evidence=(unit import-diagnostic) (first-invalid p.again)

@@ -847,6 +1098,8 @@

8471098 ^- ?

8481099 ?: ?=([%face *] a) $(a body.a)

8491100 ?: ?=([%face *] b) $(b body.b)

1101+ ?: ?=([%named *] a) $(a body.a)

1102+ ?: ?=([%named *] b) $(b body.b)

8501103 ?: ?=([%fork *] a)

8511104 (levy cases.a |=(item=imported (disjoint item b)))

8521105 ?: ?=([%fork *] b)

@@ -969,17 +1222,46 @@

9691222 ?@ src |

9701223 |($(src -.src) $(src +.src))

9711224::

1225+:: Clay can wrap each call component in source-location metadata.

1226+:: Peel only those wrappers; malformed casts are trapped by +mop-specs.

1227+++ mop-source-code

1228+ |= code=hoon

1229+ ^- hoon

1230+ =/ plain=(unit *) (source-unwrap code 4)

1231+ ?~ plain !!

1232+ ;;(hoon u.plain)

1233+::

1234+++ source-single-wing

1235+ |= raw=*

1236+ ^- (unit term)

1237+ =/ plain=(unit *) (source-unwrap raw 4)

1238+ ?~ plain ~

1239+ ?. ?=([%wing [@ ~]] u.plain) ~

1240+ `;;(term -.+.u.plain)

1241+::

9721242++ mop-specs-raw

9731243 |= body=hoon

9741244 ^- (unit [key=spec value=spec])

1245+ =. body (mop-source-code body)

9751246 ?. ?=([%cncl *] body) ~

9761247 ?. ?=([%tsgr *] p.body) ~

977− =/ b=hoon q.p.body

1248+ =/ b=hoon (mop-source-code q.p.body)

9781249 ?. ?=([%cncl *] b) ~

979− ?. ?=([%cncl *] p.b) ~

980− ?. ?=([%wing *] p.p.b) ~

981− ?. =(p.p.p.b ~[%mop]) ~

982− =/ specs=(list spec) ;;((list spec) q.p.b)

1250+ =/ call=hoon (mop-source-code p.b)

1251+ ?. ?=([%cncl *] call) ~

1252+ =/ w=(unit term) (source-single-wing p.call)

1253+ ?~ w ~

1254+ ?. =(u.w %mop) ~

1255+ =/ raw=* q.call

1256+ =/ wings=(unit [key=spec value=spec])

1257+ ?. ?=([* [* ~]] raw) ~

1258+ =/ a=(unit term) (source-single-wing -.raw)

1259+ =/ b=(unit term) (source-single-wing -.+.raw)

1260+ ?~ a ~

1261+ ?~ b ~

1262+ [~ [[%like ~[u.a] ~] [%like ~[u.b] ~]]]

1263+ ?^ wings wings

1264+ =/ specs=(list spec) ;;((list spec) raw)

9831265 ?. ?=([* [* ~]] specs) ~

9841266 [~ [i.specs i.t.specs]]

9851267::

@@ -1189,6 +1471,49 @@

11891471 ?~ args [%bad unsupported]

11901472 [%apply name.out u.args]

11911473::

1474+:: A nested named tagged union may be recovered only if its hold is

1475+:: exactly the selected arm of this core. Provenance and all original

1476+:: source cases are checked by the same fallback as a top-level arm.

1477+++ nested-tagged-union

1478+ |= [module=term typ=type context=(unit type)]

1479+ ^- (unit imported)

1480+ ?~ context ~

1481+ ?. ?=([%core *] u.context) ~

1482+ ?. ?=([%hold *] typ) ~

1483+ =/ n=(unit term) (hold-name q.typ)

1484+ ?~ n ~

1485+ :: The outer proof has a shared budget. Bound each nested re-proof as

1486+ :: well, so rebuilding a shared source DAG cannot grow without limit.

1487+ =/ source=(unit hoon) (local-arm-source u.context u.n)

1488+ ?~ source ~

1489+ =/ cases=(unit (list tagged-case)) (tagged-source-code u.source u.n)

1490+ ?~ cases ~

1491+ ?. (safe-source-tagged u.cases u.context ~[u.n] 256) ~

1492+ =/ selected=(each type tang)

1493+ (mule |.((~(play ut u.context) (ream (cat 3 '*' u.n)))))

1494+ ?. ?=([%& *] selected) ~

1495+ ?. =(p.selected typ) ~

1496+ =/ attempt=(each (unit (each imported @t)) tang)

1497+ (mule |.((tagged-union-fallback module u.n u.context)))

1498+ ?. ?=([%& *] attempt) ~

1499+ ?~ p.attempt ~

1500+ ?. ?=([%& [%fork *]] u.p.attempt) ~

1501+ `p.u.p.attempt

1502+::

1503+:: Keep the proven owner boundary when a nested union refers to itself.

1504+++ contains-named-ref

1505+ |= [node=imported module=term name=term]

1506+ ^- ?

1507+ ?- node

1508+ [%ref *] &(=(module module.node) =(name name.node))

1509+ [%named *] |

1510+ [%face *] $(node body.node)

1511+ [%cell *] |($(node head.node) $(node tail.node))

1512+ [%fork *] (lien cases.node |=(child=imported (contains-named-ref child module name)))

1513+ [%apply *] (lien args.node |=(child=imported (contains-named-ref child module name)))

1514+ * |

1515+ ==

1516+::

11921517++ walk

11931518 |= [module=term typ=type sig=signatures seen=visiting context=(unit type)]

11941519 ^- imported

@@ -1213,6 +1538,19 @@

12131538 [%fork (sort cases |=(pair=[imported imported] (dor -.pair +.pair)))]

12141539 [%hint *] $(typ q.typ)

12151540 [%hold *]

1541+ =/ prior=(unit (unit term)) (find-seen typ seen)

1542+ ?^ prior

1543+ ?~ u.prior [%bad 'an anonymous recursive Hoon mold cannot be named']

1544+ =/ origin (ref-origin module u.u.prior typ context)

1545+ ?~ origin [%bad 'a recursive Hoon mold needs unambiguous source provenance']

1546+ [%ref u.origin u.u.prior]

1547+ =/ nested=(unit imported) (nested-tagged-union module typ context)

1548+ ?^ nested

1549+ ?: ?=(~ seen) u.nested

1550+ =/ name=(unit term) (hold-name q.typ)

1551+ ?~ name u.nested

1552+ ?. (contains-named-ref u.nested module u.name) u.nested

1553+ [%named module u.name u.nested]

12161554 ?: &(?=([%tsls [%note * *] *] q.typ) |((has-spec-cell-union q.typ) (has-spec-general-union q.typ)))

12171555 =/ nm (hold-name q.typ)

12181556 (collection-union typ module sig [[typ nm] seen] context)

@@ -1229,12 +1567,6 @@

12291567 =/ second=type (~(play ut p.typ) (ream '*value'))

12301568 [%apply name ~[first-import $(typ second)]]

12311569 [%apply name ~[first-import]]

1232− =/ prior=(unit (unit term)) (find-seen typ seen)

1233− ?^ prior

1234− ?~ u.prior [%bad 'an anonymous recursive Hoon mold cannot be named']

1235− =/ origin (ref-origin module u.u.prior typ context)

1236− ?~ origin [%bad 'a recursive Hoon mold needs unambiguous source provenance']

1237− [%ref u.origin u.u.prior]

12381570 =/ nm (hold-name q.typ)

12391571 ?: =(nm [~ %vase]) [%bad 'a Hoon type named vase needs source provenance']

12401572 ?: &((source-uses q.typ %jar) !(alias-safe context %jar))

@@ -1245,7 +1577,8 @@

12451577 [%bad 'Hoon collection provenance is unavailable or shadowed']

12461578 =/ mop (mop-arguments typ)

12471579 ?^ mop

1248− [%apply %mop ~[$(typ key.u.mop) $(typ value.u.mop)]]

1580+ :: An exact revisit fails closed without guessing a name.

1581+ [%apply %mop ~[$(typ key.u.mop, seen [[typ ~] seen]) $(typ value.u.mop, seen [[typ ~] seen])]]

12491582 ?: (source-uses q.typ %mop)

12501583 =/ checked-names=(list term) ~[%map %set %qeu %list %unit]

12511584 ?: (lien checked-names |=(n=term &((source-uses q.typ n) !(alias-safe context n))))

@@ -1339,6 +1672,7 @@

13391672 [%bad *] [~ reason.out]

13401673 [%invalid *] [~ reason.out]

13411674 [%face *] $(out body.out)

1675+ [%named *] $(out body.out)

13421676 [%cell *]

13431677 =/ err $(out head.out)

13441678 ?~ err $(out tail.out)

@@ -1366,6 +1700,7 @@

13661700 [%bad *] `[%unsupported reason.out]

13671701 [%invalid *] `[%invalid code.out reason.out]

13681702 [%face *] $(out body.out)

1703+ [%named *] $(out body.out)

13691704 [%cell *]

13701705 =/ first $(out head.out)

13711706 ?~ first $(out tail.out)

@@ -1518,6 +1853,7 @@

15181853 [%cell *] "[{(show-import head.out)} {(show-import tail.out)}]"

15191854 [%face *] "{(trip name.out)}={(show-import body.out)}"

15201855 [%fork *] "(union {(show-imports cases.out)})"

1856+ [%named *] "(named {(trip name.out)}.{(trip module.out)} {(show-import body.out)})"

15211857 [%apply *] "({(trip name.out)} {(show-imports args.out)})"

15221858 [%ref *] "{(trip name.out)}.{(trip module.out)}"

15231859 [%bad *] "error: {(trip reason.out)}"

@@ -1589,6 +1925,49 @@

15891925 ?: ?=(%& -.invalid) "malformed spec accepted"

15901926 "valid wrapper; duplicate and malformed rejected"

15911927::

1928+:: The same named-operand call with Clay-style source-location wrappers.

1929+++ debug-mop-fixture

1930+ |= cor=type

1931+ ^- tape

1932+ =/ typ=type (~(play ut cor) (ream '*mop-wing-valid'))

1933+ ?> ?=([%hold *] typ)

1934+ =/ original=hoon q.typ

1935+ ?> ?=([%tsls [%note * *] *] original)

1936+ =/ body=hoon q.p.original

1937+ ?> ?=([%cncl *] body)

1938+ ?> ?=([%tsgr *] p.body)

1939+ =/ b=hoon q.p.body

1940+ ?> ?=([%cncl *] b)

1941+ =/ call=hoon p.b

1942+ ?> ?=([%cncl *] call)

1943+ ?> ?=([* [* ~]] q.call)

1944+ =/ at=spot [/tests/importer/synthetic/hoon [[1 1] [1 2]]]

1945+ =/ inner=hoon call(p [%dbug at p.call], q ~[[%dbug at i.q.call] [%dbug at i.t.q.call]])

1946+ =/ outer=hoon body(p p.body(q b(p [%dbug at inner])))

1947+ =/ mixed=hoon body(p p.body(q b(p inner)))

1948+ =/ multi=hoon body(p p.body(q b(p call(p [%dbug at [%wing ~[%one %two]]]))))

1949+ =/ plain=(unit [key=spec value=spec]) (mop-specs body)

1950+ ?~ plain "unwrapped mop not recognized"

1951+ ?. =((mop-specs [%dbug at outer]) plain) "wrapped mop not recognized"

1952+ ?. =((mop-specs mixed) plain) "mixed mop not recognized"

1953+ ?^ (mop-specs multi) "multi-segment callee accepted"

1954+ ?^ (mop-specs [%dbug at [%sand %ud 42]]) "malformed call accepted"

1955+ ?^ (source-single-wing [%dbug at 42]) "malformed wing accepted"

1956+ ?^ (source-single-wing [%dbug at [%wing ~[%one %two]]]) "multi-segment operand accepted"

1957+ =/ four=* [%dbug at [%dbug at [%dbug at [%dbug at [%wing ~[%mop]]]]]]

1958+ =/ five=* [%dbug at four]

1959+ ?~ (source-single-wing four) "four wrappers rejected"

1960+ ?^ (source-single-wing five) "wrapper limit exceeded"

1961+ ?~ (source-note-unwrap four 4) "four note wrappers rejected"

1962+ ?^ (source-note-unwrap five 4) "note wrapper limit exceeded"

1963+ =/ selected=(unit hoon) (local-arm-source cor %tag-valid)

1964+ ?~ selected "selected union not found"

1965+ =/ arm-four=hoon [%dbug at [%dbug at [%dbug at [%dbug at u.selected]]]]

1966+ =/ arm-five=hoon [%dbug at arm-four]

1967+ ?~ (tagged-source-code arm-four %tag-valid) "four wrapped selected arms rejected"

1968+ ?^ (tagged-source-code arm-five %tag-valid) "selected arm wrapper limit exceeded"

1969+ "wrapped and mixed calls accepted; malformed, multi-segment and excessive wrappers rejected"

1970+::

15921971:: Synthetic nodes test each part of the direct collection-call proof.

15931972++ collection-wrapper-fixture

15941973 ^- tape

@@ -1668,6 +2047,23 @@

16682047 =/ tag-zuse=@t

16692048 '|%\0a+$ ship @t\0a+$ path @ud\0a+$ choice $%([%ok who=ship] [%err where=path])\0a--\0a'

16702049 =/ tag-zuse-core=type -:(ride -:!>(..zuse) tag-zuse)

2050+ =/ nest-parent-src=@t

2051+ '|%\0a+$ tag-nest-inner $%([%foreign @t] [%foreign @t])\0a--\0a'

2052+ =/ nest-parent=type -:(ride -:!>(..zuse) nest-parent-src)

2053+ =/ nest-child-src=@t

2054+ '|%\0a+$ tag-nest-inner $%([%left @t] [%right @ud])\0a+$ tag-nest-middle $%([%one x=tag-nest-inner] [%two ~])\0a--\0a'

2055+ =/ nest-collision=type -:(ride [%cell [%face %base nest-parent] -:!>(..zuse)] nest-child-src)

2056+ =/ self-parent=type

2057+ -:(ride -:!>(..zuse) '|%\0a+$ tag-self ?(%same %same)\0a--\0a')

2058+ =/ self-child=@t

2059+ '|%\0a+$ tag-self $%([%branch children=(list tag-self)] [%leaf value=@t])\0a--\0a'

2060+ =/ self-collision=type -:(ride [%cell [%face %tag-self self-parent] -:!>(..zuse)] self-child)

2061+ =/ self-other=type

2062+ -:(ride -:!>(..zuse) '|%\0a+$ tag-self $%([%branch children=(list tag-self)] [%leaf value=@ud])\0a--\0a')

2063+ =/ mop-ford-parent=type

2064+ -:(ride -:!>(..zuse) '|%\0a+$ value ?(%same %same)\0a--\0a')

2065+ =/ mop-ford-child=type

2066+ -:(ride [%cell [%face %value mop-ford-parent] -:!>(..zuse)] '|%\0a+$ key @ud\0a+$ value @t\0a+$ mm ((mop key value) lte)\0a--\0a')

16712067 =/ sample

16722068 |= name=term

16732069 (read-mold-in %small name (~(play ut sc) (ream (cat 3 '*' name))) sc)

@@ -1738,6 +2134,16 @@

17382134 (crip "shadow-list-mop: {(show-result (read-mold-in %shadow-static %bad (~(play ut xc) (ream '*bad')) xc))}")

17392135 (crip "named-mop: {(show-result (sample %named-mop))}")

17402136 (crip "mop-list: {(show-result (sample %mop-list))}")

2137+ (crip "mop-wing-valid: {(show-result (sample %mop-wing-valid))}")

2138+ (crip "mop-wing-invalid-key: {(show-result (sample %mop-wing-invalid-key))}")

2139+ (crip "mop-wing-invalid-key-alias: {(show-result (sample %mop-wing-invalid-key-alias))}")

2140+ (crip "mop-wing-invalid-value: {(show-result (sample %mop-wing-invalid-value))}")

2141+ (crip "mop-wing-invalid-value-alias: {(show-result (sample %mop-wing-invalid-value-alias))}")

2142+ (crip "mop-wing-rec-key: {(show-result (sample %mop-wing-rec-key))}")

2143+ (crip "mop-wing-rec-value: {(show-result (sample %mop-wing-rec-value))}")

2144+ (crip "mop-wing-shadow: {(show-result (read-named %shadow %mmw hc))}")

2145+ (crip "mop-wing-ford-collision: {(show-result (read-named %child %mm mop-ford-child))}")

2146+ (crip "mop-wing-debug: {(debug-mop-fixture sc)}")

17412147 (crip "signed: {(show-result (sample %signed))}")

17422148 (crip "float: {(show-result (sample %float))}")

17432149 (crip "gate: {(show-result (sample %gate-test))}")

@@ -1841,6 +2247,35 @@

18412247 (crip "tag-ford-collision: {(show-result (read-named %child %choice tag-collision))}")

18422248 (crip "tag-ford-clean: {(show-result (read-named %child %choice tag-clean))}")

18432249 (crip "tag-zuse-local: {(show-result (read-named %child %choice tag-zuse-core))}")

2250+ (crip "tag-nest-inner: {(show-result (sample %tag-nest-inner))}")

2251+ (crip "tag-nest-middle: {(show-result (sample %tag-nest-middle))}")

2252+ (crip "tag-nest-diamond: {(show-result (sample %tag-nest-diamond))}")

2253+ (crip "tag-nest-deep: {(show-result (sample %tag-nest-deep))}")

2254+ (crip "tag-nest-hidden: {(show-result (sample %tag-nest-hidden))}")

2255+ (crip "tag-nest-overlap: {(show-result (sample %tag-nest-overlap))}")

2256+ (crip "tag-nest-recursive: {(show-result (sample %tag-nest-recursive-outer))}")

2257+ (crip "tag-nest-rec-list: {(show-result (sample %tag-nest-rec-list-outer))}")

2258+ (crip "tag-nest-rec-repeat: {(show-result (sample %tag-nest-rec-repeat))}")

2259+ (crip "tag-nest-rec-duplicate: {(show-result (sample %tag-nest-rec-bad-outer))}")

2260+ (crip "tag-nest-rec-hidden: {(show-result (sample %tag-nest-rec-hidden-outer))}")

2261+ (crip "tag-nest-rec-mutual: {(show-result (sample %tag-nest-rec-mutual-outer))}")

2262+ (crip "tag-nest-rec-outer-overlap: {(show-result (sample %tag-nest-rec-outer-overlap))}")

2263+ (crip "tag-nest-rec-owner: {?:(&((contains-named-ref [%ref %small %tag-self] %small %tag-self) !(contains-named-ref [%named %small %other [%ref %small %tag-self]] %small %tag-self)) "yes" "wrong")}")

2264+ (crip "tag-nest-many: {(show-result (sample %tag-nest-many))}")

2265+ (crip "tag-nest-shadow: {(show-result (read-named %shadow-static %tag-nest-shadow xc))}")

2266+ (crip "tag-nest-wrong-hold: {?~((nested-tagged-union %small (~(play ut other) (ream '*chain')) `sc) "unsupported" "BAD")}")

2267+ (crip "tag-nest-ford-collision: {(show-result (read-named %outer %tag-nest-middle nest-collision))}")

2268+ (crip "tag-self: {(show-result (sample %tag-self))}")

2269+ (crip "tag-self-tail: {(show-result (sample %tag-self-tail))}")

2270+ (crip "tag-self-duplicate: {(show-result (sample %tag-self-duplicate))}")

2271+ (crip "tag-self-hidden: {(show-result (sample %tag-self-hidden))}")

2272+ (crip "tag-self-indirect: {(show-result (sample %tag-self-indirect))}")

2273+ (crip "tag-mutual-a: {(show-result (sample %tag-mutual-a))}")

2274+ (crip "tag-mutual-b: {(show-result (sample %tag-mutual-b))}")

2275+ (crip "tag-self-pair: {(show-result (sample %tag-self-pair))}")

2276+ (crip "tag-self-ford-collision: {(show-result (read-named %child %tag-self self-collision))}")

2277+ (crip "tag-self-wrong-core: {(show-result (read-mold-in %other %tag-self (~(play ut sc) (ream '*tag-self')) self-other))}")

2278+ (crip "tag-flat-large: {?:(&(?=(~ (safe-source-name-mode %tag-fuel-7 sc ~ 256 |)) ?=(^ (safe-source-name-mode %tag-fuel-7 sc ~ 4.096 |)) ?=([%& *] (sample %tag-flat-large))) "supported above 256" "BAD")}")

18442279 (crip "tag-null-good: {(show-result (sample %tag-null-good))}")

18452280 (crip "tag-null-duplicate: {(show-result (sample %tag-null-duplicate))}")

18462281 (crip "tag-null-hidden: {(show-result (sample %tag-null-hidden))}")

jibb-dev/lib/jibb.hoon+4223−228

@@ -874,7 +874,7 @@

874874 %'~[' %'|=(' %'$-(' :: openers

875875 %'%/' %'/' :: paths

876876 %'+' %'`' %'=' :: pair, unit, face

877− %'*' %'?' :: noun, loobean mold

877+ %'*' %'?' %'_' :: noun, loobean, type hole

878878 %'++' %'+$' %'|=' %'|$' :: runes

879879 %'^-' %'~&' %'?-' %'!!' :: runes

880880 %'/-' %'/%' %'/=' :: imports

@@ -1016,6 +1016,7 @@

10161016 [%const at=span =lit] :: ~ %add %.y

10171017 [%ref at=span names=(list term)] :: state item.todo

10181018 [%tvar at=span name=@t] :: M

1019+ [%hole at=span ~] :: _

10191020 [%path at=span segs=(list pseg)] :: / /todos /todo/[id=@ud]

10201021 [%apply at=span ref=(list term) args=(list shape)] :: (list @t)

10211022 [%cell at=span fields=(list field)] :: [text=@t done=?]

@@ -1024,9 +1025,9 @@

10241025 [%generic at=span vars=(list @t) body=shape] :: +$ name |$ [M] …

10251026 ==

10261027::

1027−:: +pseg: a path mold's segment, a knot or [name=aura]

1028+:: +pseg: a path mold's segment, a knot, [name=aura], or [name=_]

10281029::

1029−+$ pseg $%([%knot p=@ta] [%typed at=span name=term aura=@ta])

1030++$ pseg $%([%knot p=@ta] [%typed at=span name=term aura=@ta] [%inferred at=span name=term hole-at=span])

10301031::

10311032+| %api

10321033::

@@ -1295,6 +1296,7 @@

12951296 (emit 1 %'=')

12961297 ?: =('`' a) (emit 1 %'`')

12971298 ?: =('*' a) (emit 1 %'*')

1299+ ?: =('_' a) (emit 1 %'_')

12981300 ?: =('~' a)

12991301 ?: =('[' b) (emit 2 %'~[')

13001302 ?: =('&' b) (emit 2 %'~&')

@@ -1670,14 +1672,14 @@

16701672:: What may begin each place the parser reads (section 3, Errors):

16711673:: an expression a-z 0-9 " ( [ ~ % / ` | ^ ? !

16721674:: an operand a-z 0-9 " ( [ ~ % / ` | !

1673−:: a mold a-z A-Z @ * ! ? ~ % / ( [ $

1675+:: a mold a-z A-Z @ * ! ? ~ % / ( [ $ _

16741676:: a pattern a-z 0-9 " ~ % * [

16751677:: and what may go tight after an operand: . ( + = after a name, a

16761678:: closer ) ] }, or the : of a comment

16771679::

16781680++ expr-mask 0x57ff.ffff.4800.0000.83ff.8126.0000.0000

16791681++ operand-mask 0x57ff.ffff.0800.0000.03ff.8126.0000.0000

1680−++ mold-mask 0x47ff.fffe.0fff.ffff.8000.8532.0000.0000

1682+++ mold-mask 0x47ff.fffe.8fff.ffff.8000.8532.0000.0000

16811683++ bar-mask 0x1000.0000.0000.0000.0000.0000.0000.0000

16821684++ pattern-mask 0x47ff.fffe.0800.0000.03ff.0424.0000.0000

16831685++ after-mask 0x2000.0000.2000.0000.2400.4b00.0000.0000

@@ -2107,6 +2109,7 @@

21072109 ?- -.s

21082110 %knot (weld "/" (trip p.s))

21092111 %typed "/[{(trip name.s)}=@{(trip aura.s)}]"

2112+ %inferred "/[{(trip name.s)}=_]"

21102113 ==

21112114::

21122115++ show-tvars

@@ -2318,6 +2321,7 @@

23182321 %const (nod "const" at.s (show-lit lit.s) ~)

23192322 %ref (nod "ref" at.s (show-names names.s) ~)

23202323 %tvar (nod "tvar" at.s (trip name.s) ~)

2324+ %hole (nod "hole" at.s "" ~)

23212325 %path (nod "path" at.s (show-psegs segs.s) ~)

23222326 %apply (nod "apply" at.s (show-names ref.s) (turn args.s sexp-shape))

23232327 %cell (nod "cell" at.s "" (turn fields.s sexp-field))

@@ -3842,6 +3846,7 @@

38423846 %'*' [%& [%noun at.t ~] t.ts]

38433847 %'!!' [%& [%void at.t ~] t.ts]

38443848 %'?' [%& [%flag at.t ~] t.ts]

3849+ %'_' [%& [%hole at.t ~] t.ts]

38453850 [%name *] [%& [%ref at.t ~[p.lex.t]] t.ts]

38463851 [%wing *] [%& [%ref at.t p.lex.t] t.ts]

38473852 [%tvar *] [%& [%tvar at.t p.lex.t] t.ts]

@@ -4058,7 +4063,7 @@

40584063 ?: &(?=(^ nex) tight.i.nex) (bad nex "a path segment")

40594064 (bad-space i.after nex "a path segment")

40604065 ::

4061− :: +read-pseg: a path mold's segment, a knot or [name=aura] with no

4066+ :: +read-pseg: a path mold's knot, [name=aura], or [name=_] with no

40624067 :: spaces, and where it ends

40634068 ::

40644069 ++ read-pseg

@@ -4075,13 +4080,16 @@

40754080 ?: |(?=(~ r2) !tight.i.r2) (bad-space i.r1 r2 "`=`")

40764081 ?. ?=([[* * %'='] *] r2) (bad-in r2 "`=`" tis-mask)

40774082 =/ r3=(list token) t.r2

4078− ?: |(?=(~ r3) !tight.i.r3) (bad-space i.r2 r3 "an aura")

4079− ?. ?=([[* * [%aura *]] *] r3) (bad-in r3 "an aura" pat-mask)

4083+ ?: |(?=(~ r3) !tight.i.r3) (bad-space i.r2 r3 "an aura or type hole")

4084+ ?. ?=([[* * ?([%aura *] %'_')] *] r3) (bad-in r3 "an aura or type hole" (con pat-mask (bex 95)))

40804085 =/ r4=(list token) t.r3

40814086 ?: |(?=(~ r4) !tight.i.r4) (bad-space i.r3 r4 "`]`")

40824087 ?. ?=([[* * %']'] *] r4) (bad-in r4 "`]`" ser-mask)

40834088 =/ at=span [beg.at.op end.at.i.r4]

4084− [%& [[%typed at p.lex.i.r1 p.lex.i.r3] end.at.i.r4] t.r4]

4089+ =/ seg=pseg

4090+ ?: ?=(%'_' lex.i.r3) [%inferred at p.lex.i.r1 at.i.r3]

4091+ [%typed at p.lex.i.r1 p.lex.i.r3]

4092+ [%& [seg end.at.i.r4] t.r4]

40854093 --

40864094::

40874095+| %span-check

@@ -4465,6 +4473,7 @@

44654473 %const [%const at.s ~[%lit] %one ~]

44664474 %ref [%ref at.s ~[%name %wing] %one ~]

44674475 %tvar [%tvar at.s ~[%tvar] %one ~]

4476+ %hole [%hole at.s ~[%'_'] %one ~]

44684477 %apply [%apply at.s ~[%'('] %shut (turn args.s outline-shape)]

44694478 %cell [%cell at.s ~[%'['] %shut (turn fields.s outline-sample)]

44704479 ::

@@ -4473,8 +4482,11 @@

44734482 %+ murn segs.s

44744483 |= g=pseg

44754484 ^- (unit outline)

4476− ?. ?=(%typed -.g) ~

4477− `[%typed at.g ~[%'['] %shut ~]

4485+ ?- -.g

4486+ %knot ~

4487+ %typed `[%typed at.g ~[%'['] %shut ~]

4488+ %inferred `[%typed at.g ~[%'['] %shut ~[[%hole hole-at.g ~[%'_'] %one ~]]]

4489+ ==

44784490 [%path at.s ~[%'/'] %run ks]

44794491 ::

44804492 %union

@@ -4534,6 +4546,8 @@

45344546 [%path [1 9] [1 9] [1 21]]

45354547 [%face [1 7] [1 7] [1 21]]

45364548 ==

4549+ :: an inferred path aura's hole spanning its = as well

4550+ ['+$ x /a/[id=_]' ~[[%hole [1 13] [1 12] [1 14]]]]

45374551 :: an import's path cut short

45384552 ['/= c /ui/c' ~[[%jibb [1 1] [1 1] [1 11]]]]

45394553 :: brackets that close with the deeper lines, cut at their line's

@@ -4593,6 +4607,8 @@

45934607:: Atom constraints tied to an explicit capital or an inferred sample

45944608:: are generalized and printed. Other aura variables remain unsupported until

45954609:: their defaulting and inferred generalization are implemented.

4610+:: Restricted-number promotion considers written capitals only; if there

4611+:: are none, it skips the otherwise unnecessary environment traversal.

45964612:: Bare @ is a separate unrestricted atom type. A directional fit check

45974613:: permits concrete atoms to widen to it, never the reverse. A fit that

45984614:: needs a not-yet-implemented constraint remains unsupported. Named unions

@@ -4600,19 +4616,64 @@

46004616:: from their display name. Generic cases must be disjoint for all arguments.

46014617:: Unnamed union printing is informational; it is not Jibb syntax.

46024618::

4619+:: `proj` is a reserved, type-directed operation, not an ordinary gate.

4620+:: The supported fragment selects uniquely faced fields from a known record

4621+:: in source order (reordering is a doc question). It records the original

4622+:: call, source and target types, and source axes with its definition;

4623+:: A single selected field keeps its face and uses one source axis.

4624+:: Checked module interfaces retain that evidence and their source, including

4625+:: the private prelude dependency. A later lowerer must replace the call by

4626+:: an inline gate applied to the operand once; no lowering is implemented yet.

4627+:: Ordinary fits never insert a projection. Unknown or variable-origin record

4628+:: spines, nested projected fields and projections in

4629+:: recursive groups remain unsupported. Directional fits bound faced-spine

4630+:: proofs to fewer than 1,024 cells; the projection planner has a separate

4631+:: 4,096-step bound. These are inference limits, not language limits.

4632+::

4633+:: Supported API imports derive request-gate types atomically for multiple

4634+:: paths, including one typed segment or one diff fold per case. Their checked

4635+:: ordinary definitions, mark molds and supported poke constructor are also

4636+:: exported. A selected /sur mold is checked through its trusted reader result;

4637+:: unused cores and other bindings are not independently validated. APIs

4638+:: with /= imports, separate scry paths, multiple parameters or diffs, or a

4639+:: parameter together with a fold remain unsupported. The unchanged todo API

4640+:: fits this fragment, including named closed fold gates.

4641+::

4642+:: Each case's source-derived schema and canonical API identity travel in a

4643+:: dependency closure bound to the exact supplied bundle, prelude, scope and

4644+:: trusted reader results. Unknown cached entries are rebuilt. Request-bearing

4645+:: closures are limited to 256 source paths and requests. This is type

4646+:: inference only: no request lowering, runtime schema validator or proof that

4647+:: an arbitrary ask value is watchable is supplied.

4648+::

4649+:: A closed gate sample may omit one outer face from a known input slot when

4650+:: its product is identical. Distinct written names, nested value faces,

4651+:: ambiguous cell tails and raw-variable-origin fits retain their prior rules.

4652+::

4653+:: In one synthetic eval of a 48-module deep and 48-module wide request-free

4654+:: graph, baseline versus certificate inference took 21.53 s versus 23.10 s

4655+:: elapsed (21.10 s versus 22.34 s CPU), including startup. The deep cache's

4656+:: jam grew from 2,402 to 4,209 bytes (+1,807 bytes). These single-run figures

4657+:: are not production memory or performance benchmarks.

4658+::

46034659+$ itype

46044660 $~ [%var 0]

46054661 $% [%var id=@ud]

46064662 [%avar id=@ud]

4663+ [%rvar id=@ud]

46074664 [%nvar id=@ud]

4665+ [%rnvar id=@ud]

46084666 [%atom aura=@ta]

46094667 [%any-atom ~]

46104668 [%flag ~]

46114669 [%noun ~]

4670+ [%empty ~]

46124671 [%tag id=@ud literal=lit constructor=?]

46134672 [%const literal=lit]

46144673 [%collection name=term args=(list itype)]

46154674 [%recursive module=term name=term label=(unit @t)]

4675+ [%jrec at=path name=term label=(unit @t) head=term aura=@ta tail=term]

4676+ [%grec at=path name=term label=(unit @t) proof=shape args=(list itype)]

46164677 [%union cases=(list itype) origin=(unit [at=path name=term]) label=(unit @t) args=(list itype)]

46174678 [%face name=term body=itype]

46184679 [%fn sample=itype product=itype]

@@ -4636,21 +4697,117 @@

46364697 %var

46374698 =/ found=(unit itype) (itype-lookup id.t sub)

46384699 ?~ found t

4700+ ?: &(|(?=(%rvar -.u.found) ?=(%rnvar -.u.found)) =(id.t +.u.found)) u.found

46394701 $(t u.found)

46404702 %avar

46414703 =/ found=(unit itype) (itype-lookup id.t sub)

46424704 ?~ found t

4705+ ?: &(|(?=(%rvar -.u.found) ?=(%rnvar -.u.found)) =(id.t +.u.found)) u.found

4706+ $(t u.found)

4707+ %rvar

4708+ =/ found=(unit itype) (itype-lookup id.t sub)

4709+ ?~ found t

4710+ ?: &(|(?=(%rvar -.u.found) ?=(%rnvar -.u.found)) =(id.t +.u.found)) u.found

46434711 $(t u.found)

46444712 %nvar

46454713 =/ found=(unit itype) (itype-lookup id.t sub)

46464714 ?~ found t

4715+ ?: &(|(?=(%rvar -.u.found) ?=(%rnvar -.u.found)) =(id.t +.u.found)) u.found

4716+ $(t u.found)

4717+ %rnvar

4718+ =/ found=(unit itype) (itype-lookup id.t sub)

4719+ ?~ found t

4720+ ?: &(|(?=(%rvar -.u.found) ?=(%rnvar -.u.found)) =(id.t +.u.found)) u.found

46474721 $(t u.found)

46484722 %tag

46494723 =/ found=(unit itype) (itype-lookup id.t sub)

46504724 ?~ found t

4725+ ?: &(|(?=(%rvar -.u.found) ?=(%rnvar -.u.found)) =(id.t +.u.found)) u.found

46514726 $(t u.found)

46524727 ==

46534728::

4729+:: Prove only emptiness; unknown types are never treated as empty.

4730+:: A shared node budget bounds each proof attempt.

4731+++ itype-empty-cases

4732+ |= [xs=(list itype) sub=isub fuel=@ud]

4733+ ^- (unit [empty=? left=@ud])

4734+ ?~ xs `[& fuel]

4735+ =/ first=(unit [empty=? left=@ud]) (itype-empty-proof i.xs sub fuel)

4736+ ?~ first ~

4737+ ?. empty.u.first `[| left.u.first]

4738+ $(xs t.xs, fuel left.u.first)

4739+++ itype-empty-proof

4740+ |= [typ=itype sub=isub fuel=@ud]

4741+ ^- (unit [empty=? left=@ud])

4742+ ?: =(0 fuel) ~

4743+ =. fuel (dec fuel)

4744+ =. typ (itype-walk typ sub)

4745+ ?- -.typ

4746+ %empty `[& fuel]

4747+ %face $(typ body.typ)

4748+ %cell

4749+ =/ left=(unit [empty=? left=@ud]) $(typ hed.typ)

4750+ ?~ left ~

4751+ ?: empty.u.left `[& left.u.left]

4752+ $(typ tal.typ, fuel left.u.left)

4753+ %union (itype-empty-cases cases.typ sub fuel)

4754+ * `[| fuel]

4755+ ==

4756+:: Prove reachability separately from emptiness. An unresolved fixed

4757+:: recursive type is not presumed inhabited. A written, still-unconstrained

4758+:: capital is existentially inhabited for pattern reachability; the normal

4759+:: definition-boundary checks reject subsequently constrained capitals.

4760+++ itype-inhabited-cases

4761+ |= [xs=(list itype) sub=isub caps=icaps fuel=@ud pending=?]

4762+ ^- (unit [result=?(%yes %no %unknown) left=@ud])

4763+ ?~ xs `[?:(pending %unknown %no) fuel]

4764+ =/ first=(unit [result=?(%yes %no %unknown) left=@ud])

4765+ (itype-inhabited-proof i.xs sub caps fuel)

4766+ ?~ first ~

4767+ ?: =(%yes result.u.first) first

4768+ $(xs t.xs, fuel left.u.first, pending |(pending =(%unknown result.u.first)))

4769+++ itype-inhabited-proof

4770+ |= [typ=itype sub=isub caps=icaps fuel=@ud]

4771+ ^- (unit [result=?(%yes %no %unknown) left=@ud])

4772+ ?: =(0 fuel) ~

4773+ =. fuel (dec fuel)

4774+ =. typ (itype-walk typ sub)

4775+ ?- -.typ

4776+ %empty `[%no fuel]

4777+ ?(%atom %any-atom %flag %const %noun %avar %rvar %nvar %rnvar %fn %jrec) `[%yes fuel]

4778+ %var

4779+ ?: (lien caps |=(c=icap (hole-same-variable typ (itype-walk [%var id.c] sub)))) `[%yes fuel]

4780+ `[%unknown fuel]

4781+ %face $(typ body.typ)

4782+ %cell

4783+ =/ head=(unit [result=?(%yes %no %unknown) left=@ud]) $(typ hed.typ)

4784+ ?~ head ~

4785+ ?: =(%no result.u.head) head

4786+ =/ tail=(unit [result=?(%yes %no %unknown) left=@ud]) $(typ tal.typ, fuel left.u.head)

4787+ ?~ tail ~

4788+ ?: =(%no result.u.tail) tail

4789+ ?: |(=(%unknown result.u.head) =(%unknown result.u.tail)) `[%unknown left.u.tail]

4790+ `[%yes left.u.tail]

4791+ %union (itype-inhabited-cases cases.typ sub caps fuel |)

4792+ %collection

4793+ ?. &(|(=(%list name.typ) =(%unit name.typ)) ?=([* ~] args.typ)) `[%unknown fuel]

4794+ `[%yes fuel]

4795+ %grec ?:((grec-tree-proof name.typ proof.typ) `[%yes fuel] `[%unknown fuel])

4796+ * `[%unknown fuel]

4797+ ==

4798+++ itype-live-cases

4799+ |= [xs=(list itype) sub=isub caps=icaps fuel=@ud]

4800+ ^- (unit (list itype))

4801+ ?~ xs `~

4802+ =/ first=(unit [result=?(%yes %no %unknown) left=@ud])

4803+ (itype-inhabited-proof i.xs sub caps fuel)

4804+ ?~ first ~

4805+ ?: =(%unknown result.u.first) ~

4806+ =/ rest=(unit (list itype)) $(xs t.xs, fuel left.u.first)

4807+ ?~ rest ~

4808+ ?: =(%no result.u.first) rest

4809+ `[i.xs u.rest]

4810+::

46544811++ itype-occurs

46554812 |= [n=@ud t=itype sub=isub]

46564813 ^- ?

@@ -4658,15 +4815,20 @@

46584815 ?- -.t

46594816 %var =(n id.t)

46604817 %avar =(n id.t)

4818+ %rvar =(n id.t)

46614819 %nvar =(n id.t)

4820+ %rnvar =(n id.t)

46624821 %atom |

46634822 %any-atom |

46644823 %flag |

46654824 %noun |

4825+ %empty |

46664826 %tag =(n id.t)

46674827 %const |

46684828 %union |((lien cases.t |=(c=itype (itype-occurs n c sub))) (lien args.t |=(c=itype (itype-occurs n c sub))))

46694829 %recursive |

4830+ %jrec |

4831+ %grec (lien args.t |=(c=itype (itype-occurs n c sub)))

46704832 %collection (lien args.t |=(c=itype (itype-occurs n c sub)))

46714833 %face $(t body.t)

46724834 %fn |($(t sample.t) $(t product.t))

@@ -4685,6 +4847,11 @@

46854847 =. a (itype-walk a sub)

46864848 =. b (itype-walk b sub)

46874849 ?: =(a b) `sub

4850+ ?: &(?=(%grec -.a) ?=(%grec -.b))

4851+ ?. &(=(at.a at.b) =(name.a name.b)) ~

4852+ (itype-unify-args args.a args.b sub)

4853+ ?: &(?=(%jrec -.a) ?=(%jrec -.b))

4854+ ?:(&(=(at.a at.b) =(name.a name.b) =(head.a head.b) =(aura.a aura.b) =(tail.a tail.b)) `sub ~)

46884855 ?: &(?=(%recursive -.a) ?=(%recursive -.b))

46894856 ?:(&(=(module.a module.b) =(name.a name.b)) `sub ~)

46904857 ?: &(?=(%union -.a) ?=(%union -.b))

@@ -4701,6 +4868,32 @@

47014868 ?: ?=(%var -.b)

47024869 ?: (itype-occurs id.b a sub) ~

47034870 `[[id.b a] sub]

4871+ :: Arithmetic's aura variable excludes loobeans; decimal literals

4872+ :: remain defaultable until a later constraint makes them concrete.

4873+ ?: &(?=(%nvar -.a) ?=(%rvar -.b))

4874+ `[[id.b [%rnvar id.a]] [id.a [%rnvar id.a]] sub]

4875+ ?: &(?=(%rvar -.a) ?=(%nvar -.b))

4876+ `[[id.a [%rnvar id.b]] [id.b [%rnvar id.b]] sub]

4877+ ?: &(?=(%rnvar -.a) ?=(%rvar -.b)) `[[id.b a] sub]

4878+ ?: &(?=(%rvar -.a) ?=(%rnvar -.b)) `[[id.a b] sub]

4879+ ?: &(?=(%rnvar -.a) ?=(%nvar -.b)) `[[id.b a] sub]

4880+ ?: &(?=(%nvar -.a) ?=(%rnvar -.b)) `[[id.a b] sub]

4881+ ?: &(?=(%rnvar -.a) ?=(%avar -.b)) `[[id.b a] sub]

4882+ ?: &(?=(%avar -.a) ?=(%rnvar -.b)) `[[id.a b] sub]

4883+ ?: ?=(%rnvar -.a)

4884+ ?. |(?=(%rnvar -.b) ?=(%atom -.b)) ~

4885+ `[[id.a b] sub]

4886+ ?: ?=(%rnvar -.b)

4887+ ?. ?=(%atom -.a) ~

4888+ `[[id.b a] sub]

4889+ ?: &(?=(%avar -.a) ?=(%rvar -.b)) `[[id.a b] sub]

4890+ ?: &(?=(%rvar -.a) ?=(%avar -.b)) `[[id.b a] sub]

4891+ ?: ?=(%rvar -.a)

4892+ ?. |(?=(%rvar -.b) ?=(%atom -.b)) ~

4893+ `[[id.a b] sub]

4894+ ?: ?=(%rvar -.b)

4895+ ?. ?=(%atom -.a) ~

4896+ `[[id.b a] sub]

47044897 :: The narrower decimal constraint survives a match with an atom

47054898 :: variable; decimal syntax alone does not make it a loobean.

47064899 ?: &(?=(%nvar -.a) ?=(%avar -.b)) `[[id.b a] sub]

@@ -4755,15 +4948,20 @@

47554948 ?- -.t

47564949 %var |

47574950 %avar |

4951+ %rvar |

47584952 %nvar |

4953+ %rnvar |

47594954 %atom |

47604955 %any-atom &

47614956 %flag |

47624957 %noun |

4958+ %empty |

47634959 %tag |

47644960 %const |

47654961 %union |((lien cases.t |=(c=itype (itype-has-any-atom c sub))) (lien args.t |=(c=itype (itype-has-any-atom c sub))))

47664962 %recursive |

4963+ %jrec |

4964+ %grec (lien args.t |=(c=itype (itype-has-any-atom c sub)))

47674965 %collection (lien args.t |=(c=itype (itype-has-any-atom c sub)))

47684966 %face $(t body.t)

47694967 %fn |($(t sample.t) $(t product.t))

@@ -4826,15 +5024,20 @@

48265024 ?- -.typ

48275025 %var |

48285026 %avar |

5027+ %rvar |

48295028 %nvar |

5029+ %rnvar |

48305030 %atom &

48315031 %any-atom &

48325032 %flag &

48335033 %noun |

5034+ %empty |

48345035 %tag &

48355036 %const &

48365037 %union |((lien cases.typ |=(c=itype (itype-has-fixed-atom c))) (lien args.typ |=(c=itype (itype-has-fixed-atom c))))

48375038 %recursive |

5039+ %jrec |

5040+ %grec (lien args.typ |=(c=itype (itype-has-fixed-atom c)))

48385041 %collection (lien args.typ |=(c=itype (itype-has-fixed-atom c)))

48395042 %face $(typ body.typ)

48405043 %fn |($(typ sample.typ) $(typ product.typ))

@@ -4863,6 +5066,7 @@

48635066 ^- ?

48645067 =. t (itype-walk t sub)

48655068 ?- -.t

5069+ %grec (lien args.t |=(c=itype (itype-has-face c sub)))

48665070 %collection (lien args.t |=(c=itype (itype-has-face c sub)))

48675071 %face &

48685072 %cell |($(t hed.t) $(t tal.t))

@@ -4870,6 +5074,42 @@

48705074 * |

48715075 ==

48725076::

5077+:: Closed function samples may omit a slot face, but a known name must

5078+:: match another known name. Keep nested value faces and require exact

5079+:: invariant compatibility; a faced tail against a cell is ambiguous.

5080+++ itype-closed-slot-match

5081+ |= [a=itype b=itype]

5082+ ^- ?

5083+ ?: &(?=(%face -.a) ?=(%face -.b))

5084+ ?. =(name.a name.b) |

5085+ ?=(^ (itype-unify body.a body.b ~))

5086+ ?: ?=(%face -.a) ?=(^ (itype-unify body.a b ~))

5087+ ?: ?=(%face -.b) ?=(^ (itype-unify a body.b ~))

5088+ ?=(^ (itype-unify a b ~))

5089+++ itype-closed-sample-match

5090+ |= [a=itype b=itype fuel=@ud]

5091+ ^- ?

5092+ ?: =(0 fuel) |

5093+ ?. &(?=(%cell -.a) ?=(%cell -.b)) |

5094+ ?. (itype-closed-slot-match hed.a hed.b) |

5095+ =/ x=itype tal.a

5096+ =/ y=itype tal.b

5097+ ?: &(?=(%cell -.x) ?=(%cell -.y))

5098+ ?=(^ (itype-unify x y ~))

5099+ ?: |(&(?=(%face -.x) ?=(%cell -.y)) &(?=(%cell -.x) ?=(%face -.y))) |

5100+ (itype-closed-slot-match x y)

5101+++ itype-closed-gates-match

5102+ |= [a=itype b=itype]

5103+ ^- ?

5104+ ?. &(?=(%fn -.a) ?=(%fn -.b)) |

5105+ ?. &(?=(%cell -.sample.a) ?=(%cell -.sample.b)) |

5106+ ?. =(product.a product.b) |

5107+ ?^ (itype-vars a) |

5108+ ?^ (itype-vars b) |

5109+ ?: |((itype-has-tag a) (itype-has-tag b)) |

5110+ ?. (itype-closed-sample-match sample.a sample.b 1.024) |

5111+ ?=(^ (itype-unify product.a product.b ~))

5112+::

48735113++ itype-face-asym-collection-args

48745114 |= [as=(list itype) bs=(list itype) sub=isub]

48755115 ^- ?

@@ -4883,12 +5123,15 @@

48835123 ^- ?

48845124 =. a (itype-walk a sub)

48855125 =. b (itype-walk b sub)

5126+ ?: &(?=(%grec -.a) ?=(%grec -.b))

5127+ ?. &(=(at.a at.b) =(name.a name.b)) |

5128+ (itype-face-asym-collection-args args.a args.b sub)

48865129 ?: &(?=(%collection -.a) ?=(%collection -.b))

48875130 ?. =(name.a name.b) |

48885131 (itype-face-asym-collection-args args.a args.b sub)

48895132 ?: &(?=(%face -.a) ?=(%face -.b)) $(a body.a, b body.b)

4890− ?: ?=(%face -.a) !|(?=(%var -.b) ?=(%avar -.b) ?=(%nvar -.b))

4891− ?: ?=(%face -.b) !|(?=(%var -.a) ?=(%avar -.a) ?=(%nvar -.a))

5133+ ?: ?=(%face -.a) !|(?=(%var -.b) ?=(%avar -.b) ?=(%rvar -.b) |(?=(%nvar -.b) ?=(%rnvar -.b)))

5134+ ?: ?=(%face -.b) !|(?=(%var -.a) ?=(%avar -.a) ?=(%rvar -.a) |(?=(%nvar -.a) ?=(%rnvar -.a)))

48925135 ?: &(?=(%cell -.a) ?=(%cell -.b)) |($(a hed.a, b hed.b) $(a tal.a, b tal.b))

48935136 ?: &(?=(%fn -.a) ?=(%fn -.b)) |($(a sample.a, b sample.b) $(a product.a, b product.b))

48945137 |

@@ -4911,6 +5154,30 @@

49115154 [%cell $(actual hed.actual, expected hed.expected) $(actual tal.actual, expected tal.expected)]

49125155 expected

49135156::

5157+:: Positional call arguments do not write the sample's enclosing field

5158+:: labels. Ignore one raw sample-slot face per written argument while

5159+:: checking value faces as usual. An unknown or variable-bound cell spine

5160+:: cannot justify this distinction, so keep the existing conservative guard.

5161+++ itype-positional-slot-face-asym

5162+ |= [actual=itype expected=itype sub=isub]

5163+ ^- ?

5164+ ?: &(?=(%fn -.actual) ?=(%fn -.expected) (itype-closed-gates-match actual expected)) |

5165+ (itype-face-asym actual expected sub)

5166+::

5167+++ itype-positional-face-asym

5168+ |= [args=(list expr) actual=itype expected=itype sub=isub]

5169+ ^- ?

5170+ ?~ args &

5171+ ?~ t.args

5172+ =/ slot=itype expected

5173+ =? slot ?=(%face -.slot) body.slot

5174+ (itype-positional-slot-face-asym actual slot sub)

5175+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) &

5176+ =/ slot=itype hed.expected

5177+ =? slot ?=(%face -.slot) body.slot

5178+ ?: (itype-positional-slot-face-asym hed.actual slot sub) &

5179+ $(args t.args, actual tal.actual, expected tal.expected)

5180+::

49145181++ itype-output-may-be-cell

49155182 |= [t=itype sub=isub]

49165183 ^- ?

@@ -4920,6 +5187,8 @@

49205187 %cell &

49215188 %union &

49225189 %recursive &

5190+ %jrec &

5191+ %grec &

49235192 %noun &

49245193 %collection &

49255194 %face $(t body.t)

@@ -4949,6 +5218,7 @@

49495218 ^- ?

49505219 ?- -.t

49515220 %tag &

5221+ %grec (lien args.t |=(c=itype (itype-has-tag c)))

49525222 %collection (lien args.t |=(c=itype (itype-has-tag c)))

49535223 %face $(t body.t)

49545224 %fn |($(t sample.t) $(t product.t))

@@ -4962,6 +5232,7 @@

49625232 ^- ?

49635233 ?- -.t

49645234 %union &

5235+ %grec (lien args.t |=(c=itype (itype-has-union c)))

49655236 %collection (lien args.t |=(c=itype (itype-has-union c)))

49665237 %face $(t body.t)

49675238 %fn |($(t sample.t) $(t product.t))

@@ -4980,6 +5251,7 @@

49805251 %union

49815252 ?: &(?=(~ label.t) ?=(^ args.t)) &

49825253 (lien (weld args.t cases.t) |=(c=itype (itype-has-hidden-generic c)))

5254+ %grec |(?=(~ label.t) (lien args.t |=(c=itype (itype-has-hidden-generic c))))

49835255 %collection (lien args.t |=(c=itype (itype-has-hidden-generic c)))

49845256 %face $(t body.t)

49855257 %fn |($(t sample.t) $(t product.t))

@@ -4992,6 +5264,8 @@

49925264 ^- ?

49935265 ?- -.t

49945266 %recursive &

5267+ %jrec &

5268+ %grec &

49955269 %collection (lien args.t |=(c=itype (itype-has-recursive c)))

49965270 %union (lien (weld args.t cases.t) |=(c=itype (itype-has-recursive c)))

49975271 %face $(t body.t)

@@ -5005,6 +5279,8 @@

50055279 ^- ?

50065280 ?- -.t

50075281 %recursive ?=(~ label.t)

5282+ %jrec ?=(~ label.t)

5283+ %grec |(?=(~ label.t) (lien args.t |=(c=itype (itype-has-hidden-recursive c))))

50085284 %collection (lien args.t |=(c=itype (itype-has-hidden-recursive c)))

50095285 %union (lien (weld args.t cases.t) |=(c=itype (itype-has-hidden-recursive c)))

50105286 %face $(t body.t)

@@ -5032,34 +5308,85 @@

50325308 $(cases t.cases, good `trial)

50335309 ==

50345310::

5035−:: A constructor needs a case with its tag at the head and a payload

5036−:: compatible with the expected gate sample. Other case forms do not

5037−:: identify a constructor.

5311+:: A constructor needs a case whose head has the same literal noun as its

5312+:: tag. An unresolved or opaque case may reveal one later, so it cannot

5313+:: prove a mismatch or a unique match. A broad atom mold is not a case.

50385314::

50395315++ itype-fit-ctor-cases

50405316 |= [tag=lit sample=itype cases=(list itype) sub=isub next=@ud]

50415317 ^- ifit

50425318 =/ found=(unit ifit) ~

5319+ =/ pending=? |

50435320 |-

5044− ?~ cases ?~(found [%bad ~] u.found)

5045− =/ c=itype (itype-walk i.cases sub)

5321+ ?~ cases

5322+ ?: pending [%unknown ~]

5323+ ?~ found [%bad ~]

5324+ u.found

5325+ =/ raw=itype i.cases

5326+ ?: ?=(%var -.raw)

5327+ $(cases t.cases, pending &)

5328+ =/ c=itype (itype-walk raw sub)

5329+ ?: ?=(?(%var %tag %recursive %jrec %grec %union %face) -.c)

5330+ $(cases t.cases, pending &)

50465331 ?. ?=(%cell -.c) $(cases t.cases)

5047− =/ head=itype (itype-walk hed.c sub)

5332+ =/ raw-head=itype hed.c

5333+ ?: ?=(%var -.raw-head)

5334+ $(cases t.cases, pending &)

5335+ =/ head=itype (itype-walk raw-head sub)

5336+ :: A single faced, explicitly atom-only head cannot be the tag case.

5337+ :: Do not follow variables or peel nested faces for this negative proof.

5338+ ?: ?=(%face -.head)

5339+ ?: ?=(?(%atom %any-atom %flag %avar %rvar %nvar %rnvar) -.body.head)

5340+ $(cases t.cases)

5341+ $(cases t.cases, pending &)

5342+ ?: ?=(?(%var %tag %recursive %jrec %grec %union) -.head)

5343+ $(cases t.cases, pending &)

50485344 ?. ?=(%const -.head) $(cases t.cases)

5049− ?. =(%term form.literal.head) $(cases t.cases)

50505345 ?. =(val.literal.head val.tag) $(cases t.cases)

5051− ?^ found [%unknown ~]

5346+ :: Equal heads can have disjoint payloads. Test each from the original

5347+ :: substitution; a unique success is usable only with no unknown rival.

50525348 =/ trial=ifit (itype-fit sample tal.c sub next)

5053− $(cases t.cases, found `trial)

5349+ ?- -.trial

5350+ %bad $(cases t.cases)

5351+ %unknown $(cases t.cases, pending &)

5352+ %ok

5353+ ?^ found [%unknown ~]

5354+ $(cases t.cases, found `trial)

5355+ ==

50545356::

50555357++ itype-fit

50565358 |= [actual=itype expected=itype sub=isub next=@ud]

50575359 ^- ifit

5360+ =/ result=ifit (itype-fit-inner actual expected sub next | |)

5361+ ?: ?=(%ok -.result) result

5362+ =/ source=itype (itype-walk actual sub)

5363+ ?. ?=(?(%empty %face %cell %union) -.source) result

5364+ =/ empty=(unit [empty=? left=@ud]) (itype-empty-proof actual sub 256)

5365+ ?~ empty [%unknown ~]

5366+ ?: empty.u.empty [%ok sub next]

5367+ result

5368+++ itype-fit-inner

5369+ |= [actual=itype expected=itype sub=isub next=@ud skip-width=? spine-proof=?]

5370+ ^- ifit

5371+ ?: &(!skip-width ?=(%cell -.actual) ?=(%cell -.expected) |((width-spine-exhausted actual 1.024) (width-spine-exhausted expected 1.024)))

5372+ [%unknown ~]

5373+ =/ known=(unit [source=iwfields target=iwfields])

5374+ ?: skip-width ~

5375+ (width-known-shape actual expected sub)

5376+ =/ too-wide=? ?~(known | (gth (lent order.source.u.known) (lent order.target.u.known)))

5377+ ?: too-wide [%unknown ~]

5378+ =/ spine-checked=? |(spine-proof ?=(^ known))

50585379 =/ uncertain=?

5059− |(?=(%var -.actual) ?=(%avar -.actual) ?=(%nvar -.actual) ?=(%var -.expected) ?=(%avar -.expected) ?=(%nvar -.expected))

5380+ |(?=(%var -.actual) ?=(%avar -.actual) ?=(%rvar -.actual) |(?=(%nvar -.actual) ?=(%rnvar -.actual)) ?=(%var -.expected) ?=(%avar -.expected) ?=(%rvar -.expected) |(?=(%nvar -.expected) ?=(%rnvar -.expected)))

5381+ =/ actual-open=?

5382+ |(?=(%var -.actual) ?=(%avar -.actual) ?=(%rvar -.actual) |(?=(%nvar -.actual) ?=(%rnvar -.actual)))

50605383 =. actual (itype-walk actual sub)

50615384 =. expected (itype-walk expected sub)

50625385 ?: =(actual expected) [%ok sub next]

5386+ ?: &(?=(%empty -.expected) |(?=(%cell -.actual) ?=(%face -.actual) ?=(%union -.actual) ?=(%grec -.actual) ?=(%recursive -.actual))) [%unknown ~]

5387+ :: The relation of the source loobean mold to explicit @f is not yet

5388+ :: established. Keep it unsupported rather than asserting a mismatch.

5389+ ?: &(?=(%flag -.actual) ?=(%atom -.expected) =(%f aura.expected)) [%unknown ~]

50635390 :: Any value can be used where a noun is expected. An unresolved

50645391 :: bare tag is fixed as a constant; a constructor still needs a gate.

50655392 ?: ?=(%noun -.expected)

@@ -5069,6 +5396,19 @@

50695396 [%ok sub next]

50705397 :: An arbitrary noun is not known to fit a narrower type.

50715398 ?: &(?=(%noun -.actual) !?=(%var -.expected)) [%unknown ~]

5399+ ?: &(!uncertain ?=(%grec -.actual) ?=(%face -.expected)) $(expected body.expected)

5400+ ?: &(!uncertain ?=(%face -.actual) ?=(%grec -.expected)) $(actual body.actual)

5401+ ?: &(?=(%grec -.actual) ?=(%grec -.expected))

5402+ ?. &(=(at.actual at.expected) =(name.actual name.expected)) [%unknown ~]

5403+ =/ matched=(unit isub) (itype-unify-args args.actual args.expected sub)

5404+ ?~ matched [%unknown ~]

5405+ [%ok u.matched next]

5406+ ?: &(|(?=(%grec -.actual) ?=(%grec -.expected)) !|(?=(%var -.actual) ?=(%var -.expected))) [%unknown ~]

5407+ ?: &(!uncertain ?=(%jrec -.actual) ?=(%face -.expected)) $(expected body.expected)

5408+ ?: &(!uncertain ?=(%face -.actual) ?=(%jrec -.expected)) $(actual body.actual)

5409+ ?: &(?=(%jrec -.actual) ?=(%jrec -.expected))

5410+ ?:(&(=(at.actual at.expected) =(name.actual name.expected) =(head.actual head.expected) =(aura.actual aura.expected) =(tail.actual tail.expected)) [%ok sub next] [%bad ~])

5411+ ?: &(|(?=(%jrec -.actual) ?=(%jrec -.expected)) !|(?=(%var -.actual) ?=(%var -.expected))) [%unknown ~]

50725412 ?: &(?=(%recursive -.actual) ?=(%recursive -.expected))

50735413 ?:(&(=(module.actual module.expected) =(name.actual name.expected)) [%ok sub next] [%bad ~])

50745414 ?: &(|(?=(%recursive -.actual) ?=(%recursive -.expected)) !|(?=(%var -.actual) ?=(%var -.expected))) [%unknown ~]

@@ -5080,12 +5420,21 @@

50805420 =/ unified=(unit isub) (itype-unify-args args.actual args.expected sub)

50815421 ?^ unified [%ok u.unified next]

50825422 [%unknown ~]

5423+ :: A known union can instantiate an unconstrained sample directly;

5424+ :: preserve unknown results for variable-bound union origins.

5425+ ?: &(!actual-open ?=(%union -.actual) ?=(%var -.expected))

5426+ ?~ origin.actual [%unknown ~]

5427+ =/ normalized=itype (itype-normalize actual sub)

5428+ ?: |((itype-has-tag normalized) (itype-has-recursive normalized) (itype-has-any-atom actual sub)) [%unknown ~]

5429+ =/ unified=(unit isub) (itype-unify actual expected sub)

5430+ ?~ unified [%unknown ~]

5431+ [%ok u.unified next]

50835432 :: A concrete union value in a tuple may acquire the expected field's

50845433 :: face. A variable-bound union still needs face propagation support.

50855434 ?: &(!uncertain ?=(%union -.actual) ?=(%face -.expected))

50865435 $(expected body.expected)

50875436 ?: ?=(%union -.actual) [%unknown ~]

5088− ?: &(?=(%union -.expected) |(?=(%avar -.actual) ?=(%nvar -.actual))) [%unknown ~]

5437+ ?: &(?=(%union -.expected) |(?=(%avar -.actual) ?=(%rvar -.actual) |(?=(%nvar -.actual) ?=(%rnvar -.actual)))) [%unknown ~]

50895438 ?: &(?=(%union -.expected) !?=(%var -.actual))

50905439 (itype-fit-cases actual cases.expected sub next)

50915440 ?: ?=(%tag -.actual)

@@ -5093,7 +5442,7 @@

50935442 =/ u=(unit isub) (itype-unify actual expected sub)

50945443 ?~ u [%bad ~]

50955444 [%ok u.u next]

5096− ?: |(?=(%avar -.expected) ?=(%nvar -.expected)) [%unknown ~]

5445+ ?: |(?=(%avar -.expected) ?=(%rvar -.expected) |(?=(%nvar -.expected) ?=(%rnvar -.expected))) [%unknown ~]

50975446 ?: ?=(%face -.expected) $(expected body.expected)

50985447 ?: constructor.actual

50995448 ?. ?=(%fn -.expected) [%bad ~]

@@ -5121,13 +5470,17 @@

51215470 =/ u=(unit isub) (itype-unify actual expected sub)

51225471 ?~ u [%bad ~]

51235472 [%ok u.u next]

5124− ?: |(?=(%avar -.expected) ?=(%nvar -.expected)) [%unknown ~]

5473+ ?: |(?=(%avar -.expected) ?=(%rvar -.expected) |(?=(%nvar -.expected) ?=(%rnvar -.expected))) [%unknown ~]

51255474 ?: ?=(%face -.expected) $(expected body.expected)

51265475 ?: &(?=(%collection -.expected) =(%list name.expected) =(0 val.literal.actual))

51275476 [%unknown ~]

51285477 ?: ?=(%const -.expected)

51295478 ?:(=(val.literal.actual val.literal.expected) [%ok sub next] [%bad ~])

51305479 ?: ?=(%atom -.expected)

5480+ :: A loobean singleton must not silently widen into another aura.

5481+ ?: =(%loobean form.literal.actual)

5482+ ?: =(%f aura.expected) [%unknown ~]

5483+ [%bad ~]

51315484 ?: |(=(%tas aura.expected) =(%ta aura.expected)) [%ok sub next]

51325485 [%bad ~]

51335486 ?: ?=(%flag -.expected)

@@ -5135,8 +5488,14 @@

51355488 ?: ?=(%any-atom -.expected) [%ok sub next]

51365489 [%bad ~]

51375490 ?: &(uncertain (itype-face-asym actual expected sub)) [%unknown ~]

5491+ :: A known face labels the same noun. Peel it before applying the

5492+ :: directional unrestricted-atom rule, preserving raw-variable guards.

5493+ ?: &(!uncertain ?=(%any-atom -.actual) ?=(%face -.expected))

5494+ $(expected body.expected, skip-width |, spine-proof |)

5495+ ?: &(!uncertain ?=(%any-atom -.expected) ?=(%face -.actual))

5496+ $(actual body.actual, skip-width |, spine-proof |)

51385497 ?: ?=(%any-atom -.expected)

5139− ?: |(?=(%atom -.actual) ?=(%avar -.actual) ?=(%nvar -.actual) ?=(%flag -.actual)) [%ok sub next]

5498+ ?: |(?=(%atom -.actual) ?=(%avar -.actual) ?=(%rvar -.actual) |(?=(%nvar -.actual) ?=(%rnvar -.actual)) ?=(%flag -.actual)) [%ok sub next]

51405499 ?: ?=(%var -.actual)

51415500 =/ unified=(unit isub) (itype-unify actual [%avar next] sub)

51425501 ?~ unified [%bad ~]

@@ -5147,16 +5506,16 @@

51475506 =/ unified=(unit isub) (itype-unify actual expected sub)

51485507 ?~ unified [%bad ~]

51495508 [%ok u.unified next]

5150− ?: |(?=(%avar -.expected) ?=(%nvar -.expected)) [%unknown ~]

5509+ ?: |(?=(%avar -.expected) ?=(%rvar -.expected) |(?=(%nvar -.expected) ?=(%rnvar -.expected))) [%unknown ~]

51515510 [%bad ~]

51525511 ?: &(?=(%atom -.actual) ?=(%atom -.expected))

51535512 ?: (aura-prefix aura.expected aura.actual) [%ok sub next]

51545513 ?: &((aura-prefix aura.actual aura.expected) uncertain) [%unknown ~]

51555514 [%bad ~]

51565515 ?: &(?=(%cell -.actual) ?=(%cell -.expected))

5157− =/ first=ifit $(actual hed.actual, expected hed.expected)

5516+ =/ first=ifit $(actual hed.actual, expected hed.expected, skip-width |, spine-proof |)

51585517 ?. ?=(%ok -.first) first

5159− $(actual tal.actual, expected tal.expected, sub sub.first, next next.first)

5518+ $(actual tal.actual, expected tal.expected, sub sub.first, next next.first, skip-width spine-checked, spine-proof spine-checked)

51605519 :: A field may add a face to an occurrence of the very same type

51615520 :: variable. Binding that variable to a face around itself would fail

51625521 :: the occurs check, but its underlying type has already matched.

@@ -5178,9 +5537,10 @@

51785537 [%ok u.unified next]

51795538 ?: &(?=(%face -.actual) ?=(%face -.expected))

51805539 ?. =(name.actual name.expected) [%bad ~]

5181− $(actual body.actual, expected body.expected)

5182− ?: ?=(%face -.actual) $(actual body.actual)

5183− ?: ?=(%face -.expected) $(expected body.expected)

5540+ $(actual body.actual, expected body.expected, skip-width |, spine-proof |)

5541+ ?: ?=(%face -.actual) $(actual body.actual, skip-width |, spine-proof |)

5542+ ?: ?=(%face -.expected) $(expected body.expected, skip-width |, spine-proof |)

5543+ ?: &(!uncertain (itype-closed-gates-match actual expected)) [%ok sub next]

51845544 ?: (itype-face-asym actual expected sub) [%unknown ~]

51855545 ?: |((itype-has-any-atom actual sub) (itype-has-any-atom expected sub))

51865546 [%unknown ~]

@@ -5257,7 +5617,17 @@

52575617+$ ienv (list [name=term scheme=ischeme])

52585618+$ imold-types (list [name=term template=ischeme])

52595619+$ iderived [name=term agent=term mark=term]

5260−+$ ifile [values=ienv molds=imold-types at=path derived=(list iderived)]

5620++$ iwidth-definition [name=term original=expr typ=itype sub=isub projections=(list iwprojection)]

5621++$ iwidth-dependency [at=path source=(unit @t) definitions=(list iwidth-definition)]

5622+:: Nonrecursive request evidence is compiler-owned metadata, not a property

5623+:: of an arbitrary ask value. Reader graphs and source inputs are trusted.

5624++$ irequest-evidence

5625+ [api-at=path name=term path=iapi-path-typed api-source=@t public-source=@t internal-source=@t prelude-values=(list term) prelude-molds=(list term) externals=iexternals marks=imark-externals]

5626+:: A unit distinguishes a verified empty closure from a detached legacy file.

5627+:: The opaque prelude is an exact trusted input, not a recursive interface mold.

5628++$ irequest-graph

5629+ [paths=(set path) requests=(list irequest-evidence) bundle-input=* prelude-input=* prelude-values=(list term) prelude-molds=(list term) externals=iexternals marks=imark-externals]

5630++$ ifile [values=ienv molds=imold-types at=path derived=(list iderived) elaborations=(list iwidth-definition) dependencies=(list iwidth-dependency) source=(unit @t) graph=(unit irequest-graph)]

52615631+$ ijimports (list [face=term interface=ifile])

52625632+$ icap [name=@t id=@ud at=span]

52635633+$ icaps (list icap)

@@ -5267,7 +5637,170 @@

52675637:: This core has no Ford dependencies; unrecognized payloads fail closed.

52685638+$ iexternals (list [module=term name=term result=*])

52695639+$ imark-externals (list [mark=term result=*])

5270−+$ istate [next=@ud sub=isub caps=icaps binders=(list @ud) molds=imolds globals=(list term) externals=iexternals surs=(list term) mark-externals=imark-externals marks=(list term) jimports=ijimports reserved-molds=(list term) params=iparams active=(list term) tags=(list ipending) in-mold=? at=path top-molds=(list term) prelude=(unit ifile)]

5640+:: Hole obligations survive discarded expressions until their owning

5641+:: definition has inferred; their source spans support unresolved reports.

5642++$ ihole [id=@ud at=span]

5643+:: Recursive-mold unfolding spends fuel in the threaded inference state.

5644+:: Retries can restart from an earlier state, so this bounds an attempt,

5645+:: not all parsing or module-checking work.

5646+:: Experimental: only closed, uniquely faced records have known axes.

5647++$ iwfield [name=term axis=@ud typ=itype]

5648++$ iwfields [order=(list iwfield) index=(map term iwfield)]

5649++$ iwstep [name=term axis=@ud]

5650++$ iwidth-result [steps=(list iwstep) sub=isub next=@ud]

5651++$ iwprojection [at=span original=expr source=itype target=itype steps=(list iwstep)]

5652+++ width-scan

5653+ |= [typ=itype sub=isub axis=@ud fuel=@ud]

5654+ ^- (unit iwfields)

5655+ =/ order=(list iwfield) ~

5656+ =/ index=(map term iwfield) *(map term iwfield)

5657+ |-

5658+ ?: =(0 fuel) ~

5659+ ?: |(?=(%var -.typ) ?=(%avar -.typ) ?=(%rvar -.typ) ?=(%nvar -.typ) ?=(%rnvar -.typ)) ~

5660+ ?: ?=(%face -.typ)

5661+ =/ entry=iwfield [name.typ axis body.typ]

5662+ ?: ?=(^ (~(get by index) name.entry)) ~

5663+ `[(flop [entry order]) (~(put by index) name.entry entry)]

5664+ ?. ?=(%cell -.typ) ~

5665+ =/ head=itype hed.typ

5666+ ?: |(?=(%var -.head) ?=(%avar -.head) ?=(%rvar -.head) ?=(%nvar -.head) ?=(%rnvar -.head)) ~

5667+ ?. ?=(%face -.head) ~

5668+ =/ entry=iwfield [name.head (mul 2 axis) body.head]

5669+ ?: ?=(^ (~(get by index) name.entry)) ~

5670+ $(typ tal.typ, axis +((mul 2 axis)), fuel (dec fuel), order [entry order], index (~(put by index) name.entry entry))

5671+++ width-in-order

5672+ |= [source=(list iwfield) target=(list iwfield)]

5673+ ^- ?

5674+ ?~ target &

5675+ ?~ source |

5676+ ?: =(name.i.source name.i.target) $(source t.source, target t.target)

5677+ $(source t.source)

5678+++ width-fit-fields

5679+ |= [source=(map term iwfield) target=(list iwfield) sub=isub next=@ud]

5680+ ^- (unit iwidth-result)

5681+ ?~ target `[~ sub next]

5682+ =/ found=(unit iwfield) (~(get by source) name.i.target)

5683+ ?~ found ~

5684+ =/ fit=ifit (itype-fit typ.u.found typ.i.target sub next)

5685+ ?. ?=(%ok -.fit) ~

5686+ =/ rest=(unit iwidth-result) $(target t.target, sub sub.fit, next next.fit)

5687+ ?~ rest ~

5688+ `[[[name.i.target axis.u.found] steps.u.rest] sub.u.rest next.u.rest]

5689+++ width-spine-exhausted

5690+ |= [t=itype fuel=@ud]

5691+ ^- ?

5692+ ?: =(0 fuel) &

5693+ ?. ?=(%cell -.t) |

5694+ ?. ?=(%face -.hed.t) |

5695+ $(t tal.t, fuel (dec fuel))

5696+++ width-known-shape

5697+ |= [actual=itype expected=itype sub=isub]

5698+ ^- (unit [source=iwfields target=iwfields])

5699+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) ~

5700+ =/ source=(unit iwfields) (width-scan actual sub 1 1.024)

5701+ =/ target=(unit iwfields) (width-scan expected sub 1 1.024)

5702+ ?~ source ~

5703+ ?~ target ~

5704+ `[u.source u.target]

5705+::

5706+++ width-shape

5707+ |= [actual=itype expected=itype sub=isub]

5708+ ^- (unit [source=iwfields target=iwfields])

5709+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) ~

5710+ =/ source=(unit iwfields) (width-scan actual sub 1 4.096)

5711+ =/ target=(unit iwfields) (width-scan expected sub 1 4.096)

5712+ ?~ source ~

5713+ ?~ target ~

5714+ ?. (gth (lent order.u.source) (lent order.u.target)) ~

5715+ `[u.source u.target]

5716+++ width-proj-shape

5717+ |= [actual=itype expected=itype sub=isub]

5718+ ^- (unit [source=iwfields target=iwfields])

5719+ ?. &(|(?=(%cell -.actual) ?=(%face -.actual)) |(?=(%cell -.expected) ?=(%face -.expected))) ~

5720+ =/ source=(unit iwfields) (width-scan actual sub 1 4.096)

5721+ =/ target=(unit iwfields) (width-scan expected sub 1 4.096)

5722+ ?~ source ~

5723+ ?~ target ~

5724+ ?: (lth (lent order.u.source) (lent order.u.target)) ~

5725+ `[u.source u.target]

5726+::

5727+++ width-project

5728+ |= [shape=[source=iwfields target=iwfields] sub=isub next=@ud]

5729+ ^- (unit iwidth-result)

5730+ ?. (width-in-order order.source.shape order.target.shape) ~

5731+ (width-fit-fields index.source.shape order.target.shape sub next)

5732+::

5733+:: Provisional, globally budgeted gate-free proof. %no includes a

5734+:: gate-bearing witness; an uninhabited sibling could invalidate it.

5735+:: Input types must be resolved and normalized under valid substitutions,

5736+:: from trusted source-backed interfaces and reader results. Collection

5737+:: list/unit names rely on their existing identity invariant; this arm

5738+:: does not validate fabricated internal types.

5739++$ igf-segment

5740+ $% [%field name=term]

5741+ [%head ~]

5742+ [%tail ~]

5743+ [%item ~]

5744+ [%case index=@ud]

5745+ ==

5746++$ igate-free [verdict=?(%yes %no %unknown) inhabited=? left=@ud path=(unit (list igf-segment))]

5747+++ gate-free-types

5748+ |= [types=(list itype) fuel=@ud path=(list igf-segment) index=@ud]

5749+ ^- igate-free

5750+ ?~ types [%yes | fuel ~]

5751+ ?: =(0 fuel) [%unknown | 0 ~]

5752+ =/ first=igate-free (gate-free-type i.types fuel [[%case index] path])

5753+ ?: =(%no verdict.first) first

5754+ =/ rest=igate-free $(types t.types, fuel left.first, index +(index))

5755+ ?: =(%no verdict.rest) rest

5756+ =/ inhabited=? |(inhabited.first inhabited.rest)

5757+ ?: |(=(%unknown verdict.first) =(%unknown verdict.rest)) [%unknown inhabited left.rest ~]

5758+ [%yes inhabited left.rest ~]

5759+++ gate-free-type

5760+ |= [typ=itype fuel=@ud path=(list igf-segment)]

5761+ ^- igate-free

5762+ ?: =(0 fuel) [%unknown | 0 ~]

5763+ =. fuel (dec fuel)

5764+ ?- -.typ

5765+ %fn [%no & fuel `(flop path)]

5766+ %atom [%yes & fuel ~]

5767+ %any-atom [%yes & fuel ~]

5768+ %flag [%yes & fuel ~]

5769+ %const [%yes & fuel ~]

5770+ %face $(typ body.typ, path [[%field name.typ] path])

5771+ %cell

5772+ =/ head=igate-free $(typ hed.typ, path [[%head ~] path])

5773+ =/ tail=igate-free $(typ tal.typ, fuel left.head, path [[%tail ~] path])

5774+ =/ inhabited=? &(inhabited.head inhabited.tail)

5775+ ?: |(&(=(%yes verdict.head) !inhabited.head) &(=(%yes verdict.tail) !inhabited.tail)) [%yes | left.tail ~]

5776+ ?: &(=(%no verdict.head) inhabited.tail) head(left left.tail)

5777+ ?: &(=(%no verdict.tail) inhabited.head) tail

5778+ ?: |(!=(%yes verdict.head) !=(%yes verdict.tail)) [%unknown inhabited left.tail ~]

5779+ [%yes inhabited left.tail ~]

5780+ %collection

5781+ ?. |(=(%list name.typ) =(%unit name.typ)) [%unknown | fuel ~]

5782+ ?. ?=([* ~] args.typ) [%unknown | fuel ~]

5783+ =/ item=igate-free $(typ i.args.typ, path [[%item ~] path])

5784+ item(inhabited &)

5785+ %union

5786+ ?~ cases.typ [%unknown | fuel ~]

5787+ (gate-free-types cases.typ fuel path 0)

5788+ %noun [%unknown & fuel ~]

5789+ %empty [%yes | fuel ~]

5790+ %var [%unknown | fuel ~]

5791+ %avar [%yes & fuel ~]

5792+ %rvar [%yes & fuel ~]

5793+ %nvar [%yes & fuel ~]

5794+ %rnvar [%yes & fuel ~]

5795+ %tag [%unknown | fuel ~]

5796+ %recursive [%unknown | fuel ~]

5797+ %jrec [%yes & fuel ~]

5798+ %grec [%unknown | fuel ~]

5799+ ==

5800+::

5801++$ igate-prelude-evidence [iface=ifile gates=(map term def)]

5802++$ dgo [left=itype right=itype at=span context=span]

5803++$ istate [next=@ud sub=isub caps=icaps binders=(list @ud) molds=imolds globals=(list term) externals=iexternals surs=(list term) mark-externals=imark-externals marks=(list term) jimports=ijimports reserved-molds=(list term) params=iparams active=(list term) tags=(list ipending) in-mold=? at=path top-molds=(list term) prelude=(unit ifile) holes=(list ihole) jrec-fuel=@ud projections=(list iwprojection) gate-defs=(map term def) head-evidence=(unit igate-prelude-evidence) grec-index=(unit [at=path source=@t prelude=ifile shapes=(map term shape)]) defer=(unit ~) obligations=(list dgo)]

52715804+$ idiag [msg=tape sites=(list [at=span note=tape])]

52725805+$ iresult (each [typ=itype state=istate] idiag)

52735806+$ isample-result (each [typ=itype env=ienv state=istate] tape)

@@ -5287,6 +5820,7 @@

52875820 |= [t=itype sub=isub]

52885821 ^- itype

52895822 =. t (itype-walk t sub)

5823+ ?: ?=(%grec -.t) t(args (turn args.t |=(c=itype (itype-normalize c sub))))

52905824 ?: ?=(%collection -.t) [%collection name.t (turn args.t |=(c=itype (itype-normalize c sub)))]

52915825 ?: ?=(%union -.t)

52925826 [%union (turn cases.t |=(c=itype (itype-normalize c sub))) origin.t label.t (turn args.t |=(c=itype (itype-normalize c sub)))]

@@ -5312,6 +5846,8 @@

53125846 %fn &

53135847 %cell |($(t hed.t) $(t tal.t))

53145848 %recursive |

5849+ %jrec |

5850+ %grec &

53155851 %collection (lien args.t |=(c=itype (itype-has-gate c)))

53165852 %face $(t body.t)

53175853 %union (lien cases.t |=(c=itype (itype-has-gate c)))

@@ -5319,11 +5855,14 @@

53195855 %const |

53205856 %var |

53215857 %avar |

5858+ %rvar |

53225859 %nvar |

5860+ %rnvar |

53235861 %atom |

53245862 %any-atom |

53255863 %flag |

53265864 %noun |

5865+ %empty |

53275866 ==

53285867::

53295868++ default-decimals

@@ -5332,27 +5871,136 @@

53325871 ?: (itype-has-gate t) t

53335872 ?- -.t

53345873 %nvar [%atom %ud]

5874+ %rnvar [%atom %ud]

5875+ %grec t(args (turn args.t |=(c=itype (default-decimals c))))

53355876 %collection [%collection name.t (turn args.t |=(c=itype (default-decimals c)))]

53365877 %face [%face name.t $(t body.t)]

53375878 %cell [%cell $(t hed.t) $(t tal.t)]

53385879 * t

53395880 ==

53405881::

5882+:: A hole is solved only by a fully determined type or a written

5883+:: in-scope type variable. Ordinary fresh variables are not evidence.

5884+:: Compare representatives after substitution, since unification can

5885+:: orient a written capital toward the hole rather than the reverse.

5886+++ hole-variable-id

5887+ |= t=itype

5888+ ^- (unit @ud)

5889+ ?- -.t

5890+ %var `id.t

5891+ %avar `id.t

5892+ %rvar `id.t

5893+ %nvar `id.t

5894+ %rnvar `id.t

5895+ %tag `id.t

5896+ * ~

5897+ ==

5898+++ hole-same-variable

5899+ |= [a=itype b=itype]

5900+ ^- ?

5901+ =/ x=(unit @ud) (hole-variable-id a)

5902+ ?~ x |

5903+ =/ y=(unit @ud) (hole-variable-id b)

5904+ ?~ y |

5905+ =(u.x u.y)

5906+++ hole-known

5907+ |= [t=itype state=istate]

5908+ ^- ?

5909+ =. t (itype-walk t sub.state)

5910+ ?- -.t

5911+ ?(%var %avar %rvar %nvar %rnvar)

5912+ ?: (lien caps.state |=(c=icap (hole-same-variable t (itype-walk [%var id.c] sub.state)))) &

5913+ (lien params.state |=(p=[name=@t typ=itype] (hole-same-variable t (itype-walk typ.p sub.state))))

5914+ %tag |

5915+ %any-atom &

5916+ %union &((levy cases.t |=(c=itype (hole-known c state))) (levy args.t |=(c=itype (hole-known c state))))

5917+ %grec (levy args.t |=(c=itype (hole-known c state)))

5918+ %collection (levy args.t |=(c=itype (hole-known c state)))

5919+ %face $(t body.t)

5920+ %fn &($(t sample.t) $(t product.t))

5921+ %cell &($(t hed.t) $(t tal.t))

5922+ * &

5923+ ==

5924+++ promote-restricted-numbers

5925+ |= [state=istate env=ienv]

5926+ ^- istate

5927+ :: With no written capitals, there is nothing to promote.

5928+ ?~ caps.state state

5929+ =/ ids=(list @ud) (turn caps.state |=(c=icap id.c))

5930+ =/ free=(list @ud) (free-env-vars env sub.state)

5931+ |-

5932+ ?~ ids state

5933+ =/ t=itype (itype-walk [%var i.ids] sub.state)

5934+ ?: &(?=(%rnvar -.t) !(lien free |=(n=@ud =(n +.t))))

5935+ $(ids t.ids, state state(sub [[+.t [%rvar +.t]] sub.state]))

5936+ $(ids t.ids)

5937+::

5938+++ default-hole-numbers

5939+ |= [all=(list ihole) prior=(list ihole) state=istate env=ienv permit=?]

5940+ ^- istate

5941+ :: Do not default a named capital or a variable captured from env.

5942+ ?. permit state

5943+ ?: =(all prior) state

5944+ ?~ all state

5945+ =/ t=itype (itype-walk [%var id.i.all] sub.state)

5946+ =/ free=(list @ud) (free-env-vars env sub.state)

5947+ =? state &(?=(?(%nvar %rnvar) -.t) !(hole-known t state) !(lien free |=(id=@ud =(id id.t))))

5948+ state(sub [[id.t [%atom %ud]] sub.state])

5949+ $(all t.all)

5950+::

5951+:: Only obligations created inside this definition belong to it.

5952+++ holes-created

5953+ |= [all=(list ihole) prior=(list ihole)]

5954+ ^- (list ihole)

5955+ ?: =(all prior) ~

5956+ ?~ all ~

5957+ [i.all $(all t.all)]

5958+++ hole-uncertain

5959+ |= [t=itype state=istate]

5960+ ^- ?

5961+ =. t (itype-walk t sub.state)

5962+ ?- -.t

5963+ ?(%tag %nvar %rnvar %avar %rvar) !(hole-known t state)

5964+ %union |((lien cases.t |=(c=itype (hole-uncertain c state))) (lien args.t |=(c=itype (hole-uncertain c state))))

5965+ %grec (lien args.t |=(c=itype (hole-uncertain c state)))

5966+ %collection (lien args.t |=(c=itype (hole-uncertain c state)))

5967+ %face $(t body.t)

5968+ %fn |($(t sample.t) $(t product.t))

5969+ %cell |($(t hed.t) $(t tal.t))

5970+ * |

5971+ ==

5972+::

5973+++ unresolved-hole

5974+ |= [all=(list ihole) prior=(list ihole) state=istate]

5975+ ^- (unit idiag)

5976+ =/ work=(list ihole) (flop (holes-created all prior))

5977+ |-

5978+ ?~ work ~

5979+ ?: (hole-known [%var id.i.work] state) $(work t.work)

5980+ ?: (hole-uncertain [%var id.i.work] state)

5981+ `["type hole needs unsupported inference" ~[[at.i.work "type hole"]]]

5982+ `["type hole needs a determined type" ~[[at.i.work "unresolved type hole"]]]

5983+::

53415984++ itype-vars

53425985 |= t=itype

53435986 ^- (list @ud)

53445987 ?- -.t

53455988 %var ~[id.t]

53465989 %avar ~[id.t]

5990+ %rvar ~[id.t]

53475991 %nvar ~[id.t]

5992+ %rnvar ~[id.t]

53485993 %atom ~

53495994 %any-atom ~

53505995 %flag ~

53515996 %noun ~

5997+ %empty ~

53525998 %tag ~

53535999 %const ~

53546000 %union (zing (turn (weld args.t cases.t) |=(c=itype (itype-vars c))))

53556001 %recursive ~

6002+ %jrec ~

6003+ %grec (zing (turn args.t |=(c=itype (itype-vars c))))

53566004 %collection (zing (turn args.t |=(c=itype (itype-vars c))))

53576005 %face $(t body.t)

53586006 %fn (weld $(t sample.t) $(t product.t))

@@ -5380,18 +6028,29 @@

53806028 =/ found=(unit itype) (itype-lookup id.t ren)

53816029 ?~ found t

53826030 u.found

6031+ %rvar

6032+ =/ found=(unit itype) (itype-lookup id.t ren)

6033+ ?~ found t

6034+ u.found

53836035 %nvar

53846036 =/ found=(unit itype) (itype-lookup id.t ren)

53856037 ?~ found t

53866038 u.found

6039+ %rnvar

6040+ =/ found=(unit itype) (itype-lookup id.t ren)

6041+ ?~ found t

6042+ u.found

53876043 %atom t

53886044 %any-atom t

53896045 %flag t

53906046 %noun t

6047+ %empty t

53916048 %tag t

53926049 %const t

53936050 %union [%union (turn cases.t |=(c=itype (itype-rename c ren))) origin.t label.t (turn args.t |=(c=itype (itype-rename c ren)))]

53946051 %recursive t

6052+ %jrec t

6053+ %grec t(args (turn args.t |=(c=itype (itype-rename c ren))))

53956054 %collection [%collection name.t (turn args.t |=(c=itype (itype-rename c ren)))]

53966055 %face [%face name.t $(t body.t)]

53976056 %fn [%fn $(t sample.t) $(t product.t)]

@@ -5407,20 +6066,50 @@

54076066 ?- -.t

54086067 %var |

54096068 %avar =(n id.t)

6069+ %rvar =(n id.t)

54106070 %nvar =(n id.t)

6071+ %rnvar =(n id.t)

54116072 %atom |

54126073 %any-atom |

54136074 %flag |

54146075 %noun |

6076+ %empty |

54156077 %tag |

54166078 %const |

54176079 %union |((lien cases.t |=(c=itype (itype-var-is-atom n c))) (lien args.t |=(c=itype (itype-var-is-atom n c))))

54186080 %recursive |

6081+ %jrec |

6082+ %grec (lien args.t |=(c=itype (itype-var-is-atom n c)))

54196083 %collection (lien args.t |=(c=itype (itype-var-is-atom n c)))

54206084 %face $(t body.t)

54216085 %fn |($(t sample.t) $(t product.t))

54226086 %cell |($(t hed.t) $(t tal.t))

54236087 ==

6088+++ itype-var-is-restricted

6089+ |= [n=@ud t=itype]

6090+ ^- ?

6091+ ?- -.t

6092+ %var |

6093+ %avar |

6094+ %rvar =(n id.t)

6095+ %nvar |

6096+ %rnvar |

6097+ %atom |

6098+ %any-atom |

6099+ %flag |

6100+ %noun |

6101+ %empty |

6102+ %tag |

6103+ %const |

6104+ %union |((lien cases.t |=(c=itype (itype-var-is-restricted n c))) (lien args.t |=(c=itype (itype-var-is-restricted n c))))

6105+ %recursive |

6106+ %jrec |

6107+ %grec (lien args.t |=(c=itype (itype-var-is-restricted n c)))

6108+ %collection (lien args.t |=(c=itype (itype-var-is-restricted n c)))

6109+ %face $(t body.t)

6110+ %fn |($(t sample.t) $(t product.t))

6111+ %cell |($(t hed.t) $(t tal.t))

6112+ ==

54246113::

54256114:: Canonical numbering makes printed variables independent of the order

54266115:: the unifier happened to allocate intermediates.

@@ -5432,7 +6121,7 @@

54326121 =/ n=@ud 0

54336122 |-

54346123 ?~ vars (itype-rename t ren)

5435− =/ replacement=itype ?:((itype-var-is-atom i.vars t) [%avar n] [%var n])

6124+ =/ replacement=itype ?:((itype-var-is-restricted i.vars t) [%rvar n] ?:((itype-var-is-atom i.vars t) [%avar n] [%var n]))

54366125 $(vars t.vars, ren [[i.vars replacement] ren], n +(n))

54376126::

54386127++ instantiate-scheme

@@ -5443,11 +6132,11 @@

54436132 |-

54446133 ?~ vars [(itype-rename typ.scheme ren) state]

54456134 =/ replacement=itype

5446− ?:((itype-var-is-atom i.vars typ.scheme) [%avar next.state] [%var next.state])

6135+ ?:((itype-var-is-restricted i.vars typ.scheme) [%rvar next.state] ?:((itype-var-is-atom i.vars typ.scheme) [%avar next.state] [%var next.state]))

54476136 :: A generalized atom variable is a valid origin for re-generalizing

54486137 :: an alias, just as a sample binder is.

54496138 =/ st=istate state(next +(next.state))

5450− =? binders.st ?=(%avar -.replacement) [next.state binders.state]

6139+ =? binders.st |(?=(%avar -.replacement) ?=(%rvar -.replacement)) [next.state binders.state]

54516140 $(vars t.vars, ren [[i.vars replacement] ren], state st)

54526141::

54536142++ icap-lookup

@@ -5518,6 +6207,11 @@

55186207 ?. ?=([%ref @ @] node) ~

55196208 ?. &(=(module +<.node) =(name +>.node)) ~

55206209 `[[%unknown ~] &]

6210+ %apply

6211+ ?. ?=([%apply %list [* ~]] node) ~

6212+ =/ item $(node -.+>.node)

6213+ ?~ item ~

6214+ `[[%or ~[[%atom `0] [%cell pat.u.item [%unknown ~]]]] has.u.item]

55216215 %face

55226216 ?. ?=([%face @ *] node) ~

55236217 ?. (jibb-face-name +<.node) ~

@@ -5572,6 +6266,10 @@

55726266 %cell ?:(?=([%cell * *] node) (imported-record-faces-valid node ~) |)

55736267 %fork (imported-faces-valid-list +.node)

55746268 %apply ?:(?=([%apply @ *] node) (imported-faces-valid-list +>.node) |)

6269+ %named

6270+ ?. ?=([%named @ @ *] node) |

6271+ =/ n=[%named module=@ name=@ body=*] ;;([%named module=@ name=@ body=*] node)

6272+ (imported-faces-valid body.n)

55756273 ==

55766274::

55776275++ imported-faces-valid-list

@@ -5625,6 +6323,15 @@

56256323 =/ aura=@ta (@ta +<.node)

56266324 ?. |(?=(?(%u %ud %ux %uv %t %ta %tas %p %da %dr) aura) =('tD' aura)) ~

56276325 `[%atom aura]

6326+ %named

6327+ ?. ?=([%named @ @ *] node) ~

6328+ =/ n=[%named module=@ name=@ body=*] ;;([%named module=@ name=@ body=*] node)

6329+ ?. &((jibb-face-name module.n) (jibb-face-name name.n)) ~

6330+ ?. ?=([%fork *] body.n) ~

6331+ =/ proof=(unit irec-pattern) (rec-pattern body.n (@tas module.n) (@tas name.n))

6332+ ?~ proof ~

6333+ ?. has.u.proof ~

6334+ `[%recursive (@tas module.n) (@tas name.n) `(crip "{(trip name.n)}.{(trip module.n)}")]

56286335 %apply

56296336 ?. ?=([%apply @ *] node) ~

56306337 =/ name=term (@tas +<.node)

@@ -5694,6 +6401,7 @@

56946401 ^- upat

56956402 ?- -.typ

56966403 %noun [%all ~]

6404+ %empty [%empty ~]

56976405 %atom [%atom ~]

56986406 %flag [%or ~[[%atom `0] [%atom `1]]]

56996407 %const [%atom `val.literal.typ]

@@ -5790,21 +6498,54 @@

57906498 ?:(=(`origin origin.typ.template) `name.i.molds $(molds t.molds))

57916499 $(molds t.molds)

57926500::

5793−:: A public non-generic alias names exactly its origin and arguments.

5794−:: Reusing only an origin could print a different generic instantiation.

6501+:: A prelude union alias is a display name, not a new union identity. An

6502+:: identity-generic alias can carry the origin's arguments only when the

6503+:: origin, arity and ordered parameters match. Swapped, repeated, fixed

6504+:: or phantom parameters cannot be printed that way and remain unsupported

6505+:: when their only available name is private. A nongeneric alias of a

6506+:: generic instantiation cannot be printed with the origin's arguments.

6507+++ identity-union-parameters

6508+ |= [vars=(list @ud) args=(list itype)]

6509+ ^- ?

6510+ ?~ vars ?=(~ args)

6511+ ?~ args |

6512+ ?. =([%var i.vars] i.args) |

6513+ $(vars t.vars, args t.args)

57956514++ prelude-union-alias

57966515 |= [origin=[at=path name=term] args=(list itype) molds=imold-types]

57976516 ^- (unit term)

5798− ?^ args ~

57996517 ?~ molds ~

58006518 =/ template=ischeme template.i.molds

5801− ?: &(?=(~ vars.template) ?=(%union -.typ.template))

5802− ?:(&(=(`origin origin.typ.template) =(args args.typ.template)) `name.i.molds $(molds t.molds))

6519+ ?. ?=(%union -.typ.template) $(molds t.molds)

6520+ ?. =(`origin origin.typ.template) $(molds t.molds)

6521+ ?~ vars.template

6522+ ?^ args $(molds t.molds)

6523+ ?:(=(args args.typ.template) `name.i.molds $(molds t.molds))

6524+ ?: &((identity-union-parameters vars.template args.typ.template) =((lent vars.template) (lent args)))

6525+ `name.i.molds

58036526 $(molds t.molds)

58046527::

58056528:: Names exported by the directly imported module are visible through its

58066529:: face; a matching prelude alias is also visible without a qualifier.

58076530::

6531+++ jrec-alias

6532+ |= [origin=path name=term molds=imold-types]

6533+ ^- (unit term)

6534+ ?~ molds ~

6535+ =/ template=ischeme template.i.molds

6536+ ?: &(?=(~ vars.template) ?=(%jrec -.typ.template) =(at.typ.template origin) =(name.typ.template name)) `name.i.molds

6537+ $(molds t.molds)

6538+::

6539+++ grec-visible-alias

6540+ |= [origin=path name=term proof=shape args=(list itype) molds=imold-types]

6541+ ^- (unit term)

6542+ ?~ molds ~

6543+ =/ template=ischeme template.i.molds

6544+ ?. ?=(%grec -.typ.template) $(molds t.molds)

6545+ ?. &(=(at.typ.template origin) =(name.typ.template name) =(proof.typ.template proof)) $(molds t.molds)

6546+ ?. &((identity-union-parameters vars.template args.typ.template) =((lent vars.template) (lent args))) $(molds t.molds)

6547+ `name.i.molds

6548+::

58086549++ itype-in-import

58096550 |= [t=itype iface=ifile face=term prelude=(unit ifile)]

58106551 ^- itype

@@ -5824,6 +6565,17 @@

58246565 `(crip "{(trip u.alias)}.{(trip face)}")

58256566 [%union (turn cases.t |=(c=itype (itype-in-import c iface face prelude))) origin.t label (turn args.t |=(c=itype (itype-in-import c iface face prelude)))]

58266567 %recursive [%recursive module.t name.t ~]

6568+ %grec

6569+ =/ public=(unit term) ?~(prelude ~ (grec-visible-alias at.t name.t proof.t args.t molds.u.prelude))

6570+ =/ alias=(unit term) ?~(public (grec-visible-alias at.t name.t proof.t args.t molds.iface) public)

6571+ =/ label=(unit @t) ?~(alias ~ ?~(public `(crip "{(trip u.alias)}.{(trip face)}") `u.alias))

6572+ t(label label, args (turn args.t |=(c=itype (itype-in-import c iface face prelude))))

6573+ %jrec

6574+ =/ public=(unit term) ?~(prelude ~ (jrec-alias at.t name.t molds.u.prelude))

6575+ ?^ public t(label `u.public)

6576+ =/ alias=(unit term) (jrec-alias at.t name.t molds.iface)

6577+ ?~ alias t(label ~)

6578+ t(label `(crip "{(trip u.alias)}.{(trip face)}"))

58276579 %collection [%collection name.t (turn args.t |=(c=itype (itype-in-import c iface face prelude)))]

58286580 %face [%face name.t $(t body.t)]

58296581 %fn [%fn $(t sample.t) $(t product.t)]

@@ -5897,9 +6649,66 @@

58976649 =/ rest=[params=iparams vars=(list @ud) next=@ud] $(names t.names, next +(next))

58986650 [[[i.names [%var next]] params.rest] [next vars.rest] next.rest]

58996651::

6652+:: Recognize a unique top-level source mold with exactly a null case and a

6653+:: faced atom-headed cell whose faced tail names that same mold. Its Jibb

6654+:: path and name provide nominal identity. Other recursive shapes fail closed;

6655+:: construction and matching expose the proven shape one layer at a time.

6656+++ simple-source-recursive

6657+ |= [name=term sh=shape state=istate]

6658+ ^- (unit itype)

6659+ ?. (lien top-molds.state |=(n=term =(n name))) ~

6660+ =/ original=(unit shape) (find-simple-mold name molds.state)

6661+ ?~ original ~

6662+ ?. =(u.original sh) ~

6663+ ?. ?=(%union -.sh) ~

6664+ =/ cs=(list shape) cases.sh

6665+ ?~ cs ~

6666+ ?~ t.cs ~

6667+ ?^ t.t.cs ~

6668+ ?. ?=(%const -.i.cs) ~

6669+ ?. =(%null form.lit.i.cs) ~

6670+ ?. ?=(%cell -.i.t.cs) ~

6671+ =/ fs=(list field) fields.i.t.cs

6672+ ?~ fs ~

6673+ ?~ t.fs ~

6674+ ?^ t.t.fs ~

6675+ ?. ?=(%face -.i.fs) ~

6676+ ?. ?=(%aura -.shape.i.fs) ~

6677+ ?. !=(0 aura.shape.i.fs) ~

6678+ ?. ?=(%face -.i.t.fs) ~

6679+ ?. !=(name.i.fs name.i.t.fs) ~

6680+ =/ tail=shape shape.i.t.fs

6681+ ?. ?=(%ref -.tail) ~

6682+ ?. =(names.tail ~[name]) ~

6683+ `[%jrec at.state name `name name.i.fs aura.shape.i.fs name.i.t.fs]

6684+::

6685+++ simple-source-generic-recursive

6686+ |= [name=term sh=shape args=(list itype) state=istate]

6687+ ^- (unit itype)

6688+ ?. ?=(%generic -.sh) ~

6689+ ?. ?=([@ ~] vars.sh) ~

6690+ ?. ?=([* ~] args) ~

6691+ ?~ grec-index.state ~

6692+ ?. =(at.u.grec-index.state at.state) ~

6693+ ?~ prelude.state ~

6694+ ?. =(prelude.u.grec-index.state u.prelude.state) ~

6695+ =/ proof=(unit shape) (~(get by shapes.u.grec-index.state) name)

6696+ ?~ proof ~

6697+ ?. =(u.proof sh) ~

6698+ `[%grec at.state name `name sh args]

6699+::

6700+

59006701++ infer-mold-template

59016702 |= [sh=shape state=istate]

59026703 ^- (unit [template=ischeme state=istate])

6704+ =/ generic=(unit itype)

6705+ ?. ?=([@ ~] active.state) ~

6706+ (simple-source-generic-recursive i.active.state sh ~[[%var next.state]] state)

6707+ ?^ generic `[[u.generic ~[next.state]] state(next +(next.state))]

6708+ =/ direct=(unit itype)

6709+ ?. ?=([@ ~] active.state) ~

6710+ (simple-source-recursive i.active.state sh state)

6711+ ?^ direct `[[u.direct ~] state]

59036712 ?: ?=(%generic -.sh)

59046713 ?~ vars.sh ~

59056714 ?. (distinct-params vars.sh) ~

@@ -5907,17 +6716,19 @@

59076716 =/ out=(unit [typ=itype state=istate])

59086717 (infer-simple-shape body.sh state(next next.fresh, params params.fresh, in-mold &))

59096718 ?~ out ~

6719+ ?^ (unresolved-hole holes.state.u.out holes.state state.u.out) ~

59106720 ?: &(?=(%union -.typ.u.out) !?=(%union -.body.sh) ?=(~ origin.typ.u.out)) ~

59116721 =? typ.u.out &(?=(%union -.typ.u.out) ?=(%union -.body.sh))

59126722 typ.u.out(args (turn vars.fresh |=(n=@ud `itype`[%var n])))

59136723 =/ used=(list @ud) (itype-vars typ.u.out)

59146724 ?. (levy used |=(n=@ud (lien vars.fresh |=(p=@ud =(p n))))) ~

5915− `[[typ.u.out vars.fresh] state.u.out(params params.state, in-mold in-mold.state)]

6725+ `[[typ.u.out vars.fresh] state.u.out(params params.state, in-mold in-mold.state, holes holes.state)]

59166726 =/ out=(unit [typ=itype state=istate])

59176727 (infer-simple-shape sh state(params ~, in-mold &))

59186728 ?~ out ~

6729+ ?^ (unresolved-hole holes.state.u.out holes.state state.u.out) ~

59196730 ?: ?=(^ (itype-vars typ.u.out)) ~

5920− `[[typ.u.out ~] state.u.out(params params.state, in-mold in-mold.state)]

6731+ `[[typ.u.out ~] state.u.out(params params.state, in-mold in-mold.state, holes holes.state)]

59216732::

59226733:: A direct imported reference may carry definite reader evidence. Only

59236734:: uniquely supplied, declared inputs are used; unsupported data stay generic.

@@ -5951,7 +6762,7 @@

59516762 ?~ found ~

59526763 ?^ t.found ~

59536764 result.i.found

5954− ?. ?=([%invalid ?(%aura %core) @] raw) ~

6765+ ?. ?=([%invalid ?(%aura %core %overlap) @] raw) ~

59556766 `["{(trip +>.raw)}" ~[[at.sh "invalid imported mold"]]]

59566767::

59576768:: Replay only the shape branches whose evaluation order we can prove.

@@ -6020,17 +6831,24 @@

60206831 |= [sh=shape state=istate]

60216832 ^- (unit [typ=itype state=istate])

60226833 ?- -.sh

6834+ %hole `[[%var next.state] state(next +(next.state), holes [[next.state at.sh] holes.state])]

60236835 %aura

60246836 ?: =(0 aura.sh) `[[%any-atom ~] state]

60256837 `[[%atom aura.sh] state]

60266838 %flag `[[%flag ~] state]

60276839 %noun `[[%noun ~] state]

6840+ %void `[[%empty ~] state]

60286841 %const

6029− ?. |(=(%term form.lit.sh) =(%null form.lit.sh)) ~

6842+ ?. |(=(%term form.lit.sh) =(%null form.lit.sh) =(%loobean form.lit.sh)) ~

6843+ ?: &(=(%loobean form.lit.sh) !|(=(0 val.lit.sh) =(1 val.lit.sh))) ~

60306844 `[[%const lit.sh] state]

60316845 %union

60326846 =/ pairs=(list upair) (union-pairs cases.sh molds.state)

6033− ?. (levy pairs |=(p=upair =(%disjoint relation.p))) ~

6847+ ?: (lien pairs |=(p=upair =(%overlap relation.p))) ~

6848+ =/ source-proof=?

6849+ ?: (levy pairs |=(p=upair =(%disjoint relation.p))) &

6850+ &((union-source-state-safe state 256) (union-source-distinct-tags cases.sh molds.state 256))

6851+ ?. source-proof ~

60346852 =/ cs=(unit [types=(list itype) state=istate]) (infer-shape-args cases.sh state)

60356853 ?~ cs ~

60366854 `[[%union types.u.cs ~ ~ ~] state.u.cs]

@@ -6070,10 +6888,13 @@

60706888 ?~ prelude-entry ~

60716889 ?^ vars.u.prelude-entry ~

60726890 `[typ.u.prelude-entry state]

6891+ =/ direct=(unit itype) (simple-source-recursive n u.found state)

6892+ ?^ direct `[u.direct state]

60736893 =/ out=(unit [typ=itype state=istate])

60746894 $(sh u.found, state state(active [n active.state], in-mold &, params ~))

60756895 ?~ out ~

6076− `[(label-direct-union typ.u.out u.found n state) state.u.out(active active.state, in-mold in-mold.state, params params.state)]

6896+ ?^ (unresolved-hole holes.state.u.out holes.state state.u.out) ~

6897+ `[(label-direct-union typ.u.out u.found n state) state.u.out(active active.state, in-mold in-mold.state, params params.state, holes holes.state)]

60776898 %apply

60786899 ?~ ref.sh ~

60796900 =/ args=(unit [types=(list itype) state=istate]) (infer-shape-args args.sh state)

@@ -6101,17 +6922,20 @@

61016922 ?~ applied ~

61026923 `[u.applied state.u.args]

61036924 ?. ?=(%generic -.u.found) ~

6925+ =/ grec=(unit itype) (simple-source-generic-recursive n u.found types.u.args state.u.args)

6926+ ?^ grec `[u.grec state.u.args]

61046927 ?. (distinct-params vars.u.found) ~

61056928 =/ params=(unit iparams) (bind-params vars.u.found types.u.args)

61066929 ?~ params ~

61076930 =/ out=(unit [typ=itype state=istate])

61086931 $(sh body.u.found, state state.u.args(active [n active.state.u.args], in-mold &, params u.params))

61096932 ?~ out ~

6933+ ?^ (unresolved-hole holes.state.u.out holes.state.u.args state.u.out) ~

61106934 ?: &(?=(%union -.typ.u.out) !?=(%union -.body.u.found) ?=(~ origin.typ.u.out)) ~

61116935 ?: &(?=(%union -.typ.u.out) ?=(%union -.body.u.found) !(lien top-molds.state.u.args |=(x=term =(x n)))) ~

61126936 =? typ.u.out &(?=(%union -.typ.u.out) ?=(%union -.body.u.found))

61136937 (label-direct-union typ.u.out(args types.u.args) u.found n state.u.args)

6114− `[typ.u.out state.u.out(active active.state.u.args, in-mold in-mold.state.u.args, params params.state.u.args)]

6938+ `[typ.u.out state.u.out(active active.state.u.args, in-mold in-mold.state.u.args, params params.state.u.args, holes holes.state.u.args)]

61156939 %tvar

61166940 =/ param=(unit itype) (iparam-lookup name.sh params.state)

61176941 ?^ param `[u.param state]

@@ -6151,12 +6975,12 @@

61516975 ^- isample-result

61526976 ?- -.s

61536977 %bind

6154− ?: |(?=(^ (ienv-lookup name.s env)) (lien globals.state |=(x=term =(x name.s))))

6978+ ?: |(=(name.s %proj) ?=(^ (ienv-lookup name.s env)) (lien globals.state |=(x=term =(x name.s))))

61556979 [%| "sample shadows a name"]

61566980 =/ t=itype [%var next.state]

61576981 [%& t [[name.s [t ~]] env] state(next +(next.state), binders [next.state binders.state])]

61586982 %face

6159− ?: |(?=(^ (ienv-lookup name.s env)) (lien globals.state |=(x=term =(x name.s))))

6983+ ?: |(=(name.s %proj) ?=(^ (ienv-lookup name.s env)) (lien globals.state |=(x=term =(x name.s))))

61606984 [%| "sample shadows a name"]

61616985 =/ t=(unit [typ=itype state=istate]) (infer-simple-shape shape.s state)

61626986 ?~ t [%| "sample mold is not supported by partial inference"]

@@ -6224,6 +7048,7 @@

62247048 |-

62257049 ?~ ds &

62267050 ?: ?=(%mold -.i.ds) $(ds t.ds)

7051+ ?: =(name.i.ds %proj) |

62277052 ?. (unique-value-name name.i.ds names) |

62287053 ?: ?=(^ (ienv-lookup name.i.ds env)) |

62297054 ?: (lien globals.state |=(n=term =(n name.i.ds))) |

@@ -6247,6 +7072,7 @@

62477072 |-

62487073 ?~ locals &

62497074 =/ n=term name.i.locals

7075+ ?: =(n %proj) |

62507076 ?. (unique-value-name n names) |

62517077 ?: (lien molds.state |=(m=[name=term body=shape] =(n name.m))) |

62527078 ?: (lien marks.state |=(m=term =(n m))) |

@@ -6426,6 +7252,11 @@

64267252 =/ retried=? ?=(%| -.inferred)

64277253 =? inferred retried (infer-recursive-gate d env local-state)

64287254 ?: ?=(%| -.inferred) $(ds t.ds, remaining [d remaining])

7255+ ?: !=(obligations.state.p.inferred obligations.state) [%| ["deferred local definition needs unsupported inference" ~]]

7256+ =. state.p.inferred (promote-restricted-numbers state.p.inferred env)

7257+ =. state.p.inferred (default-hole-numbers holes.state.p.inferred holes.state state.p.inferred env !(itype-has-gate (itype-normalize typ.p.inferred sub.state.p.inferred)))

7258+ =/ hole=(unit idiag) (unresolved-hole holes.state.p.inferred holes.state state.p.inferred)

7259+ ?^ hole [%| u.hole]

64297260 =/ merged=(unit [first=icap second=icap])

64307261 (merged-capitals caps.state.p.inferred sub.state.p.inferred)

64317262 ?^ merged

@@ -6441,7 +7272,7 @@

64417272 (weld (free-env-vars env sub.state.p.inferred) (free-cap-vars caps.state sub.state.p.inferred))

64427273 =/ vars=(list @ud) (unique-type-vars (itype-vars typ))

64437274 =. vars (skim vars |=(n=@ud !(lien free |=(f=@ud =(f n)))))

6444− $(ds t.ds, env [[name.d [typ vars]] env], state state.p.inferred(caps caps.state), progressed &)

7275+ $(ds t.ds, env [[name.d [typ vars]] env], state state.p.inferred(caps caps.state, holes holes.state), progressed &)

64457276::

64467277:: Try complete cyclic local groups after individual definitions stall.

64477278:: Components with non-gates or unresolved constraints stay unavailable.

@@ -6531,6 +7362,8 @@

65317362 ?: &(?=(%collection -.expected) =(%list name.expected) (context-list-expression e))

65327363 (infer-list-context e expected env state context)

65337364 ?: ?=(%branch -.e)

7365+ =/ empty-list=(unit iresult) (empty-list-null-branch e env state `[expected context])

7366+ ?^ empty-list u.empty-list

65347367 ?~ arms.e [%| ["branch is not supported by partial inference" ~]]

65357368 ?~ t.arms.e [%| ["branch pattern is not supported by partial inference" ~]]

65367369 ?^ t.t.arms.e [%| ["branch is not supported by partial inference" ~]]

@@ -6562,6 +7395,7 @@

65627395 ?: ?=(%unknown -.fit)

65637396 ?: &(?=(%collection -.expected) =(%list name.expected))

65647397 [%| ["branch list constraint is not supported by partial inference" ~]]

7398+ ?: ?=(%flag -.expected) [%| ["branch loobean constraint is not supported by partial inference" ~]]

65657399 [%| ["branch union constraint is not supported by partial inference" ~]]

65667400 ?: ?=(%bad -.fit)

65677401 =/ missing=(unit idiag) (missing-union-tag e expected sub.state.p.value context)

@@ -6570,6 +7404,8 @@

65707404 ?^ nested [%| u.nested]

65717405 ?: &(?=(%collection -.expected) =(%list name.expected))

65727406 [%| ["branch arm does not fit its expected list" ~[[context "expected list"] [(span-of e) "branch arm"]]]]

7407+ ?: ?=(%flag -.expected)

7408+ [%| ["branch arm does not fit its expected loobean" ~[[context "expected loobean"] [(span-of e) "branch arm"]]]]

65737409 [%| ["branch arm does not fit its expected union" ~[[context "expected union"] [(span-of e) "branch arm"]]]]

65747410 [%& expected state.p.value(sub sub.fit, next next.fit)]

65757411::

@@ -6745,6 +7581,11 @@

67457581 [%| ["list pattern needs the standard prelude in partial inference" ~]]

67467582 ?~ args.typ [%| ["list pattern is not supported by partial inference" ~]]

67477583 ?^ t.args.typ [%| ["list pattern is not supported by partial inference" ~]]

7584+ =/ item-live=(unit [result=?(%yes %no %unknown) left=@ud])

7585+ (itype-inhabited-proof i.args.typ sub.state caps.state 256)

7586+ ?~ item-live [%| ["list element reachability needs unsupported inference" ~]]

7587+ ?: =(%unknown result.u.item-live) [%| ["list element reachability needs unsupported inference" ~]]

7588+ ?: =(%no result.u.item-live) [%| ["list nonempty pattern is unreachable" ~]]

67487589 ?~ arms.e [%| ["list branch is not supported by partial inference" ~]]

67497590 ?~ t.arms.e [%| ["list branch is not supported by partial inference" ~]]

67507591 ?^ t.t.arms.e [%| ["list branch is not supported by partial inference" ~]]

@@ -6757,7 +7598,7 @@

67577598 [%| ["list branch pattern is not supported by partial inference" ~]]

67587599 =/ binder=(unit [head=term tail=term]) ?:(first-empty second-name first-name)

67597600 ?~ binder [%| ["list branch pattern is not supported by partial inference" ~]]

6760− ?: |(=(head.u.binder tail.u.binder) ?=(^ (ienv-lookup head.u.binder env)) ?=(^ (ienv-lookup tail.u.binder env)) (lien globals.state |=(n=term |(=(n head.u.binder) =(n tail.u.binder)))))

7601+ ?: |(=(head.u.binder %proj) =(tail.u.binder %proj) =(head.u.binder tail.u.binder) ?=(^ (ienv-lookup head.u.binder env)) ?=(^ (ienv-lookup tail.u.binder env)) (lien globals.state |=(n=term |(=(n head.u.binder) =(n tail.u.binder)))))

67617602 [%| ["pattern binder shadows a name" ~]]

67627603 =/ extended=ienv [[head.u.binder [i.args.typ ~]] [tail.u.binder [typ ~]] env]

67637604 =/ left=iresult

@@ -6794,10 +7635,15 @@

67947635 [%| ["unit branch pattern is not supported by partial inference" ~]]

67957636 =/ binder=(unit term) ?:(first-empty second-name first-name)

67967637 ?~ binder [%| ["unit branch pattern is not supported by partial inference" ~]]

6797− ?: |(?=(^ (ienv-lookup u.binder env)) (lien globals.state |=(n=term =(n u.binder))))

7638+ ?: |(=(u.binder %proj) ?=(^ (ienv-lookup u.binder env)) (lien globals.state |=(n=term =(n u.binder))))

67987639 [%| ["pattern binder shadows a name" ~]]

67997640 =/ payload=(unit itype) (unit-union-payload typ)

68007641 ?~ payload [%| ["unit branch subject is not supported by partial inference" ~]]

7642+ =/ payload-live=(unit [result=?(%yes %no %unknown) left=@ud])

7643+ (itype-inhabited-proof u.payload sub.state.p.subject caps.state.p.subject 256)

7644+ ?~ payload-live [%| ["unit payload reachability needs unsupported inference" ~]]

7645+ ?: =(%unknown result.u.payload-live) [%| ["unit payload reachability needs unsupported inference" ~]]

7646+ ?: =(%no result.u.payload-live) [%| ["unit present pattern is unreachable" ~]]

68017647 =/ extended=ienv [[u.binder [u.payload ~]] env]

68027648 =/ left=iresult

68037649 ?~ expected (infer-fragment val.x ?:(first-empty env extended) state.p.subject)

@@ -6826,12 +7672,14 @@

68267672 =/ t=itype (itype-normalize typ.p.item sub.state.p.item)

68277673 ?: |(?=(%atom -.t) ?=(%any-atom -.t))

68287674 $(ps t.ps, state state.p.item)

6829− ?: &(?=(%nvar -.t) ?=(%lit -.p.i.ps) =(%number form.lit.p.i.ps))

7675+ ?: &(|(?=(%nvar -.t) ?=(%rnvar -.t)) ?=(%lit -.p.i.ps) =(%number form.lit.p.i.ps))

68307676 $(ps t.ps, state state.p.item)

68317677 ?: &(?=(%collection -.t) =(%list name.t) =(~[[%atom 'tD']] args.t))

68327678 $(ps t.ps, state state.p.item)

68337679 ?: &(?=(%avar -.t) (atom-var-from-cap id.t caps.state.p.item sub.state.p.item))

68347680 [%| ["a generic atom in interpolation needs an aura" ~[[(span-of p.i.ps) "atom with a generic aura"]]]]

7681+ ?: &(?=(%rvar -.t) (atom-var-from-cap id.t caps.state.p.item sub.state.p.item))

7682+ [%| ["a generic atom in interpolation needs an aura" ~[[(span-of p.i.ps) "atom with a generic aura"]]]]

68357683 ?: ?=(%cell -.t)

68367684 [%| ["a cell in interpolation needs a printer" ~[[(span-of p.i.ps) "cell without a printer"]]]]

68377685 [%| ["interpolation type needs unsupported inference" ~]]

@@ -6894,7 +7742,7 @@

68947742 ^- (unit ienv)

68957743 =. t ?:(?=(%face -.t) body.t t)

68967744 ?: ?=(%bind -.p)

6897− ?: |(?=(^ (ienv-lookup name.p env)) (lien globals |=(n=term =(n name.p)))) ~

7745+ ?: |(=(name.p %proj) ?=(^ (ienv-lookup name.p env)) (lien globals |=(n=term =(n name.p)))) ~

68987746 `[[name.p [t ~]] env]

68997747 ?: ?=(%cell -.p) (union-pattern-bind-items items.p t env globals)

69007748 `env

@@ -6942,14 +7790,15 @@

69427790 $(xs t.xs, out (weld out rows), origin +(origin))

69437791::

69447792++ infer-known-union-whole

6945− |= [e=expr env=ienv state=istate]

7793+ |= [e=expr env=ienv subject=iresult]

69467794 ^- (unit iresult)

69477795 ?> ?=(%branch -.e)

6948− =/ subject=iresult (infer-fragment subject.e env state)

69497796 ?: ?=(%| -.subject) `subject

69507797 =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

69517798 ?. ?=(%union -.typ) `[%| ["branch is not supported by partial inference" ~]]

6952− =/ cases=(list itype) cases.typ

7799+ =/ live=(unit (list itype)) (itype-live-cases cases.typ sub.state.p.subject caps.state.p.subject 4.096)

7800+ ?~ live ~

7801+ =/ cases=(list itype) u.live

69537802 =/ remaining=(list itype) cases

69547803 =/ arms=(list arm) arms.e

69557804 =/ st=istate state.p.subject

@@ -6980,14 +7829,15 @@

69807829 $(arms t.arms, remaining (skim remaining |=(c=itype !=(%full (union-pattern pat.a c)))), st state.p.body, answer `result)

69817830::

69827831++ infer-known-union-context-whole

6983− |= [e=expr expected=itype env=ienv state=istate context=span]

7832+ |= [e=expr expected=itype env=ienv subject=iresult context=span]

69847833 ^- (unit iresult)

69857834 ?> ?=(%branch -.e)

6986− =/ subject=iresult (infer-fragment subject.e env state)

69877835 ?: ?=(%| -.subject) `subject

69887836 =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

69897837 ?. ?=(%union -.typ) `[%| ["branch is not supported by partial inference" ~]]

6990− =/ cases=(list itype) cases.typ

7838+ =/ live=(unit (list itype)) (itype-live-cases cases.typ sub.state.p.subject caps.state.p.subject 4.096)

7839+ ?~ live ~

7840+ =/ cases=(list itype) u.live

69917841 =/ remaining=(list itype) cases

69927842 =/ arms=(list arm) arms.e

69937843 =/ st=istate state.p.subject

@@ -7025,14 +7875,15 @@

70257875 $(arms t.arms, remaining (skim remaining |=(c=itype !=(%full (union-pattern pat.a c)))), st state.p.body(sub sub.fit, next next.fit), answer `expected)

70267876::

70277877++ infer-known-union-finite

7028− |= [e=expr env=ienv state=istate expected=(unit [typ=itype context=span])]

7878+ |= [e=expr env=ienv subject=iresult expected=(unit [typ=itype context=span])]

70297879 ^- iresult

70307880 ?> ?=(%branch -.e)

7031− =/ subject=iresult (infer-fragment subject.e env state)

70327881 ?: ?=(%| -.subject) subject

70337882 =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

70347883 ?. ?=(%union -.typ) [%| ["branch is not supported by partial inference" ~]]

7035− =/ expanded=(unit (list ifinite)) (finite-cases cases.typ ~ 0)

7884+ =/ live=(unit (list itype)) (itype-live-cases cases.typ sub.state.p.subject caps.state.p.subject 4.096)

7885+ ?~ live [%| ["union emptiness needs unsupported inference" ~]]

7886+ =/ expanded=(unit (list ifinite)) (finite-cases u.live ~ 0)

70367887 ?~ expanded [%| ["union pattern expansion needs unsupported inference" ~]]

70377888 =/ cases=(list ifinite) u.expanded

70387889 =/ remaining=(list ifinite) cases

@@ -7079,29 +7930,267 @@

70797930 ?: mismatch [%| ["union branch result matching needs unsupported inference" ~]]

70807931 $(arms t.arms, remaining (skim remaining |=(c=ifinite !=(%full (union-pattern pat.a part.c)))), st state.p.body, answer `result)

70817932::

7082−++ infer-known-union-branch

7933+:: Prove a one-arm record pattern covers a known, non-union subject.

7934+:: Variable or partial matches stay unsupported; binding uses the same

7935+:: scope and original payload types as the existing union matcher.

7936+++ single-structured-pattern

7937+ |= e=expr

7938+ ^- ?

7939+ ?. ?=(%branch -.e) |

7940+ ?~ arms.e |

7941+ ?^ t.arms.e |

7942+ =/ p=pattern pat.i.arms.e

7943+ ?. ?=(%cell -.p) |

7944+ !(levy items.p |=(x=pattern ?=(%bind -.x)))

7945+::

7946+++ infer-single-case-branch

7947+ |= [e=expr env=ienv state=istate expected=(unit [typ=itype context=span])]

7948+ ^- iresult

7949+ ?> (single-structured-pattern e)

7950+ ?> ?=(%branch -.e)

7951+ ?> ?=(^ arms.e)

7952+ =/ a=arm i.arms.e

7953+ =/ subject=iresult (infer-fragment subject.e env state)

7954+ ?: ?=(%| -.subject) subject

7955+ =/ st=istate state.p.subject

7956+ =/ typ=itype (itype-normalize typ.p.subject sub.st)

7957+ ?: ?=(%union -.typ) [%| ["single-case pattern needs unsupported inference" ~]]

7958+ ?. =(%full (union-pattern pat.a typ))

7959+ [%| ["single-case pattern needs unsupported inference" ~]]

7960+ =/ bound=(unit ienv) (union-pattern-bind pat.a typ env globals.st)

7961+ ?~ bound [%| ["pattern binder shadows a name" ~]]

7962+ ?~ expected (infer-fragment val.a u.bound st)

7963+ =/ body=iresult (infer-call-context-arg val.a typ.u.expected u.bound st context.u.expected)

7964+ ?: ?=(%| -.body) body

7965+ =/ fit=ifit (itype-fit typ.p.body typ.u.expected sub.state.p.body next.state.p.body)

7966+ ?: ?=(%unknown -.fit) [%| ["single-case branch result constraint is not supported by partial inference" ~]]

7967+ ?: ?=(%bad -.fit)

7968+ =/ missing=(unit idiag) (missing-union-tag val.a typ.u.expected sub.state.p.body context.u.expected)

7969+ ?^ missing [%| u.missing]

7970+ =/ nested=(unit idiag) (nested-missing-tag val.a typ.p.body typ.u.expected sub.state.p.body next.state.p.body context.u.expected)

7971+ ?^ nested [%| u.nested]

7972+ [%| ["single-case branch arm does not fit its expected type" ~[[context.u.expected "expected type"] [(span-of val.a) "branch arm"]]]]

7973+ ?: (itype-has-tag (itype-normalize typ.u.expected sub.fit))

7974+ [%| ["single-case branch result needs context in partial inference" ~]]

7975+ [%& typ.u.expected state.p.body(sub sub.fit, next next.fit)]

7976+::

7977+:: This view is used only by pattern analysis, never exported or bound as

7978+:: the subject. Only null plus a two-binder/wildcard cell is supported; its

7979+:: tail keeps the original recursive type. Other patterns fail closed.

7980+++ jrec-match-view

7981+ |= [e=expr subject=iresult]

7982+ ^- iresult

7983+ ?: ?=(%| -.subject) subject

7984+ ?. ?=(%branch -.e) subject

7985+ =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

7986+ ?. ?=(%jrec -.typ) subject

7987+ ?~ arms.e subject

7988+ ?~ t.arms.e subject

7989+ ?^ t.t.arms.e subject

7990+ =/ x=pattern pat.i.arms.e

7991+ =/ y=pattern pat.i.t.arms.e

7992+ =/ empty=? &(?=(%lit -.x) =(%null form.lit.x))

7993+ =/ full=pattern ?:(empty y x)

7994+ ?. |(empty &(?=(%lit -.y) =(%null form.lit.y))) subject

7995+ ?. ?=(%cell -.full) subject

7996+ ?~ items.full subject

7997+ ?~ t.items.full subject

7998+ ?^ t.t.items.full subject

7999+ ?. |(?=(%bind -.i.items.full) ?=(%any -.i.items.full)) subject

8000+ ?. |(?=(%bind -.i.t.items.full) ?=(%any -.i.t.items.full)) subject

8001+ ?: =(0 jrec-fuel.state.p.subject)

8002+ [%| ["recursive mold unfolding needs unsupported inference" ~]]

8003+ =/ nil=itype [%const [%null %n 0 '~']]

8004+ =/ cell=itype [%cell [%face head.typ [%atom aura.typ]] [%face tail.typ typ]]

8005+ [%& [%union ~[nil cell] ~ ~ ~] state.p.subject(jrec-fuel (dec jrec-fuel.state.p.subject))]

8006+::

8007+:: A bounded source-proven tree match permits flat tag patterns and

8008+:: nonbinding catch-alls. Whole-case binders cannot consume the temporary

8009+:: structural view. Pattern count and field arity are checked first.

8010+++ grec-simple-pattern

8011+ |= [pat=pattern view=itype]

8012+ ^- ?

8013+ ?. ?=(%cell -.pat) |

8014+ ?~ items.pat |

8015+ =/ first=pattern i.items.pat

8016+ ?. ?=(%lit -.first) |

8017+ ?. =(%term form.lit.first) |

8018+ =/ chosen=(unit itype) (contextual-tagged-case view val.lit.first ~)

8019+ ?~ chosen |

8020+ ?> ?=(%cell -.u.chosen)

8021+ =/ rest=(list pattern) t.items.pat

8022+ =/ arity=? ?:(?=(%cell -.tal.u.chosen) ?=([* [* ~]] rest) ?=([* ~] rest))

8023+ ?. arity |

8024+ (levy rest |=(p=pattern |(?=(%bind -.p) ?=(%any -.p))))

8025+::

8026+:: A catch-all with no binder is safe even when it covers both cases.

8027+:: A bound whole case still declines to avoid exporting the analysis view.

8028+++ grec-patterns-eligible

8029+ |= [arms=(list arm) view=itype left=@ud]

8030+ ^- ?

8031+ ?~ arms &

8032+ ?: =(0 left) |

8033+ =/ pat=pattern pat.i.arms

8034+ ?. |(?=(%any -.pat) (grec-simple-pattern pat view)) |

8035+ $(arms t.arms, left (dec left))

8036+++ grec-match-view

8037+ |= [e=expr subject=iresult]

8038+ ^- iresult

8039+ ?: ?=(%| -.subject) subject

8040+ ?. ?=(%branch -.e) subject

8041+ ?. (grec-direct-context typ.p.subject sub.state.p.subject) subject

8042+ =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

8043+ ?. ?=(%grec -.typ) subject

8044+ ?~ arms.e subject

8045+ =/ view=(unit [view=itype left=@ud]) (grec-unfold-view typ jrec-fuel.state.p.subject)

8046+ ?~ view [%| ["recursive mold unfolding needs unsupported inference" ~]]

8047+ ?. (grec-patterns-eligible arms.e view.u.view 128) subject

8048+ [%& view.u.view state.p.subject(jrec-fuel left.u.view)]

8049+::

8050+:: A single-arm diagnostic only probes a direct, source-typed in-scope wing;

8051+:: other subjects retain the prior single-pattern inference path.

8052+++ grec-single-wing-subject

70838053 |= [e=expr env=ienv state=istate]

8054+ ^- (unit iresult)

8055+ ?. ?=(%wing -.e) ~

8056+ ?. ?=([@ ~] names.e) ~

8057+ =/ scheme=(unit ischeme) (ienv-lookup i.names.e env)

8058+ ?~ scheme ~

8059+ ?. (grec-direct-context typ.u.scheme sub.state) ~

8060+ `(infer-fragment e env state)

8061+::

8062+++ infer-known-union-branch-subject

8063+ |= [e=expr env=ienv subject=iresult]

70848064 ^- iresult

7085− =/ whole=(unit iresult) (infer-known-union-whole e env state)

7086− ?~ whole (infer-known-union-finite e env state ~)

8065+ =. subject (grec-match-view e subject)

8066+ =. subject (jrec-match-view e subject)

8067+ =/ whole=(unit iresult) (infer-known-union-whole e env subject)

8068+ ?~ whole (infer-known-union-finite e env subject ~)

70878069 u.whole

70888070::

7089−++ infer-known-union-context

7090− |= [e=expr expected=itype env=ienv state=istate context=span]

8071+++ infer-known-union-branch

8072+ |= [e=expr env=ienv state=istate]

8073+ ^- iresult

8074+ ?> ?=(%branch -.e)

8075+ (infer-known-union-branch-subject e env (infer-fragment subject.e env state))

8076+::

8077+++ infer-known-union-context-subject

8078+ |= [e=expr expected=itype env=ienv subject=iresult context=span]

70918079 ^- iresult

7092− =/ whole=(unit iresult) (infer-known-union-context-whole e expected env state context)

7093− ?~ whole (infer-known-union-finite e env state `[expected context])

8080+ =. subject (grec-match-view e subject)

8081+ =. subject (jrec-match-view e subject)

8082+ =/ whole=(unit iresult) (infer-known-union-context-whole e expected env subject context)

8083+ ?~ whole (infer-known-union-finite e env subject `[expected context])

70948084 u.whole

70958085::

8086+:: Limit speculative subject inference to wings and shallow calls;

8087+:: grouping is peeled linearly and cannot introduce a nested branch.

8088+++ simple-union-subject-arg

8089+ |= e=expr

8090+ ^- ?

8091+ ?- -.e

8092+ %wing &

8093+ %lit &

8094+ %str !(lien pieces.e |=(p=piece ?=(%expr -.p)))

8095+ * |

8096+ ==

8097+::

8098+++ safe-union-subject

8099+ |= e=expr

8100+ ^- ?

8101+ ?: ?=(%group -.e) $(e inner.e)

8102+ ?: ?=(%wing -.e) &

8103+ ?. ?=(%call -.e) |

8104+ ?. ?=(%wing -.head.e) |

8105+ (levy args.e simple-union-subject-arg)

8106+::

8107+++ duplicate-loobean-arms

8108+ |= e=expr

8109+ ^- ?

8110+ ?. ?=(%branch -.e) |

8111+ ?~ arms.e |

8112+ ?~ t.arms.e |

8113+ ?^ t.t.arms.e |

8114+ =/ x=pattern pat.i.arms.e

8115+ =/ y=pattern pat.i.t.arms.e

8116+ ?. &(?=(%lit -.x) ?=(%lit -.y)) |

8117+ ?. &(=(%loobean form.lit.x) =(%loobean form.lit.y)) |

8118+ =(val.lit.x val.lit.y)

8119+::

8120+++ union-subject-call

8121+ |= e=expr

8122+ ^- ?

8123+ ?: ?=(%group -.e) $(e inner.e)

8124+ ?=(%call -.e)

8125+::

70968126++ known-union-subject

70978127 |= [e=expr env=ienv state=istate]

7098− ^- (unit itype)

8128+ ^- (unit iresult)

8129+ ?. (safe-union-subject e) ~

8130+ =/ subject=iresult (infer-fragment e env state)

8131+ ?: ?=(%| -.subject) ?:((union-subject-call e) `subject ~)

8132+ =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

8133+ ?. |(?=(%union -.typ) ?=(%jrec -.typ) &(?=(%grec -.typ) (grec-direct-context typ.p.subject sub.state.p.subject))) ~

8134+ `subject

8135+::

8136+:: A direct wing with an already-known union may skip genuinely empty cases

8137+:: when checking a one-arm match. Other subjects keep their existing path.

8138+:: A directly known canonical list of an empty element contains only null.

8139+:: This helper never refines an opaque or variable-bound subject.

8140+++ empty-list-null-branch

8141+ |= [e=expr env=ienv state=istate expected=(unit [typ=itype context=span])]

8142+ ^- (unit iresult)

8143+ ?. ?=(%branch -.e) ~

8144+ ?~ arms.e ~

8145+ ?^ t.arms.e ~

8146+ ?. (unit-empty-pattern pat.i.arms.e) ~

8147+ ?. ?=(%wing -.subject.e) ~

8148+ ?. ?=([@ ~] names.subject.e) ~

8149+ =/ scheme=(unit ischeme) (ienv-lookup i.names.subject.e env)

8150+ ?~ scheme ~

8151+ ?. ?=(%collection -.typ.u.scheme) ~

8152+ ?. =(%list name.typ.u.scheme) ~

8153+ ?~ prelude.state ~

8154+ ?. =(at.u.prelude.state /lib/jibb/prelude/jibb) ~

8155+ =/ standard=(unit ischeme) (find-jibb-mold %list u.prelude.state)

8156+ ?~ standard ~

8157+ ?. =(u.standard [[%collection %list ~[[%var 0]]] ~[0]]) ~

8158+ =/ subject=iresult (infer-fragment subject.e env state)

8159+ ?: ?=(%| -.subject) ~

8160+ =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

8161+ ?. ?=(%collection -.typ) ~

8162+ ?. =(%list name.typ) ~

8163+ ?~ args.typ ~

8164+ ?^ t.args.typ ~

8165+ =/ proof=(unit [empty=? left=@ud]) (itype-empty-proof i.args.typ sub.state.p.subject 256)

8166+ ?~ proof ~

8167+ ?. empty.u.proof ~

8168+ ?~ expected `(infer-fragment val.i.arms.e env state.p.subject)

8169+ =/ body=iresult (infer-call-context-arg val.i.arms.e typ.u.expected env state.p.subject context.u.expected)

8170+ ?: ?=(%| -.body) `body

8171+ =/ fit=ifit (itype-fit typ.p.body typ.u.expected sub.state.p.body next.state.p.body)

8172+ ?: ?=(%unknown -.fit) `[%| ["single-case branch result constraint is not supported by partial inference" ~]]

8173+ ?: ?=(%bad -.fit) `[%| ["single-case branch arm does not fit its expected type" ~[[context.u.expected "expected type"] [(span-of val.i.arms.e) "branch arm"]]]]

8174+ ?: (itype-has-tag (itype-normalize typ.u.expected sub.fit))

8175+ `[%| ["single-case branch result needs context in partial inference" ~]]

8176+ `[%& typ.p.body state.p.body(sub sub.fit, next next.fit)]

8177+::

8178+++ known-empty-union-wing

8179+ |= [e=expr env=ienv state=istate]

8180+ ^- (unit iresult)

70998181 ?. ?=(%wing -.e) ~

8182+ ?. ?=([@ ~] names.e) ~

8183+ =/ scheme=(unit ischeme) (ienv-lookup i.names.e env)

8184+ ?~ scheme ~

8185+ ?. (contextual-direct-union typ.u.scheme) ~

71008186 =/ subject=iresult (infer-fragment e env state)

71018187 ?: ?=(%| -.subject) ~

71028188 =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

71038189 ?. ?=(%union -.typ) ~

7104− `typ

8190+ =/ live=(unit (list itype)) (itype-live-cases cases.typ sub.state.p.subject caps.state.p.subject 4.096)

8191+ ?~ live ~

8192+ ?: =(u.live cases.typ) ~

8193+ `subject

71058194::

71068195:: Infer changes only against a fully known record spine. Retain the

71078196:: target type; unknown spines and repeated edits remain unsupported.

@@ -7208,7 +8297,7 @@

72088297 |= [e=expr actual=itype expected=itype sub=isub next=@ud context=span]

72098298 ^- (unit idiag)

72108299 =/ original=[left=itype right=itype] [actual expected]

7211− ?: |(?=(%var -.left.original) ?=(%avar -.left.original) ?=(%nvar -.left.original) ?=(%var -.right.original) ?=(%avar -.right.original) ?=(%nvar -.right.original)) ~

8300+ ?: |(?=(%var -.left.original) ?=(%avar -.left.original) ?=(%rvar -.left.original) |(?=(%nvar -.left.original) ?=(%rnvar -.left.original)) ?=(%var -.right.original) ?=(%avar -.right.original) ?=(%rvar -.right.original) |(?=(%nvar -.right.original) ?=(%rnvar -.right.original))) ~

72128301 =/ fit=ifit (itype-fit actual expected sub next)

72138302 ?. ?=(%bad -.fit) ~

72148303 =. actual (itype-walk actual sub)

@@ -7229,7 +8318,7 @@

72298318 ?~ items ~

72308319 ?~ t.items (nested-missing-tag val.i.items actual expected sub next context)

72318320 =/ original=[left=itype right=itype] [actual expected]

7232− ?: |(?=(%var -.left.original) ?=(%avar -.left.original) ?=(%nvar -.left.original) ?=(%var -.right.original) ?=(%avar -.right.original) ?=(%nvar -.right.original)) ~

8321+ ?: |(?=(%var -.left.original) ?=(%avar -.left.original) ?=(%rvar -.left.original) |(?=(%nvar -.left.original) ?=(%rnvar -.left.original)) ?=(%var -.right.original) ?=(%avar -.right.original) ?=(%rvar -.right.original) |(?=(%nvar -.right.original) ?=(%rnvar -.right.original))) ~

72338322 =. actual (itype-walk actual sub)

72348323 =. expected (itype-walk expected sub)

72358324 ?. &(?=(%cell -.actual) ?=(%cell -.expected)) ~

@@ -7239,10 +8328,30 @@

72398328 ?. ?=(%ok -.first) ~

72408329 $(items t.items, actual tal.actual, expected tal.expected, sub sub.first, next next.first)

72418330::

8331+:: A term-headed pair is the same noun as a two-item cell. Preserve the

8332+:: whole pair span for the synthetic head and the value's own span for

8333+:: the payload; unresolved term constraints follow ordinary cell inference.

8334+++ pair-as-cell

8335+ |= e=expr

8336+ ^- expr

8337+ ?> ?=(%pair -.e)

8338+ =/ head=expr [%lit at.e [%term %tas tag.e (crip ['%' (trip tag.e)])]]

8339+ [%tuple at.e ~[[at.e ~ head] [(span-of val.e) ~ val.e]]]

8340+::

8341+:: A segment costs one shared step; dynamic segments are not handled yet.

8342+++ qath-static-fuel

8343+ |= [segs=(list qseg) fuel=@ud]

8344+ ^- (unit @ud)

8345+ ?~ segs `fuel

8346+ ?: =(0 fuel) ~

8347+ ?. ?=(%knot -.i.segs) ~

8348+ $(segs t.segs, fuel (dec fuel))

8349+::

72428350++ infer-fragment

72438351 |= [e=expr env=ienv state=istate]

72448352 ^- iresult

72458353 ?- -.e

8354+ %pair $(e (pair-as-cell e))

72468355 %lit

72478356 ?- form.lit.e

72488357 %number ?: =(%ud aura.lit.e)

@@ -7280,6 +8389,21 @@

72808389 ?: ?=(%| -.result) result

72818390 [%& [%collection %list ~[element]] state.p.result]

72828391 %str (infer-string-pieces pieces.e env state)

8392+ %qath

8393+ ?~ prelude.state [%| ["application path needs the standard prelude in partial inference" ~]]

8394+ ?. =(at.u.prelude.state /lib/jibb/prelude/jibb)

8395+ [%| ["application path needs the standard prelude in partial inference" ~]]

8396+ =/ standard=(unit ischeme) (find-jibb-mold %qath u.prelude.state)

8397+ ?~ standard [%| ["application path needs the standard prelude in partial inference" ~]]

8398+ ?. ?=(~ vars.u.standard) [%| ["application path mold needs unsupported inference" ~]]

8399+ =/ typ=itype typ.u.standard

8400+ ?. ?=(%jrec -.typ) [%| ["application path mold needs unsupported inference" ~]]

8401+ ?. &(=(at.typ /lib/jibb/internal/jibb) =(%qath name.typ) =(%i head.typ) =(%ta aura.typ) =(%t tail.typ))

8402+ [%| ["application path mold needs unsupported inference" ~]]

8403+ ?: =(0 jrec-fuel.state) [%| ["recursive mold unfolding needs unsupported inference" ~]]

8404+ =/ remain=(unit @ud) (qath-static-fuel segs.e (dec jrec-fuel.state))

8405+ ?~ remain [%| ["application path segments need unsupported inference" ~]]

8406+ [%& typ state(jrec-fuel u.remain)]

72838407 %wing

72848408 ?~ names.e [%| ["empty wing" ~]]

72858409 ?^ t.names.e

@@ -7322,6 +8446,9 @@

73228446 [%| ["local molds shadow a name" ~]]

73238447 =/ local-state=istate

73248448 state(globals (weld local-names globals.state), molds (weld local-molds molds.state))

8449+ =/ mold-hole=(unit span) (simple-local-mold-hole defs.e)

8450+ ?^ mold-hole

8451+ [%| ["type hole needs a determined type" ~[[u.mold-hole "unresolved type hole"]]]]

73258452 ?. (local-molds-supported local-molds local-state)

73268453 [%| ["local molds need unsupported inference" ~]]

73278454 =/ values=(list def) (local-value-defs defs.e)

@@ -7331,12 +8458,22 @@

73318458 ?: ?=(%| -.result) result

73328459 [%& typ.p.result state.p.result(globals globals.state, molds molds.state)]

73338460 %branch

8461+ ?^ defer.state (dg-boolean-branch e env state)

73348462 ?~ arms.e [%| ["branch is not supported by partial inference" ~]]

7335− ?~ t.arms.e (infer-cell-branch e env state)

8463+ ?~ t.arms.e

8464+ =/ empty-list=(unit iresult) (empty-list-null-branch e env state ~)

8465+ ?^ empty-list u.empty-list

8466+ =/ empty-union=(unit iresult) (known-empty-union-wing subject.e env state)

8467+ ?^ empty-union (infer-known-union-branch-subject e env u.empty-union)

8468+ =/ single=(unit iresult) (grec-single-wing-subject subject.e env state)

8469+ ?^ single (infer-known-union-branch-subject e env u.single)

8470+ ?: (single-structured-pattern e) (infer-single-case-branch e env state ~)

8471+ (infer-cell-branch e env state ~)

73368472 ?^ t.t.arms.e (infer-known-union-branch e env state)

7337− =/ known=(unit itype) (known-union-subject subject.e env state)

7338− ?: &(?=(^ known) ?=(~ (unit-union-payload u.known)))

7339− (infer-known-union-branch e env state)

8473+ =/ known=(unit iresult) (known-union-subject subject.e env state)

8474+ ?: &(?=(^ known) ?=(%| -.u.known) !(duplicate-loobean-arms e)) u.known

8475+ ?: &(?=(^ known) ?=(%& -.u.known) ?=(~ (unit-union-payload (itype-normalize typ.p.u.known sub.state.p.u.known))))

8476+ (infer-known-union-branch-subject e env u.known)

73408477 =/ x=arm i.arms.e

73418478 =/ y=arm i.t.arms.e

73428479 ?: |((unit-empty-pattern pat.x) (unit-empty-pattern pat.y))

@@ -7345,7 +8482,7 @@

73458482 ?. ?=(%lit -.pat.y) (infer-known-union-branch e env state)

73468483 ?. &(=(%loobean form.lit.pat.x) =(%loobean form.lit.pat.y))

73478484 (infer-known-union-branch e env state)

7348− ?^ known (infer-known-union-branch e env state)

8485+ ?: &(?=(^ known) ?=(%& -.u.known)) (infer-known-union-branch-subject e env u.known)

73498486 ?: =(val.lit.pat.x val.lit.pat.y)

73508487 [%| ["branch does not cover both loobeans" ~]]

73518488 =/ subject=iresult $(e subject.e)

@@ -7386,6 +8523,9 @@

73868523 =/ value=iresult

73878524 (infer-call-context-arg val.e typ.u.target env state.u.target at.shape.e)

73888525 ?: ?=(%| -.value) value

8526+ =/ shape=(unit [source=iwfields target=iwfields])

8527+ (width-shape typ.p.value typ.u.target sub.state.p.value)

8528+ ?^ shape [%| ["record width constraint needs unsupported inference" ~]]

73898529 =/ fit=ifit (itype-fit typ.p.value typ.u.target sub.state.p.value next.state.p.value)

73908530 ?: ?=(%unknown -.fit) [%| ["cast constraint is not supported by partial inference" ~]]

73918531 ?: ?=(%bad -.fit)

@@ -7394,6 +8534,8 @@

73948534 =/ nested=(unit idiag) (nested-missing-tag val.e typ.p.value typ.u.target sub.state.p.value next.state.p.value at.shape.e)

73958535 ?^ nested [%| u.nested]

73968536 [%| ["cast mold and expression type do not unify" ~[[at.shape.e (site-type-note "cast mold" typ.u.target sub.state.p.value)] [(span-of val.e) (site-type-note "expression" typ.p.value sub.state.p.value)]]]]

8537+ ?: &(?=(^ defer.state.p.value) !(dg-stable-fit typ.p.value typ.u.target sub.fit))

8538+ [%| ["deferred cast fit needs stable inference" ~]]

73978539 =/ merged=itype (itype-merge-faces typ.p.value typ.u.target sub.fit)

73988540 [%& merged state.p.value(sub sub.fit, next next.fit)]

73998541 %crash [%& [%var next.state] state(next +(next.state))]

@@ -7417,45 +8559,9 @@

74178559 [%& [%fn typ.p.sam typ.p.body] state.p.body]

74188560 %call

74198561 ?~ args.e [%| ["call has no argument" ~]]

7420− =/ head=iresult $(e head.e)

7421− ?: ?=(%| -.head) head

7422− =/ head-type=itype (itype-walk typ.p.head sub.state.p.head)

7423− =/ arg=iresult

7424− ?^ t.args.e

7425− ?: ?=(%fn -.head-type)

7426− (infer-call-context-args args.e sample.head-type env state.p.head (span-of head.e))

7427− (infer-simple-items (turn args.e |=(a=expr [(span-of a) ~ a])) env state.p.head)

7428− ?: ?=(%fn -.head-type)

7429− (infer-call-context-arg i.args.e sample.head-type env state.p.head (span-of head.e))

7430− $(e i.args.e, state state.p.head)

7431− ?: ?=(%| -.arg) arg

7432− =/ st=istate state.p.arg

7433− =/ ht=itype (itype-walk typ.p.head sub.st)

7434− ?: ?=(%fn -.ht)

7435− =/ fit=ifit (itype-fit typ.p.arg sample.ht sub.st next.st)

7436− ?: ?=(%unknown -.fit) [%| ["call constraint is not supported by partial inference" ~]]

7437− ?: ?=(%bad -.fit)

7438− ?~ t.args.e

7439− =/ missing=(unit idiag) (missing-union-tag i.args.e sample.ht sub.st (span-of head.e))

7440− ?^ missing [%| u.missing]

7441− =/ nested=(unit idiag) (nested-missing-tag i.args.e typ.p.arg sample.ht sub.st next.st (span-of head.e))

7442− ?^ nested [%| u.nested]

7443− [%| ["call's sample and argument types do not unify" ~[[(span-of head.e) (site-type-note "called gate" ht sub.st)] [(span-of i.args.e) (site-type-note "argument" typ.p.arg sub.st)]]]]

7444− =/ bad=(unit [at=span typ=itype])

7445− (call-error-site args.e typ.p.arg sample.ht sub.st next.st)

7446− =/ whole-args=span

7447− [beg:(span-of i.args.e) end:(span-of (rear args.e))]

7448− =/ arg-at=span ?~(bad whole-args at.u.bad)

7449− =/ arg-type=itype ?~(bad typ.p.arg typ.u.bad)

7450− [%| ["call's sample and argument types do not unify" ~[[(span-of head.e) (site-type-note "called gate" ht sub.st)] [arg-at (site-type-note "argument" arg-type sub.st)]]]]

7451− ?: &((itype-has-face typ.p.arg sub.fit) (itype-face-asym typ.p.arg sample.ht sub.fit) (itype-output-may-be-cell product.ht sub.fit))

7452− [%| ["call result face propagation is not supported by partial inference" ~]]

7453− [%& product.ht st(sub sub.fit, next next.fit)]

7454− =/ result=itype [%var next.st]

7455− =/ uni=(unit isub) (itype-unify ht [%fn typ.p.arg result] sub.st)

7456− ?~ uni

7457− [%| ["call's sample and argument types do not unify" ~[[(span-of head.e) (site-type-note "called gate" ht sub.st)] [(span-of i.args.e) (site-type-note "argument" typ.p.arg sub.st)]]]]

7458− [%& result st(next +(next.st), sub u.uni)]

8562+ ?: (explicit-proj-call e env state)

8563+ [%| ["proj needs an expected record type" ~]]

8564+ (infer-call-with-head e env state (infer-fragment head.e env state))

74598565 * [%| ["expression is not supported by partial inference" ~]]

74608566 ==

74618567::

@@ -7463,28 +8569,338 @@

74638569:: failed. If an intermediate fit is uncertain, retain the whole argument

74648570:: span rather than assigning blame to a particular argument.

74658571::

7466−++ call-error-site

7467− |= [args=(list expr) actual=itype expected=itype sub=isub next=@ud]

7468− ^- (unit [at=span typ=itype])

7469− ?~ args ~

7470− =/ original=[left=itype right=itype] [actual expected]

7471− ?: |(?=(%var -.left.original) ?=(%avar -.left.original) ?=(%nvar -.left.original) ?=(%var -.right.original) ?=(%avar -.right.original) ?=(%nvar -.right.original)) ~

7472− =. actual (itype-walk actual sub)

7473− =. expected (itype-walk expected sub)

7474− ?: &(?=(%face -.expected) !?=(%face -.actual))

7475− $(expected body.expected)

7476− ?~ t.args

7477− =/ fit=ifit (itype-fit actual expected sub next)

7478− ?. ?=(%bad -.fit) ~

7479− `[(span-of i.args) (itype-normalize actual sub)]

7480− ?. &(?=(%cell -.actual) ?=(%cell -.expected)) ~

7481− =/ first=ifit (itype-fit hed.actual hed.expected sub next)

7482− ?: ?=(%bad -.first) `[(span-of i.args) (itype-normalize hed.actual sub)]

7483− ?: ?=(%unknown -.first) ~

7484− $(args t.args, actual tal.actual, expected tal.expected, sub sub.first, next next.first)

7485−::

7486−:: Context can help a call argument or cast value while the final fit

7487−:: checks the complete right-nested type, including any written faces.

8572+:: Check a call using the head already inferred in this state. Keeping

8573+:: this shared avoids evaluating or instantiating a contextual head twice.

8574+++ width-has-projections

8575+ |= ps=(list iwprojection)

8576+ ^- ?

8577+ ?~ ps |

8578+ &

8579+::

8580++$ iwidth-elaboration [original=expr typ=itype sub=isub projections=(list iwprojection)]

8581+++ infer-width-elaboration

8582+ |= [e=expr env=ienv state=istate]

8583+ ^- (each iwidth-elaboration idiag)

8584+ =/ out=iresult (infer-fragment e env state)

8585+ ?: ?=(%| -.out) [%| p.out]

8586+ [%& [e typ.p.out sub.state.p.out (flop projections.state.p.out)]]

8587+::

8588+:: Source-bound gate-layout evidence, confined to checked root gate

8589+:: definitions and direct unshadowed prelude calls. The prepared prelude

8590+:: interface and its retained source are trusted as a matching artifact.

8591+:: Layouts identify sample binder faces; they do not change call arity or

8592+:: authorize stripping nested value faces. Unknown origins use ordinary fit.

8593+++ direct-written-gates

8594+ |= [ds=(list def) out=ivisited]

8595+ ^- ivisited

8596+ ?~ ds out

8597+ ?: ?=(%mold -.i.ds) $(ds t.ds)

8598+ ?. |(?=(%gate -.val.i.ds) ?=(%gate-wide -.val.i.ds)) $(ds t.ds)

8599+ $(ds t.ds, out (~(put by out) name.i.ds &))

8600+++ direct-may-use-prelude

8601+ |= [ds=(list def) root=ivisited heads=ivisited]

8602+ ^- ?

8603+ ?~ ds |

8604+ ?: ?=(%mold -.i.ds) $(ds t.ds)

8605+ =/ refs=(list term) (dependency-expr val.i.ds)

8606+ =/ has-root=? (lien refs |=(n=term ?=(^ (~(get by root) n))))

8607+ =/ has-head=? (lien refs |=(n=term ?=(^ (~(get by heads) n))))

8608+ ?: &(has-root has-head) &

8609+ $(ds t.ds)

8610+++ direct-unique-names

8611+ |= [names=(list term) seen=ivisited]

8612+ ^- ?

8613+ ?~ names &

8614+ ?: ?=(^ (~(get by seen) i.names)) |

8615+ $(names t.names, seen (~(put by seen) i.names &))

8616+++ direct-prelude-evidence

8617+ |= [ds=(list def) prelude=(unit ifile)]

8618+ ^- (unit igate-prelude-evidence)

8619+ ?~ prelude ~

8620+ ?~ source.u.prelude ~

8621+ =/ root=ivisited (direct-written-gates ds ~)

8622+ =/ names=(list term) (turn values.u.prelude |=(e=[name=term scheme=ischeme] name.e))

8623+ =/ heads=ivisited (graph-nameset names ~)

8624+ ?. (direct-may-use-prelude ds root heads) ~

8625+ =/ parsed (parse at.u.prelude u.source.u.prelude)

8626+ ?: ?=(%| -.parsed) ~

8627+ ?^ (duplicate-defs defs.p.parsed) ~

8628+ ?. (direct-unique-names (global-value-names defs.p.parsed) ~) ~

8629+ =/ gates=(map term def) (direct-checked-gates defs.p.parsed values.u.prelude)

8630+ `[u.prelude gates]

8631+++ direct-checked-gates

8632+ |= [ds=(list def) env=ienv]

8633+ ^- (map term def)

8634+ =/ names=(list term) (turn env |=(e=[name=term scheme=ischeme] name.e))

8635+ =/ known=ivisited (graph-nameset names ~)

8636+ =/ out=(map term def) ~

8637+ |-

8638+ ?~ ds out

8639+ =/ d=def i.ds

8640+ ?: ?=(%mold -.d) $(ds t.ds)

8641+ ?. ?=(^ (~(get by known) name.d)) $(ds t.ds)

8642+ ?. |(?=(%gate -.val.d) ?=(%gate-wide -.val.d)) $(ds t.ds)

8643+ $(ds t.ds, out (~(put by out) name.d d))

8644+++ direct-find-gate

8645+ |= [n=term ds=(list def)]

8646+ ^- (unit def)

8647+ ?~ ds ~

8648+ ?: &(?=(%value -.i.ds) =(n name.i.ds)) `i.ds

8649+ $(ds t.ds)

8650+++ direct-gate-sample

8651+ |= d=def

8652+ ^- (unit sample)

8653+ ?. ?=(%value -.d) ~

8654+ ?- -.val.d

8655+ %gate `sample.val.d

8656+ %gate-wide `sample.val.d

8657+ * ~

8658+ ==

8659+++ direct-sample-name

8660+ |= sam=sample

8661+ ^- (unit term)

8662+ ?- -.sam

8663+ %bind `name.sam

8664+ %face `name.sam

8665+ %pun `name.sam

8666+ * ~

8667+ ==

8668+++ direct-field-name

8669+ |= f=field

8670+ ^- (unit term)

8671+ ?- -.f

8672+ %face `name.f

8673+ %pun `name.f

8674+ * ~

8675+ ==

8676+++ direct-slot-body

8677+ |= [typ=itype name=(unit term)]

8678+ ^- (unit itype)

8679+ ?~ name `typ

8680+ ?. ?=(%face -.typ) ~

8681+ ?. =(name.typ u.name) ~

8682+ `body.typ

8683+++ direct-invariant

8684+ |= [a=itype b=itype sub=isub next=@ud]

8685+ ^- ifit

8686+ ?: (itype-face-asym a b sub) [%unknown ~]

8687+ =/ forward=ifit (itype-fit a b sub next)

8688+ ?. ?=(%ok -.forward) [%unknown ~]

8689+ ?: (itype-face-asym a b sub.forward) [%unknown ~]

8690+ =/ reverse=ifit (itype-fit b a sub.forward next.forward)

8691+ ?. ?=(%ok -.reverse) [%unknown ~]

8692+ reverse

8693+++ direct-function-fit

8694+ |= [a=itype b=itype sam=sample sh=shape sub=isub next=@ud]

8695+ ^- ifit

8696+ ?. &(?=(%fn -.a) ?=(%fn -.b) ?=(%cell -.sam) ?=(%fn -.sh)) [%unknown ~]

8697+ ?. ?=(%cell -.sample.sh) [%unknown ~]

8698+ =/ as=(list sample) items.sam

8699+ =/ bs=(list field) fields.sample.sh

8700+ ?~ as [%unknown ~]

8701+ ?~ t.as [%unknown ~]

8702+ ?^ t.t.as [%unknown ~]

8703+ ?~ bs [%unknown ~]

8704+ ?~ t.bs [%unknown ~]

8705+ ?^ t.t.bs [%unknown ~]

8706+ ?. &(?=(%cell -.sample.a) ?=(%cell -.sample.b)) [%unknown ~]

8707+ =/ an=(unit term) (direct-sample-name i.as)

8708+ =/ bn=(unit term) (direct-field-name i.bs)

8709+ ?: &(?=(^ an) ?=(^ bn) !=(u.an u.bn)) [%unknown ~]

8710+ =/ x=(unit itype) (direct-slot-body hed.sample.a an)

8711+ =/ y=(unit itype) (direct-slot-body hed.sample.b bn)

8712+ ?~ x [%unknown ~]

8713+ ?~ y [%unknown ~]

8714+ =/ first=ifit (direct-invariant u.x u.y sub next)

8715+ ?. ?=(%ok -.first) [%unknown ~]

8716+ =. an (direct-sample-name i.t.as)

8717+ =. bn (direct-field-name i.t.bs)

8718+ ?: &(?=(^ an) ?=(^ bn) !=(u.an u.bn)) [%unknown ~]

8719+ =/ x2=(unit itype) (direct-slot-body tal.sample.a an)

8720+ =/ y2=(unit itype) (direct-slot-body tal.sample.b bn)

8721+ ?~ x2 [%unknown ~]

8722+ ?~ y2 [%unknown ~]

8723+ =/ second=ifit (direct-invariant u.x2 u.y2 sub.first next.first)

8724+ ?. ?=(%ok -.second) [%unknown ~]

8725+ (direct-invariant product.a product.b sub.second next.second)

8726+:: This is a tentative proof: its caller must require closed call samples

8727+:: and repeat every positional check under the stable final substitution.

8728+++ direct-positional-fit

8729+ |= [args=(list expr) slots=(list sample) actual=itype expected=itype env=ienv state=istate sub=isub next=@ud]

8730+ ^- ifit

8731+ ?~ args [%unknown ~]

8732+ ?~ slots [%unknown ~]

8733+ =/ last=? ?=(~ t.args)

8734+ ?: !=(last ?=(~ t.slots)) [%unknown ~]

8735+ =/ split=(unit [left=itype right=itype])

8736+ ?: last `[actual expected]

8737+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) ~

8738+ `[hed.actual hed.expected]

8739+ ?~ split [%unknown ~]

8740+ =/ x=itype left.u.split

8741+ =/ y=itype right.u.split

8742+ =/ expected-name=(unit term) (direct-sample-name i.slots)

8743+ =/ expected-body=(unit itype) (direct-slot-body y expected-name)

8744+ ?~ expected-body [%unknown ~]

8745+ =. y u.expected-body

8746+ =/ fit=ifit (itype-fit x y sub next)

8747+ =/ accepted=? &(?=(%ok -.fit) !(itype-positional-slot-face-asym x y sub.fit))

8748+ =/ result=(unit ifit)

8749+ ?: accepted `fit

8750+ ?. &(?=(%face -.i.slots) ?=(%fn -.shape.i.slots)) ~

8751+ ?. ?=(%wing -.i.args) ~

8752+ ?. ?=([@ ~] names.i.args) ~

8753+ ?. (unique-value-name i.names.i.args globals.state) ~

8754+ =/ source=(unit def) (~(get by gate-defs.state) i.names.i.args)

8755+ ?~ source ~

8756+ =/ sample=(unit sample) (direct-gate-sample u.source)

8757+ ?~ sample ~

8758+ =/ trial=ifit (direct-function-fit x y u.sample shape.i.slots sub next)

8759+ ?. ?=(%ok -.trial) ~

8760+ `trial

8761+ ?~ result [%unknown ~]

8762+ =. fit u.result

8763+ ?: last fit

8764+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) [%unknown ~]

8765+ ?. ?=(%ok -.fit) [%unknown ~]

8766+ $(args t.args, slots t.slots, actual tal.actual, expected tal.expected, sub sub.fit, next next.fit)

8767+++ direct-any-gate-arg

8768+ |= [args=(list expr) defs=(map term def)]

8769+ ^- ?

8770+ ?~ args |

8771+ =/ found=?

8772+ ?. ?=(%wing -.i.args) |

8773+ ?. ?=([@ ~] names.i.args) |

8774+ ?=(^ (~(get by defs) i.names.i.args))

8775+ ?: found &

8776+ $(args t.args)

8777+++ direct-gate-call-fit

8778+ |= [e=expr actual=itype expected=itype env=ienv state=istate]

8779+ ^- (unit ifit)

8780+ ?. ?=(%call -.e) ~

8781+ ?~ args.e ~

8782+ ?~ t.args.e ~

8783+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) ~

8784+ ?. ?=(%wing -.head.e) ~

8785+ ?. ?=([@ ~] names.head.e) ~

8786+ ?. ?=(~ (ienv-lookup i.names.head.e env)) ~

8787+ ?. (unique-value-name i.names.head.e globals.state) ~

8788+ ?. (direct-any-gate-arg args.e gate-defs.state) ~

8789+ ?~ prelude.state ~

8790+ ?~ source.u.prelude.state ~

8791+ ?~ head-evidence.state ~

8792+ ?. =(u.prelude.state iface.u.head-evidence.state) ~

8793+ ?. ?=(^ (ienv-lookup i.names.head.e values.u.prelude.state)) ~

8794+ =/ head=(unit def) (~(get by gates.u.head-evidence.state) i.names.head.e)

8795+ ?~ head ~

8796+ =/ sam=(unit sample) (direct-gate-sample u.head)

8797+ ?~ sam ~

8798+ ?. ?=(%cell -.u.sam) ~

8799+ =/ fit=ifit (direct-positional-fit args.e items.u.sam actual expected env state sub.state next.state)

8800+ ?. ?=(%ok -.fit) ~

8801+ :: Enclosing inference may add constraints after this call. Only a

8802+ :: closed call-sample proof can remain stable under those later bindings.

8803+ =/ actual-final=itype (itype-normalize actual sub.fit)

8804+ =/ expected-final=itype (itype-normalize expected sub.fit)

8805+ ?^ (itype-vars actual-final) ~

8806+ ?^ (itype-vars expected-final) ~

8807+ ?: |((itype-has-tag actual-final) (itype-has-tag expected-final)) ~

8808+ :: A later argument may resolve a variable used by an earlier slot.

8809+ :: Recheck every fit and face against the completed substitution; no

8810+ :: additional binding or fresh variable is permitted in the second pass.

8811+ =/ verified=ifit (direct-positional-fit args.e items.u.sam actual expected env state sub.fit next.fit)

8812+ ?. ?=(%ok -.verified) ~

8813+ ?. &(=(sub.fit sub.verified) =(next.fit next.verified)) ~

8814+ `fit

8815+::

8816+++ infer-call-with-head

8817+ |= [e=expr env=ienv state=istate head=iresult]

8818+ ^- iresult

8819+ ?> ?=(%call -.e)

8820+ ?~ args.e [%| ["call has no argument" ~]]

8821+ ?: ?=(%| -.head) head

8822+ =/ head-type=itype (itype-walk typ.p.head sub.state.p.head)

8823+ =/ arg=iresult

8824+ ?^ t.args.e

8825+ ?: ?=(%fn -.head-type)

8826+ (infer-call-context-args args.e sample.head-type env state.p.head (span-of head.e))

8827+ (infer-simple-items (turn args.e |=(a=expr [(span-of a) ~ a])) env state.p.head)

8828+ ?: ?=(%fn -.head-type)

8829+ (infer-call-context-arg i.args.e sample.head-type env state.p.head (span-of head.e))

8830+ (infer-fragment i.args.e env state.p.head)

8831+ ?: ?=(%| -.arg) arg

8832+ =/ st=istate state.p.arg

8833+ =/ ht=itype (itype-walk typ.p.head sub.st)

8834+ ?: ?=(%fn -.ht)

8835+ =/ shape=(unit [source=iwfields target=iwfields])

8836+ ?^ t.args.e ~

8837+ (width-shape typ.p.arg sample.ht sub.st)

8838+ ?^ shape [%| ["record width constraint needs unsupported inference" ~]]

8839+ =/ fit=ifit

8840+ ?^ t.args.e (itype-fit-inner typ.p.arg sample.ht sub.st next.st & |)

8841+ (itype-fit typ.p.arg sample.ht sub.st next.st)

8842+ =/ direct=(unit ifit)

8843+ ?: ?=(%ok -.fit) ~

8844+ (direct-gate-call-fit e typ.p.arg sample.ht env st)

8845+ =. fit ?~(direct fit u.direct)

8846+ ?: ?=(%unknown -.fit)

8847+ ?~ defer.st [%| ["call constraint is not supported by partial inference" ~]]

8848+ =/ edge=(unit dgo) (dg-eligible-ctor e typ.p.head typ.p.arg sample.ht st)

8849+ ?~ edge [%| ["call constraint is not supported by partial inference" ~]]

8850+ ?: (gth (lent obligations.st) 63) [%| ["call constraint is not supported by partial inference" ~]]

8851+ [%& product.ht st(obligations [u.edge obligations.st])]

8852+

8853+ ?: ?=(%bad -.fit)

8854+ ?~ t.args.e

8855+ =/ missing=(unit idiag) (missing-union-tag i.args.e sample.ht sub.st (span-of head.e))

8856+ ?^ missing [%| u.missing]

8857+ =/ nested=(unit idiag) (nested-missing-tag i.args.e typ.p.arg sample.ht sub.st next.st (span-of head.e))

8858+ ?^ nested [%| u.nested]

8859+ [%| ["call's sample and argument types do not unify" ~[[(span-of head.e) (site-type-note "called gate" ht sub.st)] [(span-of i.args.e) (site-type-note "argument" typ.p.arg sub.st)]]]]

8860+ =/ bad=(unit [at=span typ=itype])

8861+ (call-error-site args.e typ.p.arg sample.ht sub.st next.st)

8862+ =/ whole-args=span

8863+ [beg:(span-of i.args.e) end:(span-of (rear args.e))]

8864+ =/ arg-at=span ?~(bad whole-args at.u.bad)

8865+ =/ arg-type=itype ?~(bad typ.p.arg typ.u.bad)

8866+ [%| ["call's sample and argument types do not unify" ~[[(span-of head.e) (site-type-note "called gate" ht sub.st)] [arg-at (site-type-note "argument" arg-type sub.st)]]]]

8867+ ?: &(?=(^ defer.st) !(dg-stable-call-fit typ.p.arg sample.ht product.ht sub.fit ?=(^ t.args.e)))

8868+ [%| ["deferred call fit needs stable inference" ~]]

8869+ =/ face-asym=?

8870+ ?^ direct |

8871+ ?^ t.args.e (itype-positional-face-asym args.e typ.p.arg sample.ht sub.fit)

8872+ (itype-face-asym typ.p.arg sample.ht sub.fit)

8873+ ?: &((itype-has-face typ.p.arg sub.fit) face-asym (itype-output-may-be-cell product.ht sub.fit))

8874+ [%| ["call result face propagation is not supported by partial inference" ~]]

8875+ [%& product.ht st(sub sub.fit, next next.fit)]

8876+ =/ result=itype [%var next.st]

8877+ =/ uni=(unit isub) (itype-unify ht [%fn typ.p.arg result] sub.st)

8878+ ?~ uni

8879+ [%| ["call's sample and argument types do not unify" ~[[(span-of head.e) (site-type-note "called gate" ht sub.st)] [(span-of i.args.e) (site-type-note "argument" typ.p.arg sub.st)]]]]

8880+ [%& result st(next +(next.st), sub u.uni)]

8881+::

8882+++ call-error-site

8883+ |= [args=(list expr) actual=itype expected=itype sub=isub next=@ud]

8884+ ^- (unit [at=span typ=itype])

8885+ ?~ args ~

8886+ =/ original=[left=itype right=itype] [actual expected]

8887+ ?: |(?=(%var -.left.original) ?=(%avar -.left.original) ?=(%rvar -.left.original) |(?=(%nvar -.left.original) ?=(%rnvar -.left.original)) ?=(%var -.right.original) ?=(%avar -.right.original) ?=(%rvar -.right.original) |(?=(%nvar -.right.original) ?=(%rnvar -.right.original))) ~

8888+ =. actual (itype-walk actual sub)

8889+ =. expected (itype-walk expected sub)

8890+ ?: &(?=(%face -.expected) !?=(%face -.actual))

8891+ $(expected body.expected)

8892+ ?~ t.args

8893+ =/ fit=ifit (itype-fit actual expected sub next)

8894+ ?. ?=(%bad -.fit) ~

8895+ `[(span-of i.args) (itype-normalize actual sub)]

8896+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) ~

8897+ =/ first=ifit (itype-fit hed.actual hed.expected sub next)

8898+ ?: ?=(%bad -.first) `[(span-of i.args) (itype-normalize hed.actual sub)]

8899+ ?: ?=(%unknown -.first) ~

8900+ $(args t.args, actual tal.actual, expected tal.expected, sub sub.first, next next.first)

8901+::

8902+:: Context can help a call argument or cast value while the final fit

8903+:: checks the complete right-nested type, including any written faces.

74888904::

74898905:: Context can resolve the payload of a canonical prelude unit, but an

74908906:: unrelated union with a similar noun shape is not the same mold.

@@ -7518,9 +8934,314 @@

75188934 [%| ["unit payload does not fit its expected type" ~[[context (site-type-note "expected unit payload" payload sub.state.p.value)] [(span-of val.e) (site-type-note "payload" typ.p.value sub.state.p.value)]]]]

75198935 [%& expected state.p.value(sub sub.fit, next next.fit)]

75208936::

8937+:: A known gate may receive an enclosing target before its argument is

8938+:: inferred when its result is open or a direct, matching named generic

8939+:: union. Opaque, recursive, tag-constrained and variable-bound union

8940+:: results keep the existing directional path.

8941+++ infer-contextual-call

8942+ |= [e=expr expected=itype env=ienv state=istate]

8943+ ^- iresult

8944+ ?> ?=(%call -.e)

8945+ ?~ args.e [%| ["call has no argument" ~]]

8946+ =/ head=iresult (infer-fragment head.e env state)

8947+ ?: ?=(%| -.head) head

8948+ =/ ht=itype (itype-walk typ.p.head sub.state.p.head)

8949+ ?. ?=(%fn -.ht) (infer-call-with-head e env state head)

8950+ =/ result=itype (itype-walk product.ht sub.state.p.head)

8951+ =/ eligible=?

8952+ ?: ?=(%var -.result) &

8953+ :: A direct known generic union may receive the same nominal result

8954+ :: context before its arguments are checked. Variable-bound origins,

8955+ :: pending tags, recursive identities and unknown atoms stay open.

8956+ ?. &(?=(%union -.product.ht) ?=(%union -.result) ?=(%union -.expected)) |

8957+ ?~ origin.result |

8958+ ?. =(origin.result origin.expected) |

8959+ ?~ args.result |

8960+ ?. =((lent args.result) (lent args.expected)) |

8961+ ?: |((itype-has-tag (itype-normalize result sub.state.p.head)) (itype-has-tag (itype-normalize expected sub.state.p.head))) |

8962+ ?: |((itype-has-recursive (itype-normalize result sub.state.p.head)) (itype-has-recursive (itype-normalize expected sub.state.p.head))) |

8963+ ?: |((itype-has-any-atom result sub.state.p.head) (itype-has-any-atom expected sub.state.p.head)) |

8964+ &

8965+ ?. eligible (infer-call-with-head e env state head)

8966+ ?: |(?=(%var -.expected) ?=(%avar -.expected) ?=(%rvar -.expected) |(?=(%nvar -.expected) ?=(%rnvar -.expected)) (itype-has-tag (itype-normalize expected sub.state.p.head)))

8967+ (infer-call-with-head e env state head)

8968+ =/ sub=(unit isub) (itype-unify result expected sub.state.p.head)

8969+ ?~ sub (infer-call-with-head e env state head)

8970+ (infer-call-with-head e env state [%& typ.p.head state.p.head(sub u.sub)])

8971+::

8972+:: An eligible fully faced literal receives context by name, in source order.

8973+++ width-literal-fields

8974+ |= [items=(list item) axis=@ud fuel=@ud]

8975+ ^- (unit iwfields)

8976+ =/ order=(list iwfield) ~

8977+ =/ index=(map term iwfield) *(map term iwfield)

8978+ |-

8979+ ?~ items ~

8980+ ?: =(0 fuel) ~

8981+ ?~ face.i.items ~

8982+ =/ at-axis=@ud ?~(t.items axis (mul 2 axis))

8983+ =/ entry=iwfield [u.face.i.items at-axis [%noun ~]]

8984+ ?: ?=(^ (~(get by index) name.entry)) ~

8985+ =. index (~(put by index) name.entry entry)

8986+ =. order [entry order]

8987+ ?~ t.items `[(flop order) index]

8988+ $(items t.items, axis +((mul 2 axis)), fuel (dec fuel))

8989+++ width-infer-items

8990+ |= [items=(list item) expected=(map term iwfield) env=ienv state=istate context=span]

8991+ ^- iresult

8992+ ?~ items [%| ["empty record is not supported" ~]]

8993+ ?~ face.i.items [%| ["record face needs unsupported inference" ~]]

8994+ =/ field=(unit iwfield) (~(get by expected) u.face.i.items)

8995+ =/ head=iresult

8996+ ?~ field (infer-fragment val.i.items env state)

8997+ (infer-call-context-arg val.i.items typ.u.field env state context)

8998+ ?: ?=(%| -.head) head

8999+ =/ typ=itype [%face u.face.i.items typ.p.head]

9000+ ?~ t.items [%& typ state.p.head]

9001+ =/ tail=iresult $(items t.items, state state.p.head)

9002+ ?: ?=(%| -.tail) tail

9003+ [%& [%cell typ typ.p.tail] state.p.tail]

9004+++ width-infer-literal

9005+ |= [e=expr expected=itype env=ienv state=istate context=span]

9006+ ^- (unit iresult)

9007+ ?. ?=(%tuple -.e) ~

9008+ ?. |(?=(%cell -.expected) ?=(%face -.expected)) ~

9009+ =/ source=(unit iwfields) (width-literal-fields items.e 1 4.096)

9010+ =/ target=(unit iwfields) (width-scan expected sub.state 1 4.096)

9011+ ?~ source ~

9012+ ?~ target ~

9013+ ?: (lth (lent order.u.source) (lent order.u.target)) ~

9014+ ?. (width-in-order order.u.source order.u.target)

9015+ `(infer-simple-items items.e env state)

9016+ `(width-infer-items items.e index.u.target env state context)

9017+::

9018+:: Experimental intrinsic recognition; real bindings retain normal calls.

9019+++ explicit-proj-call

9020+ |= [e=expr env=ienv state=istate]

9021+ ^- ?

9022+ ?. ?=(%call -.e) |

9023+ ?. ?=([* ~] args.e) |

9024+ ?. ?=(%wing -.head.e) |

9025+ ?. =(names.head.e ~[%proj]) |

9026+ ?: ?=(^ (ienv-lookup %proj env)) |

9027+ ?: (lien globals.state |=(n=term =(n %proj))) |

9028+ ?~ prelude.state &

9029+ ?:(?=(^ (ienv-lookup %proj values.u.prelude.state)) | &)

9030+++ infer-proj-source

9031+ |= [e=expr expected=itype env=ienv state=istate context=span]

9032+ ^- iresult

9033+ ?: ?=(%group -.e) $(e inner.e)

9034+ =/ literal=(unit iresult) (width-infer-literal e expected env state context)

9035+ ?^ literal u.literal

9036+ (infer-fragment e env state)

9037+++ infer-proj-context

9038+ |= [e=expr expected=itype env=ienv state=istate context=span]

9039+ ^- iresult

9040+ ?> ?=(%call -.e)

9041+ ?~ args.e [%| ["proj needs one record" ~]]

9042+ ?. |(?=(%cell -.expected) ?=(%face -.expected)) [%| ["proj needs an expected record type" ~]]

9043+ =/ value=iresult (infer-proj-source i.args.e expected env state context)

9044+ ?: ?=(%| -.value) value

9045+ =/ shape=(unit [source=iwfields target=iwfields])

9046+ (width-proj-shape typ.p.value expected sub.state.p.value)

9047+ ?~ shape [%| ["proj needs a known record containing its expected fields" ~]]

9048+ =/ project=(unit iwidth-result) (width-project u.shape sub.state.p.value next.state.p.value)

9049+ ?~ project [%| ["proj constraint needs unsupported inference" ~]]

9050+ =/ st=istate state.p.value(sub sub.u.project, next next.u.project)

9051+ [%& expected st(projections [[at.e e typ.p.value expected steps.u.project] projections.st])]

9052+::

9053+:: A known literal singleton in a direct union can contextualize a

9054+:: loobean literal of the same noun. Only explicit singleton and cell

9055+:: competitors are considered; opaque or variable cases stay unknown.

9056+++ explicit-singleton-in-union

9057+ |= [t=itype noun=@]

9058+ ^- ?

9059+ ?. ?=(%union -.t) |

9060+ =/ cases=(list itype) cases.t

9061+ =/ found=? |

9062+ |-

9063+ ?~ cases found

9064+ =/ c=itype i.cases

9065+ ?: ?=(%cell -.c) $(cases t.cases)

9066+ ?. ?=(%const -.c) |

9067+ ?: =(noun val.literal.c)

9068+ ?: found |

9069+ $(cases t.cases, found &)

9070+ $(cases t.cases)

9071+::

9072+:: Select a written literal-headed case only when every competing case is

9073+:: also an explicit singleton-headed cell and exactly one matches. Opaque,

9074+:: variable-bound and differently shaped cases keep inference unchanged.

9075+:: This first slice supplies context to a directly called payload. Plain

9076+:: literal data and other expressions retain their existing inference path.

9077+++ contextual-atomic-arguments

9078+ |= args=(list expr)

9079+ ^- ?

9080+ ?~ args &

9081+ ?. ?=(?(%lit %wing %ctor) -.i.args) |

9082+ $(args t.args)

9083+++ contextual-direct-payload-call

9084+ |= e=expr

9085+ ^- ?

9086+ ?: ?=(%group -.e) $(e inner.e)

9087+ ?. ?=(%call -.e) |

9088+ ?. ?=(%wing -.head.e) |

9089+ ?~ args.e |

9090+ (contextual-atomic-arguments args.e)

9091+::

9092+:: A walked variable may have concealed a union inside a substituted

9093+:: structure before this arm was called. Decline in that case rather than

9094+:: deriving provenance from the already-walked type.

9095+++ contextual-simple-sub

9096+ |= sub=isub

9097+ ^- ?

9098+ ?~ sub &

9099+ ?: ?=(?(%cell %face %fn %union %collection) -.val.i.sub) |

9100+ $(sub t.sub)

9101+::

9102+:: Check the syntactic root before scanning; scan substitutions once.

9103+++ grec-direct-context

9104+ |= [expected=itype sub=isub]

9105+ ^- ?

9106+ =/ left=@ud 4.096

9107+ |-

9108+ ?: ?=(%face -.expected)

9109+ ?: =(0 left) |

9110+ $(expected body.expected, left (dec left))

9111+ ?. ?=(%grec -.expected) |

9112+ ?~ sub &

9113+ ?: =(0 left) |

9114+ ?: ?=(?(%cell %face %fn %union %collection %grec) -.val.i.sub) |

9115+ $(sub t.sub, left (dec left))

9116+++ contextual-direct-union

9117+ |= target=itype

9118+ ^- ?

9119+ ?: ?=(%face -.target) $(target body.target)

9120+ ?=(%union -.target)

9121+++ contextual-tagged-case

9122+ |= [target=itype tag=@ sub=isub]

9123+ ^- (unit itype)

9124+ ?. ?=(%union -.target) ~

9125+ =/ remaining=(list itype) cases.target

9126+ =/ found=(unit itype) ~

9127+ =/ seen=(set @) *(set @)

9128+ |-

9129+ ?~ remaining found

9130+ =/ c=itype i.remaining

9131+ ?. ?=(%cell -.c) ~

9132+ =/ head=itype hed.c

9133+ ?. ?=(%const -.head) ~

9134+ ?: (~(has in:..zuse seen) val.literal.head) ~

9135+ =. seen (~(put in:..zuse seen) val.literal.head)

9136+ ?: =(tag val.literal.head)

9137+ $(remaining t.remaining, found `c)

9138+ $(remaining t.remaining)

9139+::

9140+:: A bounded syntactic screen: no nested branch, cast, gate or local body

9141+:: can re-enter cell-branch retry during either inference attempt.

9142+++ closed-cell-retry-safe

9143+ |= [todo=(list expr) fuel=@ud]

9144+ ^- ?

9145+ ?~ todo &

9146+ ?: =(0 fuel) |

9147+ =/ e=expr i.todo

9148+ =. fuel (dec fuel)

9149+ ?+ -.e |

9150+ %lit $(todo t.todo)

9151+ %wing $(todo t.todo)

9152+ %ctor $(todo t.todo)

9153+ %path $(todo t.todo)

9154+ %crash $(todo t.todo)

9155+ %str

9156+ ?. (levy pieces.e |=(p=piece ?=(%text -.p))) |

9157+ $(todo t.todo)

9158+ %group $(todo [inner.e t.todo])

9159+ %pair $(todo [val.e t.todo])

9160+ %unit $(todo [val.e t.todo])

9161+ %list $(todo (weld items.e t.todo))

9162+ %tuple $(todo (weld (turn items.e |=(i=item val.i)) t.todo))

9163+ %change $(todo (weld (turn edits.e |=(ed=edit val.ed)) t.todo))

9164+ %call $(todo [head.e (weld args.e t.todo)])

9165+ %trace $(todo [val.e then.e t.todo])

9166+ ==

9167+::

9168+++ closed-cell-sub-safe

9169+ |= [sub=isub fuel=@ud]

9170+ ^- ?

9171+ ?~ sub &

9172+ ?: =(0 fuel) |

9173+ ?: ?=(?(%cell %face %fn %union %collection %grec %jrec %recursive) -.val.i.sub) |

9174+ $(sub t.sub, fuel (dec fuel))

9175+::

9176+++ closed-cell-branch-eligible

9177+ |= [e=expr expected=itype sub=isub]

9178+ ^- ?

9179+ ?. &(?=(%branch -.e) ?=(%cell -.expected) (closed-cell-sub-safe sub 512)) |

9180+ ?~ arms.e |

9181+ ?~ t.arms.e |

9182+ ?^ t.t.arms.e |

9183+ =/ x=arm i.arms.e

9184+ =/ y=arm i.t.arms.e

9185+ ?. &(?=(%lit -.pat.x) ?=(%lit -.pat.y)) |

9186+ ?. &(=(%loobean form.lit.pat.x) =(%loobean form.lit.pat.y)) |

9187+ ?: =(val.lit.pat.x val.lit.pat.y) |

9188+ (closed-cell-retry-safe ~[subject.e val.x val.y] 512)

9189+::

9190+:: Attempt ordinary inference first; retry from the same state only for

9191+:: the bounded non-reentrant syntax above. Preserve original value faces.

9192+++ infer-closed-cell-branch

9193+ |= [e=expr expected=itype env=ienv state=istate context=span]

9194+ ^- iresult

9195+ ?> (closed-cell-branch-eligible e expected sub.state)

9196+ ?> ?=(%branch -.e)

9197+ ?> ?=(^ arms.e)

9198+ ?> ?=(^ t.arms.e)

9199+ =/ ordinary=iresult (infer-fragment e env state)

9200+ =/ ordinary-good=?

9201+ ?: ?=(%| -.ordinary) |

9202+ =/ fit=ifit (itype-fit typ.p.ordinary expected sub.state.p.ordinary next.state.p.ordinary)

9203+ ?=(%ok -.fit)

9204+ ?: ordinary-good ordinary

9205+ =/ attempt=(unit iresult)

9206+ =/ x=arm i.arms.e

9207+ =/ y=arm i.t.arms.e

9208+ =/ subject=iresult (infer-fragment subject.e env state)

9209+ ?: ?=(%| -.subject) ~

9210+ =/ subject-type=itype (itype-normalize typ.p.subject sub.state.p.subject)

9211+ ?: ?=(%union -.subject-type) ~

9212+ =/ su=(unit isub) (itype-unify typ.p.subject [%flag ~] sub.state.p.subject)

9213+ ?~ su ~

9214+ =/ left=iresult (infer-call-context-arg val.x expected env state.p.subject(sub u.su) context)

9215+ ?: ?=(%| -.left) ~

9216+ =/ lf=ifit (itype-fit typ.p.left expected sub.state.p.left next.state.p.left)

9217+ ?. ?=(%ok -.lf) ~

9218+ =/ right=iresult (infer-call-context-arg val.y expected env state.p.left(sub sub.lf, next next.lf) context)

9219+ ?: ?=(%| -.right) ~

9220+ =/ rf=ifit (itype-fit typ.p.right expected sub.state.p.right next.state.p.right)

9221+ ?. ?=(%ok -.rf) ~

9222+ =/ sub=isub sub.rf

9223+ =/ next=@ud next.rf

9224+ =/ lt=itype (itype-normalize typ.p.left sub)

9225+ =/ rt=itype (itype-normalize typ.p.right sub)

9226+ =/ et=itype (itype-normalize expected sub)

9227+ ?. =(lt rt) ~

9228+ ?: |(?=(^ (itype-vars lt)) ?=(^ (itype-vars rt)) ?=(^ (itype-vars et))) ~

9229+ ?: |((itype-has-tag lt) (itype-has-tag rt) (itype-has-tag et)) ~

9230+ =/ lcheck=ifit (itype-fit typ.p.left expected sub next)

9231+ ?. ?=(%ok -.lcheck) ~

9232+ ?. &(=(sub.lcheck sub) =(next.lcheck next)) ~

9233+ =/ rcheck=ifit (itype-fit typ.p.right expected sub next)

9234+ ?. ?=(%ok -.rcheck) ~

9235+ ?. &(=(sub.rcheck sub) =(next.rcheck next)) ~

9236+ `[%& typ.p.left state.p.right(sub sub, next next)]

9237+ ?~ attempt ordinary

9238+ u.attempt

9239+::

75219240++ infer-call-context-arg

75229241 |= [e=expr expected=itype env=ienv state=istate context=span]

75239242 ^- iresult

9243+ ?: &(?=(^ defer.state) ?=(%branch -.e)) (infer-fragment e env state)

9244+ ?: ?=(%pair -.e) $(e (pair-as-cell e))

75249245 ?: ?=(%group -.e) $(e inner.e)

75259246 ?: &(?=(%body -.e) ?=(~ defs.e)) $(e final.e)

75269247 ?: ?=(%trace -.e)

@@ -7530,39 +9251,126 @@

75309251 =/ target=itype (itype-walk expected sub.state)

75319252 |-

75329253 ?: ?=(%face -.target) $(target (itype-walk body.target sub.state))

7533− :: In a loobean-singleton context retain the written loobean noun;

7534− :: the usual final fit decides whether that value is permitted.

9254+ ?: (explicit-proj-call e env state)

9255+ (infer-proj-context e expected env state context)

9256+ :: Experimental construction only for a source-proven direct target.

9257+ :: Decline any walked structural binding to retain raw-variable provenance.

9258+ ?: &(?=(%grec -.target) ?=(%tuple -.e) (grec-direct-context expected sub.state))

9259+ =/ unfolded=(unit [view=itype left=@ud]) (grec-unfold-view target jrec-fuel.state)

9260+ ?~ unfolded [%| ["recursive mold unfolding needs unsupported inference" ~]]

9261+ ?~ items.e [%| ["recursive mold constructor needs unsupported inference" ~]]

9262+ =/ first=item i.items.e

9263+ ?. &(?=(~ face.first) ?=(%lit -.val.first) =(%term form.lit.val.first))

9264+ [%| ["recursive mold constructor needs unsupported inference" ~]]

9265+ =/ chosen=(unit itype) (contextual-tagged-case view.u.unfolded val.lit.val.first sub.state)

9266+ ?~ chosen [%| ["recursive mold constructor has no matching case" ~]]

9267+ =/ value=iresult (infer-call-context-items items.e u.chosen env state(jrec-fuel left.u.unfolded) context)

9268+ ?: ?=(%| -.value) value

9269+ =/ fit=ifit (itype-fit typ.p.value u.chosen sub.state.p.value next.state.p.value)

9270+ ?: ?=(%unknown -.fit) [%| ["recursive mold case needs unsupported inference" ~]]

9271+ ?: ?=(%bad -.fit) [%| ["recursive mold case does not fit its source shape" ~]]

9272+ [%& target state.p.value(sub sub.fit, next next.fit)]

9273+ :: Only the source-proven one-layer cell is exposed. Each recursive

9274+ :: descent consumes one written tuple; named values use ordinary fit.

9275+ ?: &(?=(%jrec -.target) ?=(%lit -.e) =(%null form.lit.e))

9276+ ?: =(0 jrec-fuel.state) [%| ["recursive mold unfolding needs unsupported inference" ~]]

9277+ [%& target state(jrec-fuel (dec jrec-fuel.state))]

9278+ ?: &(?=(%jrec -.target) ?=(%tuple -.e))

9279+ ?: =(0 jrec-fuel.state) [%| ["recursive mold unfolding needs unsupported inference" ~]]

9280+ =. state state(jrec-fuel (dec jrec-fuel.state))

9281+ =/ shape=itype

9282+ [%cell [%face head.target [%atom aura.target]] [%face tail.target target]]

9283+ =/ value=iresult (infer-call-context-items items.e shape env state context)

9284+ ?: ?=(%| -.value) value

9285+ =/ fit=ifit (itype-fit typ.p.value shape sub.state.p.value next.state.p.value)

9286+ ?: ?=(%unknown -.fit) [%| ["recursive mold cell constraint needs unsupported inference" ~]]

9287+ ?: ?=(%bad -.fit) [%| ["recursive mold cell does not fit its source shape" ~]]

9288+ [%& target state.p.value(sub sub.fit, next next.fit)]

9289+ ?: ?=(%call -.e) (infer-contextual-call e target env state)

9290+ =/ empty-list=(unit iresult) (empty-list-null-branch e env state `[target context])

9291+ ?^ empty-list u.empty-list

9292+ ?: (single-structured-pattern e)

9293+ ?> ?=(%branch -.e)

9294+ =/ empty-union=(unit iresult) (known-empty-union-wing subject.e env state)

9295+ ?^ empty-union (infer-known-union-context-subject e target env u.empty-union context)

9296+ =/ single=(unit iresult) (grec-single-wing-subject subject.e env state)

9297+ ?^ single (infer-known-union-context-subject e target env u.single context)

9298+ (infer-single-case-branch e env state `[target context])

9299+ ?: (cell-binder-pattern e)

9300+ (infer-cell-branch e env state `[target context])

9301+ :: In an explicit singleton context retain the written loobean noun;

9302+ :: the ordinary singleton fit compares its noun, not its spelling.

75359303 =/ singleton=(unit itype)

75369304 ?. ?=(%lit -.e) ~

75379305 ?. =(%loobean form.lit.e) ~

7538− ?. ?=(%const -.target) ~

7539− ?. =(%loobean form.literal.target) ~

9306+ ?. |(?=(%const -.target) &(?=(%union -.expected) (explicit-singleton-in-union expected val.lit.e))) ~

75409307 `[%const lit.e]

75419308 ?^ singleton [%& u.singleton state]

7542− =/ known=(unit itype)

9309+ =/ known=(unit iresult)

75439310 ?: ?=(%branch -.e) (known-union-subject subject.e env state)

75449311 ~

7545− ?: &(?=(^ known) ?=(~ (unit-union-payload u.known)))

7546− (infer-known-union-context e target env state context)

9312+ ?: &(?=(^ known) ?=(%| -.u.known) !(duplicate-loobean-arms e)) u.known

9313+ ?: &(?=(^ known) ?=(%& -.u.known) ?=(~ (unit-union-payload (itype-normalize typ.p.u.known sub.state.p.u.known))))

9314+ (infer-known-union-context-subject e target env u.known context)

75479315 ?: &(?=(%union -.target) ?=(%unit -.e))

75489316 (infer-unit-context e target env state context)

9317+ ?: (closed-cell-branch-eligible e expected sub.state)

9318+ (infer-closed-cell-branch e expected env state context)

9319+ ?: &(?=(%flag -.target) (context-union-branch e))

9320+ (infer-union-context e target env state context)

75499321 ?: &(?=(%union -.target) (context-union-branch e))

75509322 (infer-union-context e target env state context)

75519323 ?: &(?=(%collection -.target) =(%list name.target) (context-union-branch e))

75529324 (infer-union-context e target env state context)

75539325 ?: &(?=(%collection -.target) =(%list name.target) (context-list-expression e))

75549326 (infer-list-context e target env state context)

9327+ :: A literal-headed tuple can receive the unique case's payload

9328+ :: context. The ordinary final fit still checks the complete union.

9329+ =/ selected=(unit itype)

9330+ ?. &((contextual-simple-sub sub.state) (contextual-direct-union expected) ?=(%union -.target) ?=(%tuple -.e) ?=(^ items.e)) ~

9331+ ?~ t.items.e ~

9332+ ?^ t.t.items.e ~

9333+ ?. (contextual-direct-payload-call val.i.t.items.e) ~

9334+ =/ first=item i.items.e

9335+ ?. &(?=(~ face.first) ?=(%lit -.val.first) |(=(%term form.lit.val.first) =(%null form.lit.val.first) =(%loobean form.lit.val.first))) ~

9336+ (contextual-tagged-case target val.lit.val.first sub.state)

9337+ ?^ selected

9338+ ?> ?=(%tuple -.e)

9339+ :: On this bounded shallow-call shape, preserve any inference that

9340+ :: already fits before trying the new contextual path. Neither pass

9341+ :: can recursively select a nested tuple from the atomic arguments.

9342+ =/ ordinary=(unit iresult)

9343+ =/ initial=iresult (infer-fragment e env state)

9344+ ?: ?=(%| -.initial) ~

9345+ =/ fit=ifit (itype-fit typ.p.initial target sub.state.p.initial next.state.p.initial)

9346+ ?. ?=(%ok -.fit) ~

9347+ `initial

9348+ ?^ ordinary u.ordinary

9349+ =/ value=iresult (infer-call-context-items items.e u.selected env state context)

9350+ ?: ?=(%| -.value) value

9351+ =/ fit=ifit (itype-fit typ.p.value u.selected sub.state.p.value next.state.p.value)

9352+ ?: ?=(%unknown -.fit) [%| ["tagged case needs unsupported inference" ~]]

9353+ ?: ?=(%bad -.fit) [%| ["tagged case does not fit its expected type" ~[[context "expected union case"] [(span-of e) "value"]]]]

9354+ [%& typ.p.value state.p.value(sub sub.fit, next next.fit)]

75559355 ?: &(?=(%cell -.target) ?=(%tuple -.e))

75569356 (infer-call-context-items items.e target env state context)

75579357 (infer-fragment e env state)

75589358::

75599359:: Preserve each written face; the final complete sample fit checks faces.

9360+:: A tuple or positional field face belongs to the enclosing sample,

9361+:: not to the expression at that position. A second face, if present,

9362+:: is part of the value's own expected type.

9363+++ projection-field-target

9364+ |= expected=itype

9365+ ^- itype

9366+ ?:(?=(%face -.expected) body.expected expected)

9367+::

75609368++ infer-call-context-items

75619369 |= [items=(list item) expected=itype env=ienv state=istate context=span]

75629370 ^- iresult

75639371 ?~ items [%| ["empty cell is not supported by partial inference" ~]]

75649372 ?~ t.items

7565− =/ last=iresult (infer-call-context-arg val.i.items expected env state context)

9373+ =/ last=iresult (infer-call-context-arg val.i.items (projection-field-target expected) env state context)

75669374 ?: ?=(%| -.last) last

75679375 =/ typ=itype typ.p.last

75689376 =. typ ?~(face.i.items typ [%face u.face.i.items typ])

@@ -7571,7 +9379,7 @@

75719379 |-

75729380 ?: ?=(%face -.target) $(target (itype-walk body.target sub.state))

75739381 ?. ?=(%cell -.target) (infer-simple-items items env state)

7574− =/ head=iresult (infer-call-context-arg val.i.items hed.target env state context)

9382+ =/ head=iresult (infer-call-context-arg val.i.items (projection-field-target hed.target) env state context)

75759383 ?: ?=(%| -.head) head

75769384 =/ typ=itype typ.p.head

75779385 =. typ ?~(face.i.items typ [%face u.face.i.items typ])

@@ -7583,13 +9391,13 @@

75839391 |= [args=(list expr) expected=itype env=ienv state=istate context=span]

75849392 ^- iresult

75859393 ?~ args [%| ["call has no argument" ~]]

7586− ?~ t.args (infer-call-context-arg i.args expected env state context)

9394+ ?~ t.args (infer-call-context-arg i.args (projection-field-target expected) env state context)

75879395 =/ target=itype (itype-walk expected sub.state)

75889396 |-

75899397 ?: ?=(%face -.target) $(target (itype-walk body.target sub.state))

75909398 ?. ?=(%cell -.target)

75919399 (infer-simple-items (turn args |=(a=expr [(span-of a) ~ a])) env state)

7592− =/ head=iresult (infer-call-context-arg i.args hed.target env state context)

9400+ =/ head=iresult (infer-call-context-arg i.args (projection-field-target hed.target) env state context)

75939401 ?: ?=(%| -.head) head

75949402 =/ tail=iresult (infer-call-context-args t.args tal.target env state.p.head context)

75959403 ?: ?=(%| -.tail) tail

@@ -7621,7 +9429,7 @@

76219429 ?~ pats [%& ~]

76229430 ?. ?=(%bind -.i.pats) [%| 'branch pattern is not supported by partial inference']

76239431 =/ name=term name.i.pats

7624− ?: |(?=(^ (ienv-lookup name env)) (lien globals |=(n=term =(n name))) (lien seen |=(n=term =(n name))))

9432+ ?: |(=(name %proj) ?=(^ (ienv-lookup name env)) (lien globals |=(n=term =(n name))) (lien seen |=(n=term =(n name))))

76259433 [%| 'pattern shadows a name']

76269434 =/ rest=(each (list term) @t) $(pats t.pats, seen [name seen])

76279435 ?: ?=(%| -.rest) rest

@@ -7646,10 +9454,19 @@

76469454 ?~ t.names |

76479455 =. typ (itype-walk typ sub)

76489456 ?: ?=(%cell -.typ) $(typ tal.typ, names t.names)

7649− |(?=(%union -.typ) ?=(%collection -.typ) ?=(%recursive -.typ) ?=(%noun -.typ) ?=(%fn -.typ) ?=(%tag -.typ))

9457+ |(?=(%union -.typ) ?=(%collection -.typ) ?=(%recursive -.typ) ?=(%jrec -.typ) ?=(%grec -.typ) ?=(%noun -.typ) ?=(%fn -.typ) ?=(%tag -.typ))

9458+::

9459+++ cell-binder-pattern

9460+ |= e=expr

9461+ ^- ?

9462+ ?. ?=(%branch -.e) |

9463+ ?~ arms.e |

9464+ ?^ t.arms.e |

9465+ ?. ?=(%cell -.pat.i.arms.e) |

9466+ !(single-structured-pattern e)

76509467::

76519468++ infer-cell-branch

7652− |= [e=expr env=ienv state=istate]

9469+ |= [e=expr env=ienv state=istate expected=(unit [typ=itype context=span])]

76539470 ^- iresult

76549471 ?> ?=(%branch -.e)

76559472 ?~ arms.e [%| ["branch is not supported by partial inference" ~]]

@@ -7673,7 +9490,16 @@

76739490 =/ binders=[typ=itype env=ienv next=@ud] (cell-pattern-types p.names env next.st)

76749491 =/ sub=(unit isub) (itype-unify typ.p.subject typ.binders sub.st)

76759492 ?~ sub [%| ["cell pattern does not match the subject type" ~]]

7676− (infer-fragment val.arm env.binders st(next next.binders, sub u.sub))

9493+ =. st st(next next.binders, sub u.sub)

9494+ ?~ expected (infer-fragment val.arm env.binders st)

9495+ =/ body=iresult (infer-call-context-arg val.arm typ.u.expected env.binders st context.u.expected)

9496+ ?: ?=(%| -.body) body

9497+ =/ fit=ifit (itype-fit typ.p.body typ.u.expected sub.state.p.body next.state.p.body)

9498+ ?: ?=(%unknown -.fit) [%| ["cell branch result constraint is not supported by partial inference" ~]]

9499+ ?: ?=(%bad -.fit) [%| ["cell branch arm does not fit its expected type" ~[[context.u.expected "expected type"] [(span-of val.arm) "branch arm"]]]]

9500+ ?: (itype-has-tag (itype-normalize typ.u.expected sub.fit))

9501+ [%| ["cell branch result needs context in partial inference" ~]]

9502+ [%& typ.u.expected state.p.body(sub sub.fit, next next.fit)]

76779503::

76789504++ show-itype

76799505 |= [t=itype sub=isub]

@@ -7686,13 +9512,20 @@

76869512 %avar

76879513 ?: (lth id.t 26) [(add 65 id.t) ~]

76889514 "T{<id.t>}"

9515+ %rvar

9516+ ?: (lth id.t 26) [(add 65 id.t) ~]

9517+ "T{<id.t>}"

76899518 %nvar

76909519 ?: (lth id.t 26) [(add 65 id.t) ~]

76919520 "T{<id.t>}"

9521+ %rnvar

9522+ ?: (lth id.t 26) [(add 65 id.t) ~]

9523+ "T{<id.t>}"

76929524 %atom "@{(trip aura.t)}"

76939525 %any-atom "@"

76949526 %flag "?"

76959527 %noun "*"

9528+ %empty "!!"

76969529 %tag (trip txt.literal.t)

76979530 %const (trip txt.literal.t)

76989531 %union

@@ -7700,6 +9533,8 @@

77009533 ?~ args.t (trip u.label.t)

77019534 "({(trip u.label.t)} {(show-itype-cases args.t sub)})"

77029535 %recursive ?~(label.t "recursive mold" (trip u.label.t))

9536+ %jrec ?~(label.t "recursive mold" (trip u.label.t))

9537+ %grec ?~(label.t "recursive mold" "({(trip u.label.t)} {(show-itype-cases args.t sub)})")

77039538 %collection "({(trip name.t)} {(show-itype-cases args.t sub)})"

77049539 %face "[{(trip name.t)}={(show-itype-context body.t sub)}]"

77059540 %fn "$-({(show-itype-context sample.t sub)} {(show-itype-context product.t sub)})"

@@ -7735,16 +9570,21 @@

77359570 ^- ?

77369571 ?- -.typ

77379572 %nvar &

9573+ %rnvar &

77389574 %var |

77399575 %avar |

9576+ %rvar |

77409577 %atom |

77419578 %any-atom |

77429579 %flag |

77439580 %noun |

9581+ %empty |

77449582 %tag |

77459583 %const |

77469584 %union |((lien cases.typ |=(c=itype (itype-has-nvar c))) (lien args.typ |=(c=itype (itype-has-nvar c))))

77479585 %recursive |

9586+ %jrec |

9587+ %grec (lien args.typ |=(c=itype (itype-has-nvar c)))

77489588 %collection (lien args.typ |=(c=itype (itype-has-nvar c)))

77499589 %face $(typ body.typ)

77509590 %fn |($(typ sample.typ) $(typ product.typ))

@@ -7755,7 +9595,7 @@

77559595 |= [label=tape typ=itype sub=isub]

77569596 ^- tape

77579597 =/ normalized=itype (itype-normalize typ sub)

7758− ?: |(?=(%var -.normalized) ?=(%avar -.normalized) (itype-has-nvar normalized) (itype-has-tag normalized) (itype-has-union normalized)) label

9598+ ?: |(?=(%var -.normalized) ?=(%avar -.normalized) ?=(%rvar -.normalized) (itype-has-nvar normalized) (itype-has-tag normalized) (itype-has-union normalized)) label

77599599 ?: (itype-has-hidden-recursive normalized) label

77609600 =/ vars=(list @ud) (unique-type-vars (itype-vars normalized))

77619601 ?: (gth (lent vars) 26) label

@@ -7777,6 +9617,7 @@

77779617 ?+ -.resolved ~

77789618 %var `id.resolved

77799619 %avar `id.resolved

9620+ %rvar `id.resolved

77809621 ==

77819622 ?~ ident $(caps t.caps)

77829623 ?: =(n u.ident) &

@@ -7791,6 +9632,7 @@

77919632 ?+ -.resolved ~

77929633 %var `id.resolved

77939634 %avar `id.resolved

9635+ %rvar `id.resolved

77949636 ==

77959637 ?~ ident $(caps t.caps)

77969638 ?: =(n u.ident) `i.caps

@@ -7805,6 +9647,7 @@

78059647 ?+ -.resolved ~

78069648 %var `id.resolved

78079649 %avar `id.resolved

9650+ %rvar `id.resolved

78089651 ==

78099652 ?~ ident $(caps t.caps)

78109653 =/ found=(unit icap) (cap-with-id u.ident t.caps sub)

@@ -7820,6 +9663,7 @@

78209663 ?+ -.resolved ~

78219664 %var `id.resolved

78229665 %avar `id.resolved

9666+ %rvar `id.resolved

78239667 ==

78249668 ?~ ident &

78259669 ?: (cap-id-in u.ident t.caps sub) &

@@ -7834,8 +9678,8 @@

78349678 ^- ?

78359679 ?~ caps |

78369680 =/ resolved=itype (itype-walk [%var id.i.caps] sub)

7837− ?: ?=(%avar -.resolved)

7838− ?: =(n id.resolved) &

9681+ ?: |(?=(%avar -.resolved) ?=(%rvar -.resolved))

9682+ ?: =(n +.resolved) &

78399683 $(caps t.caps)

78409684 $(caps t.caps)

78419685::

@@ -7845,15 +9689,20 @@

78459689 ?- -.t

78469690 %var |

78479691 %avar =(n id.t)

9692+ %rvar =(n id.t)

78489693 %nvar |

9694+ %rnvar |

78499695 %atom |

78509696 %any-atom |

78519697 %flag |

78529698 %noun |

9699+ %empty |

78539700 %tag |

78549701 %const |

78559702 %union |((lien cases.t |=(c=itype (has-atom-var n c))) (lien args.t |=(c=itype (has-atom-var n c))))

78569703 %recursive |

9704+ %jrec |

9705+ %grec (lien args.t |=(c=itype (has-atom-var n c)))

78579706 %collection (lien args.t |=(c=itype (has-atom-var n c)))

78589707 %face $(t body.t)

78599708 %fn |($(t sample.t) $(t product.t))

@@ -7893,6 +9742,10 @@

78939742 =/ out=tape ""

78949743 |-

78959744 ?~ vars out

9745+ ?: (itype-var-is-restricted i.vars t)

9746+ =/ sep=tape ?:(printed ", " " where ")

9747+ =/ clause=tape "{sep}{(show-itype [%rvar i.vars] ~)} is an atom other than ?"

9748+ $(vars t.vars, printed &, out (weld out clause))

78969749 ?: (itype-var-is-atom i.vars t)

78979750 =/ sep=tape ?:(printed ", " " where ")

78989751 =/ clause=tape "{sep}{(show-itype [%avar i.vars] ~)} is an atom"

@@ -7993,6 +9846,8 @@

79939846++ infer-recursive-gate

79949847 |= [d=def env=ienv state=istate]

79959848 ^- iresult

9849+ ?^ defer.state [%| ["deferred recursive inference is unsupported" ~]]

9850+ =. gate-defs.state ~

79969851 ?. ?=(%value -.d) [%| ["recursive definition is not a gate" ~]]

79979852 ?. |(?=(%gate -.val.d) ?=(%gate-wide -.val.d))

79989853 [%| ["recursive definition is not a gate" ~]]

@@ -8202,6 +10057,7 @@

820210057 ?: (constrained-capitals caps.entry sub.state)

820310058 [%| ["explicit capital constraints are not supported by partial inference" ~]]

820410059 =/ typ=itype (itype-normalize typ.entry sub.state)

10060+ ?: (itype-has-nvar typ) [%| ["recursive group needs unsupported inference" ~]]

820510061 ?: |((itype-has-tag typ) (itype-has-hidden-generic typ) (itype-has-hidden-recursive typ) (unsupported-atom-vars typ caps.entry binders.state sub.state))

820610062 [%| ["recursive group needs unsupported inference" ~]]

820710063 =/ free=(list @ud) (weld (free-env-vars env sub.state) (free-cap-vars caps.outer sub.state))

@@ -8215,46 +10071,52 @@

821510071++ infer-gate-group

821610072 |= [ds=(list def) env=ienv state=istate]

821710073 ^- ilocal-result

10074+ ?^ defer.state [%| ["deferred recursive inference is unsupported" ~]]

821810075 =/ names=(list term) (global-value-names ds)

821910076 ?. (levy names |=(n=term (unique-value-name n names)))

822010077 [%| ["recursive group contains duplicate names" ~]]

822110078 ?: (lien names |=(n=term ?=(^ (ienv-lookup n env))))

822210079 [%| ["recursive group shadows a name" ~]]

8223− =/ scoped=istate state(globals (weld names globals.state))

10080+ =/ scoped=istate state(globals (weld names globals.state), gate-defs ~)

822410081 =/ seeded=igate-seeds (seed-gate-group ds env scoped)

822510082 ?: ?=(%| -.seeded) seeded

822610083 =/ seeds=ienv (group-seed-env entries.p.seeded ~)

822710084 =/ body=igate-seeds (infer-gate-group-bodies entries.p.seeded seeds state.p.seeded)

822810085 ?: ?=(%| -.body) body

10086+ :: Per-member ownership through mutual recursion is not implemented.

10087+ ?: !=(projections.state.p.body projections.state)

10088+ [%| ["record projection in recursive groups needs unsupported inference" ~]]

10089+ ?: !=(holes.state.p.body holes.state)

10090+ [%| ["holes in recursive groups need unsupported inference" ~]]

822910091 ?: (pending-tags tags.state.p.body sub.state.p.body)

823010092 [%| ["recursive group has unresolved literal constraints" ~]]

823110093 =/ schemes=(each ienv idiag) (group-schemes entries.p.body env state state.p.body)

823210094 ?: ?=(%| -.schemes) schemes

823310095 [%& [(weld p.schemes env) state.p.body(globals globals.state)]]

823410096::

10097+++ width-finalize

10098+ |= [ps=(list iwprojection) sub=isub visible=(list @ud)]

10099+ ^- (unit (list iwprojection))

10100+ ?~ ps `~

10101+ ?: (lien t.ps |=(p=iwprojection =(at.p at.i.ps))) ~

10102+ =/ src=itype (default-decimals (itype-normalize source.i.ps sub))

10103+ =/ dst=itype (default-decimals (itype-normalize target.i.ps sub))

10104+ ?: |((itype-has-nvar src) (itype-has-nvar dst) (itype-has-tag src) (itype-has-tag dst)) ~

10105+ =/ vars=(list @ud) (weld (itype-vars src) (itype-vars dst))

10106+ ?. (levy vars |=(n=@ud (lien visible |=(v=@ud =(n v))))) ~

10107+ =/ rest=(unit (list iwprojection)) $(ps t.ps)

10108+ ?~ rest ~

10109+ =/ entry=iwprojection i.ps

10110+ =. entry entry(source src, target dst)

10111+ `[entry u.rest]

10112+::

823510113++ add-supported-defs

8236− |= [ds=(list def) env=ienv molds=imolds globals=(list term) externals=iexternals surs=(list term) mark-externals=imark-externals marks=(list term) jimports=ijimports reserved-molds=(list term) at=path prelude=(unit ifile)]

8237− ^- ienv

8238− ?~ ds env

8239− =/ d=def i.ds

8240− ?: ?=(%mold -.d) $(ds t.ds)

8241− ?. (unique-value-name name.d globals) $(ds t.ds)

8242− ?^ (ienv-lookup name.d env) $(ds t.ds)

8243− =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

8244− =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | at top prelude]

8245− =. initial (reserve-def-caps val.d initial)

8246− =/ result=iresult (infer-fragment val.d env initial)

8247− =? result ?=(%| -.result) (infer-recursive-gate d env initial)

8248− ?: ?=(%| -.result) $(ds t.ds)

8249− ?: (constrained-capitals caps.state.p.result sub.state.p.result) $(ds t.ds)

8250− =/ typ=itype (default-decimals (itype-normalize typ.p.result sub.state.p.result))

8251− ?: |((pending-tags tags.state.p.result sub.state.p.result) (itype-has-tag typ)) $(ds t.ds)

8252− ?: (unsupported-atom-vars typ caps.state.p.result binders.state.p.result sub.state.p.result) $(ds t.ds)

8253− =/ vars=(list @ud) (unique-type-vars (itype-vars typ))

8254− ?: (gth (lent vars) 26) $(ds t.ds)

8255− $(ds t.ds, env [[name.d [typ vars]] env])

10114+ |= [ds=(list def) all-defs=(list def) checked=(map term def) heads=(unit igate-prelude-evidence) env=ienv molds=imolds globals=(list term) externals=iexternals surs=(list term) mark-externals=imark-externals marks=(list term) jimports=ijimports reserved-molds=(list term) at=path prelude=(unit ifile) artifacts=(list iwidth-definition)]

10115+ ^- [env=ienv artifacts=(list iwidth-definition)]

10116+ (add-supported-defs-core ds all-defs checked heads env molds globals externals surs mark-externals marks jimports reserved-molds at prelude artifacts ~)

825610117::

8257−+$ iresolved [env=ienv grouped=(list term)]

10118+

10119++$ iresolved [env=ienv grouped=(list term) artifacts=(list iwidth-definition)]

825810120+$ iadj (map term (list term))

825910121+$ ivisited (map term ?)

826010122+$ iwork (list [name=term done=?])

@@ -8348,9 +10210,9 @@

834810210 (lien (graph-edges i.component graph) |=(x=term =(x i.component)))

834910211::

835010212++ add-groups

8351− |= [ds=(list def) components=icomponents graph=iadj env=ienv grouped=(list term) state=istate]

10213+ |= [ds=(list def) components=icomponents graph=iadj env=ienv grouped=(list term) artifacts=(list iwidth-definition) state=istate]

835210214 ^- iresolved

8353− ?~ components [env grouped]

10215+ ?~ components [env grouped artifacts]

835410216 =/ component=(list term) i.components

835510217 ?. (graph-cycle component graph) $(components t.components)

835610218 ?: (lien component |=(n=term ?=(^ (ienv-lookup n env)))) $(components t.components)

@@ -8367,19 +10229,63 @@

836710229++ resolve-groups

836810230 |= [ds=(list def) molds=imolds globals=(list term) externals=iexternals surs=(list term) mark-externals=imark-externals marks=(list term) jimports=ijimports reserved-molds=(list term) at=path prelude=(unit ifile)]

836910231 ^- iresolved

10232+ (resolve-groups-core ds molds globals externals surs mark-externals marks jimports reserved-molds at prelude ~)

10233+::

10234+

10235+++ add-supported-defs-core

10236+ |= [ds=(list def) all-defs=(list def) checked=(map term def) heads=(unit igate-prelude-evidence) env=ienv molds=imolds globals=(list term) externals=iexternals surs=(list term) mark-externals=imark-externals marks=(list term) jimports=ijimports reserved-molds=(list term) at=path prelude=(unit ifile) artifacts=(list iwidth-definition) index=(unit [at=path source=@t prelude=ifile shapes=(map term shape)])]

10237+ ^- [env=ienv artifacts=(list iwidth-definition)]

10238+ ?~ ds [env artifacts]

10239+ =/ d=def i.ds

10240+ ?: ?=(%mold -.d) $(ds t.ds)

10241+ ?. (unique-value-name name.d globals) $(ds t.ds)

10242+ ?^ (ienv-lookup name.d env) $(ds t.ds)

10243+ =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

10244+ =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | at top prelude ~ 256 ~ ~ ~ ~ ~ ~]

10245+ =. grec-index.initial index

10246+ =. gate-defs.initial checked

10247+ =. head-evidence.initial heads

10248+ =. initial (reserve-def-caps val.d initial)

10249+ =/ result=iresult (infer-fragment val.d env initial)

10250+ =? result ?=(%| -.result) (infer-recursive-gate d env initial)

10251+ ?: ?=(%| -.result) $(ds t.ds)

10252+ =. state.p.result (promote-restricted-numbers state.p.result env)

10253+ =. state.p.result (default-hole-numbers holes.state.p.result holes.initial state.p.result env !(itype-has-gate (itype-normalize typ.p.result sub.state.p.result)))

10254+ ?^ (unresolved-hole holes.state.p.result holes.initial state.p.result) $(ds t.ds)

10255+ ?: (constrained-capitals caps.state.p.result sub.state.p.result) $(ds t.ds)

10256+ =/ typ=itype (default-decimals (itype-normalize typ.p.result sub.state.p.result))

10257+ ?: |((pending-tags tags.state.p.result sub.state.p.result) (itype-has-tag typ)) $(ds t.ds)

10258+ ?: (unsupported-atom-vars typ caps.state.p.result binders.state.p.result sub.state.p.result) $(ds t.ds)

10259+ =/ vars=(list @ud) (unique-type-vars (itype-vars typ))

10260+ ?: (gth (lent vars) 26) $(ds t.ds)

10261+ =/ finalized=(unit (list iwprojection))

10262+ (width-finalize projections.state.p.result sub.state.p.result vars)

10263+ ?~ finalized $(ds t.ds)

10264+ =? artifacts ?=(^ u.finalized)

10265+ [[name.d val.d typ sub.state.p.result (flop u.finalized)] artifacts]

10266+ =? checked |(?=(%gate -.val.d) ?=(%gate-wide -.val.d)) (~(put by checked) name.d d)

10267+ $(ds t.ds, env [[name.d [typ vars]] env], checked checked)

10268+::

10269+++ resolve-groups-core

10270+ |= [ds=(list def) molds=imolds globals=(list term) externals=iexternals surs=(list term) mark-externals=imark-externals marks=(list term) jimports=ijimports reserved-molds=(list term) at=path prelude=(unit ifile) index=(unit [at=path source=@t prelude=ifile shapes=(map term shape)])]

10271+ ^- iresolved

837010272 =/ env=ienv ~

837110273 =/ grouped=(list term) ~

10274+ =/ artifacts=(list iwidth-definition) ~

837210275 =/ names=(list term) (global-value-names ds)

837310276 =/ nameset=ivisited (graph-nameset names ~)

837410277 =/ graph=iadj (graph-make-forward ds nameset ~)

837510278 =/ components=icomponents (graph-components ds names)

837610279 =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

10280+ =/ heads=(unit igate-prelude-evidence) (direct-prelude-evidence ds prelude)

837710281 |-

8378− =/ next=ienv (add-supported-defs ds env molds globals externals surs mark-externals marks jimports reserved-molds at prelude)

8379− =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | at top prelude]

8380− =/ out=iresolved (add-groups ds components graph next grouped initial)

10282+ =/ next=[env=ienv artifacts=(list iwidth-definition)]

10283+ (add-supported-defs-core ds ds (direct-checked-gates ds env) heads env molds globals externals surs mark-externals marks jimports reserved-molds at prelude artifacts index)

10284+ =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | at top prelude ~ 256 ~ ~ ~ ~ ~ ~]

10285+ =. grec-index.initial index

10286+ =/ out=iresolved (add-groups ds components graph env.next grouped artifacts.next initial)

838110287 ?: =(env env.out) out

8382− $(env env.out, grouped grouped.out)

10288+ $(env env.out, grouped grouped.out, artifacts artifacts.out)

838310289::

838410290++ resolve-supported-defs

838510291 |= [ds=(list def) molds=imolds globals=(list term) externals=iexternals surs=(list term) mark-externals=imark-externals marks=(list term) jimports=ijimports reserved-molds=(list term) at=path prelude=(unit ifile)]

@@ -8625,6 +10531,257 @@

862510531 %overlap

862610532 %unknown

862710533::

10534+:: A source-only fallback for literal-tagged cells and one-hop local

10535+:: generic applications. It screens all work before ordinary inference.

10536+++ union-simple-shape-budget

10537+ |= [s=shape fuel=@ud vars=(unit (list @t))]

10538+ ^- (unit @ud)

10539+ ?: =(0 fuel) ~

10540+ =. fuel (dec fuel)

10541+ ?- -.s

10542+ ?(%aura %noun %void %flag) `fuel

10543+ %tvar

10544+ ?~ vars `fuel

10545+ ?:((lien u.vars |=(n=@t =(n name.s))) `fuel ~)

10546+ %const

10547+ ?. |(=(%term form.lit.s) =(%null form.lit.s) =(%loobean form.lit.s)) ~

10548+ ?: &(=(%loobean form.lit.s) !|(=(0 val.lit.s) =(1 val.lit.s))) ~

10549+ `fuel

10550+ %cell (union-simple-fields-budget fields.s fuel vars)

10551+ %fn

10552+ =/ left=(unit @ud) $(s sample.s, fuel fuel)

10553+ ?~ left ~

10554+ $(s product.s, fuel u.left)

10555+ * ~

10556+ ==

10557+++ union-simple-fields-budget

10558+ |= [fields=(list field) fuel=@ud vars=(unit (list @t))]

10559+ ^- (unit @ud)

10560+ ?~ fields `fuel

10561+ ?: =(0 fuel) ~

10562+ =/ field-shape=shape

10563+ ?- -.i.fields

10564+ %bare shape.i.fields

10565+ %face shape.i.fields

10566+ %pun [%ref at.i.fields ~[name.i.fields]]

10567+ ==

10568+ =/ head=(unit @ud) (union-simple-shape-budget field-shape (dec fuel) vars)

10569+ ?~ head ~

10570+ $(fields t.fields, fuel u.head)

10571+++ union-source-find

10572+ |= [n=term molds=imolds fuel=@ud]

10573+ ^- (unit [body=shape left=@ud])

10574+ =/ found=(unit shape) ~

10575+ |-

10576+ ?~ molds

10577+ ?~ found ~

10578+ `[u.found fuel]

10579+ ?: =(0 fuel) ~

10580+ ?: =(n name.i.molds)

10581+ ?^ found ~

10582+ $(molds t.molds, fuel (dec fuel), found `body.i.molds)

10583+ $(molds t.molds, fuel (dec fuel))

10584+++ union-source-args-budget

10585+ |= [vars=(list @t) args=(list shape) fuel=@ud]

10586+ ^- (unit @ud)

10587+ =/ seen=(set @t) *(set @t)

10588+ |-

10589+ ?~ vars ?~(args `fuel ~)

10590+ ?~ args ~

10591+ ?: =(0 fuel) ~

10592+ ?: (~(has in:..zuse seen) i.vars) ~

10593+ =/ arg=(unit @ud) (union-simple-shape-budget i.args (dec fuel) ~)

10594+ ?~ arg ~

10595+ $(vars t.vars, args t.args, fuel u.arg, seen (~(put in:..zuse seen) i.vars))

10596+++ union-source-cell-tag

10597+ |= s=shape

10598+ ^- (unit @)

10599+ ?. ?=(%cell -.s) ~

10600+ ?~ fields.s ~

10601+ ?~ t.fields.s ~

10602+ ?. ?=(%bare -.i.fields.s) ~

10603+ =/ head=shape shape.i.fields.s

10604+ ?. ?=(%const -.head) ~

10605+ ?. |(=(%term form.lit.head) =(%null form.lit.head) =(%loobean form.lit.head)) ~

10606+ ?: &(=(%loobean form.lit.head) !|(=(0 val.lit.head) =(1 val.lit.head))) ~

10607+ `val.lit.head

10608+++ union-source-case-tag

10609+ |= [s=shape molds=imolds fuel=@ud]

10610+ ^- (unit [tag=@ left=@ud])

10611+ ?: ?=(%cell -.s)

10612+ =/ tag=(unit @) (union-source-cell-tag s)

10613+ ?~ tag ~

10614+ =/ left=(unit @ud) (union-simple-shape-budget s fuel ~)

10615+ ?~ left ~

10616+ `[u.tag u.left]

10617+ ?. ?=(%apply -.s) ~

10618+ ?. ?=([@ ~] ref.s) ~

10619+ ?: =(0 fuel) ~

10620+ =/ found=(unit [body=shape left=@ud]) (union-source-find i.ref.s molds (dec fuel))

10621+ ?~ found ~

10622+ ?. ?=(%generic -.body.u.found) ~

10623+ ?~ vars.body.u.found ~

10624+ =/ tag=(unit @) (union-source-cell-tag body.body.u.found)

10625+ ?~ tag ~

10626+ =/ args=(unit @ud) (union-source-args-budget vars.body.u.found args.s left.u.found)

10627+ ?~ args ~

10628+ =/ left=(unit @ud) (union-simple-shape-budget body.body.u.found u.args `vars.body.u.found)

10629+ ?~ left ~

10630+ `[u.tag u.left]

10631+++ union-source-distinct-tags

10632+ |= [cases=(list shape) molds=imolds fuel=@ud]

10633+ ^- ?

10634+ =/ seen=(set @) *(set @)

10635+ =/ has-application=? |

10636+ |-

10637+ ?~ cases has-application

10638+ ?: =(0 fuel) |

10639+ =/ item=(unit [tag=@ left=@ud]) (union-source-case-tag i.cases molds (dec fuel))

10640+ ?~ item |

10641+ ?: (~(has in:..zuse seen) tag.u.item) |

10642+ $(cases t.cases, fuel left.u.item, seen (~(put in:..zuse seen) tag.u.item), has-application |(has-application ?=(%apply -.i.cases)))

10643+::

10644+:: This inference-only screen bounds inherited work that the small source

10645+:: slice may consult. It does not authenticate a caller-created state.

10646+++ union-state-leaf

10647+ |= t=itype

10648+ ^- ?

10649+ ?=(?(%var %avar %rvar %nvar %rnvar %atom %any-atom %flag %noun %empty %const) -.t)

10650+++ union-state-params-budget

10651+ |= [params=iparams fuel=@ud]

10652+ ^- (unit @ud)

10653+ ?~ params `fuel

10654+ ?: =(0 fuel) ~

10655+ ?. (union-state-leaf typ.i.params) ~

10656+ $(params t.params, fuel (dec fuel))

10657+++ union-state-sub-budget

10658+ |= [sub=isub fuel=@ud]

10659+ ^- (unit @ud)

10660+ ?~ sub `fuel

10661+ ?: =(0 fuel) ~

10662+ ?. (union-state-leaf val.i.sub) ~

10663+ $(sub t.sub, fuel (dec fuel))

10664+++ union-state-caps-budget

10665+ |= [caps=icaps fuel=@ud]

10666+ ^- (unit @ud)

10667+ ?~ caps `fuel

10668+ ?: =(0 fuel) ~

10669+ $(caps t.caps, fuel (dec fuel))

10670+++ union-state-active-budget

10671+ |= [active=(list term) fuel=@ud]

10672+ ^- (unit @ud)

10673+ ?~ active `fuel

10674+ ?: =(0 fuel) ~

10675+ $(active t.active, fuel (dec fuel))

10676+++ union-state-tags-budget

10677+ |= [tags=(list ipending) fuel=@ud]

10678+ ^- (unit @ud)

10679+ ?~ tags `fuel

10680+ ?: =(0 fuel) ~

10681+ $(tags t.tags, fuel (dec fuel))

10682+++ union-source-state-safe

10683+ |= [state=istate fuel=@ud]

10684+ ^- ?

10685+ ?^ grec-index.state |

10686+ ?^ holes.state |

10687+ ?^ defer.state |

10688+ ?^ obligations.state |

10689+ =/ params=(unit @ud) (union-state-params-budget params.state fuel)

10690+ ?~ params |

10691+ =/ sub=(unit @ud) (union-state-sub-budget sub.state u.params)

10692+ ?~ sub |

10693+ =/ caps=(unit @ud) (union-state-caps-budget caps.state u.sub)

10694+ ?~ caps |

10695+ =/ active=(unit @ud) (union-state-active-budget active.state u.caps)

10696+ ?~ active |

10697+ ?=(^ (union-state-tags-budget tags.state u.active))

10698+::

10699+:: Positive overlap witnesses from parsed, one-hop local source only.

10700+:: Unknown or exhausted work returns no witness, never disjointness.

10701++$ uow-case [at=span head=@ payload=upat]

10702+++ union-overlap-primitive

10703+ |= s=shape

10704+ ^- (unit upat)

10705+ ?- -.s

10706+ %aura `[%atom ~]

10707+ %noun `[%all ~]

10708+ %void `[%empty ~]

10709+ %flag `[%flag ~]

10710+ %const

10711+ ?. |(=(%term form.lit.s) =(%null form.lit.s) =(%loobean form.lit.s)) ~

10712+ ?: &(=(%loobean form.lit.s) !|(=(0 val.lit.s) =(1 val.lit.s))) ~

10713+ `[%atom `val.lit.s]

10714+ * ~

10715+ ==

10716+++ union-overlap-case

10717+ |= [s=shape molds=imolds fuel=@ud]

10718+ ^- (unit [item=uow-case left=@ud])

10719+ ?: =(0 fuel) ~

10720+ =. fuel (dec fuel)

10721+ :: Each body has exactly two fields; an application has exactly one

10722+ :: parameter and one concrete primitive argument. The full mold table

10723+ :: is scanned to establish unique ownership.

10724+ =/ expanded=(unit [body=shape param=(unit [name=@t pat=upat]) left=@ud])

10725+ ?: ?=(%cell -.s) `[s ~ fuel]

10726+ ?. ?=(%apply -.s) ~

10727+ ?. ?=([@ ~] ref.s) ~

10728+ ?. ?=([* ~] args.s) ~

10729+ ?: =(0 fuel) ~

10730+ =/ found=(unit [body=shape left=@ud]) (union-source-find i.ref.s molds (dec fuel))

10731+ ?~ found ~

10732+ ?. ?=(%generic -.body.u.found) ~

10733+ ?. ?=([@ ~] vars.body.u.found) ~

10734+ ?: =(0 left.u.found) ~

10735+ =/ argument=(unit upat) (union-overlap-primitive i.args.s)

10736+ ?~ argument ~

10737+ `[body.body.u.found `[i.vars.body.u.found u.argument] (dec left.u.found)]

10738+ ?~ expanded ~

10739+ =/ body=shape body.u.expanded

10740+ ?. ?=(%cell -.body) ~

10741+ ?. ?=([* * ~] fields.body) ~

10742+ :: Charge the cell, two fields, and the head and payload nodes.

10743+ ?: (lth left.u.expanded 5) ~

10744+ =/ head=(unit @) (union-source-cell-tag body)

10745+ ?~ head ~

10746+ =/ field=field i.t.fields.body

10747+ =/ payload=shape

10748+ ?- -.field

10749+ %bare shape.field

10750+ %face shape.field

10751+ %pun [%ref at.field ~[name.field]]

10752+ ==

10753+ =/ pattern=(unit upat)

10754+ ?: ?=(%tvar -.payload)

10755+ ?~ param.u.expanded ~

10756+ ?. =(name.payload name.u.param.u.expanded) ~

10757+ `pat.u.param.u.expanded

10758+ (union-overlap-primitive payload)

10759+ ?~ pattern ~

10760+ `[[at.s u.head u.pattern] (sub left.u.expanded 5)]

10761+++ union-overlap-against

10762+ |= [first=uow-case rest=(list shape) molds=imolds fuel=@ud]

10763+ ^- (unit [witness=(unit upair) left=@ud])

10764+ ?~ rest `[~ fuel]

10765+ ?: =(0 fuel) ~

10766+ =/ other=(unit [item=uow-case left=@ud]) (union-overlap-case i.rest molds (dec fuel))

10767+ ?~ other ~

10768+ ?: &(=(head.first head.item.u.other) =(%overlap (union-relate payload.first payload.item.u.other)))

10769+ `[`[at.first at.item.u.other %overlap] left.u.other]

10770+ $(rest t.rest, fuel left.u.other)

10771+++ union-source-overlap

10772+ |= [cases=(list shape) molds=imolds fuel=@ud]

10773+ ^- (unit upair)

10774+ ?~ cases ~

10775+ ?~ t.cases ~

10776+ ?: =(0 fuel) ~

10777+ =/ first=(unit [item=uow-case left=@ud]) (union-overlap-case i.cases molds (dec fuel))

10778+ ?~ first ~

10779+ =/ found=(unit [witness=(unit upair) left=@ud])

10780+ (union-overlap-against item.u.first t.cases molds left.u.first)

10781+ ?~ found ~

10782+ ?^ witness.u.found witness.u.found

10783+ $(cases t.cases, fuel left.u.found)

10784+::

862810785++ union-pairs

862910786 |= [cases=(list shape) molds=imolds]

863010787 ^- (list upair)

@@ -8638,15 +10795,151 @@

863810795 [at.first at.second (union-relate a (project-union-mold second molds ~))]

863910796 (weld pairs $(cases t.cases))

864010797::

10798+:: A closed structural mold supplies no equation to determine a hole.

10799+:: Applications, references, unbound capitals and unions are unproved.

10800+++ simple-mold-hole

10801+ |= sh=shape

10802+ ^- (unit (unit span))

10803+ ?: ?=(%generic -.sh)

10804+ ?~ vars.sh ~

10805+ ?. (distinct-params vars.sh) ~

10806+ (simple-mold-hole-in body.sh vars.sh)

10807+ (simple-mold-hole-in sh ~)

10808+++ simple-mold-hole-in

10809+ |= [sh=shape vars=(list @t)]

10810+ ^- (unit (unit span))

10811+ ?- -.sh

10812+ %hole ``at.sh

10813+ ?(%aura %noun %void %flag %const) `~

10814+ %tvar ?:((lien vars |=(v=@t =(v name.sh))) `~ ~)

10815+ %cell (simple-mold-field-holes fields.sh vars)

10816+ %fn

10817+ =/ a=(unit (unit span)) $(sh sample.sh)

10818+ ?~ a ~

10819+ =/ b=(unit (unit span)) $(sh product.sh)

10820+ ?~ b ~

10821+ `?~(u.a u.b u.a)

10822+ %generic ~

10823+ * ~

10824+ ==

10825+++ simple-mold-field-holes

10826+ |= [fields=(list field) vars=(list @t)]

10827+ ^- (unit (unit span))

10828+ ?~ fields `~

10829+ =/ f=field i.fields

10830+ =/ first=(unit (unit span))

10831+ ?- -.f

10832+ %face (simple-mold-hole-in shape.f vars)

10833+ %bare (simple-mold-hole-in shape.f vars)

10834+ %pun ~

10835+ ==

10836+ ?~ first ~

10837+ =/ rest=(unit (unit span)) $(fields t.fields)

10838+ ?~ rest ~

10839+ `?~(u.first u.rest u.first)

10840+++ simple-local-mold-hole

10841+ |= defs=(list def)

10842+ ^- (unit span)

10843+ ?~ defs ~

10844+ ?. ?=(%mold -.i.defs) $(defs t.defs)

10845+ =/ found=(unit (unit span)) (simple-mold-hole shape.i.defs)

10846+ ?~ found $(defs t.defs)

10847+ ?^ u.found u.found

10848+ $(defs t.defs)

10849+::

10850+:: A partial prelude may omit unsupported declarations, but may not

10851+:: publish an interface while a named mold's hole remains unchecked.

10852+++ shape-has-hole

10853+ |= sh=shape

10854+ ^- ?

10855+ ?- -.sh

10856+ %hole &

10857+ %path (lien segs.sh |=(s=pseg ?=(%inferred -.s)))

10858+ %apply (lien args.sh shape-has-hole)

10859+ %union (lien cases.sh shape-has-hole)

10860+ %cell (lien fields.sh field-has-hole)

10861+ %fn |($(sh sample.sh) $(sh product.sh))

10862+ %generic $(sh body.sh)

10863+ * |

10864+ ==

10865+++ field-has-hole

10866+ |= f=field

10867+ ^- ?

10868+ ?- -.f

10869+ %face (shape-has-hole shape.f)

10870+ %bare (shape-has-hole shape.f)

10871+ %pun |

10872+ ==

10873+++ named-mold-has-hole

10874+ |= ds=(list def)

10875+ ^- ?

10876+ ?~ ds |

10877+ ?: &(?=(%mold -.i.ds) (shape-has-hole shape.i.ds)) &

10878+ $(ds t.ds)

10879+::

10880+++ sample-has-hole

10881+ |= sam=sample

10882+ ^- ?

10883+ ?- -.sam

10884+ %face (shape-has-hole shape.sam)

10885+ %bare (shape-has-hole shape.sam)

10886+ %cell (lien items.sam sample-has-hole)

10887+ * |

10888+ ==

10889+++ def-has-hole

10890+ |= d=def

10891+ ^- ?

10892+ ?- -.d

10893+ %mold (shape-has-hole shape.d)

10894+ %value (expr-has-hole val.d)

10895+ ==

10896+++ expr-has-hole

10897+ |= e=expr

10898+ ^- ?

10899+ ?- -.e

10900+ %str (lien pieces.e |=(p=piece ?:(?=(%expr -.p) (expr-has-hole p.p) |)))

10901+ %qath (lien segs.e |=(p=qseg ?:(?=(%expr -.p) (expr-has-hole p.p) |)))

10902+ %change (lien edits.e |=(p=edit (expr-has-hole val.p)))

10903+ %pair $(e val.e)

10904+ %unit $(e val.e)

10905+ %group $(e inner.e)

10906+ %list (lien items.e expr-has-hole)

10907+ %tuple (lien items.e |=(i=item (expr-has-hole val.i)))

10908+ ?(%gate %gate-wide) |((sample-has-hole sample.e) $(e body.e))

10909+ %cast |((shape-has-hole shape.e) $(e val.e))

10910+ %call |($(e head.e) (lien args.e expr-has-hole))

10911+ %trace |($(e val.e) $(e then.e))

10912+ %branch |($(e subject.e) (lien arms.e |=(a=arm (expr-has-hole val.a))))

10913+ %body |((lien defs.e def-has-hole) $(e final.e))

10914+ * |

10915+ ==

10916+++ hole-values-present

10917+ |= [ds=(list def) env=ienv]

10918+ ^- ?

10919+ ?~ ds &

10920+ ?. ?=(%value -.i.ds) $(ds t.ds)

10921+ ?: (expr-has-hole val.i.ds)

10922+ ?. ?=(^ (ienv-lookup name.i.ds env)) |

10923+ $(ds t.ds)

10924+ $(ds t.ds)

864110925++ show-partial-mold

864210926 |= [file=path src=@t d=def molds=imolds]

864310927 ^- @t

864410928 ?> ?=(%mold -.d)

864510929 =/ sh=shape shape.d

10930+ =/ hole=(unit (unit span)) (simple-mold-hole sh)

10931+ ?: &(?=(^ hole) ?=(^ u.hole))

10932+ =/ text=@t (show-error src [file line.beg.u.u.hole col.beg.u.u.hole "unresolved type hole"])

10933+ (of-wain:format ~[(crip "+$ {(trip name.d)}: type hole needs a determined type") text])

864610934 =? sh ?=(%generic -.sh) body.sh

864710935 ?. ?=(%union -.sh) (crip "+$ {(trip name.d)}: not checked")

864810936 =/ pairs=(list upair) (union-pairs cases.sh molds)

864910937 =/ overlapping=(list upair) (skim pairs |=(p=upair =(%overlap relation.p)))

10938+ =. overlapping

10939+ ?^ overlapping overlapping

10940+ ?. (lien pairs |=(p=upair =(%unknown relation.p))) ~

10941+ =/ witness=(unit upair) (union-source-overlap cases.sh molds 256)

10942+ ?~(witness ~ ~[u.witness])

865010943 ?^ overlapping

865110944 =/ p=upair i.overlapping

865210945 =/ summary=@t (crip "+$ {(trip name.d)}: overlapping cases; mold not checked")

@@ -8654,7 +10947,9 @@

865410947 =/ second=@t (show-error src [file line.beg.second.p col.beg.second.p "overlapping case"])

865510948 (of-wain:format ~[summary first second])

865610949 ?: (lien pairs |=(p=upair =(%unknown relation.p)))

8657− (crip "+$ {(trip name.d)}: case disjointness unresolved; mold not checked")

10950+ ?. (union-source-distinct-tags cases.sh molds 256)

10951+ (crip "+$ {(trip name.d)}: case disjointness unresolved; mold not checked")

10952+ (crip "+$ {(trip name.d)}: cases proven disjoint; mold not checked")

865810953 (crip "+$ {(trip name.d)}: cases proven disjoint; mold not checked")

865910954::

866010955:: +show-inference-diagnostic: a partial report with both source sites

@@ -8669,6 +10964,21 @@

866910964 (show-error src [file line.beg.at.site col.beg.at.site note.site])

867010965 (of-wain:format [summary excerpts])

867110966::

10967+:: Both written field sites are shown in the source that declares them.

10968+++ show-duplicate-fields

10969+ |= [file=path src=@t diagnostic=idiag]

10970+ ^- @t

10971+ =/ excerpts=(list @t)

10972+ %+ turn sites.diagnostic

10973+ |= site=[at=span note=tape]

10974+ (show-error src [file line.beg.at.site col.beg.at.site note.site])

10975+ (of-wain:format [(crip msg.diagnostic) excerpts])

10976+::

10977+++ duplicate-fields-report

10978+ |= [file=path src=@t diagnostic=idiag]

10979+ ^- @t

10980+ (of-wain:format ~['partial inference; module not checked' (show-duplicate-fields file src diagnostic)])

10981+::

867210982:: +golden-types: a partial report; it does not claim the module checks

867310983::

867410984++ golden-types

@@ -8696,8 +11006,189 @@

869611006+$ jbundle (list jsource)

869711007+$ jcache (list [at=path iface=ifile])

869811008+$ jfile-result (each [iface=ifile cache=jcache] @t)

11009+:: Overlap evidence retains the exact source that supplied its spans.

11010+:: Ordinary Jibb imports preserve this evidence through the resolver.

11011++$ jfile-overlap [file=path source=@t name=term cases=upair]

11012++$ jfile-failure [message=@t overlap=(unit jfile-overlap)]

11013++$ jfile-detailed-result (each [iface=ifile cache=jcache] jfile-failure)

869911014+$ jimports-result (each [resolved=ijimports cache=jcache] @t)

11015+:: Preserve an imported overlap's original file and source across the graph.

11016++$ jimports-detailed-result (each [resolved=ijimports cache=jcache] jfile-failure)

870011017::

11018+:: Written record fields each have their own lexical record scope.

11019++$ written-fields (map term span)

11020+++ duplicate-written-field

11021+ |= [name=term at=span seen=written-fields]

11022+ ^- (unit idiag)

11023+ =/ prior=(unit span) (~(get by seen) name)

11024+ ?~ prior ~

11025+ `["record field `{(trip name)}` is repeated" ~[[u.prior "first field"] [at "repeated field"]]]

11026+++ duplicate-shapes

11027+ |= xs=(list shape)

11028+ ^- (unit idiag)

11029+ ?~ xs ~

11030+ =/ first (duplicate-shape i.xs)

11031+ ?^ first first

11032+ $(xs t.xs)

11033+++ duplicate-fields

11034+ |= [fields=(list field) seen=written-fields]

11035+ ^- (unit idiag)

11036+ ?~ fields ~

11037+ =/ f=field i.fields

11038+ =/ n=(unit term)

11039+ ?- -.f

11040+ %face `name.f

11041+ %pun `name.f

11042+ %bare ~

11043+ ==

11044+ =/ dup=(unit idiag) ?~(n ~ (duplicate-written-field u.n at.f seen))

11045+ ?^ dup dup

11046+ =/ inner=(unit idiag)

11047+ ?- -.f

11048+ %face (duplicate-shape shape.f)

11049+ %pun ~

11050+ %bare (duplicate-shape shape.f)

11051+ ==

11052+ ?^ inner inner

11053+ $(fields t.fields, seen ?~(n seen (~(put by seen) u.n at.f)))

11054+++ duplicate-shape

11055+ |= s=shape

11056+ ^- (unit idiag)

11057+ ?- -.s

11058+ %cell (duplicate-fields fields.s ~)

11059+ %apply (duplicate-shapes args.s)

11060+ %union (duplicate-shapes cases.s)

11061+ %fn

11062+ =/ left (duplicate-shape sample.s)

11063+ ?^ left left

11064+ (duplicate-shape product.s)

11065+ %generic (duplicate-shape body.s)

11066+ * ~

11067+ ==

11068+++ duplicate-samples

11069+ |= [items=(list sample) seen=written-fields]

11070+ ^- (unit idiag)

11071+ ?~ items ~

11072+ =/ a=sample i.items

11073+ =/ n=(unit term)

11074+ ?- -.a

11075+ %bind `name.a

11076+ %face `name.a

11077+ %pun `name.a

11078+ * ~

11079+ ==

11080+ =/ dup=(unit idiag) ?~(n ~ (duplicate-written-field u.n at.a seen))

11081+ ?^ dup dup

11082+ =/ inner (duplicate-sample a)

11083+ ?^ inner inner

11084+ $(items t.items, seen ?~(n seen (~(put by seen) u.n at.a)))

11085+++ duplicate-sample

11086+ |= s=sample

11087+ ^- (unit idiag)

11088+ ?- -.s

11089+ %cell (duplicate-samples items.s ~)

11090+ %face (duplicate-shape shape.s)

11091+ %bare (duplicate-shape shape.s)

11092+ * ~

11093+ ==

11094+++ duplicate-exprs

11095+ |= xs=(list expr)

11096+ ^- (unit idiag)

11097+ ?~ xs ~

11098+ =/ first (duplicate-expr i.xs)

11099+ ?^ first first

11100+ $(xs t.xs)

11101+++ duplicate-items

11102+ |= [items=(list item) seen=written-fields]

11103+ ^- (unit idiag)

11104+ ?~ items ~

11105+ =/ a=item i.items

11106+ =/ dup=(unit idiag) ?~(face.a ~ (duplicate-written-field u.face.a at.a seen))

11107+ ?^ dup dup

11108+ =/ inner (duplicate-expr val.a)

11109+ ?^ inner inner

11110+ $(items t.items, seen ?~(face.a seen (~(put by seen) u.face.a at.a)))

11111+++ duplicate-pieces

11112+ |= pieces=(list piece)

11113+ ^- (unit idiag)

11114+ ?~ pieces ~

11115+ =/ first=(unit idiag) ?:(?=(%expr -.i.pieces) (duplicate-expr p.i.pieces) ~)

11116+ ?^ first first

11117+ $(pieces t.pieces)

11118+++ duplicate-qsegs

11119+ |= segs=(list qseg)

11120+ ^- (unit idiag)

11121+ ?~ segs ~

11122+ =/ first=(unit idiag) ?:(?=(%expr -.i.segs) (duplicate-expr p.i.segs) ~)

11123+ ?^ first first

11124+ $(segs t.segs)

11125+++ duplicate-edits

11126+ |= edits=(list edit)

11127+ ^- (unit idiag)

11128+ ?~ edits ~

11129+ =/ first (duplicate-expr val.i.edits)

11130+ ?^ first first

11131+ $(edits t.edits)

11132+++ duplicate-arms

11133+ |= arms=(list arm)

11134+ ^- (unit idiag)

11135+ ?~ arms ~

11136+ =/ first (duplicate-expr val.i.arms)

11137+ ?^ first first

11138+ $(arms t.arms)

11139+++ duplicate-defs

11140+ |= defs=(list def)

11141+ ^- (unit idiag)

11142+ ?~ defs ~

11143+ =/ first=(unit idiag)

11144+ ?- -.i.defs

11145+ %mold (duplicate-shape shape.i.defs)

11146+ %value (duplicate-expr val.i.defs)

11147+ ==

11148+ ?^ first first

11149+ $(defs t.defs)

11150+++ duplicate-expr

11151+ |= e=expr

11152+ ^- (unit idiag)

11153+ ?- -.e

11154+ %str (duplicate-pieces pieces.e)

11155+ %qath (duplicate-qsegs segs.e)

11156+ %change (duplicate-edits edits.e)

11157+ %pair (duplicate-expr val.e)

11158+ %unit (duplicate-expr val.e)

11159+ %group (duplicate-expr inner.e)

11160+ %list (duplicate-exprs items.e)

11161+ %tuple (duplicate-items items.e ~)

11162+ %gate-wide

11163+ =/ first (duplicate-sample sample.e)

11164+ ?^ first first

11165+ (duplicate-expr body.e)

11166+ %gate

11167+ =/ first (duplicate-sample sample.e)

11168+ ?^ first first

11169+ (duplicate-expr body.e)

11170+ %cast

11171+ =/ first (duplicate-shape shape.e)

11172+ ?^ first first

11173+ (duplicate-expr val.e)

11174+ %call

11175+ =/ first (duplicate-expr head.e)

11176+ ?^ first first

11177+ (duplicate-exprs args.e)

11178+ %trace

11179+ =/ first (duplicate-expr val.e)

11180+ ?^ first first

11181+ (duplicate-expr then.e)

11182+ %branch

11183+ =/ first (duplicate-expr subject.e)

11184+ ?^ first first

11185+ (duplicate-arms arms.e)

11186+ %body

11187+ =/ first (duplicate-defs defs.e)

11188+ ?^ first first

11189+ (duplicate-expr final.e)

11190+ * ~

11191+ ==

870111192++ import-binding-names

870211193 |= imports=(list import)

870311194 ^- (list term)

@@ -8710,6 +11201,60 @@

871011201 ==

871111202 [n $(imports t.imports)]

871211203::

11204+++ reserved-proj-sample

11205+ |= sam=sample

11206+ ^- ?

11207+ ?- -.sam

11208+ %bind =(name.sam %proj)

11209+ %face =(name.sam %proj)

11210+ %pun =(name.sam %proj)

11211+ %cell (lien items.sam reserved-proj-sample)

11212+ * |

11213+ ==

11214+++ reserved-proj-pattern

11215+ |= p=pattern

11216+ ^- ?

11217+ ?- -.p

11218+ %bind =(name.p %proj)

11219+ %cell (lien items.p reserved-proj-pattern)

11220+ * |

11221+ ==

11222+++ reserved-proj-def

11223+ |= d=def

11224+ ^- ?

11225+ ?: =(name.d %proj) &

11226+ ?: ?=(%value -.d) (reserved-proj-expr val.d)

11227+ |

11228+++ reserved-proj-expr

11229+ |= e=expr

11230+ ^- ?

11231+ ?- -.e

11232+ %str (lien pieces.e |=(p=piece ?:(?=(%expr -.p) (reserved-proj-expr p.p) |)))

11233+ %qath (lien segs.e |=(p=qseg ?:(?=(%expr -.p) (reserved-proj-expr p.p) |)))

11234+ %change (lien edits.e |=(p=edit (reserved-proj-expr val.p)))

11235+ %pair $(e val.e)

11236+ %unit $(e val.e)

11237+ %group $(e inner.e)

11238+ %list (lien items.e reserved-proj-expr)

11239+ %tuple (lien items.e |=(i=item (reserved-proj-expr val.i)))

11240+ ?(%gate %gate-wide) |((reserved-proj-sample sample.e) $(e body.e))

11241+ %cast $(e val.e)

11242+ %call |($(e head.e) (lien args.e reserved-proj-expr))

11243+ %trace |($(e val.e) $(e then.e))

11244+ %branch |($(e subject.e) (lien arms.e |=(a=arm |((reserved-proj-pattern pat.a) (reserved-proj-expr val.a)))))

11245+ %body |((lien defs.e reserved-proj-def) $(e final.e))

11246+ * |

11247+ ==

11248+::

11249+++ module-has-reserved-proj

11250+ |= mod=module

11251+ ^- ?

11252+ =/ imported=(list term) (import-binding-names imports.mod)

11253+ =/ vals=(list term) (global-value-names defs.mod)

11254+ =/ molds=imolds (collect-simple-molds defs.mod)

11255+ =/ mold-names=(list term) (turn molds |=(m=[name=term body=shape] name.m))

11256+ |((lien (weld imported (weld vals mold-names)) |=(n=term =(n %proj))) (lien defs.mod reserved-proj-def))

11257+::

871311258++ module-scope-valid

871411259 |= [mod=module prelude-values=(list term) prelude-molds=(list term)]

871511260 ^- ?

@@ -8717,6 +11262,7 @@

871711262 =/ vals=(list term) (global-value-names defs.mod)

871811263 =/ molds=imolds (collect-simple-molds defs.mod)

871911264 =/ mold-names=(list term) (turn molds |=(m=[name=term body=shape] name.m))

11265+ ?: (module-has-reserved-proj mod) |

872011266 ?. %+ levy imported

872111267 |= n=term

872211268 &((unique-value-name n imported) !(lien vals |=(v=term =(n v))) !(lien mold-names |=(m=term =(n m))) !(lien prelude-values |=(v=term =(n v))) !(lien prelude-molds |=(m=term =(n m))))

@@ -8740,6 +11286,43 @@

874011286 (skim defs.mod |=(d=def !&(?=(%mold -.d) =(%poke name.d))))

874111287 (module-scope-valid mod(defs remaining) prelude-values prelude-molds)

874211288::

11289+:: A detailed failure is attached only to the first mold that actually

11290+:: failed in this check, using that module's checked source mold table.

11291++$ imold-failure [message=@t overlap=(unit [name=term cases=upair])]

11292+:: Validate a generic wrapper without an unbounded duplicate-name pass.

11293+++ module-mold-params-valid

11294+ |= [vars=(list @t) seen=(set @t) fuel=@ud]

11295+ ^- ?

11296+ ?~ vars &

11297+ ?: =(0 fuel) |

11298+ ?: (~(has in:..zuse seen) i.vars) |

11299+ $(vars t.vars, seen (~(put in:..zuse seen) i.vars), fuel (dec fuel))

11300+++ module-mold-overlap

11301+ |= [m=[name=term body=shape] molds=imolds]

11302+ ^- (unit upair)

11303+ =/ sh=shape body.m

11304+ =/ valid=?

11305+ ?. ?=(%generic -.sh) &

11306+ ?~ vars.sh |

11307+ (module-mold-params-valid vars.sh *(set @t) 256)

11308+ ?. valid ~

11309+ =? sh ?=(%generic -.sh) body.sh

11310+ ?. ?=(%union -.sh) ~

11311+ (union-source-overlap cases.sh molds 256)

11312+++ module-mold-types-detail

11313+ |= [molds=imolds state=istate]

11314+ ^- (each imold-types imold-failure)

11315+ ?~ molds [%& ~]

11316+ =/ m=[name=term body=shape] i.molds

11317+ =/ t=(unit [template=ischeme state=istate])

11318+ (infer-mold-template body.m state(active [name.m active.state], in-mold &))

11319+ ?~ t

11320+ =/ overlap=(unit upair) (module-mold-overlap m molds.state)

11321+ [%| ['module mold needs unsupported inference' ?~(overlap ~ `[name.m u.overlap])]]

11322+ =. typ.template.u.t (label-direct-union typ.template.u.t body.m name.m state)

11323+ =/ rest=(each imold-types imold-failure) $(molds t.molds)

11324+ ?: ?=(%| -.rest) rest

11325+ [%& [[name.m template.u.t] p.rest]]

874311326++ module-mold-types

874411327 |= [molds=imolds state=istate]

874511328 ^- (each imold-types @t)

@@ -8798,10 +11381,17 @@

879811381 =(var name.i.args.tail)

879911382::

880011383++ prelude-label

8801− |= [typ=itype name=term]

11384+ |= [typ=itype name=term vars=(list @ud)]

880211385 ^- itype

11386+ ?: ?=(%jrec -.typ) typ(label `name)

11387+ ?: ?=(%grec -.typ)

11388+ ?. (identity-union-parameters vars args.typ) typ(label ~)

11389+ typ(label `name)

880311390 ?. ?=(%union -.typ) typ

8804− ?^ args.typ typ

11391+ ?. (identity-union-parameters vars args.typ)

11392+ ?~ origin.typ typ

11393+ ?: =(at.u.origin.typ /lib/jibb/internal/jibb) typ(label ~)

11394+ typ

880511395 typ(label `name)

880611396::

880711397++ partial-prelude-molds

@@ -8816,9 +11406,105 @@

881611406 (infer-mold-template body.m state(active [name.m active.state], in-mold &))

881711407 ?~ out $(molds t.molds)

881811408 =. typ.template.u.out (label-direct-union typ.template.u.out body.m name.m state)

8819− =. typ.template.u.out (prelude-label typ.template.u.out name.m)

11409+ =. typ.template.u.out (prelude-label typ.template.u.out name.m vars.template.u.out)

882011410 [[name.m template.u.out] $(molds t.molds)]

882111411::

11412+:: A compiler-owned interface available only to the dedicated

11413+:: internal-prelude preparation path, never the ordinary module resolver.

11414+++ private-primitive-interface

11415+ ^- ifile

11416+ =/ a=itype [%avar 0]

11417+ =/ pair=itype [%cell a a]

11418+ =/ b=itype [%rvar 0]

11419+ =/ plus=ischeme [[%fn [%cell b b] b] ~[0]]

11420+ =/ minus=ischeme [[%fn b b] ~[0]]

11421+ =/ greater=ischeme [[%fn pair [%flag ~]] ~[0]]

11422+ =/ utf8=itype [%atom 'tD']

11423+ =/ tape=itype [%collection %list ~[utf8]]

11424+ =/ codepoints=itype [%collection %list ~[[%atom %c]]]

11425+ =/ text-trip=ischeme [[%fn [%atom %t] tape] ~]

11426+ =/ text-tuba=ischeme [[%fn tape codepoints] ~]

11427+ [~[[%raw-add plus] [%raw-dec minus] [%raw-gth greater] [%raw-trip text-trip] [%raw-tuba text-tuba]] ~ /lib/jibb/primitives/jibb ~ ~ ~ ~ ~]

11428+::

11429+++ infer-private-internal

11430+ |= [src=@t public-source=@t]

11431+ ^- (unit ifile)

11432+ =/ at=path /lib/jibb/internal/jibb

11433+ =/ parsed (parse at src)

11434+ ?: ?=(%| -.parsed) ~

11435+ =/ mod=module p.parsed

11436+ ?^ (duplicate-defs defs.mod) ~

11437+ ?~ imports.mod

11438+ =/ built=jfile-result (infer-jibb-file at src ~ ~ ~ ~[at] ~ ~ ~ ~)

11439+ ?: ?=(%| -.built) ~

11440+ `iface.p.built

11441+ ?. ?=([[%jibb *] ~] imports.mod) ~

11442+ ?. =(path.i.imports.mod /lib/jibb/primitives) ~

11443+ ?. (module-scope-valid mod ~ ~) ~

11444+ =/ vals=(list term) (global-value-names defs.mod)

11445+ ?: (lien vals |=(n=term =(n %main))) ~

11446+ =/ molds=imolds (collect-simple-molds defs.mod)

11447+ =/ globals=(list term) (weld (import-binding-names imports.mod) vals)

11448+ :: The private source can use the public list and unit molds before the

11449+ :: prelude is otherwise prepared. Re-read the trusted public source here

11450+ :: and admit only its validated canonical templates; do not accept schemes

11451+ :: supplied independently by the caller.

11452+ =/ public=(each module error) (parse /lib/jibb/prelude/jibb public-source)

11453+ ?: ?=(%| -.public) ~

11454+ ?^ (duplicate-defs defs.p.public) ~

11455+ ?. (module-scope-valid p.public ~ ~) ~

11456+ =/ source-molds=imolds (collect-simple-molds defs.p.public)

11457+ =/ written-list=(unit shape) (find-simple-mold %list source-molds)

11458+ =/ source-list=(unit ischeme)

11459+ ?~ written-list ~

11460+ ?. (standard-prelude-list u.written-list) ~

11461+ `[[%collection %list ~[[%var 0]]] ~[0]]

11462+ :: Derive the public unit template from its actual source, then compare

11463+ :: the complete nominal template before making it available privately.

11464+ =/ unit-decl=(unit shape) (find-simple-mold %unit source-molds)

11465+ =/ source-unit=(unit ischeme)

11466+ ?~ unit-decl ~

11467+ =/ unit-molds=imolds ~[[%unit u.unit-decl]]

11468+ =/ unit-state=istate [0 ~ ~ ~ unit-molds ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ | /lib/jibb/prelude/jibb ~[%unit] ~ ~ 256 ~ ~ ~ ~ ~ ~]

11469+ =/ unit-types=imold-types (partial-prelude-molds unit-molds unit-state)

11470+ =/ unit-iface=ifile [~ unit-types /lib/jibb/prelude/jibb ~ ~ ~ ~ ~]

11471+ =/ found=(unit ischeme) (find-jibb-mold %unit unit-iface)

11472+ ?~ found ~

11473+ ?. (standard-unit-template u.found /lib/jibb/prelude/jibb) ~

11474+ found

11475+ =/ primitive=ifile private-primitive-interface

11476+ =? primitive ?=(^ source-list)

11477+ primitive(molds [[%list u.source-list] molds.primitive])

11478+ =? primitive ?=(^ source-unit)

11479+ primitive(molds [[%unit u.source-unit] molds.primitive])

11480+ =/ js=ijimports ~[[face.i.imports.mod primitive]]

11481+ =/ reserved=(list term) ~[face.i.imports.mod]

11482+ =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

11483+ =/ state=istate [0 ~ ~ ~ molds globals ~ ~ ~ ~ js reserved ~ ~ ~ | at top ~ ~ 256 ~ ~ ~ ~ ~ ~]

11484+ =/ mts=(each imold-types @t) (module-mold-types molds state)

11485+ =/ usable=(unit imold-types)

11486+ ?: ?=(%& -.mts) `p.mts

11487+ :: Missing public templates may make an unrelated internal mold

11488+ :: unavailable. Validate all molds once with isolated canonical

11489+ :: templates before admitting only those inferred using the actual

11490+ :: source-backed templates. The proof interface is never exported.

11491+ ?. |(?=(~ source-list) ?=(~ source-unit)) ~

11492+ =/ nil=itype [%const [%null %n 0 '~']]

11493+ =/ canonical-unit=ischeme

11494+ [[%union ~[nil [%cell nil [%face %u [%var 0]]]] `[/lib/jibb/prelude/jibb %unit] `%unit ~[[%var 0]]] ~[0]]

11495+ =/ canonical-list=ischeme [[%collection %list ~[[%var 0]]] ~[0]]

11496+ =/ proof-primitive=ifile private-primitive-interface

11497+ =. molds.proof-primitive ~[[%list canonical-list] [%unit canonical-unit]]

11498+ =/ proof-imports=ijimports ~[[face.i.imports.mod proof-primitive]]

11499+ =/ proof=(each imold-types @t) (module-mold-types molds state(jimports proof-imports))

11500+ ?: ?=(%| -.proof) ~

11501+ `(partial-prelude-molds molds state)

11502+ ?~ usable ~

11503+ =/ resolution=iresolved (resolve-groups defs.mod molds globals ~ ~ ~ ~ js reserved at ~)

11504+ =/ env=ienv env.resolution

11505+ ?. (module-values-complete defs.mod env) ~

11506+ `[env u.usable at ~ artifacts.resolution ~ `src ~]

11507+::

882211508++ partial-prelude-interface-with-internal

882311509 |= [src=@t internal-source=(unit @t)]

882411510 ^- (unit ifile)

@@ -8826,15 +11512,16 @@

882611512 =/ at=path /lib/jibb/prelude/jibb

882711513 =/ parsed (parse at src)

882811514 ?: ?=(%| -.parsed) ~

11515+ ?: (named-mold-has-hole defs.p.parsed) ~

11516+ ?^ (duplicate-defs defs.p.parsed) ~

882911517 =/ private=(unit ijimports)

883011518 ?~ imports.p.parsed `~

883111519 ?. ?=([[%jibb *] ~] imports.p.parsed) ~

883211520 ?. =(path.i.imports.p.parsed /lib/jibb/internal) ~

883311521 ?~ internal-source ~

8834− =/ built=jfile-result

8835− (infer-jibb-file /lib/jibb/internal/jibb u.internal-source ~ ~ ~ ~[/lib/jibb/internal/jibb] ~ ~ ~ ~)

8836− ?: ?=(%| -.built) ~

8837− `~[[face.i.imports.p.parsed iface.p.built]]

11522+ =/ built=(unit ifile) (infer-private-internal u.internal-source src)

11523+ ?~ built ~

11524+ `~[[face.i.imports.p.parsed u.built]]

883811525 ?~ private ~

883911526 ?~ defs.p.parsed ~

884011527 ?. (module-scope-valid p.parsed ~ ~) ~

@@ -8849,9 +11536,16 @@

884911536 =? env-molds declared

885011537 (skim molds |=(m=[name=term body=shape] !=(%list name.m)))

885111538 =/ reserved=(list term) ?:(declared ~[%list] ~)

8852− =/ state=istate [0 ~ ~ ~ env-molds globals ~ ~ ~ ~ u.private reserved ~ ~ ~ | at names ~]

8853− =/ mt=imold-types (partial-prelude-molds molds state)

8854− =/ partial=ifile [~ mt at ~]

11539+ =/ state=istate [0 ~ ~ ~ env-molds globals ~ ~ ~ ~ u.private reserved ~ ~ ~ | at names ~ ~ 256 ~ ~ ~ ~ ~ ~]

11540+ :: Other prelude molds may use list only after its source has passed

11541+ :: the standard-list check. The raw declaration remains removed.

11542+ =/ declared-list=(unit shape) (find-simple-mold %list molds)

11543+ =/ mold-prelude=(unit ifile)

11544+ ?~ declared-list ~

11545+ ?. (standard-prelude-list u.declared-list) ~

11546+ `[~ ~[[%list [[%collection %list ~[[%var 0]]] ~[0]]]] at ~ ~ ~ ~ ~]

11547+ =/ mt=imold-types (partial-prelude-molds molds state(prelude mold-prelude))

11548+ =/ partial=ifile [~ mt at ~ ~ ~ ~ ~]

885511549 :: An explicitly qualified re-export must resolve. Other unsupported

885611550 :: prelude declarations remain reserved but absent from the interface.

885711551 =/ required=imolds

@@ -8862,8 +11556,13 @@

886211556 ?~ names.sh |

886311557 ?=(^ t.names.sh)

886411558 ?. (levy required |=(m=[name=term body=shape] ?=(^ (find-jibb-mold name.m partial)))) ~

8865− =/ env=ienv (resolve-supported-defs ds env-molds globals ~ ~ ~ ~ u.private reserved at `partial)

8866− `[env mt at ~]

11559+ =/ resolution=iresolved (resolve-groups ds env-molds globals ~ ~ ~ ~ u.private reserved at `partial)

11560+ =/ env=ienv env.resolution

11561+ ?. (hole-values-present ds env) ~

11562+ =/ deps=(list iwidth-dependency)

11563+ ?~ u.private ~

11564+ ~[[at.interface.i.u.private source.interface.i.u.private elaborations.interface.i.u.private]]

11565+ `[env mt at ~ artifacts.resolution deps `src ~]

886711566::

886811567++ partial-prelude-interface

886911568 |= src=@t

@@ -8914,25 +11613,103 @@

891411613 ?: =(at at.i.cache) `iface.i.cache

891511614 $(cache t.cache)

891611615::

11616+:: These certificates retain the complete checked source closure. The

11617+:: trusted host must supply the identical prepared prelude and reader nouns.

11618+:: Exact bundle equality binds all source paths and versions; the set

11619+:: retains transitive paths for active-cycle checks. Request-bearing graphs

11620+:: alone have a size limit; incompatible diamond evidence fails closed.

11621+++ request-graph-requests-add

11622+ |= [pending=(list irequest-evidence) acc=(list irequest-evidence) fuel=@ud]

11623+ ^- (unit (list irequest-evidence))

11624+ ?~ pending `acc

11625+ ?: =(0 fuel) ~

11626+ =/ hit=(list irequest-evidence)

11627+ (skim acc |=(x=irequest-evidence &(=(api-at.x api-at.i.pending) =(name.x name.i.pending))))

11628+ ?^ hit

11629+ ?. ?=([* ~] hit) ~

11630+ ?. =(i.hit i.pending) ~

11631+ $(pending t.pending, fuel (dec fuel))

11632+ $(pending t.pending, acc [i.pending acc], fuel (dec fuel))

11633+++ request-graph-inputs-match

11634+ |= [g=irequest-graph externals=iexternals marks=imark-externals modules=jbundle values=(list term) molds=(list term) prelude=(unit ifile)]

11635+ ^- ?

11636+ ?& =(bundle-input.g modules)

11637+ =(prelude-input.g prelude)

11638+ =(prelude-values.g values)

11639+ =(prelude-molds.g molds)

11640+ =(externals.g externals)

11641+ =(marks.g marks)

11642+ ==

11643+++ request-graph-merge

11644+ |= [imports=ijimports g=irequest-graph fuel=@ud]

11645+ ^- (unit irequest-graph)

11646+ ?~ imports `g

11647+ ?: =(0 fuel) ~

11648+ =/ child=ifile interface.i.imports

11649+ ?~ graph.child ~

11650+ =/ cg=irequest-graph u.graph.child

11651+ ?. ?& =(bundle-input.g bundle-input.cg)

11652+ =(prelude-input.g prelude-input.cg)

11653+ =(prelude-values.g prelude-values.cg)

11654+ =(prelude-molds.g prelude-molds.cg)

11655+ =(externals.g externals.cg)

11656+ =(marks.g marks.cg)

11657+ ==

11658+ ~

11659+ =/ merged=(set path) (~(uni in:..zuse paths.g) paths.cg)

11660+ =/ rs=(unit (list irequest-evidence))

11661+ (request-graph-requests-add requests.cg requests.g (add 1 (lent requests.cg)))

11662+ ?~ rs ~

11663+ ?: &(?=(^ u.rs) |((gth (lent ~(tap in:..zuse merged)) 256) (gth (lent u.rs) 256))) ~

11664+ $(imports t.imports, g g(paths merged, requests u.rs), fuel (dec fuel))

11665+++ request-graph-reusable

11666+ |= [f=ifile src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) values=(list term) molds=(list term) prelude=(unit ifile)]

11667+ ^- ?

11668+ ?~ source.f |

11669+ ?. =(u.source.f src) |

11670+ ?~ graph.f |

11671+ =/ g=irequest-graph u.graph.f

11672+ ?. (request-graph-inputs-match g externals marks modules values molds prelude) |

11673+ ?. (~(has in:..zuse paths.g) at.f) |

11674+ !(lien active |=(p=path (~(has in:..zuse paths.g) p)))

11675+::

891711676++ resolve-jibb-imports

891811677 |= [imports=(list import) externals=iexternals mark-externals=imark-externals modules=jbundle active=(list path) prelude-values=(list term) prelude-molds=(list term) cache=jcache prelude=(unit ifile)]

891911678 ^- jimports-result

11679+ =/ result=jimports-detailed-result

11680+ (resolve-jibb-imports-detailed imports externals mark-externals modules active prelude-values prelude-molds cache prelude)

11681+ ?: ?=(%| -.result) [%| message.p.result]

11682+ [%& p.result]

11683+++ resolve-jibb-imports-detailed

11684+ |= [imports=(list import) externals=iexternals mark-externals=imark-externals modules=jbundle active=(list path) prelude-values=(list term) prelude-molds=(list term) cache=jcache prelude=(unit ifile)]

11685+ ^- jimports-detailed-result

892011686 ?~ imports [%& [~ cache]]

892111687 ?. ?=(%jibb -.i.imports) $(imports t.imports)

892211688 =/ at=path (weld path.i.imports `path`~[%jibb])

892311689 ?: =(at /lib/jibb/internal/jibb)

8924− [%| 'the prelude internal module is private']

11690+ [%| ['the prelude internal module is private' ~]]

11691+ ?: =(at /lib/jibb/primitives/jibb)

11692+ [%| ['the prelude primitive interface is private' ~]]

892511693 ?: (lien active |=(p=path =(p at)))

8926− [%| (crip "import cycle at {(spud at)}")]

11694+ [%| [(crip "import cycle at {(spud at)}") ~]]

892711695 =/ found=jbundle (skim modules |=(m=jsource =(at at.m)))

8928− ?~ found [%| (crip "module source missing: {(spud at)}")]

8929− ?^ t.found [%| (crip "duplicate module sources: {(spud at)}")]

11696+ ?~ found [%| [(crip "module source missing: {(spud at)}") ~]]

11697+ ?^ t.found [%| [(crip "duplicate module sources: {(spud at)}") ~]]

893011698 =/ cached=(unit ifile) (find-jibb-cache at cache)

8931− =/ iface=jfile-result

8932− ?^ cached [%& [u.cached cache]]

8933− (infer-jibb-file at source.i.found externals mark-externals modules [at active] prelude-values prelude-molds cache prelude)

11699+ =/ iface=jfile-detailed-result

11700+ ?^ cached

11701+ ?. =(at.u.cached at) [%| ['cached module identity needs unsupported inference' ~]]

11702+ ?~ graph.u.cached

11703+ :: A detached legacy interface has unknown evidence. Rebuild it

11704+ :: against the current graph, without retaining any stale entry.

11705+ =/ clean=jcache (skim cache |=(x=[at=path iface=ifile] !=(at.x at)))

11706+ (infer-jibb-file-detailed at source.i.found externals mark-externals modules [at active] prelude-values prelude-molds clean prelude)

11707+ ?. (request-graph-reusable u.cached source.i.found externals mark-externals modules active prelude-values prelude-molds prelude)

11708+ [%| ['cached module evidence needs unsupported inference' ~]]

11709+ [%& [u.cached cache]]

11710+ (infer-jibb-file-detailed at source.i.found externals mark-externals modules [at active] prelude-values prelude-molds cache prelude)

893411711 ?: ?=(%| -.iface) [%| p.iface]

8935− =/ rest=jimports-result $(imports t.imports, cache cache.p.iface)

11712+ =/ rest=jimports-detailed-result $(imports t.imports, cache cache.p.iface)

893611713 ?: ?=(%| -.rest) rest

893711714 [%& [[[face.i.imports iface.p.iface] resolved.p.rest] cache.p.rest]]

893811715::

@@ -8980,7 +11757,7 @@

898011757 ?~ segments `~

898111758 ?: ?=(%knot -.i.segments) $(segments t.segments)

898211759 =/ seg=pseg i.segments

8983− ?> ?=(%typed -.seg)

11760+ ?. ?=(%typed -.seg) ~

898411761 ?: =(0 aura.seg) ~

898511762 ?: (lien seen |=(n=term =(n name.seg))) ~

898611763 =/ rest=(unit (list iapi-parameter)) $(segments t.segments, seen [name.seg seen])

@@ -9066,6 +11843,7 @@

906611843 ^- ?

906711844 =/ path-names=(list term) (turn paths |=(p=iapi-path name.p))

906811845 =/ derived=(list term) (weld path-names poke-names)

11846+ ?: (lien derived |=(n=term =(n %proj))) |

906911847 =/ outer=(list term) (weld prelude-values (weld (global-value-names defs.mod) (api-import-faces imports.mod)))

907011848 (levy derived |=(n=term &((unique-value-name n derived) !(lien outer |=(x=term =(n x))))))

907111849::

@@ -9111,6 +11889,8 @@

911111889++ api-path-analysis

911211890 |= [mod=module externals=imark-externals prelude-values=(list term) prelude-molds=(list term)]

911311891 ^- (unit (list iapi-path-typed))

11892+ ?: (lien defs.mod def-has-hole) ~

11893+ ?^ (duplicate-defs defs.mod) ~

911411894 =/ ds=(list def) defs.mod

911511895 =/ declarations=(list def)

911611896 (skim ds |=(d=def &(?=(%mold -.d) =(%paths name.d))))

@@ -9138,9 +11918,11 @@

913811918 |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle prepared=(unit iprelude)]

913911919 ^- (each (list iapi-path-typed) @t)

914011920 ?. ?=([%ui %api @ %jibb ~] file) [%| 'API path analysis requires /ui/api/<agent>.jibb']

9141− ?~ prepared [%| 'API path analysis needs the prepared prelude']

914211921 =/ parsed (parse file src)

914311922 ?: ?=(%| -.parsed) [%| 'API path source does not parse']

11923+ =/ duplicate=(unit idiag) (duplicate-defs defs.p.parsed)

11924+ ?^ duplicate [%| (show-duplicate-fields file src u.duplicate)]

11925+ ?~ prepared [%| 'API path analysis needs the prepared prelude']

914411926 =/ prelude=(unit ifile) `iface.u.prepared

914511927 =/ deps=jimports-result

914611928 (resolve-jibb-imports imports.p.parsed externals marks modules ~[file] values.u.prepared molds.u.prepared ~ prelude)

@@ -9150,6 +11932,346 @@

915011932 ?~ paths [%| 'API path declaration needs unsupported analysis']

915111933 [%& u.paths]

915211934::

11935+:: Analysis evidence retains the API source, the prepared interface, the

11936+:: caller's reader results and the resolved Jibb dependency cache alongside

11937+:: the typed path declarations. Reader results and prepared interfaces are

11938+:: trusted inputs: this does not verify their underlying Hoon source/version,

11939+:: create requests or check the provenance of arbitrary values.

11940++$ iapi-path-evidence

11941+ [at=path source=@t prepared=iprelude externals=iexternals marks=imark-externals dependencies=jcache paths=(list iapi-path-typed)]

11942+++ api-path-evidence-source

11943+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle prepared=(unit iprelude)]

11944+ ^- (each iapi-path-evidence @t)

11945+ ?. ?=([%ui %api @ %jibb ~] file) [%| 'API path evidence requires /ui/api/<agent>.jibb']

11946+ =/ parsed (parse file src)

11947+ ?: ?=(%| -.parsed) [%| 'API path evidence source does not parse']

11948+ =/ duplicate=(unit idiag) (duplicate-defs defs.p.parsed)

11949+ ?^ duplicate [%| (show-duplicate-fields file src u.duplicate)]

11950+ ?~ prepared [%| 'API path evidence needs the prepared prelude']

11951+ =/ public=ifile iface.u.prepared

11952+ =/ deps=jimports-result

11953+ (resolve-jibb-imports imports.p.parsed externals marks modules ~[file] values.u.prepared molds.u.prepared ~ `public)

11954+ ?: ?=(%| -.deps) [%| p.deps]

11955+ =/ paths=(unit (list iapi-path-typed))

11956+ (api-path-analysis p.parsed marks values.u.prepared molds.u.prepared)

11957+ ?~ paths [%| 'API path declaration needs unsupported analysis']

11958+ [%& [file src u.prepared externals marks cache.p.deps u.paths]]

11959+:: Graph-aware variant preserves the caller active stack and cache.

11960+++ api-path-evidence-graph

11961+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) cache=jcache prepared=(unit iprelude)]

11962+ ^- (each iapi-path-evidence @t)

11963+ ?~ active [%| 'API analysis needs an active graph']

11964+ ?. =(i.active file) [%| 'API analysis active graph does not start at the source']

11965+ ?: (lien t.active |=(p=path =(p file))) [%| 'API analysis active graph contains a cycle']

11966+ ?. ?=([%ui %api @ %jibb ~] file) [%| 'API path evidence requires /ui/api/<agent>.jibb']

11967+ =/ parsed (parse file src)

11968+ ?: ?=(%| -.parsed) [%| 'API path evidence source does not parse']

11969+ =/ duplicate=(unit idiag) (duplicate-defs defs.p.parsed)

11970+ ?^ duplicate [%| (show-duplicate-fields file src u.duplicate)]

11971+ ?~ prepared [%| 'API path evidence needs the prepared prelude']

11972+ =/ public=ifile iface.u.prepared

11973+ =/ deps=jimports-result

11974+ (resolve-jibb-imports imports.p.parsed externals marks modules active values.u.prepared molds.u.prepared cache `public)

11975+ ?: ?=(%| -.deps) [%| p.deps]

11976+ =/ paths=(unit (list iapi-path-typed))

11977+ (api-path-analysis p.parsed marks values.u.prepared molds.u.prepared)

11978+ ?~ paths [%| 'API path declaration needs unsupported analysis']

11979+ [%& [file src u.prepared externals marks cache.p.deps u.paths]]

11980+::

11981+:: This query classifies a unique path declaration only. Missing evidence

11982+:: or a nonunique name is unknown; it proves nothing about an ask value.

11983+:: Like prepared interfaces, the supplied evidence is a trusted host input.

11984+++ api-path-watchability

11985+ |= [evidence=(unit iapi-path-evidence) case-name=term]

11986+ ^- ?(%watchable %not-watchable %unknown)

11987+ ?~ evidence %unknown

11988+ =/ found=(list iapi-path-typed)

11989+ (skim paths.u.evidence |=(p=iapi-path-typed =(name.path.p case-name)))

11990+ ?. ?=([* ~] found) %unknown

11991+ ?~ scry.path.i.found %watchable

11992+ %not-watchable

11993+::

11994+:: These are declaration-derived request components, not a callable gate,

11995+:: an ask value, or proof of a value's provenance. Keep the exact trusted

11996+:: source/reader evidence until a later checked interface and lowerer can

11997+:: attach it to a generated request. No argument ordering is claimed here.

11998++$ iapi-request-parameter [name=term typ=itype at=span]

11999++$ iapi-request-parts

12000+ [evidence=iapi-path-evidence path=iapi-path-typed parameters=(list iapi-request-parameter) reply-sample=itype fold=(unit itype) watchability=?(%watchable %not-watchable)]

12001+++ api-request-parameter-types

12002+ |= params=(list iapi-parameter)

12003+ ^- (unit (list iapi-request-parameter))

12004+ ?~ params `~

12005+ =/ aura=@ta aura.i.params

12006+ ?. |(?=(?(%u %ud %ux %uv %t %ta %tas %p %da %dr) aura) =('tD' aura)) ~

12007+ =/ rest=(unit (list iapi-request-parameter)) $(params t.params)

12008+ ?~ rest ~

12009+ `[[name.i.params [%atom aura] at.i.params] u.rest]

12010+::

12011+:: A single diff's fold consumes the tagged diff and the previous full value.

12012+:: Multiple-diff unions need a checked union representation and remain open.

12013+++ api-request-fold-type

12014+ |= p=iapi-path-typed

12015+ ^- (unit (unit itype))

12016+ ?~ diffs.p `~

12017+ ?^ t.diffs.p ~

12018+ =/ d=iapi-mark-type i.diffs.p

12019+ =/ literal=lit [%term %tas name.d (crip ['%' (trip name.d)])]

12020+ =/ sample=itype [%cell [%cell [%const literal] typ.d] full.p]

12021+ ``[%fn sample full.p]

12022+::

12023+++ api-request-parts

12024+ |= [evidence=(unit iapi-path-evidence) case-name=term]

12025+ ^- (unit iapi-request-parts)

12026+ ?~ evidence ~

12027+ =/ found=(list iapi-path-typed)

12028+ (skim paths.u.evidence |=(p=iapi-path-typed =(name.path.p case-name)))

12029+ ?. ?=([* ~] found) ~

12030+ =/ p=iapi-path-typed i.found

12031+ =/ raw=(unit (list iapi-parameter)) (api-path-parameters segments.path.p ~)

12032+ ?~ raw ~

12033+ =/ params=(unit (list iapi-request-parameter)) (api-request-parameter-types u.raw)

12034+ ?~ params ~

12035+ =/ fold=(unit (unit itype)) (api-request-fold-type p)

12036+ ?~ fold ~

12037+ =/ watch=?(%watchable %not-watchable) ?~(scry.path.p %watchable %not-watchable)

12038+ `[u.evidence p u.params full.p u.fold watch]

12039+::

12040+:: Check ordinary API molds and values plus every declared mark type using

12041+:: the same trusted source, prepared prelude and reader inputs as path

12042+:: evidence. Keep elaborations with those inputs for a later interface.

12043+:: This is partial analysis: an unused /- core is not independently checked,

12044+:: definitions needing derived values remain unsupported, and no complete

12045+:: API, request or constructor is exported or given runtime behavior.

12046++$ iapi-support-evidence

12047+ [paths=iapi-path-evidence values=ienv molds=imold-types marks=(list iapi-mark-type) elaborations=(list iwidth-definition)]

12048+++ api-support-analysis-source

12049+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle prepared=(unit iprelude)]

12050+ ^- (each iapi-support-evidence @t)

12051+ =/ path-result (api-path-evidence-source file src externals marks modules prepared)

12052+ ?: ?=(%| -.path-result) [%| p.path-result]

12053+ =/ evidence=iapi-path-evidence p.path-result

12054+ =/ parsed (parse file src)

12055+ ?: ?=(%| -.parsed) [%| 'API source does not parse']

12056+ =/ mod=module p.parsed

12057+ =/ ordinary=(list def)

12058+ (skim defs.mod |=(d=def !&(?=(%mold -.d) |(=(%paths name.d) =(%poke name.d)))))

12059+ =/ prep=iprelude prepared.evidence

12060+ ?. (module-scope-valid mod(defs ordinary) values.prep molds.prep) [%| 'API ordinary scope needs unsupported inference']

12061+ =/ vals=(list term) (global-value-names ordinary)

12062+ ?: (lien vals |=(n=term =(n %main))) [%| 'API module kind needs unsupported inference']

12063+ =/ declared=(list term) (collect-mark-imports imports.mod)

12064+ =/ mark-types=(unit (list iapi-mark-type)) (api-diff-types declared marks declared)

12065+ ?~ mark-types [%| 'API declared marks need unsupported inference']

12066+ =/ prelude=(unit ifile) `iface.prep

12067+ =/ deps=jimports-result

12068+ (resolve-jibb-imports imports.mod externals marks modules ~[file] values.prep molds.prep dependencies.evidence prelude)

12069+ ?: ?=(%| -.deps) [%| p.deps]

12070+ =/ molds=imolds (collect-simple-molds ordinary)

12071+ =/ globals=(list term) (weld values.prep (weld (import-binding-names imports.mod) vals))

12072+ =/ surs=(list term) (collect-sur-imports imports.mod)

12073+ =/ reserved=(list term) (weld molds.prep (turn resolved.p.deps |=(j=[face=term interface=ifile] face.j)))

12074+ =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

12075+ =/ state=istate [0 ~ ~ ~ molds globals externals surs marks declared resolved.p.deps reserved ~ ~ ~ | file top prelude ~ 256 ~ ~ ~ ~ ~ ~]

12076+ =/ mts=(each imold-types @t) (module-mold-types molds state)

12077+ ?: ?=(%| -.mts) [%| p.mts]

12078+ =/ resolution=iresolved (resolve-groups ordinary molds globals externals surs marks declared resolved.p.deps reserved file prelude)

12079+ ?. (module-values-complete ordinary env.resolution) [%| 'API ordinary definitions need unsupported inference']

12080+ [%& [evidence env.resolution p.mts u.mark-types artifacts.resolution]]

12081+:: Preserve the same graph context through supporting definitions.

12082+++ api-support-analysis-graph

12083+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) cache=jcache prepared=(unit iprelude)]

12084+ ^- (each iapi-support-evidence @t)

12085+ =/ path-result (api-path-evidence-graph file src externals marks modules active cache prepared)

12086+ ?: ?=(%| -.path-result) [%| p.path-result]

12087+ =/ evidence=iapi-path-evidence p.path-result

12088+ =/ parsed (parse file src)

12089+ ?: ?=(%| -.parsed) [%| 'API source does not parse']

12090+ =/ mod=module p.parsed

12091+ =/ ordinary=(list def)

12092+ (skim defs.mod |=(d=def !&(?=(%mold -.d) |(=(%paths name.d) =(%poke name.d)))))

12093+ =/ prep=iprelude prepared.evidence

12094+ ?. (module-scope-valid mod(defs ordinary) values.prep molds.prep) [%| 'API ordinary scope needs unsupported inference']

12095+ =/ vals=(list term) (global-value-names ordinary)

12096+ ?: (lien vals |=(n=term =(n %main))) [%| 'API module kind needs unsupported inference']

12097+ =/ declared=(list term) (collect-mark-imports imports.mod)

12098+ =/ mark-types=(unit (list iapi-mark-type)) (api-diff-types declared marks declared)

12099+ ?~ mark-types [%| 'API declared marks need unsupported inference']

12100+ =/ prelude=(unit ifile) `iface.prep

12101+ =/ deps=jimports-result

12102+ (resolve-jibb-imports imports.mod externals marks modules active values.prep molds.prep dependencies.evidence prelude)

12103+ ?: ?=(%| -.deps) [%| p.deps]

12104+ =/ molds=imolds (collect-simple-molds ordinary)

12105+ =/ globals=(list term) (weld values.prep (weld (import-binding-names imports.mod) vals))

12106+ =/ surs=(list term) (collect-sur-imports imports.mod)

12107+ =/ reserved=(list term) (weld molds.prep (turn resolved.p.deps |=(j=[face=term interface=ifile] face.j)))

12108+ =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

12109+ =/ state=istate [0 ~ ~ ~ molds globals externals surs marks declared resolved.p.deps reserved ~ ~ ~ | file top prelude ~ 256 ~ ~ ~ ~ ~ ~]

12110+ =/ mts=(each imold-types @t) (module-mold-types molds state)

12111+ ?: ?=(%| -.mts) [%| p.mts]

12112+ =/ resolution=iresolved (resolve-groups ordinary molds globals externals surs marks declared resolved.p.deps reserved file prelude)

12113+ ?. (module-values-complete ordinary env.resolution) [%| 'API ordinary definitions need unsupported inference']

12114+ [%& [evidence env.resolution p.mts u.mark-types artifacts.resolution]]

12115+::

12116+:: Type-analysis artifact for one plain request. The resolver may publish

12117+:: its interface only together with trusted source and reader evidence.

12118+:: No lowering or runtime validator exists.

12119+:: Value watchability remains unproved even for a watchable declaration.

12120++$ ione-request-interface

12121+ [support=iapi-support-evidence parts=iapi-request-parts iface=ifile]

12122+++ request-compatible-ask

12123+ |= prelude=iprelude

12124+ ^- (unit ischeme)

12125+ =/ public=ifile iface.prelude

12126+ ?. =(at.public /lib/jibb/prelude/jibb) ~

12127+ =/ ask=(unit ischeme) (find-jibb-mold %ask public)

12128+ ?~ ask ~

12129+ ?. ?=([@ ~] vars.u.ask) ~

12130+ ?. ?=(%union -.typ.u.ask) ~

12131+ ?. =(origin.typ.u.ask `[/lib/jibb/internal/jibb %ask]) ~

12132+ ?. (identity-union-parameters vars.u.ask args.typ.u.ask) ~

12133+ =/ m=@ud i.vars.u.ask

12134+ ?: (itype-var-is-atom m typ.u.ask) ~

12135+ ?. (levy (itype-vars typ.u.ask) |=(n=@ud =(n m))) ~

12136+ ?: (itype-has-tag typ.u.ask) ~

12137+ =/ private=(list iwidth-dependency)

12138+ (skim dependencies.public |=(d=iwidth-dependency =(at.d /lib/jibb/internal/jibb)))

12139+ ?. ?=([* ~] private) ~

12140+ ?~ source.i.private ~

12141+ =/ path=(unit ischeme) (find-jibb-mold %path public)

12142+ ?~ path ~

12143+ ?^ vars.u.path ~

12144+ =/ path-type=itype [%collection %list ~[[%atom %ta]]]

12145+ ?. =(typ.u.path path-type) ~

12146+ =/ unit-template=(unit ischeme) (find-jibb-mold %unit public)

12147+ ?~ unit-template ~

12148+ ?. (standard-unit-template u.unit-template /lib/jibb/prelude/jibb) ~

12149+ =/ state-unit=(unit itype) (template-apply u.unit-template ~[[%noun ~]])

12150+ ?~ state-unit ~

12151+ =/ path-unit=(unit itype) (template-apply u.unit-template ~[path-type])

12152+ ?~ path-unit ~

12153+ =/ output=itype [%cell [%face %state [%noun ~]] [%face %message [%var m]]]

12154+ =/ agent-input=itype [%cell [%face %mark [%atom %tas]] [%cell [%face %state u.state-unit] [%face %fact [%noun ~]]]]

12155+ =/ store-input=itype [%cell [%face %state u.state-unit] [%face %fact [%noun ~]]]

12156+ =/ pure-case=itype [%cell [%const [%term %tas %pure '%pure']] [%face %value [%var m]]]

12157+ =/ agent-case=itype

12158+ [%cell [%const [%term %tas %agent '%agent']] [%cell [%face %api [%atom %t]] [%cell [%face %case [%atom %tas]] [%cell [%face %agent [%atom %tas]] [%cell [%face %path path-type] [%cell [%face %scry u.path-unit] [%face %receive [%fn agent-input output]]]]]]]]

12159+ =/ store-case=itype

12160+ [%cell [%const [%term %tas %store '%store']] [%cell [%face %module [%atom %t]] [%cell [%face %name [%atom %tas]] [%face %receive [%fn store-input output]]]]]

12161+ ?. =(cases.typ.u.ask ~[pure-case agent-case store-case]) ~

12162+ ask

12163+::

12164+:: The first supported standalone API has exactly one mark import and one

12165+:: plain path declaration, with no other definitions or imports. No partial

12166+:: success is published when source, schema, or a required mold is unknown.

12167+++ one-request-interface-source

12168+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle prepared=(unit iprelude)]

12169+ ^- (each ione-request-interface @t)

12170+ =/ out (api-support-analysis-source file src externals marks modules prepared)

12171+ ?: ?=(%| -.out) [%| p.out]

12172+ =/ support=iapi-support-evidence p.out

12173+ =/ ev=iapi-path-evidence paths.support

12174+ =/ parsed (parse file src)

12175+ ?: ?=(%| -.parsed) [%| 'request source does not parse']

12176+ =/ mod=module p.parsed

12177+ ?. ?=(?([[%mark *] ~] [[%mark *] [%mark *] ~]) imports.mod) [%| 'request imports need unsupported inference']

12178+ ?. ?=([[%mold *] ~] defs.mod) [%| 'request definitions need unsupported inference']

12179+ ?. =(%paths name.i.defs.mod) [%| 'request declaration needs unsupported inference']

12180+ ?. ?=([* ~] paths.ev) [%| 'request count needs unsupported inference']

12181+ =/ p=iapi-path-typed i.paths.ev

12182+ =/ parts=(unit iapi-request-parts) (api-request-parts `ev name.path.p)

12183+ ?~ parts [%| 'request components need unsupported inference']

12184+ ?. ?=(?(~ [* ~]) parameters.u.parts) [%| 'request parameters need unsupported inference']

12185+ ?: &(?=(^ fold.u.parts) ?=(^ parameters.u.parts)) [%| 'request parameter and fold need unsupported inference']

12186+ ?^ scry.path.p [%| 'request scry needs unsupported inference']

12187+ =/ valid-marks=?

12188+ ?~ fold.u.parts ?=([* ~] marks.support)

12189+ ?=([* [* ~]] marks.support)

12190+ ?. valid-marks [%| 'request marks need unsupported inference']

12191+ =/ fold-open=?

12192+ ?~ fold.u.parts |

12193+ |(?=(^ (itype-vars u.fold.u.parts)) (itype-has-tag u.fold.u.parts))

12194+ ?: fold-open [%| 'request fold needs unsupported inference']

12195+ ?^ (itype-vars reply-sample.u.parts) [%| 'request payload needs unsupported inference']

12196+ ?: (itype-has-tag reply-sample.u.parts) [%| 'request payload needs unsupported inference']

12197+ =/ ask=(unit ischeme) (request-compatible-ask prepared.ev)

12198+ ?~ ask [%| 'request ask needs unsupported inference']

12199+ =/ result=(unit itype) (template-apply u.ask ~[[%var 0]])

12200+ ?~ result [%| 'request ask needs unsupported inference']

12201+ =/ callback=itype [%fn reply-sample.u.parts [%var 0]]

12202+ =/ sample=itype

12203+ ?^ fold.u.parts [%cell callback u.fold.u.parts]

12204+ ?~ parameters.u.parts callback

12205+ [%cell typ.i.parameters.u.parts callback]

12206+ =/ scheme=ischeme [[%fn sample u.result] ~[0]]

12207+ =/ exports=imold-types

12208+ (turn marks.support |=(m=iapi-mark-type [name.m [typ.m ~]]))

12209+ =/ prelude=iprelude prepared.ev

12210+ =/ public=ifile iface.prelude

12211+ ?~ source.public [%| 'request prelude source needs unsupported inference']

12212+ =/ private=(list iwidth-dependency)

12213+ (skim dependencies.public |=(d=iwidth-dependency =(at.d /lib/jibb/internal/jibb)))

12214+ ?. ?=([* ~] private) [%| 'request internal source needs unsupported inference']

12215+ ?~ source.i.private [%| 'request internal source needs unsupported inference']

12216+ =/ req=irequest-evidence

12217+ [file name.path.p p src u.source.public u.source.i.private values.prelude molds.prelude externals marks]

12218+ =/ interface=ifile [~[[name.path.p scheme]] exports file ~ ~ ~ `src `[(silt `(list path)`~[file]) ~[req] modules `public values.prelude molds.prelude externals marks]]

12219+ [%& [support u.parts interface]]

12220+:: Graph-aware request artifact; resolver use remains type-only.

12221+++ one-request-interface-graph

12222+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) cache=jcache prepared=(unit iprelude)]

12223+ ^- (each ione-request-interface @t)

12224+ =/ out (api-support-analysis-graph file src externals marks modules active cache prepared)

12225+ ?: ?=(%| -.out) [%| p.out]

12226+ =/ support=iapi-support-evidence p.out

12227+ =/ ev=iapi-path-evidence paths.support

12228+ =/ parsed (parse file src)

12229+ ?: ?=(%| -.parsed) [%| 'request source does not parse']

12230+ =/ mod=module p.parsed

12231+ ?. ?=(?([[%mark *] ~] [[%mark *] [%mark *] ~]) imports.mod) [%| 'request imports need unsupported inference']

12232+ ?. ?=([[%mold *] ~] defs.mod) [%| 'request definitions need unsupported inference']

12233+ ?. =(%paths name.i.defs.mod) [%| 'request declaration needs unsupported inference']

12234+ ?. ?=([* ~] paths.ev) [%| 'request count needs unsupported inference']

12235+ =/ p=iapi-path-typed i.paths.ev

12236+ =/ parts=(unit iapi-request-parts) (api-request-parts `ev name.path.p)

12237+ ?~ parts [%| 'request components need unsupported inference']

12238+ ?. ?=(?(~ [* ~]) parameters.u.parts) [%| 'request parameters need unsupported inference']

12239+ ?: &(?=(^ fold.u.parts) ?=(^ parameters.u.parts)) [%| 'request parameter and fold need unsupported inference']

12240+ ?^ scry.path.p [%| 'request scry needs unsupported inference']

12241+ =/ valid-marks=?

12242+ ?~ fold.u.parts ?=([* ~] marks.support)

12243+ ?=([* [* ~]] marks.support)

12244+ ?. valid-marks [%| 'request marks need unsupported inference']

12245+ =/ fold-open=?

12246+ ?~ fold.u.parts |

12247+ |(?=(^ (itype-vars u.fold.u.parts)) (itype-has-tag u.fold.u.parts))

12248+ ?: fold-open [%| 'request fold needs unsupported inference']

12249+ ?^ (itype-vars reply-sample.u.parts) [%| 'request payload needs unsupported inference']

12250+ ?: (itype-has-tag reply-sample.u.parts) [%| 'request payload needs unsupported inference']

12251+ =/ ask=(unit ischeme) (request-compatible-ask prepared.ev)

12252+ ?~ ask [%| 'request ask needs unsupported inference']

12253+ =/ result=(unit itype) (template-apply u.ask ~[[%var 0]])

12254+ ?~ result [%| 'request ask needs unsupported inference']

12255+ =/ callback=itype [%fn reply-sample.u.parts [%var 0]]

12256+ =/ sample=itype

12257+ ?^ fold.u.parts [%cell callback u.fold.u.parts]

12258+ ?~ parameters.u.parts callback

12259+ [%cell typ.i.parameters.u.parts callback]

12260+ =/ scheme=ischeme [[%fn sample u.result] ~[0]]

12261+ =/ exports=imold-types

12262+ (turn marks.support |=(m=iapi-mark-type [name.m [typ.m ~]]))

12263+ =/ prelude=iprelude prepared.ev

12264+ =/ public=ifile iface.prelude

12265+ ?~ source.public [%| 'request prelude source needs unsupported inference']

12266+ =/ private=(list iwidth-dependency)

12267+ (skim dependencies.public |=(d=iwidth-dependency =(at.d /lib/jibb/internal/jibb)))

12268+ ?. ?=([* ~] private) [%| 'request internal source needs unsupported inference']

12269+ ?~ source.i.private [%| 'request internal source needs unsupported inference']

12270+ =/ req=irequest-evidence

12271+ [file name.path.p p src u.source.public u.source.i.private values.prelude molds.prelude externals marks]

12272+ =/ interface=ifile [~[[name.path.p scheme]] exports file ~ ~ ~ `src `[(silt `(list path)`~[file]) ~[req] modules `public values.prelude molds.prelude externals marks]]

12273+ [%& [support u.parts interface]]

12274+::

915312275++ api-mark-exports

915412276 |= [marks=(list term) all=(list term) externals=imark-externals]

915512277 ^- imold-types

@@ -9163,7 +12285,9 @@

916312285++ api-poke-interface

916412286 |= [at=path mod=module mark-externals=imark-externals prelude-values=(list term) prelude-molds=(list term) prelude=(unit ifile)]

916512287 ^- (unit ifile)

12288+ ?: (lien defs.mod def-has-hole) ~

916612289 ?. ?=([%ui %api @ %jibb ~] at) ~

12290+ ?^ (duplicate-defs defs.mod) ~

916712291 ?~ prelude ~

916812292 ?. =(at.u.prelude /lib/jibb/prelude/jibb) ~

916912293 =/ poke=(unit ischeme) (find-jibb-mold %poke u.prelude)

@@ -9191,40 +12315,288 @@

919112315 =/ mark=(unit itype) (find-imported-mark n mark-externals marks)

919212316 ?~ mark ~

919312317 =/ sc=ischeme [[%fn u.mark typ.u.poke] ~]

9194− `[~[[n sc]] (api-mark-exports marks marks mark-externals) at ~[[n i.t.t.at n]]]

12318+ `[~[[n sc]] (api-mark-exports marks marks mark-externals) at ~[[n i.t.t.at n]] ~ ~ ~ ~]

12319+::

12320+:: Source-proven ordinary helpers validate each selected /sur dependency.

12321+:: Unused or less direct cores remain unsupported by this first interface.

12322+++ api-sur-covered

12323+ |= [surs=(list term) defs=(list def) externals=iexternals all=(list term)]

12324+ ^- ?

12325+ ?~ surs &

12326+ =/ found=(list def)

12327+ %+ skim defs

12328+ |= d=def

12329+ ?. ?=(%mold -.d) |

12330+ ?. ?=(%ref -.shape.d) |

12331+ ?. ?=([@ [@ ~]] names.shape.d) |

12332+ =(i.t.names.shape.d i.surs)

12333+ ?~ found |

12334+ =/ selected=def i.found

12335+ ?. ?=(%mold -.selected) |

12336+ =/ sh=shape shape.selected

12337+ ?. ?=(%ref -.sh) |

12338+ ?. ?=([@ [@ ~]] names.sh) |

12339+ =/ checked=(unit itype) (find-imported-mold i.surs i.names.sh externals all)

12340+ ?~ checked |

12341+ $(surs t.surs)

12342+::

12343++$ imulti-request-gates [values=ienv requests=(list irequest-evidence)]

12344+++ api-request-gates

12345+ |= [paths=(list iapi-path-typed) ev=iapi-path-evidence ask=ischeme file=path src=@t public=@t internal=@t externals=iexternals marks=imark-externals fuel=@ud]

12346+ ^- (unit imulti-request-gates)

12347+ ?~ paths `[~ ~]

12348+ ?: =(0 fuel) ~

12349+ =/ p=iapi-path-typed i.paths

12350+ =/ parts=(unit iapi-request-parts) (api-request-parts `ev name.path.p)

12351+ ?~ parts ~

12352+ ?. ?=(?(~ [* ~]) parameters.u.parts) ~

12353+ ?: &(?=(^ fold.u.parts) ?=(^ parameters.u.parts)) ~

12354+ ?^ scry.path.p ~

12355+ ?^ (itype-vars reply-sample.u.parts) ~

12356+ ?: (itype-has-tag reply-sample.u.parts) ~

12357+ =/ open-fold=?

12358+ ?~ fold.u.parts |

12359+ |(?=(^ (itype-vars u.fold.u.parts)) (itype-has-tag u.fold.u.parts))

12360+ ?: open-fold ~

12361+ =/ result=(unit itype) (template-apply ask ~[[%var 0]])

12362+ ?~ result ~

12363+ =/ callback=itype [%fn reply-sample.u.parts [%var 0]]

12364+ =/ sample=itype

12365+ ?^ fold.u.parts [%cell callback u.fold.u.parts]

12366+ ?~ parameters.u.parts callback

12367+ [%cell typ.i.parameters.u.parts callback]

12368+ =/ scheme=ischeme [[%fn sample u.result] ~[0]]

12369+ =/ prep=iprelude prepared.ev

12370+ =/ req=irequest-evidence

12371+ [file name.path.p p src public internal values.prep molds.prep externals marks]

12372+ =/ rest=(unit imulti-request-gates)

12373+ $(paths t.paths, fuel (dec fuel))

12374+ ?~ rest ~

12375+ `[[[name.path.p scheme] values.u.rest] [req requests.u.rest]]

12376+::

12377+++ api-poke-from-checked

12378+ |= [file=path mod=module marks=imark-externals values=(list term) molds=(list term) prelude=(unit ifile)]

12379+ ^- (unit [values=ienv derived=(list iderived)])

12380+ =/ pokes=(list def)

12381+ (skim defs.mod |=(d=def &(?=(%mold -.d) =(%poke name.d))))

12382+ ?~ pokes `[~ ~]

12383+ ?. ?=([* ~] pokes) ~

12384+ =/ declared=(list term) (collect-mark-imports imports.mod)

12385+ =/ ns=(unit (list term)) (api-poke-mark-names pokes declared)

12386+ ?~ ns ~

12387+ ?. ?=([@ ~] u.ns) ~

12388+ =/ matching=(list import)

12389+ %+ skim imports.mod

12390+ |= i=import

12391+ ?. ?=(%mark -.i) |

12392+ =(mark.i i.u.ns)

12393+ ?. ?=([* ~] matching) ~

12394+ =/ checked=(unit ifile)

12395+ (api-poke-interface file mod(defs pokes, imports matching) marks values molds prelude)

12396+ ?~ checked ~

12397+ `[values.u.checked derived.u.checked]

12398+::

12399+:: The partial interface is published atomically: all paths, ordinary

12400+:: source definitions, declared marks and the poke must check. Unselected

12401+:: /sur bindings, runtime validation and value watchability remain unproved.

12402+++ multi-request-interface-graph

12403+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) cache=jcache prepared=(unit iprelude)]

12404+ ^- (each [iface=ifile cache=jcache] @t)

12405+ =/ out (api-support-analysis-graph file src externals marks modules active cache prepared)

12406+ ?: ?=(%| -.out) [%| p.out]

12407+ =/ support=iapi-support-evidence p.out

12408+ =/ ev=iapi-path-evidence paths.support

12409+ =/ parsed (parse file src)

12410+ ?: ?=(%| -.parsed) [%| 'request source does not parse']

12411+ =/ mod=module p.parsed

12412+ ?. (levy imports.mod |=(i=import ?=(?(%mark %sur) -.i)))

12413+ [%| 'request imports need unsupported inference']

12414+ =/ surs=(list term) (collect-sur-imports imports.mod)

12415+ ?. (api-sur-covered surs defs.mod externals surs)

12416+ [%| 'API source dependency needs unsupported inference']

12417+ ?~ paths.ev [%| 'request count needs unsupported inference']

12418+ =/ ask=(unit ischeme) (request-compatible-ask prepared.ev)

12419+ ?~ ask [%| 'request ask needs unsupported inference']

12420+ =/ prep=iprelude prepared.ev

12421+ =/ public=ifile iface.prep

12422+ ?~ source.public [%| 'request prelude source needs unsupported inference']

12423+ =/ private=(list iwidth-dependency)

12424+ (skim dependencies.public |=(d=iwidth-dependency =(at.d /lib/jibb/internal/jibb)))

12425+ ?. ?=([* ~] private) [%| 'request internal source needs unsupported inference']

12426+ ?~ source.i.private [%| 'request internal source needs unsupported inference']

12427+ =/ gates=(unit imulti-request-gates)

12428+ (api-request-gates paths.ev ev u.ask file src u.source.public u.source.i.private externals marks 256)

12429+ ?~ gates [%| 'request paths need unsupported inference']

12430+ =/ poke=(unit [values=ienv derived=(list iderived)])

12431+ (api-poke-from-checked file mod marks values.prep molds.prep `public)

12432+ ?~ poke [%| 'API poke needs unsupported inference']

12433+ =/ mark-molds=imold-types

12434+ (turn marks.support |=(m=iapi-mark-type [name.m [typ.m ~]]))

12435+ =/ exports=imold-types (weld mark-molds molds.support)

12436+ =/ names=(list term) (turn exports |=(m=[name=term template=ischeme] name.m))

12437+ ?. (levy names |=(n=term (unique-value-name n names)))

12438+ [%| 'API exported molds need unsupported inference']

12439+ =/ env=ienv (weld values.u.gates (weld values.u.poke values.support))

12440+ =/ graph=irequest-graph

12441+ [(silt `(list path)`~[file]) requests.u.gates modules `public values.prep molds.prep externals marks]

12442+ =/ iface=ifile

12443+ [env exports file derived.u.poke elaborations.support ~ `src `graph]

12444+ [%& [iface dependencies.ev]]

919512445::

919612446++ infer-jibb-file

919712447 |= [at=path src=@t externals=iexternals mark-externals=imark-externals modules=jbundle active=(list path) prelude-values=(list term) prelude-molds=(list term) cache=jcache prelude=(unit ifile)]

919812448 ^- jfile-result

12449+ =/ out=jfile-detailed-result

12450+ (infer-jibb-file-detailed at src externals mark-externals modules active prelude-values prelude-molds cache prelude)

12451+ ?: ?=(%| -.out) [%| message.p.out]

12452+ [%& p.out]

12453+:: Returns structured root-source overlap evidence after the same full check.

12454+++ infer-jibb-file-detailed

12455+ |= [at=path src=@t externals=iexternals mark-externals=imark-externals modules=jbundle active=(list path) prelude-values=(list term) prelude-molds=(list term) cache=jcache prelude=(unit ifile)]

12456+ ^- jfile-detailed-result

919912457 =/ parsed (parse at src)

9200− ?: ?=(%| -.parsed) [%| (crip "module source does not parse: {(spud at)}")]

12458+ ?: ?=(%| -.parsed) [%| [(crip "module source does not parse: {(spud at)}") ~]]

920112459 =/ mod=module p.parsed

12460+ =/ duplicate=(unit idiag) (duplicate-defs defs.mod)

12461+ ?^ duplicate [%| [(show-duplicate-fields at src u.duplicate) ~]]

920212462 ?: ?=([%ui %api *] at)

920312463 =/ iface=(unit ifile) (api-poke-interface at mod mark-externals prelude-values prelude-molds prelude)

9204− ?~ iface [%| (crip "API module needs unsupported inference: {(spud at)}")]

9205− [%& [u.iface [[at u.iface] cache]]]

12464+ ?^ iface

12465+ =/ checked=ifile u.iface(source `src, graph `[(silt `(list path)`~[at]) ~ modules prelude prelude-values prelude-molds externals mark-externals])

12466+ [%& [checked [[at checked] cache]]]

12467+ ?~ prelude [%| [(crip "API module needs unsupported inference: {(spud at)}") ~]]

12468+ =/ prepared=iprelude [u.prelude prelude-values prelude-molds]

12469+ =/ narrow=?

12470+ ?. ?=([[%mark *] ~] imports.mod) |

12471+ ?. ?=([[%mold *] ~] defs.mod) |

12472+ ?. =(%paths name.i.defs.mod) |

12473+ !?=(%union -.shape.i.defs.mod)

12474+ ?: narrow

12475+ =/ request=(each ione-request-interface @t)

12476+ (one-request-interface-graph at src externals mark-externals modules active cache `prepared)

12477+ ?: ?=(%| -.request) [%| [(crip "API module needs unsupported inference: {(spud at)}") ~]]

12478+ =/ checked=ifile iface.p.request

12479+ [%& [checked [[at checked] dependencies.paths.support.p.request]]]

12480+ =/ multi=(each [iface=ifile cache=jcache] @t)

12481+ (multi-request-interface-graph at src externals mark-externals modules active cache `prepared)

12482+ ?: ?=(%| -.multi) [%| [(crip "API module needs unsupported inference: {(spud at)}") ~]]

12483+ [%& [iface.p.multi [[at iface.p.multi] cache.p.multi]]]

920612484 ?. (module-scope-valid mod prelude-values prelude-molds)

920712485 ?: (pending-declared-poke at mod prelude-values prelude-molds)

9208− [%| (crip "module kind or scope needs unsupported inference: {(spud at)}")]

9209− [%| (crip "module has conflicting names: {(spud at)}")]

12486+ [%| [(crip "module kind or scope needs unsupported inference: {(spud at)}") ~]]

12487+ [%| [(crip "module has conflicting names: {(spud at)}") ~]]

921012488 =/ vals=(list term) (global-value-names defs.mod)

921112489 ?: (lien vals |=(n=term =(n %main)))

9212− [%| (crip "module kind needs unsupported inference: {(spud at)}")]

9213− =/ js=jimports-result (resolve-jibb-imports imports.mod externals mark-externals modules active prelude-values prelude-molds cache prelude)

12490+ [%| [(crip "module kind needs unsupported inference: {(spud at)}") ~]]

12491+ =/ js=jimports-detailed-result (resolve-jibb-imports-detailed imports.mod externals mark-externals modules active prelude-values prelude-molds cache prelude)

921412492 ?: ?=(%| -.js) [%| p.js]

9215− =/ molds=imolds (collect-simple-molds defs.mod)

12493+ =/ collected=grec-collected

12494+ ?^ imports.mod [(collect-simple-molds defs.mod) *(map term shape)]

12495+ (grec-collect-molds defs.mod)

12496+ =/ molds=imolds molds.collected

921612497 =/ globals=(list term) (weld prelude-values (weld (import-binding-names imports.mod) vals))

921712498 =/ surs=(list term) (collect-sur-imports imports.mod)

921812499 =/ marks=(list term) (collect-mark-imports imports.mod)

921912500 =/ reserved=(list term) (weld prelude-molds (turn resolved.p.js |=(j=[face=term interface=ifile] face.j)))

922012501 =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

9221− =/ state=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks resolved.p.js reserved ~ ~ ~ | at top prelude]

9222− =/ mts=(each imold-types @t) (module-mold-types molds state)

9223− ?: ?=(%| -.mts) [%| (crip "{(trip p.mts)}: {(spud at)}")]

9224− =/ env=ienv (resolve-supported-defs defs.mod molds globals externals surs mark-externals marks resolved.p.js reserved at prelude)

12502+ =/ state=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks resolved.p.js reserved ~ ~ ~ | at top prelude ~ 256 ~ ~ ~ ~ ~ ~]

12503+ :: Source and scope were checked above; preserve that exact root and prelude.

12504+ :: This first integration only indexes import-free library sources.

12505+ =/ index=(unit [at=path source=@t prelude=ifile shapes=(map term shape)])

12506+ ?^ imports.mod ~

12507+ ?~ prelude ~

12508+ =/ standard=(unit ischeme) (find-jibb-mold %list u.prelude)

12509+ ?~ standard ~

12510+ ?. =(u.standard [[%collection %list ~[[%var 0]]] ~[0]]) ~

12511+ =/ index=(map term shape) proofs.collected

12512+ ?. !=(index *(map term shape)) ~

12513+ ?: (lien molds |=(m=[name=term body=shape] =(%list name.m))) ~

12514+ `[at src u.prelude index]

12515+ =. grec-index.state index

12516+ =/ mts=(each imold-types imold-failure) (module-mold-types-detail molds state)

12517+ ?: ?=(%| -.mts)

12518+ ?~ overlap.p.mts [%| [(crip "{(trip message.p.mts)}: {(spud at)}") ~]]

12519+ =/ witness=[name=term cases=upair] u.overlap.p.mts

12520+ =/ first=@t (show-error src [at line.beg.first.cases.witness col.beg.first.cases.witness "first union case"])

12521+ =/ second=@t (show-error src [at line.beg.second.cases.witness col.beg.second.cases.witness "overlapping case"])

12522+ =/ msg=@t (of-wain:format ~[(crip "module mold {(trip name.witness)} has overlapping cases") first second])

12523+ [%| [msg `[at src name.witness cases.witness]]]

12524+ =/ resolution=iresolved

12525+ ?~ index

12526+ (resolve-groups defs.mod molds globals externals surs mark-externals marks resolved.p.js reserved at prelude)

12527+ (resolve-groups-core defs.mod molds globals externals surs mark-externals marks resolved.p.js reserved at prelude index)

12528+ =/ env=ienv env.resolution

12529+ =. env

12530+ ?: (module-values-complete defs.mod env) env

12531+ ?: |(?=([%ui %stores *] at) ?=(^ imports.mod) ?=(^ prelude) ?=(^ prelude-values) ?=(^ prelude-molds)) env

12532+ ?: (gth (met 3 src) 65.536) env

12533+ ?: (gth (lent defs.mod) 64) env

12534+ ?. (dg-source-candidate defs.mod 64) env

12535+ =/ transaction=(unit dgcommit) (dg-root-source at src)

12536+ ?~ transaction env

12537+ ?: (dg-interface-safe env.u.transaction) env.u.transaction

12538+ env

922512539 ?. (module-values-complete defs.mod env)

9226− [%| (crip "module definitions need unsupported inference: {(spud at)}")]

9227− [%& [[env p.mts at ~] [[at [env p.mts at ~]] cache.p.js]]]

12540+ [%| [(crip "module definitions need unsupported inference: {(spud at)}") ~]]

12541+ =/ initial=irequest-graph [(silt `(list path)`~[at]) ~ modules prelude prelude-values prelude-molds externals mark-externals]

12542+ =/ graph=(unit irequest-graph) (request-graph-merge resolved.p.js initial (add 1 (lent resolved.p.js)))

12543+ ?~ graph [%| ['module request evidence needs unsupported inference' ~]]

12544+ =/ iface=ifile [env p.mts at ~ artifacts.resolution ~ `src graph]

12545+ [%& [iface [[at iface] cache.p.js]]]

12546+::

12547+:: A source-bound analysis of one named mold, not a module, island,

12548+:: request, watchability or runtime check. The host owns the trusted

12549+:: prepared prelude, canonical paths and reader/source version identities.

12550+:: The 256-node cap covers only classification, not source/graph work.

12551++$ igate-free-mold

12552+ [at=path source=@t name=term prepared=iprelude externals=iexternals marks=imark-externals modules=jbundle dependencies=jcache mold=ischeme requested=@ud budget=@ud result=igate-free]

12553+++ gate-free-mold-source

12554+ |= [file=path src=@t name=term externals=iexternals marks=imark-externals modules=jbundle prepared=(unit iprelude) fuel=@ud]

12555+ ^- (each igate-free-mold @t)

12556+ ?~ file [%| 'mold analysis needs a path ending in jibb']

12557+ ?. =(%jibb (rear file)) [%| 'mold analysis needs a path ending in jibb']

12558+ ?: |(=(file /lib/jibb/internal/jibb) =(file /lib/jibb/primitives/jibb))

12559+ [%| 'the prelude internal modules are private']

12560+ ?: ?=([%ui %api *] file) [%| 'API declarations need unsupported mold analysis']

12561+ ?: ?=([%ui %stores *] file) [%| 'store declarations need unsupported mold analysis']

12562+ =/ entries=jbundle (skim modules |=(m=jsource =(file at.m)))

12563+ ?: (gth (lent entries) 1) [%| 'duplicate root module sources']

12564+ =/ wrong-root=? ?~(entries | !=(source.i.entries src))

12565+ ?: wrong-root [%| 'root module source does not match bundle']

12566+ =/ parsed (parse file src)

12567+ ?: ?=(%| -.parsed) [%| 'mold source does not parse']

12568+ =/ mod=module p.parsed

12569+ =/ duplicate=(unit idiag) (duplicate-defs defs.mod)

12570+ ?^ duplicate [%| (show-duplicate-fields file src u.duplicate)]

12571+ ?~ prepared [%| 'mold analysis needs the prepared prelude']

12572+ ?. (module-scope-valid mod values.u.prepared molds.u.prepared)

12573+ [%| 'mold source has conflicting or unsupported scope']

12574+ =/ selected=(list def)

12575+ (skim defs.mod |=(d=def &(?=(%mold -.d) =(name.d name))))

12576+ ?~ selected [%| 'selected mold is not declared']

12577+ ?^ t.selected [%| 'selected mold is not unique']

12578+ ?> ?=(%mold -.i.selected)

12579+ =/ public=ifile iface.u.prepared

12580+ =/ js=jimports-result

12581+ (resolve-jibb-imports imports.mod externals marks modules ~[file] values.u.prepared molds.u.prepared ~ `public)

12582+ ?: ?=(%| -.js) [%| p.js]

12583+ =/ ms=imolds (collect-simple-molds defs.mod)

12584+ =/ vals=(list term) (global-value-names defs.mod)

12585+ =/ globals=(list term) (weld values.u.prepared (weld (import-binding-names imports.mod) vals))

12586+ =/ surs=(list term) (collect-sur-imports imports.mod)

12587+ =/ declared=(list term) (collect-mark-imports imports.mod)

12588+ =/ reserved=(list term) (weld molds.u.prepared (turn resolved.p.js |=(j=[face=term interface=ifile] face.j)))

12589+ =/ top=(list term) (turn ms |=(m=[name=term body=shape] name.m))

12590+ =/ state=istate [0 ~ ~ ~ ms globals externals surs marks declared resolved.p.js reserved ~ ~ ~ | file top `public ~ 256 ~ ~ ~ ~ ~ ~]

12591+ =/ inferred=(unit [template=ischeme state=istate])

12592+ (infer-mold-template shape.i.selected state(active ~[name], in-mold &))

12593+ ?~ inferred [%| 'selected mold needs unsupported inference']

12594+ =/ template=ischeme template.u.inferred

12595+ =. typ.template (label-direct-union typ.template shape.i.selected name state)

12596+ =. typ.template (itype-normalize typ.template sub.state.u.inferred)

12597+ =/ cap=@ud (min fuel 256)

12598+ =/ analysis=igate-free (gate-free-type typ.template cap ~)

12599+ [%& [file src name u.prepared externals marks modules cache.p.js template fuel cap analysis]]

922812600::

922912601:: +golden-types-with-modules fails closed for imports without prelude

923012602:: scope. +golden-types-with-prelude resolves supported library graphs;

@@ -9235,6 +12607,8 @@

923512607 ^- @t

923612608 =/ parsed (parse file src)

923712609 ?: ?=(%| -.parsed) (show-error src p.parsed)

12610+ =/ duplicate=(unit idiag) (duplicate-defs defs.p.parsed)

12611+ ?^ duplicate (duplicate-fields-report file src u.duplicate)

923812612 ?: (lien imports.p.parsed |=(i=import ?=(%jibb -.i)))

923912613 'partial inference; module not checked\0aprelude source missing; module import inference unsupported'

924012614 (golden-types-with-marks file src externals mark-externals)

@@ -9249,6 +12623,8 @@

924912623 ^- @t

925012624 =/ parsed (parse file src)

925112625 ?: ?=(%| -.parsed) (show-error src p.parsed)

12626+ =/ duplicate=(unit idiag) (duplicate-defs defs.p.parsed)

12627+ ?^ duplicate (duplicate-fields-report file src u.duplicate)

925212628 ?: =(0 prelude-source) 'partial inference; module not checked\0aprelude source missing; module import inference unsupported'

925312629 =/ prelude (parse /lib/jibb/prelude/jibb prelude-source)

925412630 ?: ?=(%| -.prelude) 'partial inference; module not checked\0aprelude source does not parse; module import inference unsupported'

@@ -9267,6 +12643,8 @@

926712643 ^- @t

926812644 =/ parsed (parse file src)

926912645 ?: ?=(%| -.parsed) (show-error src p.parsed)

12646+ =/ duplicate=(unit idiag) (duplicate-defs defs.p.parsed)

12647+ ?^ duplicate (duplicate-fields-report file src u.duplicate)

927012648 ?~ prepared 'partial inference; module not checked\0aprelude interface is not supported'

927112649 =/ prelude-values=(list term) values.u.prepared

927212650 =/ prelude-molds=(list term) molds.u.prepared

@@ -9314,6 +12692,10 @@

931412692 =. reserved-molds (weld reserved-molds (turn jimports |=(j=[face=term interface=ifile] face.j)))

931512693 =/ parsed (parse file src)

931612694 ?: ?=(%| -.parsed) (show-error src p.parsed)

12695+ =/ duplicate=(unit idiag) (duplicate-defs defs.p.parsed)

12696+ ?^ duplicate (duplicate-fields-report file src u.duplicate)

12697+ ?: (module-has-reserved-proj p.parsed)

12698+ 'module has reserved proj name'

931712699 =/ ds=(list def) defs.p.parsed

931812700 =/ molds=imolds (collect-simple-molds ds)

931912701 =/ globals=(list term) (weld prelude-values (weld (turn jimports |=(j=[face=term interface=ifile] face.j)) (global-value-names ds)))

@@ -9322,6 +12704,33 @@

932212704 =/ resolution=iresolved (resolve-groups ds molds globals externals surs mark-externals marks jimports reserved-molds file prelude)

932312705 =/ cycles=(list icycle) (definite-value-cycles ds globals)

932412706 =/ env=ienv env.resolution

12707+ =/ recovered=(list term) ~

12708+ =/ eligible=?

12709+ ?& ?=(~ imports.p.parsed)

12710+ ?=(~ jimports)

12711+ ?=(~ prelude)

12712+ ?=(~ prelude-values)

12713+ ?=(~ reserved-molds)

12714+ !?=([%ui %api *] file)

12715+ !?=([%ui %stores *] file)

12716+ !(lien (global-value-names ds) |=(n=term =(n %main)))

12717+ (module-scope-valid p.parsed ~ ~)

12718+ !(module-values-complete ds env)

12719+ (lte (met 3 src) 65.536)

12720+ (lte (lent ds) 64)

12721+ (dg-source-candidate ds 64)

12722+ ==

12723+ =/ transaction=(unit dgcommit) ?:(eligible (dg-root-source file src) ~)

12724+ =. recovered

12725+ ?~ transaction ~

12726+ ?. &((module-values-complete ds env.u.transaction) (dg-interface-safe env.u.transaction)) ~

12727+ (turn (skim env.u.transaction |=(entry=[name=term scheme=ischeme] ?=(~ (ienv-lookup name.entry env)))) |=(entry=[name=term scheme=ischeme] name.entry))

12728+ =. env

12729+ ?~ transaction env

12730+ ?: &((module-values-complete ds env.u.transaction) (dg-interface-safe env.u.transaction)) env.u.transaction

12731+ env

12732+ =/ source-defs=(map term def) (direct-checked-gates ds env)

12733+ =/ heads=(unit igate-prelude-evidence) (direct-prelude-evidence ds prelude)

932512734 =/ lines=(list @t) ~

932612735 |-

932712736 ?~ ds (of-wain:format ['partial inference; module not checked' (flop lines)])

@@ -9334,6 +12743,16 @@

933412743 ?^ cycle

933512744 =/ diag=idiag ["non-gate value depends on itself through a cycle" ~[[first.i.cycle "value in cycle"] [next.i.cycle "dependency in cycle"]]]

933612745 $(ds t.ds, lines [(show-inference-diagnostic file src name.d diag) lines])

12746+ ?: (lien recovered |=(n=term =(n name.d)))

12747+ =/ found=(unit ischeme) (ienv-lookup name.d env)

12748+ ?~ found $(ds t.ds, lines [(crip "++ {(trip name.d)}: committed definition unavailable") lines])

12749+ ?: (itype-has-hidden-recursive typ.u.found)

12750+ $(ds t.ds, lines [(crip "++ {(trip name.d)}: recursive mold name is not available in this scope") lines])

12751+ ?: (itype-has-hidden-generic typ.u.found)

12752+ $(ds t.ds, lines [(crip "++ {(trip name.d)}: generic union name is not available in this scope") lines])

12753+ =/ typ=itype (canonical-itype typ.u.found vars.u.found)

12754+ =/ line=@t (crip "++ {(trip name.d)}: {(show-itype typ ~)}{(show-atom-constraint typ)}")

12755+ $(ds t.ds, lines [line lines])

933712756 ?: (lien grouped.resolution |=(n=term =(n name.d)))

933812757 =/ found=(unit ischeme) (ienv-lookup name.d env)

933912758 ?~ found $(ds t.ds, lines [(crip "++ {(trip name.d)}: recursive group unavailable") lines])

@@ -9341,7 +12760,9 @@

934112760 =/ line=@t (crip "++ {(trip name.d)}: {(show-itype typ ~)}{(show-atom-constraint typ)}")

934212761 $(ds t.ds, lines [line lines])

934312762 =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

9344− =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | file top prelude]

12763+ =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | file top prelude ~ 256 ~ ~ ~ ~ ~ ~]

12764+ =. gate-defs.initial source-defs

12765+ =. head-evidence.initial heads

934512766 =. initial (reserve-def-caps val.d initial)

934612767 =/ result=iresult

934712768 ?: |(?=(%gate -.val.d) ?=(%gate-wide -.val.d))

@@ -9349,6 +12770,11 @@

934912770 (infer-fragment val.d env initial)

935012771 ?: ?=(%| -.result)

935112772 $(ds t.ds, lines [(show-inference-diagnostic file src name.d p.result) lines])

12773+ =. state.p.result (promote-restricted-numbers state.p.result env)

12774+ =. state.p.result (default-hole-numbers holes.state.p.result holes.initial state.p.result env !(itype-has-gate (itype-normalize typ.p.result sub.state.p.result)))

12775+ =/ hole=(unit idiag) (unresolved-hole holes.state.p.result holes.initial state.p.result)

12776+ ?^ hole

12777+ $(ds t.ds, lines [(show-inference-diagnostic file src name.d u.hole) lines])

935212778 =/ merged=(unit [first=icap second=icap])

935312779 (merged-capitals caps.state.p.result sub.state.p.result)

935412780 ?^ merged

@@ -9371,7 +12797,576 @@

937112797 =/ vars=(list @ud) (unique-type-vars (itype-vars typ))

937212798 ?: (gth (lent vars) 26)

937312799 $(ds t.ds, lines [(crip "++ {(trip name.d)}: too many variables for partial printer") lines])

12800+ ?~ (width-finalize projections.state.p.result sub.state.p.result vars)

12801+ $(ds t.ds, lines [(crip "++ {(trip name.d)}: record projection elaboration needs unsupported inference") lines])

937412802 =/ printable=itype (canonical-itype typ vars)

937512803 =/ line=@t (crip "++ {(trip name.d)}: {(show-itype printable ~)}{(show-atom-constraint printable)}")

937612804 $(ds t.ds, lines [line lines])

12805+:: Experimental module-owned pending-constraint generalization only.

12806+:: Inputs, IDs and substitution come from one checker-owned transaction.

12807++$ dgscan [ids=(list @ud) fuel=@ud]

12808+++ dg-scan

12809+ |= [todo=(list itype) sub=isub fuel=@ud ids=(list @ud)]

12810+ ^- (unit dgscan)

12811+ ?~ todo `[ids fuel]

12812+ ?: =(0 fuel) ~

12813+ =. fuel (dec fuel)

12814+ =/ t=itype i.todo

12815+ ?: ?=(?(%var %avar %rvar %nvar %rnvar %tag) -.t)

12816+ =/ node-id=@ud ?:(?=(%tag -.t) id.t +.t)

12817+ =/ found=(unit itype) (itype-lookup node-id sub)

12818+ ?~ found $(todo t.todo, ids [node-id ids])

12819+ ?: &(?=(?(%rvar %rnvar) -.u.found) =(node-id +.u.found))

12820+ $(todo t.todo, ids [node-id ids])

12821+ $(todo [u.found t.todo])

12822+ ?: ?=(%jrec -.t) $(todo t.todo)

12823+ ?+ -.t ~

12824+ %collection $(todo (weld args.t t.todo))

12825+ %union $(todo (weld args.t (weld cases.t t.todo)))

12826+ %face $(todo [body.t t.todo])

12827+ %fn $(todo [sample.t product.t t.todo])

12828+ %cell $(todo [hed.t tal.t t.todo])

12829+ %atom $(todo t.todo)

12830+ %any-atom $(todo t.todo)

12831+ %flag $(todo t.todo)

12832+ %noun $(todo t.todo)

12833+ %empty $(todo t.todo)

12834+ %const $(todo t.todo)

12835+ ==

12836+::

12837+++ dg-scan-ids

12838+ |= [ids=(list @ud) sub=isub fuel=@ud blocked=(list @ud)]

12839+ ^- (unit dgscan)

12840+ ?~ ids `[blocked fuel]

12841+ =/ one=(unit dgscan) (dg-scan ~[[%var i.ids]] sub fuel blocked)

12842+ ?~ one ~

12843+ $(ids t.ids, fuel fuel.u.one, blocked ids.u.one)

12844+::

12845+++ dg-env

12846+ |= [env=ienv sub=isub fuel=@ud blocked=(list @ud)]

12847+ ^- (unit dgscan)

12848+ ?~ env `[blocked fuel]

12849+ =/ sc=ischeme scheme.i.env

12850+ :: Quantifiers are local to the scheme: first find raw free IDs, then

12851+ :: follow those IDs in the module substitution without capturing them.

12852+ =/ raw=(unit dgscan) (dg-scan ~[typ.sc] ~ fuel ~)

12853+ ?~ raw ~

12854+ =/ free=(list @ud) (skim ids.u.raw |=(n=@ud !(lien vars.sc |=(q=@ud =(q n)))))

12855+ =/ resolved=(unit dgscan) (dg-scan-ids free sub fuel.u.raw blocked)

12856+ ?~ resolved ~

12857+ $(env t.env, fuel fuel.u.resolved, blocked ids.u.resolved)

12858+::

12859+++ dg-obligations

12860+ |= [pending=(list dgo) sub=isub fuel=@ud blocked=(list @ud)]

12861+ ^- (unit dgscan)

12862+ ?~ pending `[blocked fuel]

12863+ =/ found=(unit dgscan) (dg-scan ~[left.i.pending right.i.pending] sub fuel blocked)

12864+ ?~ found ~

12865+ $(pending t.pending, fuel fuel.u.found, blocked ids.u.found)

12866+::

12867+++ dg-tags

12868+ |= [tags=(list ipending) sub=isub fuel=@ud blocked=(list @ud)]

12869+ ^- (unit dgscan)

12870+ ?~ tags `[blocked fuel]

12871+ ?: =(0 fuel) ~

12872+ =/ found=(unit itype) (itype-lookup id.i.tags sub)

12873+ ?~ found $(tags t.tags, fuel (dec fuel), blocked [id.i.tags blocked])

12874+ :: Until this entry is explicitly discharged, retain variables reachable

12875+ :: through its binding; mere existence of a substitution is not proof.

12876+ =/ reached=(unit dgscan) (dg-scan ~[u.found] sub (dec fuel) blocked)

12877+ ?~ reached ~

12878+ $(tags t.tags, fuel fuel.u.reached, blocked ids.u.reached)

12879+::

12880+++ dg-generalize

12881+ |= [typ=itype env=ienv pending=(list dgo) tags=(list ipending) captured=(list @ud) state=istate fuel=@ud]

12882+ ^- (unit ischeme)

12883+ :: Bound the obligation list and all graph/substitution walks. The

12884+ :: substitution is assumed checker-owned and occurs-checked.

12885+ ?: (gth (lent pending) 64) ~

12886+ =/ capt=(unit dgscan) (dg-scan-ids captured sub.state fuel ~)

12887+ ?~ capt ~

12888+ =/ env-free=(unit dgscan) (dg-env env sub.state fuel.u.capt ids.u.capt)

12889+ ?~ env-free ~

12890+ =/ obligations=(unit dgscan) (dg-obligations pending sub.state fuel.u.env-free ids.u.env-free)

12891+ ?~ obligations ~

12892+ =/ tagged=(unit dgscan) (dg-tags tags sub.state fuel.u.obligations ids.u.obligations)

12893+ ?~ tagged ~

12894+ =/ bounded=(unit dgscan) (dg-scan ~[typ] sub.state fuel.u.tagged ~)

12895+ ?~ bounded ~

12896+ =/ normalized=itype (itype-normalize typ sub.state)

12897+ =/ vars=(list @ud) (unique-type-vars (itype-vars normalized))

12898+ =/ quantified=(list @ud) (skim vars |=(n=@ud !(lien ids.u.tagged |=(b=@ud =(b n)))))

12899+ `[[normalized quantified]]

12900+::

12901++$ dgcommit [env=ienv state=istate]

12902+:: A branch literal must not acquire a value face through replay.

12903+++ dg-literal-target-safe

12904+ |= target=itype

12905+ ^- ?

12906+ ?: ?=(%union -.target)

12907+ (levy cases.target |=(c=itype ?=(?(%const %cell) -.c)))

12908+ ?=(?(%const %atom %any-atom %flag %noun) -.target)

12909+::

12910+++ dg-replay-edges

12911+ |= [edges=(list dgo) state=istate fuel=@ud]

12912+ ^- (unit istate)

12913+ ?~ edges `state

12914+ ?: =(0 fuel) ~

12915+ =/ trial=ifit (itype-fit left.i.edges right.i.edges sub.state next.state)

12916+ ?. ?=(%ok -.trial) ~

12917+ =/ valid=?

12918+ ?: ?=(%tag -.left.i.edges)

12919+ ?. constructor.left.i.edges

12920+ =/ closed=(unit dgscan) (dg-scan ~[right.i.edges] sub.trial 512 ~)

12921+ ?~ closed |

12922+ ?^ ids.u.closed |

12923+ (dg-literal-target-safe (itype-normalize right.i.edges sub.trial))

12924+ =((itype-walk left.i.edges sub.trial) (itype-walk right.i.edges sub.trial))

12925+ =((itype-walk left.i.edges sub.trial) (itype-walk right.i.edges sub.trial))

12926+ ?. valid ~

12927+ $(edges t.edges, state state(sub sub.trial, next next.trial), fuel (dec fuel))

12928+::

12929+++ dg-close-env

12930+ |= [env=ienv sub=isub fuel=@ud]

12931+ ^- (unit ienv)

12932+ ?~ env `~

12933+ ?: =(0 fuel) ~

12934+ =/ s=ischeme scheme.i.env

12935+ :: Quantified IDs are scheme-local and cannot be rewritten on publication.

12936+ ?. (levy vars.s |=(n=@ud ?=(~ (itype-lookup n sub)))) ~

12937+ =/ bounded=(unit dgscan) (dg-scan ~[typ.s] sub (dec fuel) ~)

12938+ ?~ bounded ~

12939+ =/ normalized=itype (itype-normalize typ.s sub)

12940+ ?: (itype-has-tag normalized) ~

12941+ =/ vars=(list @ud) (unique-type-vars (itype-vars normalized))

12942+ ?. (levy vars |=(n=@ud (lien vars.s |=(v=@ud =(v n))))) ~

12943+ =/ rest=(unit ienv) (dg-close-env t.env sub fuel.u.bounded)

12944+ ?~ rest ~

12945+ `[[name.i.env [normalized vars.s]] u.rest]

12946+::

12947+:: A deferred boolean branch has exactly the two literal flag patterns.

12948+:: Arms are inferred in order. Equal types are retained; two direct pending

12949+:: literals may instead retain source-owned obligations for later context.

12950+++ dg-boolean-patterns

12951+ |= e=expr

12952+ ^- ?

12953+ ?. ?=(%branch -.e) |

12954+ ?~ arms.e |

12955+ ?~ t.arms.e |

12956+ ?^ t.t.arms.e |

12957+ =/ x=arm i.arms.e

12958+ =/ y=arm i.t.arms.e

12959+ ?. &(?=(%lit -.pat.x) ?=(%lit -.pat.y)) |

12960+ ?. &(=(%loobean form.lit.pat.x) =(%loobean form.lit.pat.y)) |

12961+ !=(val.lit.pat.x val.lit.pat.y)

12962+:: Only a direct source literal which created its own unbound pending tag

12963+:: may create a branch edge. The caller must retain the exact source and state.

12964+++ dg-owned-arm-literal

12965+ |= [e=expr t=itype tags=(list ipending) sub=isub initial=@ud]

12966+ ^- ?

12967+ ?. ?=(%lit -.e) |

12968+ ?. ?=(%tag -.t) |

12969+ ?: constructor.t |

12970+ ?. =(lit.e literal.t) |

12971+ ?: (lth id.t initial) |

12972+ ?^ (itype-lookup id.t sub) |

12973+ (lien tags |=(x=ipending &(=(id.x id.t) =(literal.x literal.t))))

12974+++ dg-boolean-branch

12975+ |= [e=expr env=ienv state=istate]

12976+ ^- iresult

12977+ ?. (dg-boolean-patterns e) [%| ["deferred branch patterns need unsupported inference" ~]]

12978+ ?> ?=(%branch -.e)

12979+ ?> ?=(^ arms.e)

12980+ ?> ?=(^ t.arms.e)

12981+ =/ x=arm i.arms.e

12982+ =/ y=arm i.t.arms.e

12983+ =/ subject=iresult (infer-fragment subject.e env state)

12984+ ?: ?=(%| -.subject) subject

12985+ =/ su=(unit isub) (itype-unify typ.p.subject [%flag ~] sub.state.p.subject)

12986+ ?~ su [%| ["deferred branch subject does not unify with ?" ~]]

12987+ =/ left=iresult (infer-fragment val.x env state.p.subject(sub u.su))

12988+ ?: ?=(%| -.left) left

12989+ =/ right=iresult (infer-fragment val.y env state.p.left)

12990+ ?: ?=(%| -.right) right

12991+ ?. (dg-stable-fit typ.p.left typ.p.right sub.state.p.right)

12992+ =/ st=istate state.p.right

12993+ ?. (dg-owned-arm-literal val.x typ.p.left tags.st sub.st next.state)

12994+ [%| ["deferred branch arm context needs unsupported inference" ~]]

12995+ ?. (dg-owned-arm-literal val.y typ.p.right tags.st sub.st next.state)

12996+ [%| ["deferred branch arm context needs unsupported inference" ~]]

12997+ ?> ?=(%tag -.typ.p.left)

12998+ ?> ?=(%tag -.typ.p.right)

12999+ ?: =(id.typ.p.left id.typ.p.right)

13000+ [%| ["deferred branch arm context needs unsupported inference" ~]]

13001+ ?: (gth (lent obligations.st) 62)

13002+ [%| ["deferred branch arm context needs unsupported inference" ~]]

13003+ =/ result=itype [%var next.st]

13004+ =/ ex=dgo [typ.p.left result (span-of val.x) (span-of e)]

13005+ =/ ey=dgo [typ.p.right result (span-of val.y) (span-of e)]

13006+ [%& result st(next +(next.st), obligations [ex ey obligations.st])]

13007+ [%& typ.p.left state.p.right]

13008+::

13009+:: Deferred inference uses only source forms whose successful fit sites are

13010+:: guarded below; a shared source-node budget bounds this screen.

13011+++ dg-safe-expressions

13012+ |= [todo=(list expr) fuel=@ud]

13013+ ^- (unit @ud)

13014+ ?~ todo `fuel

13015+ =/ first=(unit @ud) (dg-safe-expression i.todo fuel)

13016+ ?~ first ~

13017+ $(todo t.todo, fuel u.first)

13018+++ dg-safe-expression

13019+ |= [e=expr fuel=@ud]

13020+ ^- (unit @ud)

13021+ ?: =(0 fuel) ~

13022+ =. fuel (dec fuel)

13023+ ?+ -.e ~

13024+ ?(%lit %ctor) `fuel

13025+ %wing ?:(?=([@ ~] names.e) `fuel ~)

13026+ %str

13027+ ?. (levy pieces.e |=(p=piece ?=(%text -.p))) ~

13028+ `fuel

13029+ %group $(e inner.e, fuel fuel)

13030+ %body

13031+ ?^ defs.e ~

13032+ $(e final.e, fuel fuel)

13033+ %gate $(e body.e, fuel fuel)

13034+ %gate-wide $(e body.e, fuel fuel)

13035+ %branch

13036+ ?. (dg-boolean-patterns e) ~

13037+ ?> ?=(^ arms.e)

13038+ ?> ?=(^ t.arms.e)

13039+ =/ subject=(unit @ud) $(e subject.e, fuel fuel)

13040+ ?~ subject ~

13041+ (dg-safe-expressions ~[val.i.arms.e val.i.t.arms.e] u.subject)

13042+ %cast $(e val.e, fuel fuel)

13043+ %call

13044+ =/ head=(unit @ud) $(e head.e, fuel fuel)

13045+ ?~ head ~

13046+ (dg-safe-expressions args.e u.head)

13047+ ==

13048+:: Exact normalized equality is preserved by all later substitutions.

13049+:: The bounded scan declines opaque types and oversized inputs.

13050+++ dg-stable-fit

13051+ |= [actual=itype expected=itype sub=isub]

13052+ ^- ?

13053+ ?~ (dg-scan ~[actual expected] sub 512 ~) |

13054+ =((itype-normalize actual sub) (itype-normalize expected sub))

13055+::

13056+:: A positional call peels sample-slot faces during its separate face check.

13057+:: Require its argument, sample and result closed so that check stays valid.

13058+++ dg-stable-call-fit

13059+ |= [actual=itype expected=itype product=itype sub=isub positional=?]

13060+ ^- ?

13061+ =/ checked=(unit dgscan) (dg-scan ~[actual expected product] sub 512 ~)

13062+ ?~ checked |

13063+ ?: &(positional ?=(^ ids.u.checked)) |

13064+ =((itype-normalize actual sub) (itype-normalize expected sub))

13065+::

13066+:: One definition attempt retains state only when inference succeeds.

13067++$ dg-step [env=ienv state=istate pending=(list dgo)]

13068+++ dg-stage-one

13069+ |= [d=def env=ienv state=istate]

13070+ ^- (unit dg-step)

13071+ ?> ?=(%value -.d)

13072+ ?~ (dg-safe-expression val.d 512) ~

13073+ =/ local=istate (reserve-def-caps val.d state)

13074+ :: This first slice declines all written capitals and holes/projections.

13075+ ?^ caps.local ~

13076+ =/ ordinary=iresult (infer-fragment val.d env local)

13077+ ?: ?=(%| -.ordinary) ~

13078+ =/ typ=itype typ.p.ordinary

13079+ =/ after=istate state.p.ordinary

13080+ =/ edges=(list dgo) obligations.after

13081+ ?. =(binders.after binders.state) ~

13082+ ?. =(molds.after molds.state) ~

13083+ ?. =(globals.after globals.state) ~

13084+ ?. =(externals.after externals.state) ~

13085+ ?. =(surs.after surs.state) ~

13086+ ?. =(mark-externals.after mark-externals.state) ~

13087+ ?. =(marks.after marks.state) ~

13088+ ?. =(jimports.after jimports.state) ~

13089+ ?. =(reserved-molds.after reserved-molds.state) ~

13090+ ?. =(params.after params.state) ~

13091+ ?. =(active.after active.state) ~

13092+ ?. =(in-mold.after in-mold.state) ~

13093+ ?. =(at.after at.state) ~

13094+ ?. =(top-molds.after top-molds.state) ~

13095+ ?. =(prelude.after prelude.state) ~

13096+ ?. =(gate-defs.after gate-defs.state) ~

13097+ ?. =(head-evidence.after head-evidence.state) ~

13098+ ?. =(grec-index.after grec-index.state) ~

13099+ ?. =(defer.after defer.state) ~

13100+ ?. =(holes.after holes.state) ~

13101+ ?. =(caps.after caps.state) ~

13102+ ?. =(projections.after projections.state) ~

13103+ ?: (unsupported-atom-vars (itype-normalize typ sub.after) caps.after binders.after sub.after) ~

13104+ ?: (itype-has-nvar (itype-normalize typ sub.after)) ~

13105+ =/ scheme=(unit ischeme) (dg-generalize typ env edges tags.after ~ after 32.768)

13106+ ?~ scheme ~

13107+ `[[[name.d u.scheme] env] after edges]

13108+:: Retry only definitions that did not infer. Successful definitions are

13109+:: committed into the local transaction, never published until all close.

13110+++ dg-stage

13111+ |= [ds=(list def) base=ienv env=ienv state=istate pending=(list dgo) fuel=@ud]

13112+ ^- (unit dgcommit)

13113+ ?: (gth fuel 64) ~

13114+ ?: (gth (lent ds) fuel) ~

13115+ =/ remaining=(list def) ds

13116+ =/ waiting=(list def) ~

13117+ =/ progress=? |

13118+ =/ attempts=@ud (mul fuel fuel)

13119+ |-

13120+ ?~ remaining

13121+ ?^ waiting

13122+ ?. progress ~

13123+ $(remaining (flop waiting), waiting ~, progress |)

13124+ =/ replayed=(unit istate) (dg-replay-edges pending state 64)

13125+ ?~ replayed ~

13126+ ?: (pending-tags tags.u.replayed sub.u.replayed) ~

13127+ =/ closed-edges=(unit dgscan) (dg-obligations pending sub.u.replayed 32.768 ~)

13128+ ?~ closed-edges ~

13129+ ?^ ids.u.closed-edges ~

13130+ =/ rechecked=(unit istate) (dg-replay-edges pending u.replayed 64)

13131+ ?~ rechecked ~

13132+ ?. =(sub.u.rechecked sub.u.replayed) ~

13133+ ?. =(next.u.rechecked next.u.replayed) ~

13134+ =/ closed=(unit ienv) (dg-close-env env sub.u.replayed 32.768)

13135+ ?~ closed ~

13136+ `[[u.closed u.replayed(defer ~, obligations ~)]]

13137+ ?: =(0 attempts) ~

13138+ =. attempts (dec attempts)

13139+ =/ d=def i.remaining

13140+ ?: ?=(%mold -.d) $(remaining t.remaining)

13141+ ?^ (ienv-lookup name.d base) $(remaining t.remaining)

13142+ ?^ (ienv-lookup name.d env) ~

13143+ =/ done=(unit dg-step) (dg-stage-one d env state)

13144+ ?~ done $(remaining t.remaining, waiting [d waiting])

13145+ $(remaining t.remaining, env env.u.done, state state.u.done, pending pending.u.done, progress &)

13146+::

13147+:: Cheap bounded eligibility check on the already parsed source. This

13148+:: deliberately covers only direct constructor calls beneath transparent

13149+:: groups, gates, casts and definition-free bodies. Other shapes decline

13150+:: this fallback without a second parse or resolution pass.

13151+++ dg-direct-source

13152+ |= [e=expr fuel=@ud]

13153+ ^- ?

13154+ ?: =(0 fuel) |

13155+ ?+ -.e |

13156+ %group $(e inner.e, fuel (dec fuel))

13157+ %gate $(e body.e, fuel (dec fuel))

13158+ %gate-wide $(e body.e, fuel (dec fuel))

13159+ %cast $(e val.e, fuel (dec fuel))

13160+ %body ?~(defs.e $(e final.e, fuel (dec fuel)) |)

13161+ %call

13162+ ?. ?=([* ~] args.e) |

13163+ ?=(%ctor -.i.args.e)

13164+ ==

13165+++ dg-source-candidate

13166+ |= [ds=(list def) fuel=@ud]

13167+ ^- ?

13168+ ?~ ds |

13169+ ?: =(0 fuel) |

13170+ ?. ?=(%value -.i.ds) $(ds t.ds, fuel (dec fuel))

13171+ ?: (dg-direct-source val.i.ds 64) &

13172+ $(ds t.ds, fuel (dec fuel))

13173+::

13174+++ dg-interface-safe

13175+ |= [env=ienv]

13176+ ^- ?

13177+ ?~ env &

13178+ =/ sc=ischeme scheme.i.env

13179+ ?: |((itype-has-hidden-recursive typ.sc) (itype-has-hidden-generic typ.sc)) |

13180+ ?: (gth (lent vars.sc) 26) |

13181+ $(env t.env)

13182+:: Parse status and the transaction result come from the same source parse.

13183++$ dgparse [parsed=? result=(unit dgcommit)]

13184+++ dg-root-source

13185+ |= [at=path src=@t]

13186+ ^- (unit dgcommit)

13187+ result:(dg-root-detail at src)

13188+++ dg-root-detail

13189+ |= [at=path src=@t]

13190+ ^- dgparse

13191+ =/ parsed (parse at src)

13192+ ?: ?=(%| -.parsed) [| ~]

13193+ =/ transact

13194+ |.

13195+ ?^ imports.p.parsed ~

13196+ ?. (module-scope-valid p.parsed ~ ~) ~

13197+ ?^ (duplicate-defs defs.p.parsed) ~

13198+ =/ defs=(list def) defs.p.parsed

13199+ ?: (gth (lent defs) 64) ~

13200+ =/ molds=imolds (collect-simple-molds defs)

13201+ =/ globals=(list term) (global-value-names defs)

13202+ =/ resolution=iresolved (resolve-groups defs molds globals ~ ~ ~ ~ ~ ~ at ~)

13203+ ?^ grouped.resolution ~

13204+ ?^ artifacts.resolution ~

13205+ =/ base=ienv env.resolution

13206+ =/ free=(unit dgscan) (dg-env base ~ 32.768 ~)

13207+ ?~ free ~

13208+ ?^ ids.u.free ~

13209+ =/ all=(unit dgscan) (dg-all-env-ids base 32.768 ~)

13210+ ?~ all ~

13211+ =/ fresh=@ud (dg-next-id ids.u.all 0)

13212+ =/ st=istate *istate

13213+ =. st st(next fresh, defer `~, molds molds, globals globals, at at, top-molds (turn molds |=(m=[name=term body=shape] name.m)), in-mold |, jrec-fuel 256)

13214+ =/ checked-molds=(each imold-types @t) (module-mold-types molds st)

13215+ ?: ?=(%| -.checked-molds) ~

13216+ (dg-stage defs base base st ~ 64)

13217+ ::

13218+ [& (transact)]

13219+++ dg-all-env-ids

13220+ |= [env=ienv fuel=@ud ids=(list @ud)]

13221+ ^- (unit dgscan)

13222+ ?~ env `[ids fuel]

13223+ ?: =(0 fuel) ~

13224+ =/ sc=ischeme scheme.i.env

13225+ ?: (itype-has-tag typ.sc) ~

13226+ =/ raw=(unit dgscan) (dg-scan ~[typ.sc] ~ (dec fuel) ids)

13227+ ?~ raw ~

13228+ =/ quant=(unit dgscan) (dg-scan-ids vars.sc ~ fuel.u.raw ids.u.raw)

13229+ ?~ quant ~

13230+ $(env t.env, fuel fuel.u.quant, ids ids.u.quant)

13231+::

13232+++ dg-next-id

13233+ |= [ids=(list @ud) largest=@ud]

13234+ ^- @ud

13235+ ?~ ids +(largest)

13236+ $(ids t.ids, largest (max largest i.ids))

13237+::

13238+++ dg-eligible-ctor

13239+ |= [e=expr head=itype actual=itype expected=itype state=istate]

13240+ ^- (unit dgo)

13241+ ?. ?=(%call -.e) ~

13242+ ?. ?=([* ~] args.e) ~

13243+ ?. ?=(%ctor -.i.args.e) ~

13244+ ?. ?=(%fn -.head) ~

13245+ ?. ?=(%fn -.expected) ~

13246+ ?. ?=(%tag -.actual) ~

13247+ ?. constructor.actual ~

13248+ ?. ?=(%var -.product.expected) ~

13249+ ?^ (itype-lookup id.product.expected sub.state) ~

13250+ =/ bounded=(unit dgscan) (dg-scan ~[sample.expected] sub.state 256 ~)

13251+ ?~ bounded ~

13252+ ?^ ids.u.bounded ~

13253+ `[[actual expected (span-of i.args.e) (span-of head.e)]]

13254+::

13255+:: Experimental per-module, source-derived recursive tree index.

13256+:: The two tags and the exact children/list/self layout are fixed-shape

13257+:: checks, so ordinary definitions incur no type-tree or source scans.

13258+++ grec-tagged-fields

13259+ |= sh=shape

13260+ ^- (unit [tag=@ fields=(list field)])

13261+ ?. ?=(%cell -.sh) ~

13262+ ?~ fields.sh ~

13263+ =/ head=field i.fields.sh

13264+ ?. ?=(%bare -.head) ~

13265+ ?. ?=(%const -.shape.head) ~

13266+ ?. &(?=(%term form.lit.shape.head) =(%tas aura.lit.shape.head)) ~

13267+ `[val.lit.shape.head t.fields.sh]

13268+++ grec-tree-children

13269+ |= [fs=(list field) param=@t]

13270+ ^- (unit field)

13271+ ?~ fs ~

13272+ ?~ t.fs `i.fs

13273+ ?^ t.t.fs ~

13274+ =/ event=field i.fs

13275+ =/ kids=field i.t.fs

13276+ ?. &(?=(%face -.event) ?=(%face -.kids)) ~

13277+ ?. !=(name.event name.kids) ~

13278+ ?. ?=(%fn -.shape.event) ~

13279+ ?. ?=(%aura -.sample.shape.event) ~

13280+ ?. =(%t aura.sample.shape.event) ~

13281+ ?. ?=(%tvar -.product.shape.event) ~

13282+ ?. =(param name.product.shape.event) ~

13283+ `kids

13284+::

13285+++ grec-tree-proof

13286+ |= [name=term sh=shape]

13287+ ^- ?

13288+ ?. ?=(%generic -.sh) |

13289+ ?. ?=([@ ~] vars.sh) |

13290+ =/ param=@t i.vars.sh

13291+ ?. ?=(%union -.body.sh) |

13292+ ?. ?=([* [* ~]] cases.body.sh) |

13293+ =/ a=(unit [tag=@ fields=(list field)]) (grec-tagged-fields i.cases.body.sh)

13294+ =/ b=(unit [tag=@ fields=(list field)]) (grec-tagged-fields i.t.cases.body.sh)

13295+ ?~ a |

13296+ ?~ b |

13297+ ?. !=(tag.u.a tag.u.b) |

13298+ ?. ?=([* ~] fields.u.a) |

13299+ =/ value=field i.fields.u.a

13300+ ?. ?=(%face -.value) |

13301+ ?. ?=(%aura -.shape.value) |

13302+ ?. =(%t aura.shape.value) |

13303+ =/ selected=(unit field) (grec-tree-children fields.u.b param)

13304+ ?~ selected |

13305+ =/ kids=field u.selected

13306+ ?. ?=(%face -.kids) |

13307+ ?. ?=(%apply -.shape.kids) |

13308+ ?. =(ref.shape.kids ~[%list]) |

13309+ ?. ?=([* ~] args.shape.kids) |

13310+ =/ self=shape i.args.shape.kids

13311+ ?. ?=(%apply -.self) |

13312+ ?. =(ref.self ~[name]) |

13313+ ?. ?=([* ~] args.self) |

13314+ ?. ?=(%tvar -.i.args.self) |

13315+ =(name.i.args.self param)

13316++$ grec-collected [molds=imolds proofs=(map term shape)]

13317+:: Experimental one-layer analysis view, never an exported mold identity.

13318+++ grec-unfold-view

13319+ |= [typ=itype fuel=@ud]

13320+ ^- (unit [view=itype left=@ud])

13321+ ?. ?=(%grec -.typ) ~

13322+ ?: =(fuel 0) ~

13323+ ?. ?=([* ~] args.typ) ~

13324+ =/ sh=shape proof.typ

13325+ ?. (grec-tree-proof name.typ sh) ~

13326+ ?> ?=(%generic -.sh)

13327+ ?> ?=([@ ~] vars.sh)

13328+ ?> ?=(%union -.body.sh)

13329+ ?> ?=([* [* ~]] cases.body.sh)

13330+ =/ ca=shape i.cases.body.sh

13331+ =/ cb=shape i.t.cases.body.sh

13332+ ?> ?=(%cell -.ca)

13333+ ?> ?=(%cell -.cb)

13334+ ?> ?=([* [* ~]] fields.ca)

13335+ ?> ?=([* *] fields.cb)

13336+ =/ tag-a=field i.fields.ca

13337+ =/ tag-b=field i.fields.cb

13338+ ?> ?=(%bare -.tag-a)

13339+ ?> ?=(%bare -.tag-b)

13340+ ?> ?=(%const -.shape.tag-a)

13341+ ?> ?=(%const -.shape.tag-b)

13342+ =/ text-field=field i.t.fields.ca

13343+ ?> ?=(%face -.text-field)

13344+ =/ branch=(list field) t.fields.cb

13345+ =/ kids=(unit field) (grec-tree-children branch i.vars.sh)

13346+ ?~ kids ~

13347+ ?> ?=(%face -.u.kids)

13348+ =/ children=itype [%face name.u.kids [%collection %list ~[typ]]]

13349+ ?> ?=(^ branch)

13350+ =/ payload=itype

13351+ ?~ t.branch children

13352+ =/ event=field i.branch

13353+ ?> ?=(%face -.event)

13354+ [%cell [%face name.event [%fn [%atom %t] i.args.typ]] children]

13355+ =/ leaf=itype [%cell [%const lit.shape.tag-a] [%face name.text-field [%atom %t]]]

13356+ =/ node=itype [%cell [%const lit.shape.tag-b] payload]

13357+ `[[%union ~[leaf node] ~ ~ ~] (dec fuel)]

13358+::

13359+++ grec-collect-molds

13360+ |= ds=(list def)

13361+ ^- grec-collected

13362+ ?~ ds [~ *(map term shape)]

13363+ =/ rest=grec-collected $(ds t.ds)

13364+ ?. ?=(%mold -.i.ds) rest

13365+ =/ name=term name.i.ds

13366+ =/ body=shape shape.i.ds

13367+ =/ proofs=(map term shape) proofs.rest

13368+ =? proofs (grec-tree-proof name body) (~(put by proofs) name body)

13369+ [[[name body] molds.rest] proofs]

13370+::

13371+

937713372--

jibb-dev/lib/jibb/internal.jibb+27

@@ -1,6 +1,33 @@

1+/= core /lib/jibb/primitives

2+

13:: Representation for agent and in-process store pokes.

24:: The prelude re-exports this mold; effect lowering and the runtime must

35:: agree on these cells when effect execution is implemented.

46+$ poke

57 [%agent agent=@tas mark=@tas payload=*]

68 [%store module=@t action=@tas payload=*]

9+

10+:: The compiler supplies this private interface; execution is not yet implemented.

11+++ gth-atom |= args=[A A] (raw-gth.core args)

12+

13+:: Application paths are knot sequences.

14++$ qath

15+ ~

16+ [i=@ta t=qath]

17+

18+:: Private compiler primitive wrappers; execution is a later milestone.

19+++ add-atom |= args=[A A] (raw-add.core args)

20+++ dec-atom |= atom=A (raw-dec.core atom)

21+++ trip-text |= value=@t (raw-trip.core value)

22+++ tuba-text |= values (raw-tuba.core values)

23+

24+:: Transparent request data. Identity and path fields are writable and do not

25+:: prove a schema or watchability. A future executor must bind them to checked

26+:: source evidence and validate facts and state; generated receivers must

27+:: decode before calling typed replies or folds. Runtime validation, watch

28+:: provenance and effect execution are not implemented.

29++$ agent-path (list.core @ta)

30++$ ask |$ [M]

31+ [%pure value=M]

32+ [%agent api=@t case=@tas agent=@tas path=agent-path scry=(unit.core agent-path) receive=$-([mark=@tas state=(unit.core *) fact=*] [state=* message=M])]

33+ [%store module=@t name=@tas receive=$-([state=(unit.core *) fact=*] [state=* message=M])]

jibb-dev/lib/jibb/prelude.jibb+102−16

@@ -1,5 +1,6 @@

11/= internal /lib/jibb/internal

22+$ poke poke.internal

3++$ qath qath.internal

34

45:: Initial prelude functions. The rest of the inventory is still to come.

56

@@ -100,6 +101,14 @@

100101

101102+$ like |$ [A] [p=hair q=(unit [p=A q=nail])]

102103

104+++ like |= [f=$-(A B) result=(like A)]

105+ ++ mapped

106+ ^- (unit [p=B q=nail])

107+ ?- q.result

108+ ~ ~

109+ [~ value] `[p=(f p.value) q=q.value]

110+ ^- (like B) [p=p.result q=mapped]

111+

103112++ wonk |= veq=(like A)

104113 ?- q.veq

105114 ~ !!

@@ -149,6 +158,12 @@

149158 ~ ~

150159 [~ value] [value ~]

151160

161+++ bond |= fallback=$-(~ A)

162+ |= maybe=(unit A)

163+ ?- maybe

164+ ~ (fallback ~)

165+ [~ value] value

166+

152167++ bind |= args=[(unit A) $-(A B)]

153168 ?- args

154169 [maybe f] ^- (unit B)

@@ -214,24 +229,26 @@

214229 %.n [item (skip rest predicate)]

215230

216231++ levy |= args=[(list A) $-(A ?)]

217− ?- args

218− [xs predicate]

219− ?- xs

220− ~ %.y

221− [item rest]

222− ?- (predicate item)

223− %.y (levy rest predicate)

224− %.n %.n

232+ ^- ?

233+ ?- args

234+ [xs predicate]

235+ ?- xs

236+ ~ %.y

237+ [item rest]

238+ ?- (predicate item)

239+ %.y (levy rest predicate)

240+ %.n %.n

225241

226242++ lien |= args=[(list A) $-(A ?)]

227− ?- args

228− [xs predicate]

229− ?- xs

230− ~ %.n

231− [item rest]

232− ?- (predicate item)

233− %.y %.y

234− %.n (lien rest predicate)

243+ ^- ?

244+ ?- args

245+ [xs predicate]

246+ ?- xs

247+ ~ %.n

248+ [item rest]

249+ ?- (predicate item)

250+ %.y %.y

251+ %.n (lien rest predicate)

235252

236253++ roll |= args=[(list A) B $-([A B] B)]

237254 ?- args

@@ -290,3 +307,72 @@

290307 ?- rest

291308 ~ item

292309 [next more] (rear rest)

310+

311+++ cork |= gates=[$-(A B) $-(B C)]

312+ ?- gates

313+ [f g] |= x=A (g (f x))

314+

315+++ corl |= gates=[$-(B C) $-(A B)]

316+ ?- gates

317+ [f g] |= x=A (f (g x))

318+

319+++ cury |= args=[$-([A B] C) A]

320+ ?- args

321+ [f a] |= b=B (f a b)

322+

323+++ curr |= args=[$-([A B] C) B]

324+ ?- args

325+ [f b] |= a=A (f a b)

326+

327++$ cmd |$ [M]

328+ [%poke p=poke reply=$-((unit @t) M)]

329+ [%go url=@t]

330+ [%wait gap=@dr msg=M]

331+ [%now reply=$-(@da M)]

332+ [%who reply=$-(@p M)]

333+

334+++ gth |= args=[A A] (gth-atom.internal args)

335+++ add |= args=[A A] (add-atom.internal args)

336+++ dec |= atom=A (dec-atom.internal atom)

337+

338++$ ask |$ [M] (ask.internal M)

339+++ pure |= x=M ^- (ask M) [%pure x]

340+

341+:: This mold describes the value; island watchability needs separate proof.

342++$ sub |$ [M]

343+ [%watch a=(ask M)]

344+ [%every gap=@dr reply=$-(@da M)]

345+ [%url reply=$-(path M)]

346+

347+:: Count a finite list with the source-backed addition gate.

348+++ lent |= xs=(list A)

349+ ^- @ud

350+ ?- xs

351+ ~ 0

352+ [item rest] (add 1 (lent rest))

353+

354+++ lth |= args=[A A]

355+ ?- args

356+ [x y] (gth y x)

357+

358+++ gte |= args=[A A]

359+ ?- args

360+ [x y] (not (gth y x))

361+

362+++ lte |= args=[A A]

363+ ?- args

364+ [x y] (not (gth x y))

365+

366+++ zing |= xss=(list (list A))

367+ ^- (list A)

368+ ?- xss

369+ ~ ~

370+ [xs rest] (weld xs (zing rest))

371+

372+++ lead |= first=A |= second=B [first second]

373+++ late |= second=B |= first=A [first second]

374+

375+++ succ |= x=A (add x 1)

376+

377+++ trip |= value=@t (trip-text.internal value)

378+++ tuba |= values=(list @tD) (tuba-text.internal values)

tests/clay-fixtures/tlon-mop-expected.txtnew file+1

@@ -0,0 +1 @@

1+[%.y %.y %.y]

tests/clay-fixtures/tlon-mop.txtnew file+20

@@ -0,0 +1,20 @@

1+=/ m (strand ,vase)

2+;< =bowl:spider bind:m get-bowl

3+=/ now=@da now.bowl

4+=/ src=vase .^(vase %ca /[(scot %p our.bowl)]/my-app/[(scot %da now)]/sur/mop-tlon-probe/hoon)

5+=/ reader=vase .^(vase %ca /[(scot %p our.bowl)]/my-app/[(scot %da now)]/lib/jibb-import/hoon)

6+=/ read-gate=vase (slap reader (ream 'read-named'))

7+=/ result=vase (slym read-gate [%notes %log -.src])

8+=/ recursive=vase (slym read-gate [%notes %import-node -.src])

9+=/ nested=vase (slym read-gate [%notes %a-notebook -.src])

10+=/ contains-ref

11+ |= node=*

12+ ?: =(node [%ref %notes %import-node]) &

13+ ?@ node |

14+ |($(node -.node) $(node +.node))

15+=/ contains-named

16+ |= node=*

17+ ?: ?=([%named %notes %import-node [%fork *]] node) (contains-ref node)

18+ ?@ node |

19+ |($(node -.node) $(node +.node))

20+(pure:m !>([?=([%& [%apply %mop [[%atom %da ~] [%fork *] ~]]] +.result) &(?=([%& [%fork *]] +.recursive) (contains-ref +.recursive)) &(?=([%& [%fork *]] +.nested) (contains-named +.nested))]))

tests/golden/doc-grammar-04-step/source.jibb+1−1

@@ -10,5 +10,5 @@

1010 [%move %left n] "left {n}"

1111 [%move %right n] "right {n}"

1212 [t %draft] t

13− [t %sent at] t

13+ [t %sent sent-at] t

1414 %stop "stop"

tests/golden/doc-grammar-04-step/tokens.txt+2−2

@@ -74,8 +74,8 @@

747413:5 glyph [

757513:6 tight name t

767613:8 lit %sent

77−13:14 name at

78−13:16 tight glyph ]

77+13:14 name sent-at

78+13:21 tight glyph ]

797913:23 name t

808014:5 NEWLINE

818114:5 lit %stop

tests/golden/doc-grammar-04-step/tree.txt+1−1

@@ -33,6 +33,6 @@

3333 (cell 12:5 (bind 12:6 t) (lit 12:8 %draft))

3434 (wing 12:23 t))

3535 (arm 13:5

36− (cell 13:5 (bind 13:6 t) (lit 13:8 %sent) (bind 13:14 at))

36+ (cell 13:5 (bind 13:6 t) (lit 13:8 %sent) (bind 13:14 sent-at))

3737 (wing 13:23 t))

3838 (arm 14:5 (lit 14:5 %stop) (str 14:23 "stop")))))))

tests/golden/inline-mold-opaque/about.txt+2−2

@@ -1,3 +1,3 @@

1−source: Grammar tab, Molds: "Opaque: `poke`, `ask` and `qath`, built only by derived gates, `pure` and application-path literals."

2−tests: the opaque molds by name

1+source: Grammar tab, Molds: "`poke`, `ask` and `qath` are transparent types, defined in the internal prelude and re-exported normally; callers can construct and inspect their values."

2+tests: the effect and application-path types by name

33expect: parses

tests/golden/parser-hole-parameter-rejected/about.txtnew file+3

@@ -0,0 +1,3 @@

1+source: Grammar, Types and molds: `_` is an inferred type hole.

2+tests: An anonymous hole is not a named generic parameter.

3+expect: error at 1:12

tests/golden/parser-hole-parameter-rejected/source.jibbnew file+1

@@ -0,0 +1 @@

1++$ bad |$ [_] @t

tests/golden/parser-hole-parameter-rejected/tokens.txtnew file+8

@@ -0,0 +1,8 @@

1+1:1 glyph +$

2+1:4 name bad

3+1:8 glyph |$

4+1:11 glyph [

5+1:12 tight glyph _

6+1:13 tight glyph ]

7+1:15 aura @t

8+1:17 NEWLINE

tests/golden/parser-hole-parameter-rejected/tree.txtnew file+3

@@ -0,0 +1,3 @@

1+/tests/golden/parser-hole-parameter-rejected/source.jibb:1:12: expected a type variable, found `_`

2++$ bad |$ [_] @t

3+ ^

tests/golden/parser-hole-path-space/about.txtnew file+3

@@ -0,0 +1,3 @@

1+source: Grammar, Types and molds: `_` is an inferred type hole.

2+tests: A path-segment type hole must remain tight after the field's `=`.

3+expect: error at 1:14

tests/golden/parser-hole-path-space/source.jibbnew file+1

@@ -0,0 +1 @@

1++$ path /[id= _]

tests/golden/parser-hole-path-space/tokens.txtnew file+9

@@ -0,0 +1,9 @@

1+1:1 glyph +$

2+1:4 name path

3+1:9 glyph /

4+1:10 tight glyph [

5+1:11 tight name id

6+1:13 tight glyph =

7+1:15 glyph _

8+1:16 tight glyph ]

9+1:17 NEWLINE

tests/golden/parser-hole-path-space/tree.txtnew file+3

@@ -0,0 +1,3 @@

1+/tests/golden/parser-hole-path-space/source.jibb:1:14: expected an aura or type hole right after `=`, found a space

2++$ path /[id= _]

3+ ^

tests/golden/parser-hole-path/about.txtnew file+3

@@ -0,0 +1,3 @@

1+source: Grammar, Types and molds: `_` is an inferred type hole.

2+tests: Underscores in `/_` and `%/_` remain literal path knots, while `[id=_]` is a typed-segment hole.

3+expect: parses

tests/golden/parser-hole-path/source.jibbnew file+4

@@ -0,0 +1,4 @@

1++$ root /_

2++$ child /item/_x

3+++ show %/_

4++$ inferred /items/[id=_]

tests/golden/parser-hole-path/tokens.txtnew file+28

@@ -0,0 +1,28 @@

1+1:1 glyph +$

2+1:4 name root

3+1:9 glyph /

4+1:10 tight knot _

5+2:1 NEWLINE

6+2:1 glyph +$

7+2:4 name child

8+2:10 glyph /

9+2:11 tight knot item

10+2:15 tight glyph /

11+2:16 tight knot _x

12+3:1 NEWLINE

13+3:1 glyph ++

14+3:4 name show

15+3:9 glyph %/

16+3:11 tight knot _

17+4:1 NEWLINE

18+4:1 glyph +$

19+4:4 name inferred

20+4:13 glyph /

21+4:14 tight knot items

22+4:19 tight glyph /

23+4:20 tight glyph [

24+4:21 tight name id

25+4:23 tight glyph =

26+4:24 tight glyph _

27+4:25 tight glyph ]

28+4:26 NEWLINE

tests/golden/parser-hole-path/tree.txtnew file+5

@@ -0,0 +1,5 @@

1+(module

2+ (mold 1:1 root (path 1:9 /_))

3+ (mold 2:1 child (path 2:10 /item/_x))

4+ (value 3:1 show (qath 3:9 _))

5+ (mold 4:1 inferred (path 4:13 /items/[id=_])))

tests/golden/parser-hole-pattern-rejected/about.txtnew file+3

@@ -0,0 +1,3 @@

1+source: Grammar, Types and molds: `_` is an inferred type hole.

2+tests: A type hole is not a branch-pattern wildcard.

3+expect: error at 3:5

tests/golden/parser-hole-pattern-rejected/source.jibbnew file+3

@@ -0,0 +1,3 @@

1+++ bad |= x=@t

2+ ?- x

3+ _ "no"

tests/golden/parser-hole-pattern-rejected/tokens.txtnew file+15

@@ -0,0 +1,15 @@

1+1:1 glyph ++

2+1:4 name bad

3+1:8 glyph |=

4+1:11 name x

5+1:12 tight glyph =

6+1:13 tight aura @t

7+2:3 INDENT

8+2:3 glyph ?-

9+2:6 name x

10+3:5 INDENT

11+3:5 glyph _

12+3:7 str "no"

13+3:11 DEDENT

14+3:11 DEDENT

15+3:11 NEWLINE

tests/golden/parser-hole-pattern-rejected/tree.txtnew file+3

@@ -0,0 +1,3 @@

1+/tests/golden/parser-hole-pattern-rejected/source.jibb:3:5: expected a pattern, found `_`

2+ _ "no"

3+ ^

tests/golden/parser-hole-shapes/about.txtnew file+3

@@ -0,0 +1,3 @@

1+source: Grammar, Types and molds: `_` is an inferred type hole.

2+tests: Holes in samples, casts, nested records, gate molds and generic mold arguments have their own source spans.

3+expect: parses

tests/golden/parser-hole-shapes/source.jibbnew file+11

@@ -0,0 +1,11 @@

1++$ unused _

2++$ nested [a=_ b=$-(_ (list _))]

3++$ alias |$ [A] (pair A _)

4+++ identity |= x=_ x

5+++ inferred ^- _ "hello"

6+++ cast-nested |= x=[$-(_ _) (list _)] ^- [first=_ second=_] [x x]

7+++ bare-sample |= _ "hello"

8+++ cell-sample |= [a=_ b=_] [a b]

9+++ local |= x=@t

10+ ++ inside |= y=_ ^- _ y

11+ (inside x)

tests/golden/parser-hole-shapes/tokens.txtnew file+121

@@ -0,0 +1,121 @@

1+1:1 glyph +$

2+1:4 name unused

3+1:11 glyph _

4+2:1 NEWLINE

5+2:1 glyph +$

6+2:4 name nested

7+2:11 glyph [

8+2:12 tight name a

9+2:13 tight glyph =

10+2:14 tight glyph _

11+2:16 name b

12+2:17 tight glyph =

13+2:18 tight glyph $-(

14+2:21 tight glyph _

15+2:23 glyph (

16+2:24 tight name list

17+2:29 glyph _

18+2:30 tight glyph )

19+2:31 tight glyph )

20+2:32 tight glyph ]

21+3:1 NEWLINE

22+3:1 glyph +$

23+3:4 name alias

24+3:10 glyph |$

25+3:13 glyph [

26+3:14 tight tvar A

27+3:15 tight glyph ]

28+3:17 glyph (

29+3:18 tight name pair

30+3:23 tvar A

31+3:25 glyph _

32+3:26 tight glyph )

33+4:1 NEWLINE

34+4:1 glyph ++

35+4:4 name identity

36+4:13 glyph |=

37+4:16 name x

38+4:17 tight glyph =

39+4:18 tight glyph _

40+4:20 name x

41+5:1 NEWLINE

42+5:1 glyph ++

43+5:4 name inferred

44+5:13 glyph ^-

45+5:16 glyph _

46+5:18 str "hello"

47+6:1 NEWLINE

48+6:1 glyph ++

49+6:4 name cast-nested

50+6:16 glyph |=

51+6:19 name x

52+6:20 tight glyph =

53+6:21 tight glyph [

54+6:22 tight glyph $-(

55+6:25 tight glyph _

56+6:27 glyph _

57+6:28 tight glyph )

58+6:30 glyph (

59+6:31 tight name list

60+6:36 glyph _

61+6:37 tight glyph )

62+6:38 tight glyph ]

63+6:40 glyph ^-

64+6:43 glyph [

65+6:44 tight name first

66+6:49 tight glyph =

67+6:50 tight glyph _

68+6:52 name second

69+6:58 tight glyph =

70+6:59 tight glyph _

71+6:60 tight glyph ]

72+6:62 glyph [

73+6:63 tight name x

74+6:65 name x

75+6:66 tight glyph ]

76+7:1 NEWLINE

77+7:1 glyph ++

78+7:4 name bare-sample

79+7:16 glyph |=

80+7:19 glyph _

81+7:21 str "hello"

82+8:1 NEWLINE

83+8:1 glyph ++

84+8:4 name cell-sample

85+8:16 glyph |=

86+8:19 glyph [

87+8:20 tight name a

88+8:21 tight glyph =

89+8:22 tight glyph _

90+8:24 name b

91+8:25 tight glyph =

92+8:26 tight glyph _

93+8:27 tight glyph ]

94+8:29 glyph [

95+8:30 tight name a

96+8:32 name b

97+8:33 tight glyph ]

98+9:1 NEWLINE

99+9:1 glyph ++

100+9:4 name local

101+9:10 glyph |=

102+9:13 name x

103+9:14 tight glyph =

104+9:15 tight aura @t

105+10:3 INDENT

106+10:3 glyph ++

107+10:6 name inside

108+10:13 glyph |=

109+10:16 name y

110+10:17 tight glyph =

111+10:18 tight glyph _

112+10:20 glyph ^-

113+10:23 glyph _

114+10:25 name y

115+11:3 NEWLINE

116+11:3 glyph (

117+11:4 tight name inside

118+11:11 name x

119+11:12 tight glyph )

120+11:13 DEDENT

121+11:13 NEWLINE

tests/golden/parser-hole-shapes/tree.txtnew file+47

@@ -0,0 +1,47 @@

1+(module

2+ (mold 1:1 unused (hole 1:11))

3+ (mold 2:1 nested

4+ (cell 2:11

5+ (face 2:12 a (hole 2:14))

6+ (face 2:16 b

7+ (fn 2:18

8+ (hole 2:21)

9+ (apply 2:23 list (hole 2:29))))))

10+ (mold 3:1 alias

11+ (generic 3:10 A

12+ (apply 3:17 pair (tvar 3:23 A) (hole 3:25))))

13+ (value 4:1 identity

14+ (gate 4:13

15+ (face 4:16 x (hole 4:18))

16+ (wing 4:20 x)))

17+ (value 5:1 inferred

18+ (cast 5:13 (hole 5:16) (str 5:18 "hello")))

19+ (value 6:1 cast-nested

20+ (gate 6:16

21+ (face 6:19 x

22+ (cell 6:21

23+ (fn 6:22 (hole 6:25) (hole 6:27))

24+ (apply 6:30 list (hole 6:36))))

25+ (cast 6:40

26+ (cell 6:43

27+ (face 6:44 first (hole 6:50))

28+ (face 6:52 second (hole 6:59)))

29+ (tuple 6:62 (wing 6:63 x) (wing 6:65 x)))))

30+ (value 7:1 bare-sample

31+ (gate 7:16 (hole 7:19) (str 7:21 "hello")))

32+ (value 8:1 cell-sample

33+ (gate 8:16

34+ (cell 8:19

35+ (face 8:20 a (hole 8:22))

36+ (face 8:24 b (hole 8:26)))

37+ (tuple 8:29 (wing 8:30 a) (wing 8:32 b))))

38+ (value 9:1 local

39+ (gate 9:10

40+ (face 9:13 x (aura 9:15 @t))

41+ (body 10:3

42+ (value 10:3 inside

43+ (gate 10:13

44+ (face 10:16 y (hole 10:18))

45+ (cast 10:20 (hole 10:23) (wing 10:25 y))))

46+ (group 11:3

47+ (call 11:4 (wing 11:4 inside) (wing 11:11 x)))))))

tests/golden/parser-hole-value-rejected/about.txtnew file+3

@@ -0,0 +1,3 @@

1+source: Grammar, Types and molds: `_` is an inferred type hole.

2+tests: A type hole is not a value expression.

3+expect: error at 1:8

tests/golden/parser-hole-value-rejected/source.jibbnew file+1

@@ -0,0 +1 @@

1+++ bad _

tests/golden/parser-hole-value-rejected/tokens.txtnew file+4

@@ -0,0 +1,4 @@

1+1:1 glyph ++

2+1:4 name bad

3+1:8 glyph _

4+1:9 NEWLINE

tests/golden/parser-hole-value-rejected/tree.txtnew file+3

@@ -0,0 +1,3 @@

1+/tests/golden/parser-hole-value-rejected/source.jibb:1:8: expected an expression, found `_`

2+++ bad _

3+ ^

tests/golden/prelude-1c-structural/source.jibb+8

@@ -96,6 +96,14 @@

9696

9797+$ like |$ [A] [p=hair q=(unit [p=A q=nail])]

9898

99+++ like |= [f=$-(A B) result=(like A)]

100+ ++ mapped

101+ ^- (unit [p=B q=nail])

102+ ?- q.result

103+ ~ ~

104+ [~ value] `[p=(f p.value) q=q.value]

105+ ^- (like B) [p=p.result q=mapped]

106+

99107++ wonk |= veq=(like A)

100108 ?- q.veq

101109 ~ !!

tests/golden/prelude-1c-structural/tokens.txt+199−124

@@ -588,144 +588,219 @@

58858897:45 tight glyph ]

58958999:1 NEWLINE

59059099:1 glyph ++

591−99:4 name wonk

591+99:4 name like

59259299:9 glyph |=

593−99:12 name veq

594−99:15 tight glyph =

595−99:16 tight glyph (

596−99:17 tight name like

597−99:22 tvar A

598−99:23 tight glyph )

593+99:12 glyph [

594+99:13 tight name f

595+99:14 tight glyph =

596+99:15 tight glyph $-(

597+99:18 tight tvar A

598+99:20 tvar B

599+99:21 tight glyph )

600+99:23 name result

601+99:29 tight glyph =

602+99:30 tight glyph (

603+99:31 tight name like

604+99:36 tvar A

605+99:37 tight glyph )

606+99:38 tight glyph ]

599607100:3 INDENT

600−100:3 glyph ?-

601−100:6 wing q.veq

608+100:3 glyph ++

609+100:6 name mapped

602610101:5 INDENT

603−101:5 lit ~

604−101:7 glyph !!

605−102:5 NEWLINE

606−102:5 glyph [

607−102:6 tight lit ~

608−102:8 name product

609−102:15 tight glyph ]

610−102:17 wing p.product

611−104:1 DEDENT

612−104:1 DEDENT

613−104:1 NEWLINE

614−104:1 glyph +$

615−104:4 name lone

616−104:9 glyph |$

617−104:12 glyph [

618−104:13 tight tvar A

619−104:14 tight glyph ]

620−104:16 glyph [

621−104:17 tight name p

622−104:18 tight glyph =

623−104:19 tight tvar A

624−104:20 tight glyph ]

625−106:1 NEWLINE

626−106:1 glyph +$

627−106:4 name lest

628−106:9 glyph |$

629−106:12 glyph [

630−106:13 tight tvar A

631−106:14 tight glyph ]

632−106:16 glyph [

633−106:17 tight name i

634−106:18 tight glyph =

635−106:19 tight tvar A

636−106:21 name t

637−106:22 tight glyph =

638−106:23 tight glyph (

639−106:24 tight name list

640−106:29 tvar A

641−106:30 tight glyph )

642−106:31 tight glyph ]

643−108:1 NEWLINE

644−108:1 glyph +$

645−108:4 name pole

646−108:9 glyph |$

647−108:12 glyph [

648−108:13 tight tvar A

649−108:14 tight glyph ]

650−109:3 INDENT

651−109:3 lit ~

652−110:3 NEWLINE

653−110:3 glyph [

654−110:4 tight tvar A

655−110:6 glyph (

656−110:7 tight name pole

657−110:12 tvar A

658−110:13 tight glyph )

659−110:14 tight glyph ]

611+101:5 glyph ^-

612+101:8 glyph (

613+101:9 tight name unit

614+101:14 glyph [

615+101:15 tight name p

616+101:16 tight glyph =

617+101:17 tight tvar B

618+101:19 name q

619+101:20 tight glyph =

620+101:21 tight name nail

621+101:25 tight glyph ]

622+101:26 tight glyph )

623+102:7 INDENT

624+102:7 glyph ?-

625+102:10 wing q.result

626+103:9 INDENT

627+103:9 lit ~

628+103:11 lit ~

629+104:9 NEWLINE

630+104:9 glyph [

631+104:10 tight lit ~

632+104:12 name value

633+104:17 tight glyph ]

634+104:19 glyph `

635+104:20 tight glyph [

636+104:21 tight name p

637+104:22 tight glyph =

638+104:23 tight glyph (

639+104:24 tight name f

640+104:26 wing p.value

641+104:33 tight glyph )

642+104:35 name q

643+104:36 tight glyph =

644+104:37 tight wing q.value

645+104:44 tight glyph ]

646+105:3 DEDENT

647+105:3 DEDENT

648+105:3 DEDENT

649+105:3 NEWLINE

650+105:3 glyph ^-

651+105:6 glyph (

652+105:7 tight name like

653+105:12 tvar B

654+105:13 tight glyph )

655+105:15 glyph [

656+105:16 tight name p

657+105:17 tight glyph =

658+105:18 tight wing p.result

659+105:27 name q

660+105:28 tight glyph =

661+105:29 tight name mapped

662+105:35 tight glyph ]

663+107:1 DEDENT

664+107:1 NEWLINE

665+107:1 glyph ++

666+107:4 name wonk

667+107:9 glyph |=

668+107:12 name veq

669+107:15 tight glyph =

670+107:16 tight glyph (

671+107:17 tight name like

672+107:22 tvar A

673+107:23 tight glyph )

674+108:3 INDENT

675+108:3 glyph ?-

676+108:6 wing q.veq

677+109:5 INDENT

678+109:5 lit ~

679+109:7 glyph !!

680+110:5 NEWLINE

681+110:5 glyph [

682+110:6 tight lit ~

683+110:8 name product

684+110:15 tight glyph ]

685+110:17 wing p.product

686+112:1 DEDENT

660687112:1 DEDENT

661688112:1 NEWLINE

662689112:1 glyph +$

663−112:4 name quip

690+112:4 name lone

664691112:9 glyph |$

665692112:12 glyph [

666693112:13 tight tvar A

667−112:15 tvar B

668−112:16 tight glyph ]

669−112:18 glyph [

670−112:19 tight glyph (

671−112:20 tight name list

672−112:25 tvar A

673−112:26 tight glyph )

674−112:28 tvar B

675−112:29 tight glyph ]

694+112:14 tight glyph ]

695+112:16 glyph [

696+112:17 tight name p

697+112:18 tight glyph =

698+112:19 tight tvar A

699+112:20 tight glyph ]

676700114:1 NEWLINE

677701114:1 glyph +$

678−114:4 name tree

702+114:4 name lest

679703114:9 glyph |$

680704114:12 glyph [

681705114:13 tight tvar A

682706114:14 tight glyph ]

683−115:3 INDENT

684−115:3 lit ~

685−116:3 NEWLINE

686−116:3 glyph [

687−116:4 tight name n

688−116:5 tight glyph =

689−116:6 tight tvar A

690−116:8 name l

691−116:9 tight glyph =

692−116:10 tight glyph (

693−116:11 tight name tree

694−116:16 tvar A

695−116:17 tight glyph )

696−116:19 name r

697−116:20 tight glyph =

698−116:21 tight glyph (

699−116:22 tight name tree

700−116:27 tvar A

701−116:28 tight glyph )

702−116:29 tight glyph ]

703−118:1 DEDENT

704−118:1 NEWLINE

705−118:1 glyph +$

706−118:4 name each

707−118:9 glyph |$

708−118:12 glyph [

709−118:13 tight tvar A

710−118:15 tvar B

711−118:16 tight glyph ]

712−119:3 INDENT

713−119:3 glyph [

714−119:4 tight lit %|

715−119:7 name p

716−119:8 tight glyph =

717−119:9 tight tvar B

718−119:10 tight glyph ]

719−120:3 NEWLINE

720−120:3 glyph [

721−120:4 tight lit %&

722−120:7 name p

723−120:8 tight glyph =

724−120:9 tight tvar A

725−120:10 tight glyph ]

726−122:1 DEDENT

707+114:16 glyph [

708+114:17 tight name i

709+114:18 tight glyph =

710+114:19 tight tvar A

711+114:21 name t

712+114:22 tight glyph =

713+114:23 tight glyph (

714+114:24 tight name list

715+114:29 tvar A

716+114:30 tight glyph )

717+114:31 tight glyph ]

718+116:1 NEWLINE

719+116:1 glyph +$

720+116:4 name pole

721+116:9 glyph |$

722+116:12 glyph [

723+116:13 tight tvar A

724+116:14 tight glyph ]

725+117:3 INDENT

726+117:3 lit ~

727+118:3 NEWLINE

728+118:3 glyph [

729+118:4 tight tvar A

730+118:6 glyph (

731+118:7 tight name pole

732+118:12 tvar A

733+118:13 tight glyph )

734+118:14 tight glyph ]

735+120:1 DEDENT

736+120:1 NEWLINE

737+120:1 glyph +$

738+120:4 name quip

739+120:9 glyph |$

740+120:12 glyph [

741+120:13 tight tvar A

742+120:15 tvar B

743+120:16 tight glyph ]

744+120:18 glyph [

745+120:19 tight glyph (

746+120:20 tight name list

747+120:25 tvar A

748+120:26 tight glyph )

749+120:28 tvar B

750+120:29 tight glyph ]

727751122:1 NEWLINE

728752122:1 glyph +$

729−122:4 name bloq

730−122:9 aura @

731−122:10 NEWLINE

753+122:4 name tree

754+122:9 glyph |$

755+122:12 glyph [

756+122:13 tight tvar A

757+122:14 tight glyph ]

758+123:3 INDENT

759+123:3 lit ~

760+124:3 NEWLINE

761+124:3 glyph [

762+124:4 tight name n

763+124:5 tight glyph =

764+124:6 tight tvar A

765+124:8 name l

766+124:9 tight glyph =

767+124:10 tight glyph (

768+124:11 tight name tree

769+124:16 tvar A

770+124:17 tight glyph )

771+124:19 name r

772+124:20 tight glyph =

773+124:21 tight glyph (

774+124:22 tight name tree

775+124:27 tvar A

776+124:28 tight glyph )

777+124:29 tight glyph ]

778+126:1 DEDENT

779+126:1 NEWLINE

780+126:1 glyph +$

781+126:4 name each

782+126:9 glyph |$

783+126:12 glyph [

784+126:13 tight tvar A

785+126:15 tvar B

786+126:16 tight glyph ]

787+127:3 INDENT

788+127:3 glyph [

789+127:4 tight lit %|

790+127:7 name p

791+127:8 tight glyph =

792+127:9 tight tvar B

793+127:10 tight glyph ]

794+128:3 NEWLINE

795+128:3 glyph [

796+128:4 tight lit %&

797+128:7 name p

798+128:8 tight glyph =

799+128:9 tight tvar A

800+128:10 tight glyph ]

801+130:1 DEDENT

802+130:1 NEWLINE

803+130:1 glyph +$

804+130:4 name bloq

805+130:9 aura @

806+130:10 NEWLINE

tests/golden/prelude-1c-structural/tree.txt+82−50

@@ -235,56 +235,88 @@

235235 (cell 97:32

236236 (face 97:33 p (tvar 97:35 A))

237237 (face 97:37 q (ref 97:39 nail))))))))

238− (value 99:1 wonk

238+ (value 99:1 like

239239 (gate 99:9

240− (face 99:12 veq

241− (apply 99:16 like (tvar 99:22 A)))

240+ (cell 99:12

241+ (face 99:13 f

242+ (fn 99:15 (tvar 99:18 A) (tvar 99:20 B)))

243+ (face 99:23 result

244+ (apply 99:30 like (tvar 99:36 A))))

242245 (body 100:3

243− (branch 100:3

244− (wing 100:6 q.veq)

245− (arm 101:5 (lit 101:5 ~) (crash 101:7))

246− (arm 102:5

247− (cell 102:5 (lit 102:6 ~) (bind 102:8 product))

248− (wing 102:17 p.product))))))

249− (mold 104:1 lone

250− (generic 104:9 A

251− (cell 104:16

252− (face 104:17 p (tvar 104:19 A)))))

253− (mold 106:1 lest

254− (generic 106:9 A

255− (cell 106:16

256− (face 106:17 i (tvar 106:19 A))

257− (face 106:21 t

258− (apply 106:23 list (tvar 106:29 A))))))

259− (mold 108:1 pole

260− (generic 108:9 A

261− (union 109:3

262− (const 109:3 ~)

263− (cell 110:3

264− (tvar 110:4 A)

265− (apply 110:6 pole (tvar 110:12 A))))))

266− (mold 112:1 quip

267− (generic 112:9 A B

268− (cell 112:18

269− (apply 112:19 list (tvar 112:25 A))

270− (tvar 112:28 B))))

271− (mold 114:1 tree

246+ (value 100:3 mapped

247+ (body 101:5

248+ (cast 101:5

249+ (apply 101:8 unit

250+ (cell 101:14

251+ (face 101:15 p (tvar 101:17 B))

252+ (face 101:19 q (ref 101:21 nail))))

253+ (body 102:7

254+ (branch 102:7

255+ (wing 102:10 q.result)

256+ (arm 103:9 (lit 103:9 ~) (lit 103:11 ~))

257+ (arm 104:9

258+ (cell 104:9 (lit 104:10 ~) (bind 104:12 value))

259+ (unit 104:19

260+ (tuple 104:20

261+ (face 104:21 p

262+ (group 104:23

263+ (call 104:24 (wing 104:24 f) (wing 104:26 p.value))))

264+ (face 104:35 q (wing 104:37 q.value))))))))))

265+ (cast 105:3

266+ (apply 105:6 like (tvar 105:12 B))

267+ (tuple 105:15

268+ (face 105:16 p (wing 105:18 p.result))

269+ (face 105:27 q (wing 105:29 mapped)))))))

270+ (value 107:1 wonk

271+ (gate 107:9

272+ (face 107:12 veq

273+ (apply 107:16 like (tvar 107:22 A)))

274+ (body 108:3

275+ (branch 108:3

276+ (wing 108:6 q.veq)

277+ (arm 109:5 (lit 109:5 ~) (crash 109:7))

278+ (arm 110:5

279+ (cell 110:5 (lit 110:6 ~) (bind 110:8 product))

280+ (wing 110:17 p.product))))))

281+ (mold 112:1 lone

282+ (generic 112:9 A

283+ (cell 112:16

284+ (face 112:17 p (tvar 112:19 A)))))

285+ (mold 114:1 lest

272286 (generic 114:9 A

273− (union 115:3

274− (const 115:3 ~)

275− (cell 116:3

276− (face 116:4 n (tvar 116:6 A))

277− (face 116:8 l

278− (apply 116:10 tree (tvar 116:16 A)))

279− (face 116:19 r

280− (apply 116:21 tree (tvar 116:27 A)))))))

281− (mold 118:1 each

282− (generic 118:9 A B

283− (union 119:3

284− (cell 119:3

285− (const 119:4 %|)

286− (face 119:7 p (tvar 119:9 B)))

287− (cell 120:3

288− (const 120:4 %&)

289− (face 120:7 p (tvar 120:9 A))))))

290− (mold 122:1 bloq (aura 122:9 @)))

287+ (cell 114:16

288+ (face 114:17 i (tvar 114:19 A))

289+ (face 114:21 t

290+ (apply 114:23 list (tvar 114:29 A))))))

291+ (mold 116:1 pole

292+ (generic 116:9 A

293+ (union 117:3

294+ (const 117:3 ~)

295+ (cell 118:3

296+ (tvar 118:4 A)

297+ (apply 118:6 pole (tvar 118:12 A))))))

298+ (mold 120:1 quip

299+ (generic 120:9 A B

300+ (cell 120:18

301+ (apply 120:19 list (tvar 120:25 A))

302+ (tvar 120:28 B))))

303+ (mold 122:1 tree

304+ (generic 122:9 A

305+ (union 123:3

306+ (const 123:3 ~)

307+ (cell 124:3

308+ (face 124:4 n (tvar 124:6 A))

309+ (face 124:8 l

310+ (apply 124:10 tree (tvar 124:16 A)))

311+ (face 124:19 r

312+ (apply 124:21 tree (tvar 124:27 A)))))))

313+ (mold 126:1 each

314+ (generic 126:9 A B

315+ (union 127:3

316+ (cell 127:3

317+ (const 127:4 %|)

318+ (face 127:7 p (tvar 127:9 B)))

319+ (cell 128:3

320+ (const 128:4 %&)

321+ (face 128:7 p (tvar 128:9 A))))))

322+ (mold 130:1 bloq (aura 130:9 @)))

tests/golden/prelude-1c-structural/types.txt+1

@@ -27,6 +27,7 @@ partial inference; module not checked

2727+$ spot: not checked

2828+$ toon: cases proven disjoint; mold not checked

2929+$ like: not checked

30+++ like: sample mold is not supported by partial inference

3031++ wonk: sample mold is not supported by partial inference

3132+$ lone: not checked

3233+$ lest: not checked

tests/golden/prelude-3g-like/about.txt+3−3

@@ -1,4 +1,4 @@

1−source: Overview, Prelude: "The exported inventory includes all names from the Hoon library sections listed below, excluding the groups explicitly left out"; Hoon 3g includes `like` and `wonk`.

2−tests: The prelude's `like` generic edge mold and `wonk` extractor; the callable value form of `like` is a separate, unresolved question. The source contains the prelude definitions through `like` and `wonk`.

1+source: Overview, Prelude: Hoon 3g includes `like` and `wonk`; the value `like` maps an existing result.

2+tests: The source includes the generic `like` mold, its mapping gate and `wonk`.

33expect: parses

4−expect-types: a partial inference report, not a checked module; generic molds and the `wonk` body are not fully checked yet

4+expect-types: a partial inference report, not a checked module

tests/golden/prelude-3g-like/source.jibb+8

@@ -96,6 +96,14 @@

9696

9797+$ like |$ [A] [p=hair q=(unit [p=A q=nail])]

9898

99+++ like |= [f=$-(A B) result=(like A)]

100+ ++ mapped

101+ ^- (unit [p=B q=nail])

102+ ?- q.result

103+ ~ ~

104+ [~ value] `[p=(f p.value) q=q.value]

105+ ^- (like B) [p=p.result q=mapped]

106+

99107++ wonk |= veq=(like A)

100108 ?- q.veq

101109 ~ !!

tests/golden/prelude-3g-like/tokens.txt+95−20

@@ -588,26 +588,101 @@

58858897:45 tight glyph ]

58958999:1 NEWLINE

59059099:1 glyph ++

591−99:4 name wonk

591+99:4 name like

59259299:9 glyph |=

593−99:12 name veq

594−99:15 tight glyph =

595−99:16 tight glyph (

596−99:17 tight name like

597−99:22 tvar A

598−99:23 tight glyph )

593+99:12 glyph [

594+99:13 tight name f

595+99:14 tight glyph =

596+99:15 tight glyph $-(

597+99:18 tight tvar A

598+99:20 tvar B

599+99:21 tight glyph )

600+99:23 name result

601+99:29 tight glyph =

602+99:30 tight glyph (

603+99:31 tight name like

604+99:36 tvar A

605+99:37 tight glyph )

606+99:38 tight glyph ]

599607100:3 INDENT

600−100:3 glyph ?-

601−100:6 wing q.veq

608+100:3 glyph ++

609+100:6 name mapped

602610101:5 INDENT

603−101:5 lit ~

604−101:7 glyph !!

605−102:5 NEWLINE

606−102:5 glyph [

607−102:6 tight lit ~

608−102:8 name product

609−102:15 tight glyph ]

610−102:17 wing p.product

611−102:26 DEDENT

612−102:26 DEDENT

613−102:26 NEWLINE

611+101:5 glyph ^-

612+101:8 glyph (

613+101:9 tight name unit

614+101:14 glyph [

615+101:15 tight name p

616+101:16 tight glyph =

617+101:17 tight tvar B

618+101:19 name q

619+101:20 tight glyph =

620+101:21 tight name nail

621+101:25 tight glyph ]

622+101:26 tight glyph )

623+102:7 INDENT

624+102:7 glyph ?-

625+102:10 wing q.result

626+103:9 INDENT

627+103:9 lit ~

628+103:11 lit ~

629+104:9 NEWLINE

630+104:9 glyph [

631+104:10 tight lit ~

632+104:12 name value

633+104:17 tight glyph ]

634+104:19 glyph `

635+104:20 tight glyph [

636+104:21 tight name p

637+104:22 tight glyph =

638+104:23 tight glyph (

639+104:24 tight name f

640+104:26 wing p.value

641+104:33 tight glyph )

642+104:35 name q

643+104:36 tight glyph =

644+104:37 tight wing q.value

645+104:44 tight glyph ]

646+105:3 DEDENT

647+105:3 DEDENT

648+105:3 DEDENT

649+105:3 NEWLINE

650+105:3 glyph ^-

651+105:6 glyph (

652+105:7 tight name like

653+105:12 tvar B

654+105:13 tight glyph )

655+105:15 glyph [

656+105:16 tight name p

657+105:17 tight glyph =

658+105:18 tight wing p.result

659+105:27 name q

660+105:28 tight glyph =

661+105:29 tight name mapped

662+105:35 tight glyph ]

663+107:1 DEDENT

664+107:1 NEWLINE

665+107:1 glyph ++

666+107:4 name wonk

667+107:9 glyph |=

668+107:12 name veq

669+107:15 tight glyph =

670+107:16 tight glyph (

671+107:17 tight name like

672+107:22 tvar A

673+107:23 tight glyph )

674+108:3 INDENT

675+108:3 glyph ?-

676+108:6 wing q.veq

677+109:5 INDENT

678+109:5 lit ~

679+109:7 glyph !!

680+110:5 NEWLINE

681+110:5 glyph [

682+110:6 tight lit ~

683+110:8 name product

684+110:15 tight glyph ]

685+110:17 wing p.product

686+110:26 DEDENT

687+110:26 DEDENT

688+110:26 NEWLINE

tests/golden/prelude-3g-like/tree.txt+41−9

@@ -235,14 +235,46 @@

235235 (cell 97:32

236236 (face 97:33 p (tvar 97:35 A))

237237 (face 97:37 q (ref 97:39 nail))))))))

238− (value 99:1 wonk

238+ (value 99:1 like

239239 (gate 99:9

240− (face 99:12 veq

241− (apply 99:16 like (tvar 99:22 A)))

240+ (cell 99:12

241+ (face 99:13 f

242+ (fn 99:15 (tvar 99:18 A) (tvar 99:20 B)))

243+ (face 99:23 result

244+ (apply 99:30 like (tvar 99:36 A))))

242245 (body 100:3

243− (branch 100:3

244− (wing 100:6 q.veq)

245− (arm 101:5 (lit 101:5 ~) (crash 101:7))

246− (arm 102:5

247− (cell 102:5 (lit 102:6 ~) (bind 102:8 product))

248− (wing 102:17 p.product)))))))

246+ (value 100:3 mapped

247+ (body 101:5

248+ (cast 101:5

249+ (apply 101:8 unit

250+ (cell 101:14

251+ (face 101:15 p (tvar 101:17 B))

252+ (face 101:19 q (ref 101:21 nail))))

253+ (body 102:7

254+ (branch 102:7

255+ (wing 102:10 q.result)

256+ (arm 103:9 (lit 103:9 ~) (lit 103:11 ~))

257+ (arm 104:9

258+ (cell 104:9 (lit 104:10 ~) (bind 104:12 value))

259+ (unit 104:19

260+ (tuple 104:20

261+ (face 104:21 p

262+ (group 104:23

263+ (call 104:24 (wing 104:24 f) (wing 104:26 p.value))))

264+ (face 104:35 q (wing 104:37 q.value))))))))))

265+ (cast 105:3

266+ (apply 105:6 like (tvar 105:12 B))

267+ (tuple 105:15

268+ (face 105:16 p (wing 105:18 p.result))

269+ (face 105:27 q (wing 105:29 mapped)))))))

270+ (value 107:1 wonk

271+ (gate 107:9

272+ (face 107:12 veq

273+ (apply 107:16 like (tvar 107:22 A)))

274+ (body 108:3

275+ (branch 108:3

276+ (wing 108:6 q.veq)

277+ (arm 109:5 (lit 109:5 ~) (crash 109:7))

278+ (arm 110:5

279+ (cell 110:5 (lit 110:6 ~) (bind 110:8 product))

280+ (wing 110:17 p.product)))))))

tests/golden/prelude-3g-like/types.txt+1

@@ -27,4 +27,5 @@ partial inference; module not checked

2727+$ spot: not checked

2828+$ toon: cases proven disjoint; mold not checked

2929+$ like: not checked

30+++ like: sample mold is not supported by partial inference

3031++ wonk: sample mold is not supported by partial inference

tests/golden/prelude-list-helpers/source.jibb+8

@@ -96,6 +96,14 @@

9696

9797+$ like |$ [A] [p=hair q=(unit [p=A q=nail])]

9898

99+++ like |= [f=$-(A B) result=(like A)]

100+ ++ mapped

101+ ^- (unit [p=B q=nail])

102+ ?- q.result

103+ ~ ~

104+ [~ value] `[p=(f p.value) q=q.value]

105+ ^- (like B) [p=p.result q=mapped]

106+

99107++ wonk |= veq=(like A)

100108 ?- q.veq

101109 ~ !!

tests/golden/prelude-list-helpers/tokens.txt+319−244

@@ -588,266 +588,341 @@

58858897:45 tight glyph ]

58958999:1 NEWLINE

59059099:1 glyph ++

591−99:4 name wonk

591+99:4 name like

59259299:9 glyph |=

593−99:12 name veq

594−99:15 tight glyph =

595−99:16 tight glyph (

596−99:17 tight name like

597−99:22 tvar A

598−99:23 tight glyph )

593+99:12 glyph [

594+99:13 tight name f

595+99:14 tight glyph =

596+99:15 tight glyph $-(

597+99:18 tight tvar A

598+99:20 tvar B

599+99:21 tight glyph )

600+99:23 name result

601+99:29 tight glyph =

602+99:30 tight glyph (

603+99:31 tight name like

604+99:36 tvar A

605+99:37 tight glyph )

606+99:38 tight glyph ]

599607100:3 INDENT

600−100:3 glyph ?-

601−100:6 wing q.veq

608+100:3 glyph ++

609+100:6 name mapped

602610101:5 INDENT

603−101:5 lit ~

604−101:7 glyph !!

605−102:5 NEWLINE

606−102:5 glyph [

607−102:6 tight lit ~

608−102:8 name product

609−102:15 tight glyph ]

610−102:17 wing p.product

611−104:1 DEDENT

612−104:1 DEDENT

613−104:1 NEWLINE

614−104:1 glyph +$

615−104:4 name lone

616−104:9 glyph |$

617−104:12 glyph [

618−104:13 tight tvar A

619−104:14 tight glyph ]

620−104:16 glyph [

621−104:17 tight name p

622−104:18 tight glyph =

623−104:19 tight tvar A

624−104:20 tight glyph ]

625−106:1 NEWLINE

626−106:1 glyph +$

627−106:4 name lest

628−106:9 glyph |$

629−106:12 glyph [

630−106:13 tight tvar A

631−106:14 tight glyph ]

632−106:16 glyph [

633−106:17 tight name i

634−106:18 tight glyph =

635−106:19 tight tvar A

636−106:21 name t

637−106:22 tight glyph =

638−106:23 tight glyph (

639−106:24 tight name list

640−106:29 tvar A

641−106:30 tight glyph )

642−106:31 tight glyph ]

643−108:1 NEWLINE

644−108:1 glyph +$

645−108:4 name pole

646−108:9 glyph |$

647−108:12 glyph [

648−108:13 tight tvar A

649−108:14 tight glyph ]

650−109:3 INDENT

651−109:3 lit ~

652−110:3 NEWLINE

653−110:3 glyph [

654−110:4 tight tvar A

655−110:6 glyph (

656−110:7 tight name pole

657−110:12 tvar A

658−110:13 tight glyph )

659−110:14 tight glyph ]

611+101:5 glyph ^-

612+101:8 glyph (

613+101:9 tight name unit

614+101:14 glyph [

615+101:15 tight name p

616+101:16 tight glyph =

617+101:17 tight tvar B

618+101:19 name q

619+101:20 tight glyph =

620+101:21 tight name nail

621+101:25 tight glyph ]

622+101:26 tight glyph )

623+102:7 INDENT

624+102:7 glyph ?-

625+102:10 wing q.result

626+103:9 INDENT

627+103:9 lit ~

628+103:11 lit ~

629+104:9 NEWLINE

630+104:9 glyph [

631+104:10 tight lit ~

632+104:12 name value

633+104:17 tight glyph ]

634+104:19 glyph `

635+104:20 tight glyph [

636+104:21 tight name p

637+104:22 tight glyph =

638+104:23 tight glyph (

639+104:24 tight name f

640+104:26 wing p.value

641+104:33 tight glyph )

642+104:35 name q

643+104:36 tight glyph =

644+104:37 tight wing q.value

645+104:44 tight glyph ]

646+105:3 DEDENT

647+105:3 DEDENT

648+105:3 DEDENT

649+105:3 NEWLINE

650+105:3 glyph ^-

651+105:6 glyph (

652+105:7 tight name like

653+105:12 tvar B

654+105:13 tight glyph )

655+105:15 glyph [

656+105:16 tight name p

657+105:17 tight glyph =

658+105:18 tight wing p.result

659+105:27 name q

660+105:28 tight glyph =

661+105:29 tight name mapped

662+105:35 tight glyph ]

663+107:1 DEDENT

664+107:1 NEWLINE

665+107:1 glyph ++

666+107:4 name wonk

667+107:9 glyph |=

668+107:12 name veq

669+107:15 tight glyph =

670+107:16 tight glyph (

671+107:17 tight name like

672+107:22 tvar A

673+107:23 tight glyph )

674+108:3 INDENT

675+108:3 glyph ?-

676+108:6 wing q.veq

677+109:5 INDENT

678+109:5 lit ~

679+109:7 glyph !!

680+110:5 NEWLINE

681+110:5 glyph [

682+110:6 tight lit ~

683+110:8 name product

684+110:15 tight glyph ]

685+110:17 wing p.product

686+112:1 DEDENT

660687112:1 DEDENT

661688112:1 NEWLINE

662689112:1 glyph +$

663−112:4 name quip

690+112:4 name lone

664691112:9 glyph |$

665692112:12 glyph [

666693112:13 tight tvar A

667−112:15 tvar B

668−112:16 tight glyph ]

669−112:18 glyph [

670−112:19 tight glyph (

671−112:20 tight name list

672−112:25 tvar A

673−112:26 tight glyph )

674−112:28 tvar B

675−112:29 tight glyph ]

694+112:14 tight glyph ]

695+112:16 glyph [

696+112:17 tight name p

697+112:18 tight glyph =

698+112:19 tight tvar A

699+112:20 tight glyph ]

676700114:1 NEWLINE

677701114:1 glyph +$

678−114:4 name tree

702+114:4 name lest

679703114:9 glyph |$

680704114:12 glyph [

681705114:13 tight tvar A

682706114:14 tight glyph ]

683−115:3 INDENT

684−115:3 lit ~

685−116:3 NEWLINE

686−116:3 glyph [

687−116:4 tight name n

688−116:5 tight glyph =

689−116:6 tight tvar A

690−116:8 name l

691−116:9 tight glyph =

692−116:10 tight glyph (

693−116:11 tight name tree

694−116:16 tvar A

695−116:17 tight glyph )

696−116:19 name r

697−116:20 tight glyph =

698−116:21 tight glyph (

699−116:22 tight name tree

700−116:27 tvar A

701−116:28 tight glyph )

702−116:29 tight glyph ]

703−118:1 DEDENT

704−118:1 NEWLINE

705−118:1 glyph +$

706−118:4 name each

707−118:9 glyph |$

708−118:12 glyph [

709−118:13 tight tvar A

710−118:15 tvar B

711−118:16 tight glyph ]

712−119:3 INDENT

713−119:3 glyph [

714−119:4 tight lit %|

715−119:7 name p

716−119:8 tight glyph =

717−119:9 tight tvar B

718−119:10 tight glyph ]

719−120:3 NEWLINE

720−120:3 glyph [

721−120:4 tight lit %&

722−120:7 name p

723−120:8 tight glyph =

724−120:9 tight tvar A

725−120:10 tight glyph ]

726−122:1 DEDENT

707+114:16 glyph [

708+114:17 tight name i

709+114:18 tight glyph =

710+114:19 tight tvar A

711+114:21 name t

712+114:22 tight glyph =

713+114:23 tight glyph (

714+114:24 tight name list

715+114:29 tvar A

716+114:30 tight glyph )

717+114:31 tight glyph ]

718+116:1 NEWLINE

719+116:1 glyph +$

720+116:4 name pole

721+116:9 glyph |$

722+116:12 glyph [

723+116:13 tight tvar A

724+116:14 tight glyph ]

725+117:3 INDENT

726+117:3 lit ~

727+118:3 NEWLINE

728+118:3 glyph [

729+118:4 tight tvar A

730+118:6 glyph (

731+118:7 tight name pole

732+118:12 tvar A

733+118:13 tight glyph )

734+118:14 tight glyph ]

735+120:1 DEDENT

736+120:1 NEWLINE

737+120:1 glyph +$

738+120:4 name quip

739+120:9 glyph |$

740+120:12 glyph [

741+120:13 tight tvar A

742+120:15 tvar B

743+120:16 tight glyph ]

744+120:18 glyph [

745+120:19 tight glyph (

746+120:20 tight name list

747+120:25 tvar A

748+120:26 tight glyph )

749+120:28 tvar B

750+120:29 tight glyph ]

727751122:1 NEWLINE

728752122:1 glyph +$

729−122:4 name bloq

730−122:9 aura @

731−124:1 NEWLINE

732−124:1 glyph ++

733−124:4 name some

734−124:9 glyph |=

735−124:12 name item

736−124:16 tight glyph =

737−124:17 tight tvar A

738−124:19 glyph `

739−124:20 tight name item

753+122:4 name tree

754+122:9 glyph |$

755+122:12 glyph [

756+122:13 tight tvar A

757+122:14 tight glyph ]

758+123:3 INDENT

759+123:3 lit ~

760+124:3 NEWLINE

761+124:3 glyph [

762+124:4 tight name n

763+124:5 tight glyph =

764+124:6 tight tvar A

765+124:8 name l

766+124:9 tight glyph =

767+124:10 tight glyph (

768+124:11 tight name tree

769+124:16 tvar A

770+124:17 tight glyph )

771+124:19 name r

772+124:20 tight glyph =

773+124:21 tight glyph (

774+124:22 tight name tree

775+124:27 tvar A

776+124:28 tight glyph )

777+124:29 tight glyph ]

778+126:1 DEDENT

740779126:1 NEWLINE

741−126:1 glyph ++

742−126:4 name lure

743−126:9 glyph |=

744−126:12 name item

745−126:16 tight glyph =

746−126:17 tight tvar A

780+126:1 glyph +$

781+126:4 name each

782+126:9 glyph |$

783+126:12 glyph [

784+126:13 tight tvar A

785+126:15 tvar B

786+126:16 tight glyph ]

747787127:3 INDENT

748−127:3 glyph ^-

749−127:6 glyph (

750−127:7 tight name list

751−127:12 tvar A

752−127:13 tight glyph )

753−127:15 glyph [

754−127:16 tight name item

755−127:21 lit ~

756−127:22 tight glyph ]

757−129:1 DEDENT

758−129:1 NEWLINE

759−129:1 glyph ++

760−129:4 name snoc

761−129:9 glyph |=

762−129:12 name args

763−129:16 tight glyph =

764−129:17 tight glyph [

765−129:18 tight glyph (

766−129:19 tight name list

767−129:24 tvar A

768−129:25 tight glyph )

769−129:27 tvar A

770−129:28 tight glyph ]

771−130:3 INDENT

772−130:3 glyph ?-

773−130:6 name args

774−131:5 INDENT

775−131:5 glyph [

776−131:6 tight name xs

777−131:9 name item

778−131:13 tight glyph ]

779−131:15 glyph (

780−131:16 tight name weld

781−131:21 name xs

782−131:24 glyph [

783−131:25 tight name item

784−131:30 lit ~

785−131:31 tight glyph ]

786−131:32 tight glyph )

787−133:1 DEDENT

788−133:1 DEDENT

789−133:1 NEWLINE

790−133:1 glyph ++

791−133:4 name flop

792−133:9 glyph |=

793−133:12 name xs

794−133:14 tight glyph =

795−133:15 tight glyph (

796−133:16 tight name list

797−133:21 tvar A

798−133:22 tight glyph )

799−134:3 INDENT

800−134:3 glyph ++

801−134:6 name reverse-into

802−134:19 glyph |=

803−134:22 name args

804−134:26 tight glyph =

805−134:27 tight glyph [

806−134:28 tight glyph (

807−134:29 tight name list

808−134:34 tvar A

809−134:35 tight glyph )

810−134:37 glyph (

811−134:38 tight name list

812−134:43 tvar A

813−134:44 tight glyph )

814−134:45 tight glyph ]

815−135:5 INDENT

816−135:5 glyph ?-

817−135:8 name args

818−136:7 INDENT

819−136:7 glyph [

820−136:8 tight name rest

821−136:13 name acc

822−136:16 tight glyph ]

823−137:9 INDENT

824−137:9 glyph ?-

825−137:12 name rest

826−138:11 INDENT

827−138:11 lit ~

828−138:13 name acc

829−139:11 NEWLINE

830−139:11 glyph [

831−139:12 tight name item

832−139:17 name more

833−139:21 tight glyph ]

834−139:23 glyph (

835−139:24 tight name reverse-into

836−139:37 name more

837−139:42 glyph [

838−139:43 tight name item

839−139:48 name acc

840−139:51 tight glyph ]

841−139:52 tight glyph )

842−140:3 DEDENT

843−140:3 DEDENT

844−140:3 DEDENT

845−140:3 DEDENT

846−140:3 NEWLINE

847−140:3 glyph (

848−140:4 tight name reverse-into

849−140:17 name xs

850−140:20 lit ~

851−140:21 tight glyph )

852−140:22 DEDENT

853−140:22 NEWLINE

788+127:3 glyph [

789+127:4 tight lit %|

790+127:7 name p

791+127:8 tight glyph =

792+127:9 tight tvar B

793+127:10 tight glyph ]

794+128:3 NEWLINE

795+128:3 glyph [

796+128:4 tight lit %&

797+128:7 name p

798+128:8 tight glyph =

799+128:9 tight tvar A

800+128:10 tight glyph ]

801+130:1 DEDENT

802+130:1 NEWLINE

803+130:1 glyph +$

804+130:4 name bloq

805+130:9 aura @

806+132:1 NEWLINE

807+132:1 glyph ++

808+132:4 name some

809+132:9 glyph |=

810+132:12 name item

811+132:16 tight glyph =

812+132:17 tight tvar A

813+132:19 glyph `

814+132:20 tight name item

815+134:1 NEWLINE

816+134:1 glyph ++

817+134:4 name lure

818+134:9 glyph |=

819+134:12 name item

820+134:16 tight glyph =

821+134:17 tight tvar A

822+135:3 INDENT

823+135:3 glyph ^-

824+135:6 glyph (

825+135:7 tight name list

826+135:12 tvar A

827+135:13 tight glyph )

828+135:15 glyph [

829+135:16 tight name item

830+135:21 lit ~

831+135:22 tight glyph ]

832+137:1 DEDENT

833+137:1 NEWLINE

834+137:1 glyph ++

835+137:4 name snoc

836+137:9 glyph |=

837+137:12 name args

838+137:16 tight glyph =

839+137:17 tight glyph [

840+137:18 tight glyph (

841+137:19 tight name list

842+137:24 tvar A

843+137:25 tight glyph )

844+137:27 tvar A

845+137:28 tight glyph ]

846+138:3 INDENT

847+138:3 glyph ?-

848+138:6 name args

849+139:5 INDENT

850+139:5 glyph [

851+139:6 tight name xs

852+139:9 name item

853+139:13 tight glyph ]

854+139:15 glyph (

855+139:16 tight name weld

856+139:21 name xs

857+139:24 glyph [

858+139:25 tight name item

859+139:30 lit ~

860+139:31 tight glyph ]

861+139:32 tight glyph )

862+141:1 DEDENT

863+141:1 DEDENT

864+141:1 NEWLINE

865+141:1 glyph ++

866+141:4 name flop

867+141:9 glyph |=

868+141:12 name xs

869+141:14 tight glyph =

870+141:15 tight glyph (

871+141:16 tight name list

872+141:21 tvar A

873+141:22 tight glyph )

874+142:3 INDENT

875+142:3 glyph ++

876+142:6 name reverse-into

877+142:19 glyph |=

878+142:22 name args

879+142:26 tight glyph =

880+142:27 tight glyph [

881+142:28 tight glyph (

882+142:29 tight name list

883+142:34 tvar A

884+142:35 tight glyph )

885+142:37 glyph (

886+142:38 tight name list

887+142:43 tvar A

888+142:44 tight glyph )

889+142:45 tight glyph ]

890+143:5 INDENT

891+143:5 glyph ?-

892+143:8 name args

893+144:7 INDENT

894+144:7 glyph [

895+144:8 tight name rest

896+144:13 name acc

897+144:16 tight glyph ]

898+145:9 INDENT

899+145:9 glyph ?-

900+145:12 name rest

901+146:11 INDENT

902+146:11 lit ~

903+146:13 name acc

904+147:11 NEWLINE

905+147:11 glyph [

906+147:12 tight name item

907+147:17 name more

908+147:21 tight glyph ]

909+147:23 glyph (

910+147:24 tight name reverse-into

911+147:37 name more

912+147:42 glyph [

913+147:43 tight name item

914+147:48 name acc

915+147:51 tight glyph ]

916+147:52 tight glyph )

917+148:3 DEDENT

918+148:3 DEDENT

919+148:3 DEDENT

920+148:3 DEDENT

921+148:3 NEWLINE

922+148:3 glyph (

923+148:4 tight name reverse-into

924+148:17 name xs

925+148:20 lit ~

926+148:21 tight glyph )

927+148:22 DEDENT

928+148:22 NEWLINE

tests/golden/prelude-list-helpers/tree.txt+138−106

@@ -235,112 +235,144 @@

235235 (cell 97:32

236236 (face 97:33 p (tvar 97:35 A))

237237 (face 97:37 q (ref 97:39 nail))))))))

238− (value 99:1 wonk

238+ (value 99:1 like

239239 (gate 99:9

240− (face 99:12 veq

241− (apply 99:16 like (tvar 99:22 A)))

240+ (cell 99:12

241+ (face 99:13 f

242+ (fn 99:15 (tvar 99:18 A) (tvar 99:20 B)))

243+ (face 99:23 result

244+ (apply 99:30 like (tvar 99:36 A))))

242245 (body 100:3

243− (branch 100:3

244− (wing 100:6 q.veq)

245− (arm 101:5 (lit 101:5 ~) (crash 101:7))

246− (arm 102:5

247− (cell 102:5 (lit 102:6 ~) (bind 102:8 product))

248− (wing 102:17 p.product))))))

249− (mold 104:1 lone

250− (generic 104:9 A

251− (cell 104:16

252− (face 104:17 p (tvar 104:19 A)))))

253− (mold 106:1 lest

254− (generic 106:9 A

255− (cell 106:16

256− (face 106:17 i (tvar 106:19 A))

257− (face 106:21 t

258− (apply 106:23 list (tvar 106:29 A))))))

259− (mold 108:1 pole

260− (generic 108:9 A

261− (union 109:3

262− (const 109:3 ~)

263− (cell 110:3

264− (tvar 110:4 A)

265− (apply 110:6 pole (tvar 110:12 A))))))

266− (mold 112:1 quip

267− (generic 112:9 A B

268− (cell 112:18

269− (apply 112:19 list (tvar 112:25 A))

270− (tvar 112:28 B))))

271− (mold 114:1 tree

246+ (value 100:3 mapped

247+ (body 101:5

248+ (cast 101:5

249+ (apply 101:8 unit

250+ (cell 101:14

251+ (face 101:15 p (tvar 101:17 B))

252+ (face 101:19 q (ref 101:21 nail))))

253+ (body 102:7

254+ (branch 102:7

255+ (wing 102:10 q.result)

256+ (arm 103:9 (lit 103:9 ~) (lit 103:11 ~))

257+ (arm 104:9

258+ (cell 104:9 (lit 104:10 ~) (bind 104:12 value))

259+ (unit 104:19

260+ (tuple 104:20

261+ (face 104:21 p

262+ (group 104:23

263+ (call 104:24 (wing 104:24 f) (wing 104:26 p.value))))

264+ (face 104:35 q (wing 104:37 q.value))))))))))

265+ (cast 105:3

266+ (apply 105:6 like (tvar 105:12 B))

267+ (tuple 105:15

268+ (face 105:16 p (wing 105:18 p.result))

269+ (face 105:27 q (wing 105:29 mapped)))))))

270+ (value 107:1 wonk

271+ (gate 107:9

272+ (face 107:12 veq

273+ (apply 107:16 like (tvar 107:22 A)))

274+ (body 108:3

275+ (branch 108:3

276+ (wing 108:6 q.veq)

277+ (arm 109:5 (lit 109:5 ~) (crash 109:7))

278+ (arm 110:5

279+ (cell 110:5 (lit 110:6 ~) (bind 110:8 product))

280+ (wing 110:17 p.product))))))

281+ (mold 112:1 lone

282+ (generic 112:9 A

283+ (cell 112:16

284+ (face 112:17 p (tvar 112:19 A)))))

285+ (mold 114:1 lest

272286 (generic 114:9 A

273− (union 115:3

274− (const 115:3 ~)

275− (cell 116:3

276− (face 116:4 n (tvar 116:6 A))

277− (face 116:8 l

278− (apply 116:10 tree (tvar 116:16 A)))

279− (face 116:19 r

280− (apply 116:21 tree (tvar 116:27 A)))))))

281− (mold 118:1 each

282− (generic 118:9 A B

283− (union 119:3

284− (cell 119:3

285− (const 119:4 %|)

286− (face 119:7 p (tvar 119:9 B)))

287− (cell 120:3

288− (const 120:4 %&)

289− (face 120:7 p (tvar 120:9 A))))))

290− (mold 122:1 bloq (aura 122:9 @))

291− (value 124:1 some

292− (gate 124:9

293− (face 124:12 item (tvar 124:17 A))

294− (unit 124:19 (wing 124:20 item))))

295− (value 126:1 lure

296− (gate 126:9

297− (face 126:12 item (tvar 126:17 A))

298− (body 127:3

299− (cast 127:3

300− (apply 127:6 list (tvar 127:12 A))

301− (tuple 127:15 (wing 127:16 item) (lit 127:21 ~))))))

302− (value 129:1 snoc

303− (gate 129:9

304− (face 129:12 args

305− (cell 129:17

306− (apply 129:18 list (tvar 129:24 A))

307− (tvar 129:27 A)))

308− (body 130:3

309− (branch 130:3

310− (wing 130:6 args)

311− (arm 131:5

312− (cell 131:5 (bind 131:6 xs) (bind 131:9 item))

313− (group 131:15

314− (call 131:16

315− (wing 131:16 weld)

316− (wing 131:21 xs)

317− (tuple 131:24 (wing 131:25 item) (lit 131:30 ~)))))))))

318− (value 133:1 flop

319− (gate 133:9

320− (face 133:12 xs

321− (apply 133:15 list (tvar 133:21 A)))

322− (body 134:3

323− (value 134:3 reverse-into

324− (gate 134:19

325− (face 134:22 args

326− (cell 134:27

327− (apply 134:28 list (tvar 134:34 A))

328− (apply 134:37 list (tvar 134:43 A))))

329− (body 135:5

330− (branch 135:5

331− (wing 135:8 args)

332− (arm 136:7

333− (cell 136:7 (bind 136:8 rest) (bind 136:13 acc))

334− (body 137:9

335− (branch 137:9

336− (wing 137:12 rest)

337− (arm 138:11 (lit 138:11 ~) (wing 138:13 acc))

338− (arm 139:11

339− (cell 139:11 (bind 139:12 item) (bind 139:17 more))

340− (group 139:23

341− (call 139:24

342− (wing 139:24 reverse-into)

343− (wing 139:37 more)

344− (tuple 139:42 (wing 139:43 item) (wing 139:48 acc))))))))))))

345− (group 140:3

346− (call 140:4 (wing 140:4 reverse-into) (wing 140:17 xs) (lit 140:20 ~)))))))

287+ (cell 114:16

288+ (face 114:17 i (tvar 114:19 A))

289+ (face 114:21 t

290+ (apply 114:23 list (tvar 114:29 A))))))

291+ (mold 116:1 pole

292+ (generic 116:9 A

293+ (union 117:3

294+ (const 117:3 ~)

295+ (cell 118:3

296+ (tvar 118:4 A)

297+ (apply 118:6 pole (tvar 118:12 A))))))

298+ (mold 120:1 quip

299+ (generic 120:9 A B

300+ (cell 120:18

301+ (apply 120:19 list (tvar 120:25 A))

302+ (tvar 120:28 B))))

303+ (mold 122:1 tree

304+ (generic 122:9 A

305+ (union 123:3

306+ (const 123:3 ~)

307+ (cell 124:3

308+ (face 124:4 n (tvar 124:6 A))

309+ (face 124:8 l

310+ (apply 124:10 tree (tvar 124:16 A)))

311+ (face 124:19 r

312+ (apply 124:21 tree (tvar 124:27 A)))))))

313+ (mold 126:1 each

314+ (generic 126:9 A B

315+ (union 127:3

316+ (cell 127:3

317+ (const 127:4 %|)

318+ (face 127:7 p (tvar 127:9 B)))

319+ (cell 128:3

320+ (const 128:4 %&)

321+ (face 128:7 p (tvar 128:9 A))))))

322+ (mold 130:1 bloq (aura 130:9 @))

323+ (value 132:1 some

324+ (gate 132:9

325+ (face 132:12 item (tvar 132:17 A))

326+ (unit 132:19 (wing 132:20 item))))

327+ (value 134:1 lure

328+ (gate 134:9

329+ (face 134:12 item (tvar 134:17 A))

330+ (body 135:3

331+ (cast 135:3

332+ (apply 135:6 list (tvar 135:12 A))

333+ (tuple 135:15 (wing 135:16 item) (lit 135:21 ~))))))

334+ (value 137:1 snoc

335+ (gate 137:9

336+ (face 137:12 args

337+ (cell 137:17

338+ (apply 137:18 list (tvar 137:24 A))

339+ (tvar 137:27 A)))

340+ (body 138:3

341+ (branch 138:3

342+ (wing 138:6 args)

343+ (arm 139:5

344+ (cell 139:5 (bind 139:6 xs) (bind 139:9 item))

345+ (group 139:15

346+ (call 139:16

347+ (wing 139:16 weld)

348+ (wing 139:21 xs)

349+ (tuple 139:24 (wing 139:25 item) (lit 139:30 ~)))))))))

350+ (value 141:1 flop

351+ (gate 141:9

352+ (face 141:12 xs

353+ (apply 141:15 list (tvar 141:21 A)))

354+ (body 142:3

355+ (value 142:3 reverse-into

356+ (gate 142:19

357+ (face 142:22 args

358+ (cell 142:27

359+ (apply 142:28 list (tvar 142:34 A))

360+ (apply 142:37 list (tvar 142:43 A))))

361+ (body 143:5

362+ (branch 143:5

363+ (wing 143:8 args)

364+ (arm 144:7

365+ (cell 144:7 (bind 144:8 rest) (bind 144:13 acc))

366+ (body 145:9

367+ (branch 145:9

368+ (wing 145:12 rest)

369+ (arm 146:11 (lit 146:11 ~) (wing 146:13 acc))

370+ (arm 147:11

371+ (cell 147:11 (bind 147:12 item) (bind 147:17 more))

372+ (group 147:23

373+ (call 147:24

374+ (wing 147:24 reverse-into)

375+ (wing 147:37 more)

376+ (tuple 147:42 (wing 147:43 item) (wing 147:48 acc))))))))))))

377+ (group 148:3

378+ (call 148:4 (wing 148:4 reverse-into) (wing 148:17 xs) (lit 148:20 ~)))))))

tests/golden/prelude-list-helpers/types.txt+1

@@ -27,6 +27,7 @@ partial inference; module not checked

2727+$ spot: not checked

2828+$ toon: cases proven disjoint; mold not checked

2929+$ like: not checked

30+++ like: sample mold is not supported by partial inference

3031++ wonk: sample mold is not supported by partial inference

3132+$ lone: not checked

3233+$ lest: not checked

tests/golden/prelude-unit-list-transforms/about.txt+1−1

@@ -1,4 +1,4 @@

11source: Overview, Prelude: "The exported inventory includes all names from the Hoon library sections listed below, excluding the groups explicitly left out"; Hoon 2a includes `drop`, `bind`, `biff`, `flit`, `both`, `clap` and `clef`, and 2b includes `join`, `murn`, `rear`, `snip`, `skim`, `skip`, `levy`, `lien`, `roll` and `reel`. Folds take an explicit start.

2−tests: The complete current prelude parses, including unit-to-list conversion, unit mapping and flat mapping, a curried unit-producing filter, three ways to combine units, including `clap` with one shared value type, complementary list filters, present-product mapping, joining, last-item operations, all/any predicates, and left and right folds. The filters retain the order of their selected items.

2+tests: The complete current prelude parses, including unit-to-list conversion, unit mapping and flat mapping, a curried unit-producing filter, three ways to combine units, including `clap` with one shared value type, complementary list filters, present-product mapping, joining, last-item operations, all/any predicates, and left and right folds. The filters retain the order of their selected items. It also includes the source-backed `ask` re-export and `pure` gate.

33expect: parses

44expect-types: a partial inference report, not a checked module; unit and list gate typing is not complete

tests/golden/prelude-unit-list-transforms/source.jibb+63−16

@@ -1,5 +1,6 @@

11/= internal /lib/jibb/internal

22+$ poke poke.internal

3++$ qath qath.internal

34

45:: Initial prelude functions. The rest of the inventory is still to come.

56

@@ -100,6 +101,14 @@

100101

101102+$ like |$ [A] [p=hair q=(unit [p=A q=nail])]

102103

104+++ like |= [f=$-(A B) result=(like A)]

105+ ++ mapped

106+ ^- (unit [p=B q=nail])

107+ ?- q.result

108+ ~ ~

109+ [~ value] `[p=(f p.value) q=q.value]

110+ ^- (like B) [p=p.result q=mapped]

111+

103112++ wonk |= veq=(like A)

104113 ?- q.veq

105114 ~ !!

@@ -149,6 +158,12 @@

149158 ~ ~

150159 [~ value] [value ~]

151160

161+++ bond |= fallback=$-(~ A)

162+ |= maybe=(unit A)

163+ ?- maybe

164+ ~ (fallback ~)

165+ [~ value] value

166+

152167++ bind |= args=[(unit A) $-(A B)]

153168 ?- args

154169 [maybe f] ^- (unit B)

@@ -214,24 +229,26 @@

214229 %.n [item (skip rest predicate)]

215230

216231++ levy |= args=[(list A) $-(A ?)]

217− ?- args

218− [xs predicate]

219− ?- xs

220− ~ %.y

221− [item rest]

222− ?- (predicate item)

223− %.y (levy rest predicate)

224− %.n %.n

232+ ^- ?

233+ ?- args

234+ [xs predicate]

235+ ?- xs

236+ ~ %.y

237+ [item rest]

238+ ?- (predicate item)

239+ %.y (levy rest predicate)

240+ %.n %.n

225241

226242++ lien |= args=[(list A) $-(A ?)]

227− ?- args

228− [xs predicate]

229− ?- xs

230− ~ %.n

231− [item rest]

232− ?- (predicate item)

233− %.y %.y

234− %.n (lien rest predicate)

243+ ^- ?

244+ ?- args

245+ [xs predicate]

246+ ?- xs

247+ ~ %.n

248+ [item rest]

249+ ?- (predicate item)

250+ %.y %.y

251+ %.n (lien rest predicate)

235252

236253++ roll |= args=[(list A) B $-([A B] B)]

237254 ?- args

@@ -290,3 +307,33 @@

290307 ?- rest

291308 ~ item

292309 [next more] (rear rest)

310+

311+++ cork |= gates=[$-(A B) $-(B C)]

312+ ?- gates

313+ [f g] |= x=A (g (f x))

314+

315+++ corl |= gates=[$-(B C) $-(A B)]

316+ ?- gates

317+ [f g] |= x=A (f (g x))

318+

319+++ cury |= args=[$-([A B] C) A]

320+ ?- args

321+ [f a] |= b=B (f a b)

322+

323+++ curr |= args=[$-([A B] C) B]

324+ ?- args

325+ [f b] |= a=A (f a b)

326+

327++$ cmd |$ [M]

328+ [%poke p=poke reply=$-((unit @t) M)]

329+ [%go url=@t]

330+ [%wait gap=@dr msg=M]

331+ [%now reply=$-(@da M)]

332+ [%who reply=$-(@p M)]

333+

334+++ gth |= args=[A A] (gth-atom.internal args)

335+++ add |= args=[A A] (add-atom.internal args)

336+++ dec |= atom=A (dec-atom.internal atom)

337+

338++$ ask |$ [M] (ask.internal M)

339+++ pure |= x=M ^- (ask M) [%pure x]

tests/golden/prelude-unit-list-transforms/tokens.txt+2169−1775

@@ -10,1831 +10,2225 @@

10102:1 glyph +$

11112:4 name poke

12122:9 wing poke.internal

13−6:1 NEWLINE

14−6:1 glyph ++

15−6:4 name same

16−6:9 glyph |=

17−6:12 name x

18−6:13 tight glyph =

19−6:14 tight tvar A

20−6:16 name x

21−8:1 NEWLINE

22−8:1 glyph ++

23−8:4 name head

24−8:9 glyph |=

25−8:12 name p

26−8:13 tight glyph =

27−8:14 tight glyph [

28−8:15 tight tvar A

29−8:17 tvar B

30−8:18 tight glyph ]

31−9:3 INDENT

32−9:3 glyph ?-

33−9:6 name p

34−10:5 INDENT

35−10:5 glyph [

36−10:6 tight name a

37−10:8 name b

38−10:9 tight glyph ]

39−10:11 name a

40−12:1 DEDENT

41−12:1 DEDENT

42−12:1 NEWLINE

43−12:1 glyph ++

44−12:4 name tail

45−12:9 glyph |=

46−12:12 name p

47−12:13 tight glyph =

48−12:14 tight glyph [

49−12:15 tight tvar A

50−12:17 tvar B

51−12:18 tight glyph ]

52−13:3 INDENT

53−13:3 glyph ?-

54−13:6 name p

55−14:5 INDENT

56−14:5 glyph [

57−14:6 tight name a

58−14:8 name b

59−14:9 tight glyph ]

60−14:11 name b

61−16:1 DEDENT

62−16:1 DEDENT

63−16:1 NEWLINE

64−16:1 glyph ++

65−16:4 name not

66−16:8 glyph |=

67−16:11 name b

68−16:12 tight glyph =

69−16:13 tight glyph ?

70−17:3 INDENT

71−17:3 glyph ?-

72−17:6 name b

73−18:5 INDENT

74−18:5 lit %.y

75−18:9 lit %.n

76−19:5 NEWLINE

77−19:5 lit %.n

78−19:9 lit %.y

79−21:1 DEDENT

80−21:1 DEDENT

81−21:1 NEWLINE

82−21:1 glyph +$

83−21:4 name list

84−21:9 glyph |$

85−21:12 glyph [

86−21:13 tight tvar A

87−21:14 tight glyph ]

88−22:3 INDENT

89−22:3 lit ~

90−23:3 NEWLINE

91−23:3 glyph [

92−23:4 tight name i

93−23:5 tight glyph =

94−23:6 tight tvar A

95−23:8 name t

96−23:9 tight glyph =

97−23:10 tight glyph (

98−23:11 tight name list

99−23:16 tvar A

100−23:17 tight glyph )

101−23:18 tight glyph ]

102−25:1 DEDENT

103−25:1 NEWLINE

104−25:1 glyph +$

105−25:4 name unit

106−25:9 glyph |$

107−25:12 glyph [

108−25:13 tight tvar A

109−25:14 tight glyph ]

110−26:3 INDENT

111−26:3 lit ~

112−27:3 NEWLINE

113−27:3 glyph [

114−27:4 tight lit ~

115−27:6 name u

116−27:7 tight glyph =

117−27:8 tight tvar A

118−27:9 tight glyph ]

119−29:1 DEDENT

120−29:1 NEWLINE

121−29:1 glyph ++

122−29:4 name fall

123−29:9 glyph |=

124−29:12 name args

125−29:16 tight glyph =

126−29:17 tight glyph [

127−29:18 tight glyph (

128−29:19 tight name unit

129−29:24 tvar A

130−29:25 tight glyph )

131−29:27 tvar A

132−29:28 tight glyph ]

133−30:3 INDENT

134−30:3 glyph ?-

135−30:6 name args

136−31:5 INDENT

137−31:5 glyph [

138−31:6 tight name maybe

139−31:12 name fallback

140−31:20 tight glyph ]

141−32:7 INDENT

142−32:7 glyph ?-

143−32:10 name maybe

144−33:9 INDENT

145−33:9 lit ~

146−33:11 name fallback

147−34:9 NEWLINE

148−34:9 glyph [

149−34:10 tight lit ~

150−34:12 name value

151−34:17 tight glyph ]

152−34:19 name value

153−36:1 DEDENT

154−36:1 DEDENT

155−36:1 DEDENT

156−36:1 DEDENT

157−36:1 NEWLINE

158−36:1 glyph ++

159−36:4 name need

160−36:9 glyph |=

161−36:12 name maybe

162−36:17 tight glyph =

163−36:18 tight glyph (

164−36:19 tight name unit

165−36:24 tvar A

166−36:25 tight glyph )

167−37:3 INDENT

168−37:3 glyph ?-

169−37:6 name maybe

170−38:5 INDENT

171−38:5 lit ~

172−38:7 glyph !!

173−39:5 NEWLINE

174−39:5 glyph [

175−39:6 tight lit ~

176−39:8 name value

177−39:13 tight glyph ]

178−39:15 name value

179−41:1 DEDENT

180−41:1 DEDENT

181−41:1 NEWLINE

182−41:1 glyph ++

183−41:4 name weld

184−41:9 glyph |=

185−41:12 name args

186−41:16 tight glyph =

187−41:17 tight glyph [

188−41:18 tight glyph (

189−41:19 tight name list

190−41:24 tvar A

191−41:25 tight glyph )

192−41:27 glyph (

193−41:28 tight name list

194−41:33 tvar A

195−41:34 tight glyph )

196−41:35 tight glyph ]

197−42:3 INDENT

198−42:3 glyph ?-

199−42:6 name args

200−43:5 INDENT

201−43:5 glyph [

202−43:6 tight name xs

203−43:9 name ys

204−43:11 tight glyph ]

205−44:7 INDENT

206−44:7 glyph ^-

207−44:10 glyph (

208−44:11 tight name list

209−44:16 tvar A

210−44:17 tight glyph )

211−45:9 INDENT

212−45:9 glyph ?-

213−45:12 name xs

214−46:11 INDENT

215−46:11 lit ~

216−46:13 name ys

217−47:11 NEWLINE

218−47:11 glyph [

219−47:12 tight name item

220−47:17 name rest

221−47:21 tight glyph ]

222−47:23 glyph [

223−47:24 tight name item

224−47:29 glyph (

225−47:30 tight name weld

226−47:35 name rest

227−47:40 name ys

228−47:42 tight glyph )

229−47:43 tight glyph ]

230−49:1 DEDENT

231−49:1 DEDENT

232−49:1 DEDENT

233−49:1 DEDENT

234−49:1 DEDENT

235−49:1 NEWLINE

236−49:1 glyph ++

237−49:4 name turn

238−49:9 glyph |=

239−49:12 name args

240−49:16 tight glyph =

241−49:17 tight glyph [

242−49:18 tight glyph (

243−49:19 tight name list

244−49:24 tvar A

245−49:25 tight glyph )

246−49:27 glyph $-(

247−49:30 tight tvar A

248−49:32 tvar B

249−49:33 tight glyph )

250−49:34 tight glyph ]

251−50:3 INDENT

252−50:3 glyph ?-

253−50:6 name args

254−51:5 INDENT

255−51:5 glyph [

256−51:6 tight name xs

257−51:9 name f

258−51:10 tight glyph ]

259−52:7 INDENT

260−52:7 glyph ^-

261−52:10 glyph (

262−52:11 tight name list

263−52:16 tvar B

264−52:17 tight glyph )

265−53:9 INDENT

266−53:9 glyph ?-

267−53:12 name xs

268−54:11 INDENT

269−54:11 lit ~

270−54:13 lit ~

271−55:11 NEWLINE

272−55:11 glyph [

273−55:12 tight name item

274−55:17 name rest

275−55:21 tight glyph ]

276−55:23 glyph [

277−55:24 tight glyph (

278−55:25 tight name f

279−55:27 name item

280−55:31 tight glyph )

281−55:33 glyph (

282−55:34 tight name turn

283−55:39 name rest

284−55:44 name f

285−55:45 tight glyph )

286−55:46 tight glyph ]

287−57:1 DEDENT

288−57:1 DEDENT

289−57:1 DEDENT

290−57:1 DEDENT

291−57:1 DEDENT

292−57:1 NEWLINE

293−57:1 glyph +$

294−57:4 name dime

295−57:9 glyph [

296−57:10 tight name p

297−57:11 tight glyph =

298−57:12 tight aura @ta

299−57:16 name q

300−57:17 tight glyph =

301−57:18 tight aura @

302−57:19 tight glyph ]

303−59:1 NEWLINE

304−59:1 glyph +$

305−59:4 name hair

306−59:9 glyph [

307−59:10 tight name p

308−59:11 tight glyph =

309−59:12 tight aura @ud

310−59:16 name q

311−59:17 tight glyph =

312−59:18 tight aura @ud

313−59:21 tight glyph ]

314−61:1 NEWLINE

315−61:1 glyph +$

316−61:4 name pint

317−61:9 glyph [

318−61:10 tight name p

319−61:11 tight glyph =

320−61:12 tight glyph [

321−61:13 tight name p

322−61:14 tight glyph =

323−61:15 tight aura @

324−61:17 name q

325−61:18 tight glyph =

326−61:19 tight aura @

327−61:20 tight glyph ]

328−61:22 name q

329−61:23 tight glyph =

330−61:24 tight glyph [

331−61:25 tight name p

332−61:26 tight glyph =

333−61:27 tight aura @

334−61:29 name q

335−61:30 tight glyph =

336−61:31 tight aura @

337−61:32 tight glyph ]

338−61:33 tight glyph ]

339−63:1 NEWLINE

340−63:1 glyph +$

341−63:4 name coin

342−64:3 INDENT

343−64:3 glyph [

344−64:4 tight lit %$

345−64:7 name p

346−64:8 tight glyph =

347−64:9 tight name dime

348−64:13 tight glyph ]

349−65:3 NEWLINE

13+3:1 NEWLINE

14+3:1 glyph +$

15+3:4 name qath

16+3:9 wing qath.internal

17+7:1 NEWLINE

18+7:1 glyph ++

19+7:4 name same

20+7:9 glyph |=

21+7:12 name x

22+7:13 tight glyph =

23+7:14 tight tvar A

24+7:16 name x

25+9:1 NEWLINE

26+9:1 glyph ++

27+9:4 name head

28+9:9 glyph |=

29+9:12 name p

30+9:13 tight glyph =

31+9:14 tight glyph [

32+9:15 tight tvar A

33+9:17 tvar B

34+9:18 tight glyph ]

35+10:3 INDENT

36+10:3 glyph ?-

37+10:6 name p

38+11:5 INDENT

39+11:5 glyph [

40+11:6 tight name a

41+11:8 name b

42+11:9 tight glyph ]

43+11:11 name a

44+13:1 DEDENT

45+13:1 DEDENT

46+13:1 NEWLINE

47+13:1 glyph ++

48+13:4 name tail

49+13:9 glyph |=

50+13:12 name p

51+13:13 tight glyph =

52+13:14 tight glyph [

53+13:15 tight tvar A

54+13:17 tvar B

55+13:18 tight glyph ]

56+14:3 INDENT

57+14:3 glyph ?-

58+14:6 name p

59+15:5 INDENT

60+15:5 glyph [

61+15:6 tight name a

62+15:8 name b

63+15:9 tight glyph ]

64+15:11 name b

65+17:1 DEDENT

66+17:1 DEDENT

67+17:1 NEWLINE

68+17:1 glyph ++

69+17:4 name not

70+17:8 glyph |=

71+17:11 name b

72+17:12 tight glyph =

73+17:13 tight glyph ?

74+18:3 INDENT

75+18:3 glyph ?-

76+18:6 name b

77+19:5 INDENT

78+19:5 lit %.y

79+19:9 lit %.n

80+20:5 NEWLINE

81+20:5 lit %.n

82+20:9 lit %.y

83+22:1 DEDENT

84+22:1 DEDENT

85+22:1 NEWLINE

86+22:1 glyph +$

87+22:4 name list

88+22:9 glyph |$

89+22:12 glyph [

90+22:13 tight tvar A

91+22:14 tight glyph ]

92+23:3 INDENT

93+23:3 lit ~

94+24:3 NEWLINE

95+24:3 glyph [

96+24:4 tight name i

97+24:5 tight glyph =

98+24:6 tight tvar A

99+24:8 name t

100+24:9 tight glyph =

101+24:10 tight glyph (

102+24:11 tight name list

103+24:16 tvar A

104+24:17 tight glyph )

105+24:18 tight glyph ]

106+26:1 DEDENT

107+26:1 NEWLINE

108+26:1 glyph +$

109+26:4 name unit

110+26:9 glyph |$

111+26:12 glyph [

112+26:13 tight tvar A

113+26:14 tight glyph ]

114+27:3 INDENT

115+27:3 lit ~

116+28:3 NEWLINE

117+28:3 glyph [

118+28:4 tight lit ~

119+28:6 name u

120+28:7 tight glyph =

121+28:8 tight tvar A

122+28:9 tight glyph ]

123+30:1 DEDENT

124+30:1 NEWLINE

125+30:1 glyph ++

126+30:4 name fall

127+30:9 glyph |=

128+30:12 name args

129+30:16 tight glyph =

130+30:17 tight glyph [

131+30:18 tight glyph (

132+30:19 tight name unit

133+30:24 tvar A

134+30:25 tight glyph )

135+30:27 tvar A

136+30:28 tight glyph ]

137+31:3 INDENT

138+31:3 glyph ?-

139+31:6 name args

140+32:5 INDENT

141+32:5 glyph [

142+32:6 tight name maybe

143+32:12 name fallback

144+32:20 tight glyph ]

145+33:7 INDENT

146+33:7 glyph ?-

147+33:10 name maybe

148+34:9 INDENT

149+34:9 lit ~

150+34:11 name fallback

151+35:9 NEWLINE

152+35:9 glyph [

153+35:10 tight lit ~

154+35:12 name value

155+35:17 tight glyph ]

156+35:19 name value

157+37:1 DEDENT

158+37:1 DEDENT

159+37:1 DEDENT

160+37:1 DEDENT

161+37:1 NEWLINE

162+37:1 glyph ++

163+37:4 name need

164+37:9 glyph |=

165+37:12 name maybe

166+37:17 tight glyph =

167+37:18 tight glyph (

168+37:19 tight name unit

169+37:24 tvar A

170+37:25 tight glyph )

171+38:3 INDENT

172+38:3 glyph ?-

173+38:6 name maybe

174+39:5 INDENT

175+39:5 lit ~

176+39:7 glyph !!

177+40:5 NEWLINE

178+40:5 glyph [

179+40:6 tight lit ~

180+40:8 name value

181+40:13 tight glyph ]

182+40:15 name value

183+42:1 DEDENT

184+42:1 DEDENT

185+42:1 NEWLINE

186+42:1 glyph ++

187+42:4 name weld

188+42:9 glyph |=

189+42:12 name args

190+42:16 tight glyph =

191+42:17 tight glyph [

192+42:18 tight glyph (

193+42:19 tight name list

194+42:24 tvar A

195+42:25 tight glyph )

196+42:27 glyph (

197+42:28 tight name list

198+42:33 tvar A

199+42:34 tight glyph )

200+42:35 tight glyph ]

201+43:3 INDENT

202+43:3 glyph ?-

203+43:6 name args

204+44:5 INDENT

205+44:5 glyph [

206+44:6 tight name xs

207+44:9 name ys

208+44:11 tight glyph ]

209+45:7 INDENT

210+45:7 glyph ^-

211+45:10 glyph (

212+45:11 tight name list

213+45:16 tvar A

214+45:17 tight glyph )

215+46:9 INDENT

216+46:9 glyph ?-

217+46:12 name xs

218+47:11 INDENT

219+47:11 lit ~

220+47:13 name ys

221+48:11 NEWLINE

222+48:11 glyph [

223+48:12 tight name item

224+48:17 name rest

225+48:21 tight glyph ]

226+48:23 glyph [

227+48:24 tight name item

228+48:29 glyph (

229+48:30 tight name weld

230+48:35 name rest

231+48:40 name ys

232+48:42 tight glyph )

233+48:43 tight glyph ]

234+50:1 DEDENT

235+50:1 DEDENT

236+50:1 DEDENT

237+50:1 DEDENT

238+50:1 DEDENT

239+50:1 NEWLINE

240+50:1 glyph ++

241+50:4 name turn

242+50:9 glyph |=

243+50:12 name args

244+50:16 tight glyph =

245+50:17 tight glyph [

246+50:18 tight glyph (

247+50:19 tight name list

248+50:24 tvar A

249+50:25 tight glyph )

250+50:27 glyph $-(

251+50:30 tight tvar A

252+50:32 tvar B

253+50:33 tight glyph )

254+50:34 tight glyph ]

255+51:3 INDENT

256+51:3 glyph ?-

257+51:6 name args

258+52:5 INDENT

259+52:5 glyph [

260+52:6 tight name xs

261+52:9 name f

262+52:10 tight glyph ]

263+53:7 INDENT

264+53:7 glyph ^-

265+53:10 glyph (

266+53:11 tight name list

267+53:16 tvar B

268+53:17 tight glyph )

269+54:9 INDENT

270+54:9 glyph ?-

271+54:12 name xs

272+55:11 INDENT

273+55:11 lit ~

274+55:13 lit ~

275+56:11 NEWLINE

276+56:11 glyph [

277+56:12 tight name item

278+56:17 name rest

279+56:21 tight glyph ]

280+56:23 glyph [

281+56:24 tight glyph (

282+56:25 tight name f

283+56:27 name item

284+56:31 tight glyph )

285+56:33 glyph (

286+56:34 tight name turn

287+56:39 name rest

288+56:44 name f

289+56:45 tight glyph )

290+56:46 tight glyph ]

291+58:1 DEDENT

292+58:1 DEDENT

293+58:1 DEDENT

294+58:1 DEDENT

295+58:1 DEDENT

296+58:1 NEWLINE

297+58:1 glyph +$

298+58:4 name dime

299+58:9 glyph [

300+58:10 tight name p

301+58:11 tight glyph =

302+58:12 tight aura @ta

303+58:16 name q

304+58:17 tight glyph =

305+58:18 tight aura @

306+58:19 tight glyph ]

307+60:1 NEWLINE

308+60:1 glyph +$

309+60:4 name hair

310+60:9 glyph [

311+60:10 tight name p

312+60:11 tight glyph =

313+60:12 tight aura @ud

314+60:16 name q

315+60:17 tight glyph =

316+60:18 tight aura @ud

317+60:21 tight glyph ]

318+62:1 NEWLINE

319+62:1 glyph +$

320+62:4 name pint

321+62:9 glyph [

322+62:10 tight name p

323+62:11 tight glyph =

324+62:12 tight glyph [

325+62:13 tight name p

326+62:14 tight glyph =

327+62:15 tight aura @

328+62:17 name q

329+62:18 tight glyph =

330+62:19 tight aura @

331+62:20 tight glyph ]

332+62:22 name q

333+62:23 tight glyph =

334+62:24 tight glyph [

335+62:25 tight name p

336+62:26 tight glyph =

337+62:27 tight aura @

338+62:29 name q

339+62:30 tight glyph =

340+62:31 tight aura @

341+62:32 tight glyph ]

342+62:33 tight glyph ]

343+64:1 NEWLINE

344+64:1 glyph +$

345+64:4 name coin

346+65:3 INDENT

35034765:3 glyph [

351−65:4 tight lit %blob

352−65:10 name p

353−65:11 tight glyph =

354−65:12 tight glyph *

348+65:4 tight lit %$

349+65:7 name p

350+65:8 tight glyph =

351+65:9 tight name dime

35535265:13 tight glyph ]

35635366:3 NEWLINE

35735466:3 glyph [

358−66:4 tight lit %many

355+66:4 tight lit %blob

35935666:10 name p

36035766:11 tight glyph =

361−66:12 tight glyph (

362−66:13 tight name list

363−66:18 name coin

364−66:22 tight glyph )

365−66:23 tight glyph ]

366−68:1 DEDENT

367−68:1 NEWLINE

368−68:1 glyph +$

369−68:4 name pair

370−68:9 glyph |$

371−68:12 glyph [

372−68:13 tight tvar A

373−68:15 tvar B

374−68:16 tight glyph ]

375−68:18 glyph [

376−68:19 tight name p

377−68:20 tight glyph =

378−68:21 tight tvar A

379−68:23 name q

380−68:24 tight glyph =

381−68:25 tight tvar B

382−68:26 tight glyph ]

383−70:1 NEWLINE

384−70:1 glyph +$

385−70:4 name trel

386−70:9 glyph |$

387−70:12 glyph [

388−70:13 tight tvar A

389−70:15 tvar B

390−70:17 tvar C

391−70:18 tight glyph ]

392−70:20 glyph [

393−70:21 tight name p

394−70:22 tight glyph =

395−70:23 tight tvar A

396−70:25 name q

397−70:26 tight glyph =

398−70:27 tight tvar B

399−70:29 name r

400−70:30 tight glyph =

401−70:31 tight tvar C

402−70:32 tight glyph ]

403−72:1 NEWLINE

404−72:1 glyph +$

405−72:4 name qual

406−72:9 glyph |$

407−72:12 glyph [

408−72:13 tight tvar A

409−72:15 tvar B

410−72:17 tvar C

411−72:19 tvar D

412−72:20 tight glyph ]

413−72:22 glyph [

414−72:23 tight name p

415−72:24 tight glyph =

416−72:25 tight tvar A

417−72:27 name q

418−72:28 tight glyph =

419−72:29 tight tvar B

420−72:31 name r

421−72:32 tight glyph =

422−72:33 tight tvar C

423−72:35 name s

424−72:36 tight glyph =

425−72:37 tight tvar D

426−72:38 tight glyph ]

427−74:1 NEWLINE

428−74:1 glyph +$

429−74:4 name cord

430−74:9 aura @t

431−76:1 NEWLINE

432−76:1 glyph +$

433−76:4 name knot

434−76:9 aura @ta

435−78:1 NEWLINE

436−78:1 glyph +$

437−78:4 name tape

438−78:9 glyph (

439−78:10 tight name list

440−78:15 aura @tD

441−78:18 tight glyph )

442−80:1 NEWLINE

443−80:1 glyph +$

444−80:4 name path

445−80:9 glyph (

446−80:10 tight name list

447−80:15 name knot

448−80:19 tight glyph )

449−82:1 NEWLINE

450−82:1 glyph +$

451−82:4 name tank

452−83:3 INDENT

453−83:3 name cord

454−84:3 NEWLINE

455−84:3 glyph [

456−84:4 tight lit %leaf

457−84:10 name p

458−84:11 tight glyph =

459−84:12 tight name tape

460−84:16 tight glyph ]

358+66:12 tight glyph *

359+66:13 tight glyph ]

360+67:3 NEWLINE

361+67:3 glyph [

362+67:4 tight lit %many

363+67:10 name p

364+67:11 tight glyph =

365+67:12 tight glyph (

366+67:13 tight name list

367+67:18 name coin

368+67:22 tight glyph )

369+67:23 tight glyph ]

370+69:1 DEDENT

371+69:1 NEWLINE

372+69:1 glyph +$

373+69:4 name pair

374+69:9 glyph |$

375+69:12 glyph [

376+69:13 tight tvar A

377+69:15 tvar B

378+69:16 tight glyph ]

379+69:18 glyph [

380+69:19 tight name p

381+69:20 tight glyph =

382+69:21 tight tvar A

383+69:23 name q

384+69:24 tight glyph =

385+69:25 tight tvar B

386+69:26 tight glyph ]

387+71:1 NEWLINE

388+71:1 glyph +$

389+71:4 name trel

390+71:9 glyph |$

391+71:12 glyph [

392+71:13 tight tvar A

393+71:15 tvar B

394+71:17 tvar C

395+71:18 tight glyph ]

396+71:20 glyph [

397+71:21 tight name p

398+71:22 tight glyph =

399+71:23 tight tvar A

400+71:25 name q

401+71:26 tight glyph =

402+71:27 tight tvar B

403+71:29 name r

404+71:30 tight glyph =

405+71:31 tight tvar C

406+71:32 tight glyph ]

407+73:1 NEWLINE

408+73:1 glyph +$

409+73:4 name qual

410+73:9 glyph |$

411+73:12 glyph [

412+73:13 tight tvar A

413+73:15 tvar B

414+73:17 tvar C

415+73:19 tvar D

416+73:20 tight glyph ]

417+73:22 glyph [

418+73:23 tight name p

419+73:24 tight glyph =

420+73:25 tight tvar A

421+73:27 name q

422+73:28 tight glyph =

423+73:29 tight tvar B

424+73:31 name r

425+73:32 tight glyph =

426+73:33 tight tvar C

427+73:35 name s

428+73:36 tight glyph =

429+73:37 tight tvar D

430+73:38 tight glyph ]

431+75:1 NEWLINE

432+75:1 glyph +$

433+75:4 name cord

434+75:9 aura @t

435+77:1 NEWLINE

436+77:1 glyph +$

437+77:4 name knot

438+77:9 aura @ta

439+79:1 NEWLINE

440+79:1 glyph +$

441+79:4 name tape

442+79:9 glyph (

443+79:10 tight name list

444+79:15 aura @tD

445+79:18 tight glyph )

446+81:1 NEWLINE

447+81:1 glyph +$

448+81:4 name path

449+81:9 glyph (

450+81:10 tight name list

451+81:15 name knot

452+81:19 tight glyph )

453+83:1 NEWLINE

454+83:1 glyph +$

455+83:4 name tank

456+84:3 INDENT

457+84:3 name cord

46145885:3 NEWLINE

46245985:3 glyph [

463−85:4 tight lit %palm

460+85:4 tight lit %leaf

46446185:10 name p

46546285:11 tight glyph =

466−85:12 tight glyph (

467−85:13 tight name qual

468−85:18 name tape

469−85:23 name tape

470−85:28 name tape

471−85:33 name tape

472−85:37 tight glyph )

473−85:39 name q

474−85:40 tight glyph =

475−85:41 tight glyph (

476−85:42 tight name list

477−85:47 name tank

478−85:51 tight glyph )

479−85:52 tight glyph ]

463+85:12 tight name tape

464+85:16 tight glyph ]

48046586:3 NEWLINE

48146686:3 glyph [

482−86:4 tight lit %rose

467+86:4 tight lit %palm

48346886:10 name p

48446986:11 tight glyph =

48547086:12 tight glyph (

486−86:13 tight name trel

471+86:13 tight name qual

48747286:18 name tape

48847386:23 name tape

48947486:28 name tape

490−86:32 tight glyph )

491−86:34 name q

492−86:35 tight glyph =

493−86:36 tight glyph (

494−86:37 tight name list

495−86:42 name tank

496−86:46 tight glyph )

497−86:47 tight glyph ]

498−88:1 DEDENT

499−88:1 NEWLINE

500−88:1 glyph +$

501−88:4 name nail

502−88:9 glyph [

503−88:10 tight name p

504−88:11 tight glyph =

505−88:12 tight name hair

506−88:17 name q

507−88:18 tight glyph =

508−88:19 tight name tape

509−88:23 tight glyph ]

510−90:1 NEWLINE

511−90:1 glyph +$

512−90:4 name edge

513−90:9 glyph [

514−90:10 tight name p

515−90:11 tight glyph =

516−90:12 tight name hair

517−90:17 name q

518−90:18 tight glyph =

519−90:19 tight glyph (

520−90:20 tight name unit

521−90:25 glyph [

522−90:26 tight name p

523−90:27 tight glyph =

524−90:28 tight glyph *

525−90:30 name q

526−90:31 tight glyph =

527−90:32 tight name nail

528−90:36 tight glyph ]

529−90:37 tight glyph )

530−90:38 tight glyph ]

531−92:1 NEWLINE

532−92:1 glyph +$

533−92:4 name rule

534−92:9 glyph $-(

535−92:12 tight name nail

536−92:17 name edge

537−92:21 tight glyph )

538−94:1 NEWLINE

539−94:1 glyph +$

540−94:4 name spot

541−94:9 glyph [

542−94:10 tight name p

543−94:11 tight glyph =

544−94:12 tight name path

545−94:17 name q

546−94:18 tight glyph =

547−94:19 tight name pint

548−94:23 tight glyph ]

549−96:1 NEWLINE

550−96:1 glyph +$

551−96:4 name toon

552−97:3 INDENT

553−97:3 glyph [

554−97:4 tight lit %0

555−97:7 name p

556−97:8 tight glyph =

557−97:9 tight glyph *

558−97:10 tight glyph ]

559−98:3 NEWLINE

475+86:33 name tape

476+86:37 tight glyph )

477+86:39 name q

478+86:40 tight glyph =

479+86:41 tight glyph (

480+86:42 tight name list

481+86:47 name tank

482+86:51 tight glyph )

483+86:52 tight glyph ]

484+87:3 NEWLINE

485+87:3 glyph [

486+87:4 tight lit %rose

487+87:10 name p

488+87:11 tight glyph =

489+87:12 tight glyph (

490+87:13 tight name trel

491+87:18 name tape

492+87:23 name tape

493+87:28 name tape

494+87:32 tight glyph )

495+87:34 name q

496+87:35 tight glyph =

497+87:36 tight glyph (

498+87:37 tight name list

499+87:42 name tank

500+87:46 tight glyph )

501+87:47 tight glyph ]

502+89:1 DEDENT

503+89:1 NEWLINE

504+89:1 glyph +$

505+89:4 name nail

506+89:9 glyph [

507+89:10 tight name p

508+89:11 tight glyph =

509+89:12 tight name hair

510+89:17 name q

511+89:18 tight glyph =

512+89:19 tight name tape

513+89:23 tight glyph ]

514+91:1 NEWLINE

515+91:1 glyph +$

516+91:4 name edge

517+91:9 glyph [

518+91:10 tight name p

519+91:11 tight glyph =

520+91:12 tight name hair

521+91:17 name q

522+91:18 tight glyph =

523+91:19 tight glyph (

524+91:20 tight name unit

525+91:25 glyph [

526+91:26 tight name p

527+91:27 tight glyph =

528+91:28 tight glyph *

529+91:30 name q

530+91:31 tight glyph =

531+91:32 tight name nail

532+91:36 tight glyph ]

533+91:37 tight glyph )

534+91:38 tight glyph ]

535+93:1 NEWLINE

536+93:1 glyph +$

537+93:4 name rule

538+93:9 glyph $-(

539+93:12 tight name nail

540+93:17 name edge

541+93:21 tight glyph )

542+95:1 NEWLINE

543+95:1 glyph +$

544+95:4 name spot

545+95:9 glyph [

546+95:10 tight name p

547+95:11 tight glyph =

548+95:12 tight name path

549+95:17 name q

550+95:18 tight glyph =

551+95:19 tight name pint

552+95:23 tight glyph ]

553+97:1 NEWLINE

554+97:1 glyph +$

555+97:4 name toon

556+98:3 INDENT

56055798:3 glyph [

561−98:4 tight lit %1

558+98:4 tight lit %0

56255998:7 name p

56356098:8 tight glyph =

56456198:9 tight glyph *

56556298:10 tight glyph ]

56656399:3 NEWLINE

56756499:3 glyph [

568−99:4 tight lit %2

565+99:4 tight lit %1

56956699:7 name p

57056799:8 tight glyph =

571−99:9 tight glyph (

572−99:10 tight name list

573−99:15 name tank

574−99:19 tight glyph )

575−99:20 tight glyph ]

576−101:1 DEDENT

577−101:1 NEWLINE

578−101:1 glyph +$

579−101:4 name like

580−101:9 glyph |$

581−101:12 glyph [

582−101:13 tight tvar A

583−101:14 tight glyph ]

584−101:16 glyph [

585−101:17 tight name p

586−101:18 tight glyph =

587−101:19 tight name hair

588−101:24 name q

589−101:25 tight glyph =

590−101:26 tight glyph (

591−101:27 tight name unit

592−101:32 glyph [

593−101:33 tight name p

594−101:34 tight glyph =

595−101:35 tight tvar A

596−101:37 name q

597−101:38 tight glyph =

598−101:39 tight name nail

599−101:43 tight glyph ]

600−101:44 tight glyph )

601−101:45 tight glyph ]

602−103:1 NEWLINE

603−103:1 glyph ++

604−103:4 name wonk

605−103:9 glyph |=

606−103:12 name veq

607−103:15 tight glyph =

608−103:16 tight glyph (

609−103:17 tight name like

610−103:22 tvar A

611−103:23 tight glyph )

612−104:3 INDENT

613−104:3 glyph ?-

614−104:6 wing q.veq

615−105:5 INDENT

616−105:5 lit ~

617−105:7 glyph !!

618−106:5 NEWLINE

619−106:5 glyph [

620−106:6 tight lit ~

621−106:8 name product

622−106:15 tight glyph ]

623−106:17 wing p.product

624−108:1 DEDENT

625−108:1 DEDENT

626−108:1 NEWLINE

627−108:1 glyph +$

628−108:4 name lone

629−108:9 glyph |$

630−108:12 glyph [

631−108:13 tight tvar A

632−108:14 tight glyph ]

633−108:16 glyph [

634−108:17 tight name p

635−108:18 tight glyph =

636−108:19 tight tvar A

637−108:20 tight glyph ]

638−110:1 NEWLINE

639−110:1 glyph +$

640−110:4 name lest

641−110:9 glyph |$

642−110:12 glyph [

643−110:13 tight tvar A

644−110:14 tight glyph ]

645−110:16 glyph [

646−110:17 tight name i

647−110:18 tight glyph =

648−110:19 tight tvar A

649−110:21 name t

650−110:22 tight glyph =

651−110:23 tight glyph (

652−110:24 tight name list

653−110:29 tvar A

654−110:30 tight glyph )

655−110:31 tight glyph ]

568+99:9 tight glyph *

569+99:10 tight glyph ]

570+100:3 NEWLINE

571+100:3 glyph [

572+100:4 tight lit %2

573+100:7 name p

574+100:8 tight glyph =

575+100:9 tight glyph (

576+100:10 tight name list

577+100:15 name tank

578+100:19 tight glyph )

579+100:20 tight glyph ]

580+102:1 DEDENT

581+102:1 NEWLINE

582+102:1 glyph +$

583+102:4 name like

584+102:9 glyph |$

585+102:12 glyph [

586+102:13 tight tvar A

587+102:14 tight glyph ]

588+102:16 glyph [

589+102:17 tight name p

590+102:18 tight glyph =

591+102:19 tight name hair

592+102:24 name q

593+102:25 tight glyph =

594+102:26 tight glyph (

595+102:27 tight name unit

596+102:32 glyph [

597+102:33 tight name p

598+102:34 tight glyph =

599+102:35 tight tvar A

600+102:37 name q

601+102:38 tight glyph =

602+102:39 tight name nail

603+102:43 tight glyph ]

604+102:44 tight glyph )

605+102:45 tight glyph ]

606+104:1 NEWLINE

607+104:1 glyph ++

608+104:4 name like

609+104:9 glyph |=

610+104:12 glyph [

611+104:13 tight name f

612+104:14 tight glyph =

613+104:15 tight glyph $-(

614+104:18 tight tvar A

615+104:20 tvar B

616+104:21 tight glyph )

617+104:23 name result

618+104:29 tight glyph =

619+104:30 tight glyph (

620+104:31 tight name like

621+104:36 tvar A

622+104:37 tight glyph )

623+104:38 tight glyph ]

624+105:3 INDENT

625+105:3 glyph ++

626+105:6 name mapped

627+106:5 INDENT

628+106:5 glyph ^-

629+106:8 glyph (

630+106:9 tight name unit

631+106:14 glyph [

632+106:15 tight name p

633+106:16 tight glyph =

634+106:17 tight tvar B

635+106:19 name q

636+106:20 tight glyph =

637+106:21 tight name nail

638+106:25 tight glyph ]

639+106:26 tight glyph )

640+107:7 INDENT

641+107:7 glyph ?-

642+107:10 wing q.result

643+108:9 INDENT

644+108:9 lit ~

645+108:11 lit ~

646+109:9 NEWLINE

647+109:9 glyph [

648+109:10 tight lit ~

649+109:12 name value

650+109:17 tight glyph ]

651+109:19 glyph `

652+109:20 tight glyph [

653+109:21 tight name p

654+109:22 tight glyph =

655+109:23 tight glyph (

656+109:24 tight name f

657+109:26 wing p.value

658+109:33 tight glyph )

659+109:35 name q

660+109:36 tight glyph =

661+109:37 tight wing q.value

662+109:44 tight glyph ]

663+110:3 DEDENT

664+110:3 DEDENT

665+110:3 DEDENT

666+110:3 NEWLINE

667+110:3 glyph ^-

668+110:6 glyph (

669+110:7 tight name like

670+110:12 tvar B

671+110:13 tight glyph )

672+110:15 glyph [

673+110:16 tight name p

674+110:17 tight glyph =

675+110:18 tight wing p.result

676+110:27 name q

677+110:28 tight glyph =

678+110:29 tight name mapped

679+110:35 tight glyph ]

680+112:1 DEDENT

656681112:1 NEWLINE

657−112:1 glyph +$

658−112:4 name pole

659−112:9 glyph |$

660−112:12 glyph [

661−112:13 tight tvar A

662−112:14 tight glyph ]

682+112:1 glyph ++

683+112:4 name wonk

684+112:9 glyph |=

685+112:12 name veq

686+112:15 tight glyph =

687+112:16 tight glyph (

688+112:17 tight name like

689+112:22 tvar A

690+112:23 tight glyph )

663691113:3 INDENT

664−113:3 lit ~

665−114:3 NEWLINE

666−114:3 glyph [

667−114:4 tight tvar A

668−114:6 glyph (

669−114:7 tight name pole

670−114:12 tvar A

671−114:13 tight glyph )

672−114:14 tight glyph ]

673−116:1 DEDENT

674−116:1 NEWLINE

675−116:1 glyph +$

676−116:4 name quip

677−116:9 glyph |$

678−116:12 glyph [

679−116:13 tight tvar A

680−116:15 tvar B

681−116:16 tight glyph ]

682−116:18 glyph [

683−116:19 tight glyph (

684−116:20 tight name list

685−116:25 tvar A

686−116:26 tight glyph )

687−116:28 tvar B

688−116:29 tight glyph ]

689−118:1 NEWLINE

690−118:1 glyph +$

691−118:4 name tree

692−118:9 glyph |$

693−118:12 glyph [

694−118:13 tight tvar A

695−118:14 tight glyph ]

696−119:3 INDENT

697−119:3 lit ~

698−120:3 NEWLINE

699−120:3 glyph [

700−120:4 tight name n

701−120:5 tight glyph =

702−120:6 tight tvar A

703−120:8 name l

704−120:9 tight glyph =

705−120:10 tight glyph (

706−120:11 tight name tree

707−120:16 tvar A

708−120:17 tight glyph )

709−120:19 name r

710−120:20 tight glyph =

711−120:21 tight glyph (

712−120:22 tight name tree

713−120:27 tvar A

714−120:28 tight glyph )

715−120:29 tight glyph ]

716−122:1 DEDENT

717−122:1 NEWLINE

718−122:1 glyph +$

719−122:4 name each

720−122:9 glyph |$

721−122:12 glyph [

722−122:13 tight tvar A

723−122:15 tvar B

724−122:16 tight glyph ]

725−123:3 INDENT

692+113:3 glyph ?-

693+113:6 wing q.veq

694+114:5 INDENT

695+114:5 lit ~

696+114:7 glyph !!

697+115:5 NEWLINE

698+115:5 glyph [

699+115:6 tight lit ~

700+115:8 name product

701+115:15 tight glyph ]

702+115:17 wing p.product

703+117:1 DEDENT

704+117:1 DEDENT

705+117:1 NEWLINE

706+117:1 glyph +$

707+117:4 name lone

708+117:9 glyph |$

709+117:12 glyph [

710+117:13 tight tvar A

711+117:14 tight glyph ]

712+117:16 glyph [

713+117:17 tight name p

714+117:18 tight glyph =

715+117:19 tight tvar A

716+117:20 tight glyph ]

717+119:1 NEWLINE

718+119:1 glyph +$

719+119:4 name lest

720+119:9 glyph |$

721+119:12 glyph [

722+119:13 tight tvar A

723+119:14 tight glyph ]

724+119:16 glyph [

725+119:17 tight name i

726+119:18 tight glyph =

727+119:19 tight tvar A

728+119:21 name t

729+119:22 tight glyph =

730+119:23 tight glyph (

731+119:24 tight name list

732+119:29 tvar A

733+119:30 tight glyph )

734+119:31 tight glyph ]

735+121:1 NEWLINE

736+121:1 glyph +$

737+121:4 name pole

738+121:9 glyph |$

739+121:12 glyph [

740+121:13 tight tvar A

741+121:14 tight glyph ]

742+122:3 INDENT

743+122:3 lit ~

744+123:3 NEWLINE

726745123:3 glyph [

727−123:4 tight lit %|

728−123:7 name p

729−123:8 tight glyph =

730−123:9 tight tvar B

731−123:10 tight glyph ]

732−124:3 NEWLINE

733−124:3 glyph [

734−124:4 tight lit %&

735−124:7 name p

736−124:8 tight glyph =

737−124:9 tight tvar A

738−124:10 tight glyph ]

739−126:1 DEDENT

740−126:1 NEWLINE

741−126:1 glyph +$

742−126:4 name bloq

743−126:9 aura @

744−128:1 NEWLINE

745−128:1 glyph ++

746−128:4 name some

747−128:9 glyph |=

748−128:12 name item

749−128:16 tight glyph =

750−128:17 tight tvar A

751−128:19 glyph `

752−128:20 tight name item

753−130:1 NEWLINE

754−130:1 glyph ++

755−130:4 name lure

756−130:9 glyph |=

757−130:12 name item

758−130:16 tight glyph =

759−130:17 tight tvar A

760−131:3 INDENT

761−131:3 glyph ^-

762−131:6 glyph (

763−131:7 tight name list

764−131:12 tvar A

765−131:13 tight glyph )

766−131:15 glyph [

767−131:16 tight name item

768−131:21 lit ~

769−131:22 tight glyph ]

770−133:1 DEDENT

771−133:1 NEWLINE

772−133:1 glyph ++

773−133:4 name snoc

774−133:9 glyph |=

775−133:12 name args

776−133:16 tight glyph =

777−133:17 tight glyph [

778−133:18 tight glyph (

779−133:19 tight name list

780−133:24 tvar A

781−133:25 tight glyph )

782−133:27 tvar A

783−133:28 tight glyph ]

784−134:3 INDENT

785−134:3 glyph ?-

786−134:6 name args

787−135:5 INDENT

788−135:5 glyph [

789−135:6 tight name xs

790−135:9 name item

791−135:13 tight glyph ]

792−135:15 glyph (

793−135:16 tight name weld

794−135:21 name xs

795−135:24 glyph [

796−135:25 tight name item

797−135:30 lit ~

798−135:31 tight glyph ]

799−135:32 tight glyph )

800−137:1 DEDENT

801−137:1 DEDENT

746+123:4 tight tvar A

747+123:6 glyph (

748+123:7 tight name pole

749+123:12 tvar A

750+123:13 tight glyph )

751+123:14 tight glyph ]

752+125:1 DEDENT

753+125:1 NEWLINE

754+125:1 glyph +$

755+125:4 name quip

756+125:9 glyph |$

757+125:12 glyph [

758+125:13 tight tvar A

759+125:15 tvar B

760+125:16 tight glyph ]

761+125:18 glyph [

762+125:19 tight glyph (

763+125:20 tight name list

764+125:25 tvar A

765+125:26 tight glyph )

766+125:28 tvar B

767+125:29 tight glyph ]

768+127:1 NEWLINE

769+127:1 glyph +$

770+127:4 name tree

771+127:9 glyph |$

772+127:12 glyph [

773+127:13 tight tvar A

774+127:14 tight glyph ]

775+128:3 INDENT

776+128:3 lit ~

777+129:3 NEWLINE

778+129:3 glyph [

779+129:4 tight name n

780+129:5 tight glyph =

781+129:6 tight tvar A

782+129:8 name l

783+129:9 tight glyph =

784+129:10 tight glyph (

785+129:11 tight name tree

786+129:16 tvar A

787+129:17 tight glyph )

788+129:19 name r

789+129:20 tight glyph =

790+129:21 tight glyph (

791+129:22 tight name tree

792+129:27 tvar A

793+129:28 tight glyph )

794+129:29 tight glyph ]

795+131:1 DEDENT

796+131:1 NEWLINE

797+131:1 glyph +$

798+131:4 name each

799+131:9 glyph |$

800+131:12 glyph [

801+131:13 tight tvar A

802+131:15 tvar B

803+131:16 tight glyph ]

804+132:3 INDENT

805+132:3 glyph [

806+132:4 tight lit %|

807+132:7 name p

808+132:8 tight glyph =

809+132:9 tight tvar B

810+132:10 tight glyph ]

811+133:3 NEWLINE

812+133:3 glyph [

813+133:4 tight lit %&

814+133:7 name p

815+133:8 tight glyph =

816+133:9 tight tvar A

817+133:10 tight glyph ]

818+135:1 DEDENT

819+135:1 NEWLINE

820+135:1 glyph +$

821+135:4 name bloq

822+135:9 aura @

802823137:1 NEWLINE

803824137:1 glyph ++

804−137:4 name flop

825+137:4 name some

805826137:9 glyph |=

806−137:12 name xs

807−137:14 tight glyph =

808−137:15 tight glyph (

809−137:16 tight name list

810−137:21 tvar A

811−137:22 tight glyph )

812−138:3 INDENT

813−138:3 glyph ++

814−138:6 name reverse-into

815−138:19 glyph |=

816−138:22 name args

817−138:26 tight glyph =

818−138:27 tight glyph [

819−138:28 tight glyph (

820−138:29 tight name list

821−138:34 tvar A

822−138:35 tight glyph )

823−138:37 glyph (

824−138:38 tight name list

825−138:43 tvar A

826−138:44 tight glyph )

827−138:45 tight glyph ]

828−139:5 INDENT

829−139:5 glyph ?-

830−139:8 name args

831−140:7 INDENT

832−140:7 glyph [

833−140:8 tight name rest

834−140:13 name acc

835−140:16 tight glyph ]

836−141:9 INDENT

837−141:9 glyph ?-

838−141:12 name rest

839−142:11 INDENT

840−142:11 lit ~

841−142:13 name acc

842−143:11 NEWLINE

843−143:11 glyph [

844−143:12 tight name item

845−143:17 name more

846−143:21 tight glyph ]

847−143:23 glyph (

848−143:24 tight name reverse-into

849−143:37 name more

850−143:42 glyph [

851−143:43 tight name item

852−143:48 name acc

853−143:51 tight glyph ]

854−143:52 tight glyph )

855−144:3 DEDENT

856−144:3 DEDENT

857−144:3 DEDENT

858−144:3 DEDENT

859−144:3 NEWLINE

860−144:3 glyph (

861−144:4 tight name reverse-into

862−144:17 name xs

863−144:20 lit ~

864−144:21 tight glyph )

827+137:12 name item

828+137:16 tight glyph =

829+137:17 tight tvar A

830+137:19 glyph `

831+137:20 tight name item

832+139:1 NEWLINE

833+139:1 glyph ++

834+139:4 name lure

835+139:9 glyph |=

836+139:12 name item

837+139:16 tight glyph =

838+139:17 tight tvar A

839+140:3 INDENT

840+140:3 glyph ^-

841+140:6 glyph (

842+140:7 tight name list

843+140:12 tvar A

844+140:13 tight glyph )

845+140:15 glyph [

846+140:16 tight name item

847+140:21 lit ~

848+140:22 tight glyph ]

849+142:1 DEDENT

850+142:1 NEWLINE

851+142:1 glyph ++

852+142:4 name snoc

853+142:9 glyph |=

854+142:12 name args

855+142:16 tight glyph =

856+142:17 tight glyph [

857+142:18 tight glyph (

858+142:19 tight name list

859+142:24 tvar A

860+142:25 tight glyph )

861+142:27 tvar A

862+142:28 tight glyph ]

863+143:3 INDENT

864+143:3 glyph ?-

865+143:6 name args

866+144:5 INDENT

867+144:5 glyph [

868+144:6 tight name xs

869+144:9 name item

870+144:13 tight glyph ]

871+144:15 glyph (

872+144:16 tight name weld

873+144:21 name xs

874+144:24 glyph [

875+144:25 tight name item

876+144:30 lit ~

877+144:31 tight glyph ]

878+144:32 tight glyph )

879+146:1 DEDENT

865880146:1 DEDENT

866881146:1 NEWLINE

867882146:1 glyph ++

868−146:4 name drop

883+146:4 name flop

869884146:9 glyph |=

870−146:12 name maybe

871−146:17 tight glyph =

872−146:18 tight glyph (

873−146:19 tight name unit

874−146:24 tvar A

875−146:25 tight glyph )

885+146:12 name xs

886+146:14 tight glyph =

887+146:15 tight glyph (

888+146:16 tight name list

889+146:21 tvar A

890+146:22 tight glyph )

876891147:3 INDENT

877−147:3 glyph ^-

878−147:6 glyph (

879−147:7 tight name list

880−147:12 tvar A

881−147:13 tight glyph )

892+147:3 glyph ++

893+147:6 name reverse-into

894+147:19 glyph |=

895+147:22 name args

896+147:26 tight glyph =

897+147:27 tight glyph [

898+147:28 tight glyph (

899+147:29 tight name list

900+147:34 tvar A

901+147:35 tight glyph )

902+147:37 glyph (

903+147:38 tight name list

904+147:43 tvar A

905+147:44 tight glyph )

906+147:45 tight glyph ]

882907148:5 INDENT

883908148:5 glyph ?-

884−148:8 name maybe

909+148:8 name args

885910149:7 INDENT

886−149:7 lit ~

887−149:9 lit ~

888−150:7 NEWLINE

889−150:7 glyph [

890−150:8 tight lit ~

891−150:10 name value

892−150:15 tight glyph ]

893−150:17 glyph [

894−150:18 tight name value

895−150:24 lit ~

896−150:25 tight glyph ]

897−152:1 DEDENT

898−152:1 DEDENT

899−152:1 DEDENT

900−152:1 NEWLINE

901−152:1 glyph ++

902−152:4 name bind

903−152:9 glyph |=

904−152:12 name args

905−152:16 tight glyph =

906−152:17 tight glyph [

907−152:18 tight glyph (

908−152:19 tight name unit

909−152:24 tvar A

910−152:25 tight glyph )

911−152:27 glyph $-(

912−152:30 tight tvar A

913−152:32 tvar B

914−152:33 tight glyph )

915−152:34 tight glyph ]

916−153:3 INDENT

917−153:3 glyph ?-

918−153:6 name args

919−154:5 INDENT

920−154:5 glyph [

921−154:6 tight name maybe

922−154:12 name f

923−154:13 tight glyph ]

924−154:15 glyph ^-

925−154:18 glyph (

926−154:19 tight name unit

927−154:24 tvar B

928−154:25 tight glyph )

929−155:7 INDENT

930−155:7 glyph ?-

931−155:10 name maybe

932−156:9 INDENT

933−156:9 lit ~

934−156:11 lit ~

935−157:9 NEWLINE

936−157:9 glyph [

937−157:10 tight lit ~

938−157:12 name value

939−157:17 tight glyph ]

940−157:19 glyph `

941−157:20 tight glyph (

942−157:21 tight name f

943−157:23 name value

944−157:28 tight glyph )

945−159:1 DEDENT

946−159:1 DEDENT

947−159:1 DEDENT

948−159:1 DEDENT

949−159:1 NEWLINE

950−159:1 glyph ++

951−159:4 name biff

952−159:9 glyph |=

953−159:12 name args

954−159:16 tight glyph =

955−159:17 tight glyph [

956−159:18 tight glyph (

957−159:19 tight name unit

958−159:24 tvar A

959−159:25 tight glyph )

960−159:27 glyph $-(

961−159:30 tight tvar A

962−159:32 glyph (

963−159:33 tight name unit

964−159:38 tvar B

965−159:39 tight glyph )

966−159:40 tight glyph )

967−159:41 tight glyph ]

968−160:3 INDENT

969−160:3 glyph ?-

970−160:6 name args

971−161:5 INDENT

972−161:5 glyph [

973−161:6 tight name maybe

974−161:12 name f

975−161:13 tight glyph ]

976−161:15 glyph ^-

977−161:18 glyph (

978−161:19 tight name unit

979−161:24 tvar B

980−161:25 tight glyph )

981−162:7 INDENT

982−162:7 glyph ?-

983−162:10 name maybe

984−163:9 INDENT

985−163:9 lit ~

986−163:11 lit ~

987−164:9 NEWLINE

988−164:9 glyph [

989−164:10 tight lit ~

990−164:12 name value

991−164:17 tight glyph ]

992−164:19 glyph (

993−164:20 tight name f

994−164:22 name value

995−164:27 tight glyph )

996−166:1 DEDENT

997−166:1 DEDENT

998−166:1 DEDENT

999−166:1 DEDENT

1000−166:1 NEWLINE

1001−166:1 glyph ++

1002−166:4 name both

1003−166:9 glyph |=

1004−166:12 name args

1005−166:16 tight glyph =

1006−166:17 tight glyph [

1007−166:18 tight glyph (

1008−166:19 tight name unit

1009−166:24 tvar A

1010−166:25 tight glyph )

1011−166:27 glyph (

1012−166:28 tight name unit

1013−166:33 tvar B

1014−166:34 tight glyph )

1015−166:35 tight glyph ]

1016−167:3 INDENT

1017−167:3 glyph ?-

1018−167:6 name args

1019−168:5 INDENT

1020−168:5 glyph [

1021−168:6 tight name first

1022−168:12 name second

1023−168:18 tight glyph ]

1024−168:20 glyph ^-

1025−168:23 glyph (

1026−168:24 tight name unit

1027−168:29 glyph [

1028−168:30 tight tvar A

1029−168:32 tvar B

1030−168:33 tight glyph ]

1031−168:34 tight glyph )

1032−169:7 INDENT

1033−169:7 glyph ?-

1034−169:10 name first

1035−170:9 INDENT

1036−170:9 lit ~

1037−170:11 lit ~

1038−171:9 NEWLINE

1039−171:9 glyph [

1040−171:10 tight lit ~

1041−171:12 name a

1042−171:13 tight glyph ]

1043−172:11 INDENT

1044−172:11 glyph ?-

1045−172:14 name second

1046−173:13 INDENT

1047−173:13 lit ~

1048−173:15 lit ~

1049−174:13 NEWLINE

1050−174:13 glyph [

1051−174:14 tight lit ~

1052−174:16 name b

1053−174:17 tight glyph ]

1054−174:19 glyph `

1055−174:20 tight glyph [

1056−174:21 tight name a

1057−174:23 name b

1058−174:24 tight glyph ]

1059−176:1 DEDENT

1060−176:1 DEDENT

1061−176:1 DEDENT

1062−176:1 DEDENT

1063−176:1 DEDENT

1064−176:1 DEDENT

1065−176:1 NEWLINE

1066−176:1 glyph ++

1067−176:4 name clap

1068−176:9 glyph |=

1069−176:12 name args

1070−176:16 tight glyph =

1071−176:17 tight glyph [

1072−176:18 tight glyph (

911+149:7 glyph [

912+149:8 tight name rest

913+149:13 name acc

914+149:16 tight glyph ]

915+150:9 INDENT

916+150:9 glyph ?-

917+150:12 name rest

918+151:11 INDENT

919+151:11 lit ~

920+151:13 name acc

921+152:11 NEWLINE

922+152:11 glyph [

923+152:12 tight name item

924+152:17 name more

925+152:21 tight glyph ]

926+152:23 glyph (

927+152:24 tight name reverse-into

928+152:37 name more

929+152:42 glyph [

930+152:43 tight name item

931+152:48 name acc

932+152:51 tight glyph ]

933+152:52 tight glyph )

934+153:3 DEDENT

935+153:3 DEDENT

936+153:3 DEDENT

937+153:3 DEDENT

938+153:3 NEWLINE

939+153:3 glyph (

940+153:4 tight name reverse-into

941+153:17 name xs

942+153:20 lit ~

943+153:21 tight glyph )

944+155:1 DEDENT

945+155:1 NEWLINE

946+155:1 glyph ++

947+155:4 name drop

948+155:9 glyph |=

949+155:12 name maybe

950+155:17 tight glyph =

951+155:18 tight glyph (

952+155:19 tight name unit

953+155:24 tvar A

954+155:25 tight glyph )

955+156:3 INDENT

956+156:3 glyph ^-

957+156:6 glyph (

958+156:7 tight name list

959+156:12 tvar A

960+156:13 tight glyph )

961+157:5 INDENT

962+157:5 glyph ?-

963+157:8 name maybe

964+158:7 INDENT

965+158:7 lit ~

966+158:9 lit ~

967+159:7 NEWLINE

968+159:7 glyph [

969+159:8 tight lit ~

970+159:10 name value

971+159:15 tight glyph ]

972+159:17 glyph [

973+159:18 tight name value

974+159:24 lit ~

975+159:25 tight glyph ]

976+161:1 DEDENT

977+161:1 DEDENT

978+161:1 DEDENT

979+161:1 NEWLINE

980+161:1 glyph ++

981+161:4 name bond

982+161:9 glyph |=

983+161:12 name fallback

984+161:20 tight glyph =

985+161:21 tight glyph $-(

986+161:24 tight lit ~

987+161:26 tvar A

988+161:27 tight glyph )

989+162:3 INDENT

990+162:3 glyph |=

991+162:6 name maybe

992+162:11 tight glyph =

993+162:12 tight glyph (

994+162:13 tight name unit

995+162:18 tvar A

996+162:19 tight glyph )

997+163:5 INDENT

998+163:5 glyph ?-

999+163:8 name maybe

1000+164:7 INDENT

1001+164:7 lit ~

1002+164:9 glyph (

1003+164:10 tight name fallback

1004+164:19 lit ~

1005+164:20 tight glyph )

1006+165:7 NEWLINE

1007+165:7 glyph [

1008+165:8 tight lit ~

1009+165:10 name value

1010+165:15 tight glyph ]

1011+165:17 name value

1012+167:1 DEDENT

1013+167:1 DEDENT

1014+167:1 DEDENT

1015+167:1 NEWLINE

1016+167:1 glyph ++

1017+167:4 name bind

1018+167:9 glyph |=

1019+167:12 name args

1020+167:16 tight glyph =

1021+167:17 tight glyph [

1022+167:18 tight glyph (

1023+167:19 tight name unit

1024+167:24 tvar A

1025+167:25 tight glyph )

1026+167:27 glyph $-(

1027+167:30 tight tvar A

1028+167:32 tvar B

1029+167:33 tight glyph )

1030+167:34 tight glyph ]

1031+168:3 INDENT

1032+168:3 glyph ?-

1033+168:6 name args

1034+169:5 INDENT

1035+169:5 glyph [

1036+169:6 tight name maybe

1037+169:12 name f

1038+169:13 tight glyph ]

1039+169:15 glyph ^-

1040+169:18 glyph (

1041+169:19 tight name unit

1042+169:24 tvar B

1043+169:25 tight glyph )

1044+170:7 INDENT

1045+170:7 glyph ?-

1046+170:10 name maybe

1047+171:9 INDENT

1048+171:9 lit ~

1049+171:11 lit ~

1050+172:9 NEWLINE

1051+172:9 glyph [

1052+172:10 tight lit ~

1053+172:12 name value

1054+172:17 tight glyph ]

1055+172:19 glyph `

1056+172:20 tight glyph (

1057+172:21 tight name f

1058+172:23 name value

1059+172:28 tight glyph )

1060+174:1 DEDENT

1061+174:1 DEDENT

1062+174:1 DEDENT

1063+174:1 DEDENT

1064+174:1 NEWLINE

1065+174:1 glyph ++

1066+174:4 name biff

1067+174:9 glyph |=

1068+174:12 name args

1069+174:16 tight glyph =

1070+174:17 tight glyph [

1071+174:18 tight glyph (

1072+174:19 tight name unit

1073+174:24 tvar A

1074+174:25 tight glyph )

1075+174:27 glyph $-(

1076+174:30 tight tvar A

1077+174:32 glyph (

1078+174:33 tight name unit

1079+174:38 tvar B

1080+174:39 tight glyph )

1081+174:40 tight glyph )

1082+174:41 tight glyph ]

1083+175:3 INDENT

1084+175:3 glyph ?-

1085+175:6 name args

1086+176:5 INDENT

1087+176:5 glyph [

1088+176:6 tight name maybe

1089+176:12 name f

1090+176:13 tight glyph ]

1091+176:15 glyph ^-

1092+176:18 glyph (

10731093176:19 tight name unit

1074−176:24 tvar A

1094+176:24 tvar B

10751095176:25 tight glyph )

1076−176:27 glyph (

1077−176:28 tight name unit

1078−176:33 tvar A

1079−176:34 tight glyph )

1080−176:36 glyph $-(

1081−176:39 tight glyph [

1082−176:40 tight tvar A

1083−176:42 tvar A

1084−176:43 tight glyph ]

1085−176:45 tvar A

1086−176:46 tight glyph )

1087−176:47 tight glyph ]

1088−177:3 INDENT

1089−177:3 glyph ?-

1090−177:6 name args

1091−178:5 INDENT

1092−178:5 glyph [

1093−178:6 tight name first

1094−178:12 name second

1095−178:19 name combine

1096−178:26 tight glyph ]

1097−178:28 glyph ^-

1098−178:31 glyph (

1099−178:32 tight name unit

1100−178:37 tvar A

1101−178:38 tight glyph )

1102−179:7 INDENT

1103−179:7 glyph ?-

1104−179:10 name first

1105−180:9 INDENT

1106−180:9 lit ~

1107−180:11 name second

1108−181:9 NEWLINE

1109−181:9 glyph [

1110−181:10 tight lit ~

1111−181:12 name a

1112−181:13 tight glyph ]

1113−182:11 INDENT

1114−182:11 glyph ?-

1115−182:14 name second

1116−183:13 INDENT

1117−183:13 lit ~

1118−183:15 name first

1119−184:13 NEWLINE

1120−184:13 glyph [

1121−184:14 tight lit ~

1122−184:16 name b

1123−184:17 tight glyph ]

1124−184:19 glyph `

1125−184:20 tight glyph (

1126−184:21 tight name combine

1127−184:29 name a

1128−184:31 name b

1129−184:32 tight glyph )

1130−186:1 DEDENT

1131−186:1 DEDENT

1132−186:1 DEDENT

1133−186:1 DEDENT

1134−186:1 DEDENT

1135−186:1 DEDENT

1136−186:1 NEWLINE

1137−186:1 glyph ++

1138−186:4 name clef

1139−186:9 glyph |=

1140−186:12 name args

1141−186:16 tight glyph =

1142−186:17 tight glyph [

1143−186:18 tight glyph (

1144−186:19 tight name unit

1145−186:24 tvar A

1146−186:25 tight glyph )

1147−186:27 glyph (

1148−186:28 tight name unit

1149−186:33 tvar B

1150−186:34 tight glyph )

1151−186:36 glyph $-(

1152−186:39 tight glyph [

1153−186:40 tight tvar A

1154−186:42 tvar B

1155−186:43 tight glyph ]

1156−186:45 glyph (

1157−186:46 tight name unit

1158−186:51 tvar C

1159−186:52 tight glyph )

1160−186:53 tight glyph )

1161−186:54 tight glyph ]

1162−187:3 INDENT

1163−187:3 glyph ?-

1164−187:6 name args

1165−188:5 INDENT

1166−188:5 glyph [

1167−188:6 tight name first

1168−188:12 name second

1169−188:19 name combine

1170−188:26 tight glyph ]

1171−188:28 glyph ^-

1172−188:31 glyph (

1173−188:32 tight name unit

1174−188:37 tvar C

1175−188:38 tight glyph )

1176−189:7 INDENT

1177−189:7 glyph ?-

1178−189:10 name first

1179−190:9 INDENT

1180−190:9 lit ~

1181−190:11 lit ~

1182−191:9 NEWLINE

1183−191:9 glyph [

1184−191:10 tight lit ~

1185−191:12 name a

1186−191:13 tight glyph ]

1187−192:11 INDENT

1188−192:11 glyph ?-

1189−192:14 name second

1190−193:13 INDENT

1191−193:13 lit ~

1192−193:15 lit ~

1193−194:13 NEWLINE

1194−194:13 glyph [

1195−194:14 tight lit ~

1196−194:16 name b

1197−194:17 tight glyph ]

1198−194:19 glyph (

1199−194:20 tight name combine

1200−194:28 name a

1201−194:30 name b

1202−194:31 tight glyph )

1203−196:1 DEDENT

1204−196:1 DEDENT

1205−196:1 DEDENT

1206−196:1 DEDENT

1207−196:1 DEDENT

1208−196:1 DEDENT

1209−196:1 NEWLINE

1210−196:1 glyph ++

1211−196:4 name skim

1212−196:9 glyph |=

1213−196:12 name args

1214−196:16 tight glyph =

1215−196:17 tight glyph [

1216−196:18 tight glyph (

1217−196:19 tight name list

1218−196:24 tvar A

1219−196:25 tight glyph )

1220−196:27 glyph $-(

1221−196:30 tight tvar A

1222−196:32 glyph ?

1223−196:33 tight glyph )

1224−196:34 tight glyph ]

1225−197:3 INDENT

1226−197:3 glyph ?-

1227−197:6 name args

1228−198:5 INDENT

1229−198:5 glyph [

1230−198:6 tight name xs

1231−198:9 name predicate

1232−198:18 tight glyph ]

1233−198:20 glyph ^-

1234−198:23 glyph (

1235−198:24 tight name list

1236−198:29 tvar A

1237−198:30 tight glyph )

1238−199:9 INDENT

1239−199:9 glyph ?-

1240−199:12 name xs

1241−200:11 INDENT

1242−200:11 lit ~

1243−200:13 lit ~

1244−201:11 NEWLINE

1245−201:11 glyph [

1246−201:12 tight name item

1247−201:17 name rest

1248−201:21 tight glyph ]

1249−202:13 INDENT

1250−202:13 glyph ?-

1251−202:16 glyph (

1252−202:17 tight name predicate

1253−202:27 name item

1254−202:31 tight glyph )

1255−203:15 INDENT

1256−203:15 lit %.y

1257−203:19 glyph [

1258−203:20 tight name item

1259−203:25 glyph (

1260−203:26 tight name skim

1261−203:31 name rest

1262−203:36 name predicate

1263−203:45 tight glyph )

1264−203:46 tight glyph ]

1265−204:15 NEWLINE

1266−204:15 lit %.n

1267−204:19 glyph (

1268−204:20 tight name skim

1269−204:25 name rest

1270−204:30 name predicate

1271−204:39 tight glyph )

1272−206:1 DEDENT

1273−206:1 DEDENT

1274−206:1 DEDENT

1275−206:1 DEDENT

1276−206:1 DEDENT

1277−206:1 DEDENT

1278−206:1 NEWLINE

1279−206:1 glyph ++

1280−206:4 name skip

1281−206:9 glyph |=

1282−206:12 name args

1283−206:16 tight glyph =

1284−206:17 tight glyph [

1285−206:18 tight glyph (

1286−206:19 tight name list

1287−206:24 tvar A

1288−206:25 tight glyph )

1289−206:27 glyph $-(

1290−206:30 tight tvar A

1291−206:32 glyph ?

1292−206:33 tight glyph )

1293−206:34 tight glyph ]

1294−207:3 INDENT

1295−207:3 glyph ?-

1296−207:6 name args

1297−208:5 INDENT

1298−208:5 glyph [

1299−208:6 tight name xs

1300−208:9 name predicate

1301−208:18 tight glyph ]

1302−208:20 glyph ^-

1303−208:23 glyph (

1304−208:24 tight name list

1305−208:29 tvar A

1306−208:30 tight glyph )

1307−209:9 INDENT

1308−209:9 glyph ?-

1309−209:12 name xs

1310−210:11 INDENT

1311−210:11 lit ~

1312−210:13 lit ~

1313−211:11 NEWLINE

1314−211:11 glyph [

1315−211:12 tight name item

1316−211:17 name rest

1317−211:21 tight glyph ]

1318−212:13 INDENT

1319−212:13 glyph ?-

1320−212:16 glyph (

1321−212:17 tight name predicate

1322−212:27 name item

1323−212:31 tight glyph )

1324−213:15 INDENT

1325−213:15 lit %.y

1326−213:19 glyph (

1327−213:20 tight name skip

1328−213:25 name rest

1329−213:30 name predicate

1330−213:39 tight glyph )

1331−214:15 NEWLINE

1332−214:15 lit %.n

1333−214:19 glyph [

1334−214:20 tight name item

1335−214:25 glyph (

1336−214:26 tight name skip

1337−214:31 name rest

1338−214:36 name predicate

1339−214:45 tight glyph )

1340−214:46 tight glyph ]

1341−216:1 DEDENT

1342−216:1 DEDENT

1343−216:1 DEDENT

1344−216:1 DEDENT

1345−216:1 DEDENT

1346−216:1 DEDENT

1347−216:1 NEWLINE

1348−216:1 glyph ++

1349−216:4 name levy

1350−216:9 glyph |=

1351−216:12 name args

1352−216:16 tight glyph =

1353−216:17 tight glyph [

1354−216:18 tight glyph (

1355−216:19 tight name list

1356−216:24 tvar A

1357−216:25 tight glyph )

1358−216:27 glyph $-(

1359−216:30 tight tvar A

1360−216:32 glyph ?

1361−216:33 tight glyph )

1362−216:34 tight glyph ]

1363−217:3 INDENT

1364−217:3 glyph ?-

1365−217:6 name args

1366−218:5 INDENT

1367−218:5 glyph [

1368−218:6 tight name xs

1369−218:9 name predicate

1370−218:18 tight glyph ]

1371−219:7 INDENT

1372−219:7 glyph ?-

1373−219:10 name xs

1374−220:9 INDENT

1375−220:9 lit ~

1376−220:11 lit %.y

1377−221:9 NEWLINE

1378−221:9 glyph [

1379−221:10 tight name item

1380−221:15 name rest

1381−221:19 tight glyph ]

1382−222:11 INDENT

1383−222:11 glyph ?-

1384−222:14 glyph (

1385−222:15 tight name predicate

1386−222:25 name item

1387−222:29 tight glyph )

1388−223:13 INDENT

1389−223:13 lit %.y

1390−223:17 glyph (

1391−223:18 tight name levy

1392−223:23 name rest

1393−223:28 name predicate

1394−223:37 tight glyph )

1395−224:13 NEWLINE

1396−224:13 lit %.n

1397−224:17 lit %.n

1398−226:1 DEDENT

1399−226:1 DEDENT

1400−226:1 DEDENT

1401−226:1 DEDENT

1402−226:1 DEDENT

1403−226:1 DEDENT

1404−226:1 NEWLINE

1405−226:1 glyph ++

1406−226:4 name lien

1407−226:9 glyph |=

1408−226:12 name args

1409−226:16 tight glyph =

1410−226:17 tight glyph [

1411−226:18 tight glyph (

1412−226:19 tight name list

1413−226:24 tvar A

1414−226:25 tight glyph )

1415−226:27 glyph $-(

1416−226:30 tight tvar A

1417−226:32 glyph ?

1418−226:33 tight glyph )

1419−226:34 tight glyph ]

1420−227:3 INDENT

1421−227:3 glyph ?-

1422−227:6 name args

1423−228:5 INDENT

1424−228:5 glyph [

1425−228:6 tight name xs

1426−228:9 name predicate

1427−228:18 tight glyph ]

1428−229:7 INDENT

1429−229:7 glyph ?-

1430−229:10 name xs

1431−230:9 INDENT

1432−230:9 lit ~

1433−230:11 lit %.n

1434−231:9 NEWLINE

1435−231:9 glyph [

1436−231:10 tight name item

1437−231:15 name rest

1438−231:19 tight glyph ]

1439−232:11 INDENT

1440−232:11 glyph ?-

1441−232:14 glyph (

1442−232:15 tight name predicate

1443−232:25 name item

1444−232:29 tight glyph )

1445−233:13 INDENT

1446−233:13 lit %.y

1447−233:17 lit %.y

1448−234:13 NEWLINE

1449−234:13 lit %.n

1450−234:17 glyph (

1451−234:18 tight name lien

1452−234:23 name rest

1453−234:28 name predicate

1454−234:37 tight glyph )

1455−236:1 DEDENT

1456−236:1 DEDENT

1457−236:1 DEDENT

1458−236:1 DEDENT

1459−236:1 DEDENT

1460−236:1 DEDENT

1461−236:1 NEWLINE

1462−236:1 glyph ++

1463−236:4 name roll

1464−236:9 glyph |=

1465−236:12 name args

1466−236:16 tight glyph =

1467−236:17 tight glyph [

1468−236:18 tight glyph (

1469−236:19 tight name list

1470−236:24 tvar A

1471−236:25 tight glyph )

1472−236:27 tvar B

1473−236:29 glyph $-(

1474−236:32 tight glyph [

1475−236:33 tight tvar A

1476−236:35 tvar B

1477−236:36 tight glyph ]

1478−236:38 tvar B

1479−236:39 tight glyph )

1480−236:40 tight glyph ]

1481−237:3 INDENT

1482−237:3 glyph ?-

1483−237:6 name args

1484−238:5 INDENT

1485−238:5 glyph [

1486−238:6 tight name xs

1487−238:9 name start

1488−238:15 name combine

1489−238:22 tight glyph ]

1490−239:7 INDENT

1491−239:7 glyph ?-

1492−239:10 name xs

1493−240:9 INDENT

1494−240:9 lit ~

1495−240:11 name start

1496−241:9 NEWLINE

1497−241:9 glyph [

1498−241:10 tight name item

1499−241:15 name rest

1500−241:19 tight glyph ]

1501−241:21 glyph (

1502−241:22 tight name roll

1503−241:27 name rest

1504−241:32 glyph (

1505−241:33 tight name combine

1506−241:41 name item

1507−241:46 name start

1508−241:51 tight glyph )

1509−241:53 name combine

1510−241:60 tight glyph )

1511−243:1 DEDENT

1512−243:1 DEDENT

1513−243:1 DEDENT

1514−243:1 DEDENT

1515−243:1 NEWLINE

1516−243:1 glyph ++

1517−243:4 name reel

1518−243:9 glyph |=

1519−243:12 name args

1520−243:16 tight glyph =

1521−243:17 tight glyph [

1522−243:18 tight glyph (

1523−243:19 tight name list

1524−243:24 tvar A

1525−243:25 tight glyph )

1526−243:27 tvar B

1527−243:29 glyph $-(

1528−243:32 tight glyph [

1529−243:33 tight tvar A

1530−243:35 tvar B

1531−243:36 tight glyph ]

1532−243:38 tvar B

1533−243:39 tight glyph )

1534−243:40 tight glyph ]

1535−244:3 INDENT

1536−244:3 glyph ?-

1537−244:6 name args

1538−245:5 INDENT

1539−245:5 glyph [

1540−245:6 tight name xs

1541−245:9 name start

1542−245:15 name combine

1543−245:22 tight glyph ]

1544−246:7 INDENT

1545−246:7 glyph ?-

1546−246:10 name xs

1547−247:9 INDENT

1548−247:9 lit ~

1549−247:11 name start

1550−248:9 NEWLINE

1551−248:9 glyph [

1552−248:10 tight name item

1553−248:15 name rest

1554−248:19 tight glyph ]

1555−248:21 glyph (

1556−248:22 tight name combine

1557−248:30 name item

1558−248:35 glyph (

1559−248:36 tight name reel

1560−248:41 name rest

1561−248:46 name start

1562−248:52 name combine

1563−248:59 tight glyph )

1564−248:60 tight glyph )

1565−250:1 DEDENT

1566−250:1 DEDENT

1567−250:1 DEDENT

1568−250:1 DEDENT

1569−250:1 NEWLINE

1570−250:1 glyph ++

1571−250:4 name flit

1572−250:9 glyph |=

1573−250:12 name predicate

1574−250:21 tight glyph =

1575−250:22 tight glyph $-(

1576−250:25 tight tvar A

1577−250:27 glyph ?

1578−250:28 tight glyph )

1579−251:3 INDENT

1580−251:3 glyph |=

1581−251:6 name value

1582−251:11 tight glyph =

1583−251:12 tight tvar A

1584−252:5 INDENT

1585−252:5 glyph ^-

1586−252:8 glyph (

1587−252:9 tight name unit

1588−252:14 tvar A

1589−252:15 tight glyph )

1590−253:7 INDENT

1591−253:7 glyph ?-

1592−253:10 glyph (

1593−253:11 tight name predicate

1594−253:21 name value

1595−253:26 tight glyph )

1596−254:9 INDENT

1597−254:9 lit %.y

1598−254:13 glyph `

1599−254:14 tight name value

1600−255:9 NEWLINE

1601−255:9 lit %.n

1602−255:13 lit ~

1603−257:1 DEDENT

1604−257:1 DEDENT

1605−257:1 DEDENT

1606−257:1 DEDENT

1607−257:1 NEWLINE

1608−257:1 glyph ++

1609−257:4 name murn

1610−257:9 glyph |=

1611−257:12 name args

1612−257:16 tight glyph =

1613−257:17 tight glyph [

1614−257:18 tight glyph (

1615−257:19 tight name list

1616−257:24 tvar A

1617−257:25 tight glyph )

1618−257:27 glyph $-(

1619−257:30 tight tvar A

1620−257:32 glyph (

1621−257:33 tight name unit

1622−257:38 tvar B

1623−257:39 tight glyph )

1624−257:40 tight glyph )

1625−257:41 tight glyph ]

1626−258:3 INDENT

1627−258:3 glyph ?-

1628−258:6 name args

1629−259:5 INDENT

1630−259:5 glyph [

1631−259:6 tight name xs

1632−259:9 name f

1633−259:10 tight glyph ]

1634−259:12 glyph ^-

1635−259:15 glyph (

1636−259:16 tight name list

1637−259:21 tvar B

1638−259:22 tight glyph )

1639−260:9 INDENT

1640−260:9 glyph ?-

1641−260:12 name xs

1642−261:11 INDENT

1643−261:11 lit ~

1644−261:13 lit ~

1645−262:11 NEWLINE

1646−262:11 glyph [

1647−262:12 tight name item

1648−262:17 name rest

1649−262:21 tight glyph ]

1650−263:13 INDENT

1651−263:13 glyph ?-

1652−263:16 glyph (

1653−263:17 tight name f

1654−263:19 name item

1655−263:23 tight glyph )

1656−264:15 INDENT

1657−264:15 lit ~

1658−264:17 glyph (

1659−264:18 tight name murn

1660−264:23 name rest

1661−264:28 name f

1662−264:29 tight glyph )

1663−265:15 NEWLINE

1664−265:15 glyph [

1665−265:16 tight lit ~

1666−265:18 name value

1667−265:23 tight glyph ]

1668−265:25 glyph [

1669−265:26 tight name value

1670−265:32 glyph (

1671−265:33 tight name murn

1672−265:38 name rest

1673−265:43 name f

1674−265:44 tight glyph )

1675−265:45 tight glyph ]

1676−267:1 DEDENT

1677−267:1 DEDENT

1096+177:7 INDENT

1097+177:7 glyph ?-

1098+177:10 name maybe

1099+178:9 INDENT

1100+178:9 lit ~

1101+178:11 lit ~

1102+179:9 NEWLINE

1103+179:9 glyph [

1104+179:10 tight lit ~

1105+179:12 name value

1106+179:17 tight glyph ]

1107+179:19 glyph (

1108+179:20 tight name f

1109+179:22 name value

1110+179:27 tight glyph )

1111+181:1 DEDENT

1112+181:1 DEDENT

1113+181:1 DEDENT

1114+181:1 DEDENT

1115+181:1 NEWLINE

1116+181:1 glyph ++

1117+181:4 name both

1118+181:9 glyph |=

1119+181:12 name args

1120+181:16 tight glyph =

1121+181:17 tight glyph [

1122+181:18 tight glyph (

1123+181:19 tight name unit

1124+181:24 tvar A

1125+181:25 tight glyph )

1126+181:27 glyph (

1127+181:28 tight name unit

1128+181:33 tvar B

1129+181:34 tight glyph )

1130+181:35 tight glyph ]

1131+182:3 INDENT

1132+182:3 glyph ?-

1133+182:6 name args

1134+183:5 INDENT

1135+183:5 glyph [

1136+183:6 tight name first

1137+183:12 name second

1138+183:18 tight glyph ]

1139+183:20 glyph ^-

1140+183:23 glyph (

1141+183:24 tight name unit

1142+183:29 glyph [

1143+183:30 tight tvar A

1144+183:32 tvar B

1145+183:33 tight glyph ]

1146+183:34 tight glyph )

1147+184:7 INDENT

1148+184:7 glyph ?-

1149+184:10 name first

1150+185:9 INDENT

1151+185:9 lit ~

1152+185:11 lit ~

1153+186:9 NEWLINE

1154+186:9 glyph [

1155+186:10 tight lit ~

1156+186:12 name a

1157+186:13 tight glyph ]

1158+187:11 INDENT

1159+187:11 glyph ?-

1160+187:14 name second

1161+188:13 INDENT

1162+188:13 lit ~

1163+188:15 lit ~

1164+189:13 NEWLINE

1165+189:13 glyph [

1166+189:14 tight lit ~

1167+189:16 name b

1168+189:17 tight glyph ]

1169+189:19 glyph `

1170+189:20 tight glyph [

1171+189:21 tight name a

1172+189:23 name b

1173+189:24 tight glyph ]

1174+191:1 DEDENT

1175+191:1 DEDENT

1176+191:1 DEDENT

1177+191:1 DEDENT

1178+191:1 DEDENT

1179+191:1 DEDENT

1180+191:1 NEWLINE

1181+191:1 glyph ++

1182+191:4 name clap

1183+191:9 glyph |=

1184+191:12 name args

1185+191:16 tight glyph =

1186+191:17 tight glyph [

1187+191:18 tight glyph (

1188+191:19 tight name unit

1189+191:24 tvar A

1190+191:25 tight glyph )

1191+191:27 glyph (

1192+191:28 tight name unit

1193+191:33 tvar A

1194+191:34 tight glyph )

1195+191:36 glyph $-(

1196+191:39 tight glyph [

1197+191:40 tight tvar A

1198+191:42 tvar A

1199+191:43 tight glyph ]

1200+191:45 tvar A

1201+191:46 tight glyph )

1202+191:47 tight glyph ]

1203+192:3 INDENT

1204+192:3 glyph ?-

1205+192:6 name args

1206+193:5 INDENT

1207+193:5 glyph [

1208+193:6 tight name first

1209+193:12 name second

1210+193:19 name combine

1211+193:26 tight glyph ]

1212+193:28 glyph ^-

1213+193:31 glyph (

1214+193:32 tight name unit

1215+193:37 tvar A

1216+193:38 tight glyph )

1217+194:7 INDENT

1218+194:7 glyph ?-

1219+194:10 name first

1220+195:9 INDENT

1221+195:9 lit ~

1222+195:11 name second

1223+196:9 NEWLINE

1224+196:9 glyph [

1225+196:10 tight lit ~

1226+196:12 name a

1227+196:13 tight glyph ]

1228+197:11 INDENT

1229+197:11 glyph ?-

1230+197:14 name second

1231+198:13 INDENT

1232+198:13 lit ~

1233+198:15 name first

1234+199:13 NEWLINE

1235+199:13 glyph [

1236+199:14 tight lit ~

1237+199:16 name b

1238+199:17 tight glyph ]

1239+199:19 glyph `

1240+199:20 tight glyph (

1241+199:21 tight name combine

1242+199:29 name a

1243+199:31 name b

1244+199:32 tight glyph )

1245+201:1 DEDENT

1246+201:1 DEDENT

1247+201:1 DEDENT

1248+201:1 DEDENT

1249+201:1 DEDENT

1250+201:1 DEDENT

1251+201:1 NEWLINE

1252+201:1 glyph ++

1253+201:4 name clef

1254+201:9 glyph |=

1255+201:12 name args

1256+201:16 tight glyph =

1257+201:17 tight glyph [

1258+201:18 tight glyph (

1259+201:19 tight name unit

1260+201:24 tvar A

1261+201:25 tight glyph )

1262+201:27 glyph (

1263+201:28 tight name unit

1264+201:33 tvar B

1265+201:34 tight glyph )

1266+201:36 glyph $-(

1267+201:39 tight glyph [

1268+201:40 tight tvar A

1269+201:42 tvar B

1270+201:43 tight glyph ]

1271+201:45 glyph (

1272+201:46 tight name unit

1273+201:51 tvar C

1274+201:52 tight glyph )

1275+201:53 tight glyph )

1276+201:54 tight glyph ]

1277+202:3 INDENT

1278+202:3 glyph ?-

1279+202:6 name args

1280+203:5 INDENT

1281+203:5 glyph [

1282+203:6 tight name first

1283+203:12 name second

1284+203:19 name combine

1285+203:26 tight glyph ]

1286+203:28 glyph ^-

1287+203:31 glyph (

1288+203:32 tight name unit

1289+203:37 tvar C

1290+203:38 tight glyph )

1291+204:7 INDENT

1292+204:7 glyph ?-

1293+204:10 name first

1294+205:9 INDENT

1295+205:9 lit ~

1296+205:11 lit ~

1297+206:9 NEWLINE

1298+206:9 glyph [

1299+206:10 tight lit ~

1300+206:12 name a

1301+206:13 tight glyph ]

1302+207:11 INDENT

1303+207:11 glyph ?-

1304+207:14 name second

1305+208:13 INDENT

1306+208:13 lit ~

1307+208:15 lit ~

1308+209:13 NEWLINE

1309+209:13 glyph [

1310+209:14 tight lit ~

1311+209:16 name b

1312+209:17 tight glyph ]

1313+209:19 glyph (

1314+209:20 tight name combine

1315+209:28 name a

1316+209:30 name b

1317+209:31 tight glyph )

1318+211:1 DEDENT

1319+211:1 DEDENT

1320+211:1 DEDENT

1321+211:1 DEDENT

1322+211:1 DEDENT

1323+211:1 DEDENT

1324+211:1 NEWLINE

1325+211:1 glyph ++

1326+211:4 name skim

1327+211:9 glyph |=

1328+211:12 name args

1329+211:16 tight glyph =

1330+211:17 tight glyph [

1331+211:18 tight glyph (

1332+211:19 tight name list

1333+211:24 tvar A

1334+211:25 tight glyph )

1335+211:27 glyph $-(

1336+211:30 tight tvar A

1337+211:32 glyph ?

1338+211:33 tight glyph )

1339+211:34 tight glyph ]

1340+212:3 INDENT

1341+212:3 glyph ?-

1342+212:6 name args

1343+213:5 INDENT

1344+213:5 glyph [

1345+213:6 tight name xs

1346+213:9 name predicate

1347+213:18 tight glyph ]

1348+213:20 glyph ^-

1349+213:23 glyph (

1350+213:24 tight name list

1351+213:29 tvar A

1352+213:30 tight glyph )

1353+214:9 INDENT

1354+214:9 glyph ?-

1355+214:12 name xs

1356+215:11 INDENT

1357+215:11 lit ~

1358+215:13 lit ~

1359+216:11 NEWLINE

1360+216:11 glyph [

1361+216:12 tight name item

1362+216:17 name rest

1363+216:21 tight glyph ]

1364+217:13 INDENT

1365+217:13 glyph ?-

1366+217:16 glyph (

1367+217:17 tight name predicate

1368+217:27 name item

1369+217:31 tight glyph )

1370+218:15 INDENT

1371+218:15 lit %.y

1372+218:19 glyph [

1373+218:20 tight name item

1374+218:25 glyph (

1375+218:26 tight name skim

1376+218:31 name rest

1377+218:36 name predicate

1378+218:45 tight glyph )

1379+218:46 tight glyph ]

1380+219:15 NEWLINE

1381+219:15 lit %.n

1382+219:19 glyph (

1383+219:20 tight name skim

1384+219:25 name rest

1385+219:30 name predicate

1386+219:39 tight glyph )

1387+221:1 DEDENT

1388+221:1 DEDENT

1389+221:1 DEDENT

1390+221:1 DEDENT

1391+221:1 DEDENT

1392+221:1 DEDENT

1393+221:1 NEWLINE

1394+221:1 glyph ++

1395+221:4 name skip

1396+221:9 glyph |=

1397+221:12 name args

1398+221:16 tight glyph =

1399+221:17 tight glyph [

1400+221:18 tight glyph (

1401+221:19 tight name list

1402+221:24 tvar A

1403+221:25 tight glyph )

1404+221:27 glyph $-(

1405+221:30 tight tvar A

1406+221:32 glyph ?

1407+221:33 tight glyph )

1408+221:34 tight glyph ]

1409+222:3 INDENT

1410+222:3 glyph ?-

1411+222:6 name args

1412+223:5 INDENT

1413+223:5 glyph [

1414+223:6 tight name xs

1415+223:9 name predicate

1416+223:18 tight glyph ]

1417+223:20 glyph ^-

1418+223:23 glyph (

1419+223:24 tight name list

1420+223:29 tvar A

1421+223:30 tight glyph )

1422+224:9 INDENT

1423+224:9 glyph ?-

1424+224:12 name xs

1425+225:11 INDENT

1426+225:11 lit ~

1427+225:13 lit ~

1428+226:11 NEWLINE

1429+226:11 glyph [

1430+226:12 tight name item

1431+226:17 name rest

1432+226:21 tight glyph ]

1433+227:13 INDENT

1434+227:13 glyph ?-

1435+227:16 glyph (

1436+227:17 tight name predicate

1437+227:27 name item

1438+227:31 tight glyph )

1439+228:15 INDENT

1440+228:15 lit %.y

1441+228:19 glyph (

1442+228:20 tight name skip

1443+228:25 name rest

1444+228:30 name predicate

1445+228:39 tight glyph )

1446+229:15 NEWLINE

1447+229:15 lit %.n

1448+229:19 glyph [

1449+229:20 tight name item

1450+229:25 glyph (

1451+229:26 tight name skip

1452+229:31 name rest

1453+229:36 name predicate

1454+229:45 tight glyph )

1455+229:46 tight glyph ]

1456+231:1 DEDENT

1457+231:1 DEDENT

1458+231:1 DEDENT

1459+231:1 DEDENT

1460+231:1 DEDENT

1461+231:1 DEDENT

1462+231:1 NEWLINE

1463+231:1 glyph ++

1464+231:4 name levy

1465+231:9 glyph |=

1466+231:12 name args

1467+231:16 tight glyph =

1468+231:17 tight glyph [

1469+231:18 tight glyph (

1470+231:19 tight name list

1471+231:24 tvar A

1472+231:25 tight glyph )

1473+231:27 glyph $-(

1474+231:30 tight tvar A

1475+231:32 glyph ?

1476+231:33 tight glyph )

1477+231:34 tight glyph ]

1478+232:3 INDENT

1479+232:3 glyph ^-

1480+232:6 glyph ?

1481+233:5 INDENT

1482+233:5 glyph ?-

1483+233:8 name args

1484+234:7 INDENT

1485+234:7 glyph [

1486+234:8 tight name xs

1487+234:11 name predicate

1488+234:20 tight glyph ]

1489+235:9 INDENT

1490+235:9 glyph ?-

1491+235:12 name xs

1492+236:11 INDENT

1493+236:11 lit ~

1494+236:13 lit %.y

1495+237:11 NEWLINE

1496+237:11 glyph [

1497+237:12 tight name item

1498+237:17 name rest

1499+237:21 tight glyph ]

1500+238:13 INDENT

1501+238:13 glyph ?-

1502+238:16 glyph (

1503+238:17 tight name predicate

1504+238:27 name item

1505+238:31 tight glyph )

1506+239:15 INDENT

1507+239:15 lit %.y

1508+239:19 glyph (

1509+239:20 tight name levy

1510+239:25 name rest

1511+239:30 name predicate

1512+239:39 tight glyph )

1513+240:15 NEWLINE

1514+240:15 lit %.n

1515+240:19 lit %.n

1516+242:1 DEDENT

1517+242:1 DEDENT

1518+242:1 DEDENT

1519+242:1 DEDENT

1520+242:1 DEDENT

1521+242:1 DEDENT

1522+242:1 DEDENT

1523+242:1 NEWLINE

1524+242:1 glyph ++

1525+242:4 name lien

1526+242:9 glyph |=

1527+242:12 name args

1528+242:16 tight glyph =

1529+242:17 tight glyph [

1530+242:18 tight glyph (

1531+242:19 tight name list

1532+242:24 tvar A

1533+242:25 tight glyph )

1534+242:27 glyph $-(

1535+242:30 tight tvar A

1536+242:32 glyph ?

1537+242:33 tight glyph )

1538+242:34 tight glyph ]

1539+243:3 INDENT

1540+243:3 glyph ^-

1541+243:6 glyph ?

1542+244:5 INDENT

1543+244:5 glyph ?-

1544+244:8 name args

1545+245:7 INDENT

1546+245:7 glyph [

1547+245:8 tight name xs

1548+245:11 name predicate

1549+245:20 tight glyph ]

1550+246:9 INDENT

1551+246:9 glyph ?-

1552+246:12 name xs

1553+247:11 INDENT

1554+247:11 lit ~

1555+247:13 lit %.n

1556+248:11 NEWLINE

1557+248:11 glyph [

1558+248:12 tight name item

1559+248:17 name rest

1560+248:21 tight glyph ]

1561+249:13 INDENT

1562+249:13 glyph ?-

1563+249:16 glyph (

1564+249:17 tight name predicate

1565+249:27 name item

1566+249:31 tight glyph )

1567+250:15 INDENT

1568+250:15 lit %.y

1569+250:19 lit %.y

1570+251:15 NEWLINE

1571+251:15 lit %.n

1572+251:19 glyph (

1573+251:20 tight name lien

1574+251:25 name rest

1575+251:30 name predicate

1576+251:39 tight glyph )

1577+253:1 DEDENT

1578+253:1 DEDENT

1579+253:1 DEDENT

1580+253:1 DEDENT

1581+253:1 DEDENT

1582+253:1 DEDENT

1583+253:1 DEDENT

1584+253:1 NEWLINE

1585+253:1 glyph ++

1586+253:4 name roll

1587+253:9 glyph |=

1588+253:12 name args

1589+253:16 tight glyph =

1590+253:17 tight glyph [

1591+253:18 tight glyph (

1592+253:19 tight name list

1593+253:24 tvar A

1594+253:25 tight glyph )

1595+253:27 tvar B

1596+253:29 glyph $-(

1597+253:32 tight glyph [

1598+253:33 tight tvar A

1599+253:35 tvar B

1600+253:36 tight glyph ]

1601+253:38 tvar B

1602+253:39 tight glyph )

1603+253:40 tight glyph ]

1604+254:3 INDENT

1605+254:3 glyph ?-

1606+254:6 name args

1607+255:5 INDENT

1608+255:5 glyph [

1609+255:6 tight name xs

1610+255:9 name start

1611+255:15 name combine

1612+255:22 tight glyph ]

1613+256:7 INDENT

1614+256:7 glyph ?-

1615+256:10 name xs

1616+257:9 INDENT

1617+257:9 lit ~

1618+257:11 name start

1619+258:9 NEWLINE

1620+258:9 glyph [

1621+258:10 tight name item

1622+258:15 name rest

1623+258:19 tight glyph ]

1624+258:21 glyph (

1625+258:22 tight name roll

1626+258:27 name rest

1627+258:32 glyph (

1628+258:33 tight name combine

1629+258:41 name item

1630+258:46 name start

1631+258:51 tight glyph )

1632+258:53 name combine

1633+258:60 tight glyph )

1634+260:1 DEDENT

1635+260:1 DEDENT

1636+260:1 DEDENT

1637+260:1 DEDENT

1638+260:1 NEWLINE

1639+260:1 glyph ++

1640+260:4 name reel

1641+260:9 glyph |=

1642+260:12 name args

1643+260:16 tight glyph =

1644+260:17 tight glyph [

1645+260:18 tight glyph (

1646+260:19 tight name list

1647+260:24 tvar A

1648+260:25 tight glyph )

1649+260:27 tvar B

1650+260:29 glyph $-(

1651+260:32 tight glyph [

1652+260:33 tight tvar A

1653+260:35 tvar B

1654+260:36 tight glyph ]

1655+260:38 tvar B

1656+260:39 tight glyph )

1657+260:40 tight glyph ]

1658+261:3 INDENT

1659+261:3 glyph ?-

1660+261:6 name args

1661+262:5 INDENT

1662+262:5 glyph [

1663+262:6 tight name xs

1664+262:9 name start

1665+262:15 name combine

1666+262:22 tight glyph ]

1667+263:7 INDENT

1668+263:7 glyph ?-

1669+263:10 name xs

1670+264:9 INDENT

1671+264:9 lit ~

1672+264:11 name start

1673+265:9 NEWLINE

1674+265:9 glyph [

1675+265:10 tight name item

1676+265:15 name rest

1677+265:19 tight glyph ]

1678+265:21 glyph (

1679+265:22 tight name combine

1680+265:30 name item

1681+265:35 glyph (

1682+265:36 tight name reel

1683+265:41 name rest

1684+265:46 name start

1685+265:52 name combine

1686+265:59 tight glyph )

1687+265:60 tight glyph )

16781688267:1 DEDENT

16791689267:1 DEDENT

16801690267:1 DEDENT

16811691267:1 DEDENT

16821692267:1 NEWLINE

16831693267:1 glyph ++

1684−267:4 name join

1694+267:4 name flit

16851695267:9 glyph |=

1686−267:12 name args

1687−267:16 tight glyph =

1688−267:17 tight glyph [

1689−267:18 tight tvar A

1690−267:20 glyph (

1691−267:21 tight name list

1692−267:26 tvar A

1693−267:27 tight glyph )

1694−267:28 tight glyph ]

1696+267:12 name predicate

1697+267:21 tight glyph =

1698+267:22 tight glyph $-(

1699+267:25 tight tvar A

1700+267:27 glyph ?

1701+267:28 tight glyph )

16951702268:3 INDENT

1696−268:3 glyph ?-

1697−268:6 name args

1703+268:3 glyph |=

1704+268:6 name value

1705+268:11 tight glyph =

1706+268:12 tight tvar A

16981707269:5 INDENT

1699−269:5 glyph [

1700−269:6 tight name separator

1701−269:16 name xs

1702−269:18 tight glyph ]

1703−269:20 glyph ^-

1704−269:23 glyph (

1705−269:24 tight name list

1706−269:29 tvar A

1707−269:30 tight glyph )

1708−270:9 INDENT

1709−270:9 glyph ?-

1710−270:12 name xs

1711−271:11 INDENT

1712−271:11 lit ~

1713−271:13 lit ~

1714−272:11 NEWLINE

1715−272:11 glyph [

1716−272:12 tight name item

1717−272:17 name rest

1718−272:21 tight glyph ]

1719−273:13 INDENT

1720−273:13 glyph ?-

1721−273:16 name rest

1722−274:15 INDENT

1723−274:15 lit ~

1724−274:17 glyph [

1725−274:18 tight name item

1726−274:23 lit ~

1727−274:24 tight glyph ]

1728−275:15 NEWLINE

1729−275:15 glyph [

1730−275:16 tight name next

1731−275:21 name more

1732−275:25 tight glyph ]

1733−275:27 glyph [

1734−275:28 tight name item

1735−275:33 glyph [

1736−275:34 tight name separator

1737−275:44 glyph (

1738−275:45 tight name join

1739−275:50 name separator

1740−275:60 name rest

1741−275:64 tight glyph )

1742−275:65 tight glyph ]

1743−275:66 tight glyph ]

1744−277:1 DEDENT

1745−277:1 DEDENT

1746−277:1 DEDENT

1747−277:1 DEDENT

1748−277:1 DEDENT

1749−277:1 DEDENT

1750−277:1 NEWLINE

1751−277:1 glyph ++

1752−277:4 name snip

1753−277:9 glyph |=

1708+269:5 glyph ^-

1709+269:8 glyph (

1710+269:9 tight name unit

1711+269:14 tvar A

1712+269:15 tight glyph )

1713+270:7 INDENT

1714+270:7 glyph ?-

1715+270:10 glyph (

1716+270:11 tight name predicate

1717+270:21 name value

1718+270:26 tight glyph )

1719+271:9 INDENT

1720+271:9 lit %.y

1721+271:13 glyph `

1722+271:14 tight name value

1723+272:9 NEWLINE

1724+272:9 lit %.n

1725+272:13 lit ~

1726+274:1 DEDENT

1727+274:1 DEDENT

1728+274:1 DEDENT

1729+274:1 DEDENT

1730+274:1 NEWLINE

1731+274:1 glyph ++

1732+274:4 name murn

1733+274:9 glyph |=

1734+274:12 name args

1735+274:16 tight glyph =

1736+274:17 tight glyph [

1737+274:18 tight glyph (

1738+274:19 tight name list

1739+274:24 tvar A

1740+274:25 tight glyph )

1741+274:27 glyph $-(

1742+274:30 tight tvar A

1743+274:32 glyph (

1744+274:33 tight name unit

1745+274:38 tvar B

1746+274:39 tight glyph )

1747+274:40 tight glyph )

1748+274:41 tight glyph ]

1749+275:3 INDENT

1750+275:3 glyph ?-

1751+275:6 name args

1752+276:5 INDENT

1753+276:5 glyph [

1754+276:6 tight name xs

1755+276:9 name f

1756+276:10 tight glyph ]

1757+276:12 glyph ^-

1758+276:15 glyph (

1759+276:16 tight name list

1760+276:21 tvar B

1761+276:22 tight glyph )

1762+277:9 INDENT

1763+277:9 glyph ?-

17541764277:12 name xs

1755−277:14 tight glyph =

1756−277:15 tight glyph (

1757−277:16 tight name list

1758−277:21 tvar A

1759−277:22 tight glyph )

1760−278:3 INDENT

1761−278:3 glyph ^-

1762−278:6 glyph (

1763−278:7 tight name list

1764−278:12 tvar A

1765−278:13 tight glyph )

1766−279:5 INDENT

1767−279:5 glyph ?-

1768−279:8 name xs

1769−280:7 INDENT

1770−280:7 lit ~

1771−280:9 lit ~

1772−281:7 NEWLINE

1773−281:7 glyph [

1774−281:8 tight name item

1775−281:13 name rest

1776−281:17 tight glyph ]

1777−282:9 INDENT

1778−282:9 glyph ?-

1779−282:12 name rest

1780−283:11 INDENT

1781−283:11 lit ~

1782−283:13 lit ~

1783−284:11 NEWLINE

1784−284:11 glyph [

1785−284:12 tight name next

1786−284:17 name more

1787−284:21 tight glyph ]

1788−284:23 glyph [

1789−284:24 tight name item

1790−284:29 glyph (

1791−284:30 tight name snip

1792−284:35 name rest

1793−284:39 tight glyph )

1794−284:40 tight glyph ]

1795−286:1 DEDENT

1796−286:1 DEDENT

1797−286:1 DEDENT

1798−286:1 DEDENT

1799−286:1 DEDENT

1800−286:1 NEWLINE

1801−286:1 glyph ++

1802−286:4 name rear

1803−286:9 glyph |=

1804−286:12 name xs

1805−286:14 tight glyph =

1806−286:15 tight glyph (

1807−286:16 tight name list

1808−286:21 tvar A

1809−286:22 tight glyph )

1810−287:3 INDENT

1811−287:3 glyph ?-

1812−287:6 name xs

1813−288:5 INDENT

1814−288:5 lit ~

1815−288:7 glyph !!

1816−289:5 NEWLINE

1817−289:5 glyph [

1818−289:6 tight name item

1819−289:11 name rest

1820−289:15 tight glyph ]

1821−290:7 INDENT

1822−290:7 glyph ?-

1823−290:10 name rest

1824−291:9 INDENT

1825−291:9 lit ~

1826−291:11 name item

1827−292:9 NEWLINE

1828−292:9 glyph [

1829−292:10 tight name next

1830−292:15 name more

1831−292:19 tight glyph ]

1832−292:21 glyph (

1833−292:22 tight name rear

1834−292:27 name rest

1835−292:31 tight glyph )

1836−292:32 DEDENT

1837−292:32 DEDENT

1838−292:32 DEDENT

1839−292:32 DEDENT

1840−292:32 NEWLINE

1765+278:11 INDENT

1766+278:11 lit ~

1767+278:13 lit ~

1768+279:11 NEWLINE

1769+279:11 glyph [

1770+279:12 tight name item

1771+279:17 name rest

1772+279:21 tight glyph ]

1773+280:13 INDENT

1774+280:13 glyph ?-

1775+280:16 glyph (

1776+280:17 tight name f

1777+280:19 name item

1778+280:23 tight glyph )

1779+281:15 INDENT

1780+281:15 lit ~

1781+281:17 glyph (

1782+281:18 tight name murn

1783+281:23 name rest

1784+281:28 name f

1785+281:29 tight glyph )

1786+282:15 NEWLINE

1787+282:15 glyph [

1788+282:16 tight lit ~

1789+282:18 name value

1790+282:23 tight glyph ]

1791+282:25 glyph [

1792+282:26 tight name value

1793+282:32 glyph (

1794+282:33 tight name murn

1795+282:38 name rest

1796+282:43 name f

1797+282:44 tight glyph )

1798+282:45 tight glyph ]

1799+284:1 DEDENT

1800+284:1 DEDENT

1801+284:1 DEDENT

1802+284:1 DEDENT

1803+284:1 DEDENT

1804+284:1 DEDENT

1805+284:1 NEWLINE

1806+284:1 glyph ++

1807+284:4 name join

1808+284:9 glyph |=

1809+284:12 name args

1810+284:16 tight glyph =

1811+284:17 tight glyph [

1812+284:18 tight tvar A

1813+284:20 glyph (

1814+284:21 tight name list

1815+284:26 tvar A

1816+284:27 tight glyph )

1817+284:28 tight glyph ]

1818+285:3 INDENT

1819+285:3 glyph ?-

1820+285:6 name args

1821+286:5 INDENT

1822+286:5 glyph [

1823+286:6 tight name separator

1824+286:16 name xs

1825+286:18 tight glyph ]

1826+286:20 glyph ^-

1827+286:23 glyph (

1828+286:24 tight name list

1829+286:29 tvar A

1830+286:30 tight glyph )

1831+287:9 INDENT

1832+287:9 glyph ?-

1833+287:12 name xs

1834+288:11 INDENT

1835+288:11 lit ~

1836+288:13 lit ~

1837+289:11 NEWLINE

1838+289:11 glyph [

1839+289:12 tight name item

1840+289:17 name rest

1841+289:21 tight glyph ]

1842+290:13 INDENT

1843+290:13 glyph ?-

1844+290:16 name rest

1845+291:15 INDENT

1846+291:15 lit ~

1847+291:17 glyph [

1848+291:18 tight name item

1849+291:23 lit ~

1850+291:24 tight glyph ]

1851+292:15 NEWLINE

1852+292:15 glyph [

1853+292:16 tight name next

1854+292:21 name more

1855+292:25 tight glyph ]

1856+292:27 glyph [

1857+292:28 tight name item

1858+292:33 glyph [

1859+292:34 tight name separator

1860+292:44 glyph (

1861+292:45 tight name join

1862+292:50 name separator

1863+292:60 name rest

1864+292:64 tight glyph )

1865+292:65 tight glyph ]

1866+292:66 tight glyph ]

1867+294:1 DEDENT

1868+294:1 DEDENT

1869+294:1 DEDENT

1870+294:1 DEDENT

1871+294:1 DEDENT

1872+294:1 DEDENT

1873+294:1 NEWLINE

1874+294:1 glyph ++

1875+294:4 name snip

1876+294:9 glyph |=

1877+294:12 name xs

1878+294:14 tight glyph =

1879+294:15 tight glyph (

1880+294:16 tight name list

1881+294:21 tvar A

1882+294:22 tight glyph )

1883+295:3 INDENT

1884+295:3 glyph ^-

1885+295:6 glyph (

1886+295:7 tight name list

1887+295:12 tvar A

1888+295:13 tight glyph )

1889+296:5 INDENT

1890+296:5 glyph ?-

1891+296:8 name xs

1892+297:7 INDENT

1893+297:7 lit ~

1894+297:9 lit ~

1895+298:7 NEWLINE

1896+298:7 glyph [

1897+298:8 tight name item

1898+298:13 name rest

1899+298:17 tight glyph ]

1900+299:9 INDENT

1901+299:9 glyph ?-

1902+299:12 name rest

1903+300:11 INDENT

1904+300:11 lit ~

1905+300:13 lit ~

1906+301:11 NEWLINE

1907+301:11 glyph [

1908+301:12 tight name next

1909+301:17 name more

1910+301:21 tight glyph ]

1911+301:23 glyph [

1912+301:24 tight name item

1913+301:29 glyph (

1914+301:30 tight name snip

1915+301:35 name rest

1916+301:39 tight glyph )

1917+301:40 tight glyph ]

1918+303:1 DEDENT

1919+303:1 DEDENT

1920+303:1 DEDENT

1921+303:1 DEDENT

1922+303:1 DEDENT

1923+303:1 NEWLINE

1924+303:1 glyph ++

1925+303:4 name rear

1926+303:9 glyph |=

1927+303:12 name xs

1928+303:14 tight glyph =

1929+303:15 tight glyph (

1930+303:16 tight name list

1931+303:21 tvar A

1932+303:22 tight glyph )

1933+304:3 INDENT

1934+304:3 glyph ?-

1935+304:6 name xs

1936+305:5 INDENT

1937+305:5 lit ~

1938+305:7 glyph !!

1939+306:5 NEWLINE

1940+306:5 glyph [

1941+306:6 tight name item

1942+306:11 name rest

1943+306:15 tight glyph ]

1944+307:7 INDENT

1945+307:7 glyph ?-

1946+307:10 name rest

1947+308:9 INDENT

1948+308:9 lit ~

1949+308:11 name item

1950+309:9 NEWLINE

1951+309:9 glyph [

1952+309:10 tight name next

1953+309:15 name more

1954+309:19 tight glyph ]

1955+309:21 glyph (

1956+309:22 tight name rear

1957+309:27 name rest

1958+309:31 tight glyph )

1959+311:1 DEDENT

1960+311:1 DEDENT

1961+311:1 DEDENT

1962+311:1 DEDENT

1963+311:1 NEWLINE

1964+311:1 glyph ++

1965+311:4 name cork

1966+311:9 glyph |=

1967+311:12 name gates

1968+311:17 tight glyph =

1969+311:18 tight glyph [

1970+311:19 tight glyph $-(

1971+311:22 tight tvar A

1972+311:24 tvar B

1973+311:25 tight glyph )

1974+311:27 glyph $-(

1975+311:30 tight tvar B

1976+311:32 tvar C

1977+311:33 tight glyph )

1978+311:34 tight glyph ]

1979+312:3 INDENT

1980+312:3 glyph ?-

1981+312:6 name gates

1982+313:5 INDENT

1983+313:5 glyph [

1984+313:6 tight name f

1985+313:8 name g

1986+313:9 tight glyph ]

1987+313:11 glyph |=

1988+313:14 name x

1989+313:15 tight glyph =

1990+313:16 tight tvar A

1991+313:18 glyph (

1992+313:19 tight name g

1993+313:21 glyph (

1994+313:22 tight name f

1995+313:24 name x

1996+313:25 tight glyph )

1997+313:26 tight glyph )

1998+315:1 DEDENT

1999+315:1 DEDENT

2000+315:1 NEWLINE

2001+315:1 glyph ++

2002+315:4 name corl

2003+315:9 glyph |=

2004+315:12 name gates

2005+315:17 tight glyph =

2006+315:18 tight glyph [

2007+315:19 tight glyph $-(

2008+315:22 tight tvar B

2009+315:24 tvar C

2010+315:25 tight glyph )

2011+315:27 glyph $-(

2012+315:30 tight tvar A

2013+315:32 tvar B

2014+315:33 tight glyph )

2015+315:34 tight glyph ]

2016+316:3 INDENT

2017+316:3 glyph ?-

2018+316:6 name gates

2019+317:5 INDENT

2020+317:5 glyph [

2021+317:6 tight name f

2022+317:8 name g

2023+317:9 tight glyph ]

2024+317:11 glyph |=

2025+317:14 name x

2026+317:15 tight glyph =

2027+317:16 tight tvar A

2028+317:18 glyph (

2029+317:19 tight name f

2030+317:21 glyph (

2031+317:22 tight name g

2032+317:24 name x

2033+317:25 tight glyph )

2034+317:26 tight glyph )

2035+319:1 DEDENT

2036+319:1 DEDENT

2037+319:1 NEWLINE

2038+319:1 glyph ++

2039+319:4 name cury

2040+319:9 glyph |=

2041+319:12 name args

2042+319:16 tight glyph =

2043+319:17 tight glyph [

2044+319:18 tight glyph $-(

2045+319:21 tight glyph [

2046+319:22 tight tvar A

2047+319:24 tvar B

2048+319:25 tight glyph ]

2049+319:27 tvar C

2050+319:28 tight glyph )

2051+319:30 tvar A

2052+319:31 tight glyph ]

2053+320:3 INDENT

2054+320:3 glyph ?-

2055+320:6 name args

2056+321:5 INDENT

2057+321:5 glyph [

2058+321:6 tight name f

2059+321:8 name a

2060+321:9 tight glyph ]

2061+321:11 glyph |=

2062+321:14 name b

2063+321:15 tight glyph =

2064+321:16 tight tvar B

2065+321:18 glyph (

2066+321:19 tight name f

2067+321:21 name a

2068+321:23 name b

2069+321:24 tight glyph )

2070+323:1 DEDENT

2071+323:1 DEDENT

2072+323:1 NEWLINE

2073+323:1 glyph ++

2074+323:4 name curr

2075+323:9 glyph |=

2076+323:12 name args

2077+323:16 tight glyph =

2078+323:17 tight glyph [

2079+323:18 tight glyph $-(

2080+323:21 tight glyph [

2081+323:22 tight tvar A

2082+323:24 tvar B

2083+323:25 tight glyph ]

2084+323:27 tvar C

2085+323:28 tight glyph )

2086+323:30 tvar B

2087+323:31 tight glyph ]

2088+324:3 INDENT

2089+324:3 glyph ?-

2090+324:6 name args

2091+325:5 INDENT

2092+325:5 glyph [

2093+325:6 tight name f

2094+325:8 name b

2095+325:9 tight glyph ]

2096+325:11 glyph |=

2097+325:14 name a

2098+325:15 tight glyph =

2099+325:16 tight tvar A

2100+325:18 glyph (

2101+325:19 tight name f

2102+325:21 name a

2103+325:23 name b

2104+325:24 tight glyph )

2105+327:1 DEDENT

2106+327:1 DEDENT

2107+327:1 NEWLINE

2108+327:1 glyph +$

2109+327:4 name cmd

2110+327:8 glyph |$

2111+327:11 glyph [

2112+327:12 tight tvar M

2113+327:13 tight glyph ]

2114+328:3 INDENT

2115+328:3 glyph [

2116+328:4 tight lit %poke

2117+328:10 name p

2118+328:11 tight glyph =

2119+328:12 tight name poke

2120+328:17 name reply

2121+328:22 tight glyph =

2122+328:23 tight glyph $-(

2123+328:26 tight glyph (

2124+328:27 tight name unit

2125+328:32 aura @t

2126+328:34 tight glyph )

2127+328:36 tvar M

2128+328:37 tight glyph )

2129+328:38 tight glyph ]

2130+329:3 NEWLINE

2131+329:3 glyph [

2132+329:4 tight lit %go

2133+329:8 name url

2134+329:11 tight glyph =

2135+329:12 tight aura @t

2136+329:14 tight glyph ]

2137+330:3 NEWLINE

2138+330:3 glyph [

2139+330:4 tight lit %wait

2140+330:10 name gap

2141+330:13 tight glyph =

2142+330:14 tight aura @dr

2143+330:18 name msg

2144+330:21 tight glyph =

2145+330:22 tight tvar M

2146+330:23 tight glyph ]

2147+331:3 NEWLINE

2148+331:3 glyph [

2149+331:4 tight lit %now

2150+331:9 name reply

2151+331:14 tight glyph =

2152+331:15 tight glyph $-(

2153+331:18 tight aura @da

2154+331:22 tvar M

2155+331:23 tight glyph )

2156+331:24 tight glyph ]

2157+332:3 NEWLINE

2158+332:3 glyph [

2159+332:4 tight lit %who

2160+332:9 name reply

2161+332:14 tight glyph =

2162+332:15 tight glyph $-(

2163+332:18 tight aura @p

2164+332:21 tvar M

2165+332:22 tight glyph )

2166+332:23 tight glyph ]

2167+334:1 DEDENT

2168+334:1 NEWLINE

2169+334:1 glyph ++

2170+334:4 name gth

2171+334:8 glyph |=

2172+334:11 name args

2173+334:15 tight glyph =

2174+334:16 tight glyph [

2175+334:17 tight tvar A

2176+334:19 tvar A

2177+334:20 tight glyph ]

2178+334:22 glyph (

2179+334:23 tight wing gth-atom.internal

2180+334:41 name args

2181+334:45 tight glyph )

2182+335:1 NEWLINE

2183+335:1 glyph ++

2184+335:4 name add

2185+335:8 glyph |=

2186+335:11 name args

2187+335:15 tight glyph =

2188+335:16 tight glyph [

2189+335:17 tight tvar A

2190+335:19 tvar A

2191+335:20 tight glyph ]

2192+335:22 glyph (

2193+335:23 tight wing add-atom.internal

2194+335:41 name args

2195+335:45 tight glyph )

2196+336:1 NEWLINE

2197+336:1 glyph ++

2198+336:4 name dec

2199+336:8 glyph |=

2200+336:11 name atom

2201+336:15 tight glyph =

2202+336:16 tight tvar A

2203+336:18 glyph (

2204+336:19 tight wing dec-atom.internal

2205+336:37 name atom

2206+336:41 tight glyph )

2207+338:1 NEWLINE

2208+338:1 glyph +$

2209+338:4 name ask

2210+338:8 glyph |$

2211+338:11 glyph [

2212+338:12 tight tvar M

2213+338:13 tight glyph ]

2214+338:15 glyph (

2215+338:16 tight wing ask.internal

2216+338:29 tvar M

2217+338:30 tight glyph )

2218+339:1 NEWLINE

2219+339:1 glyph ++

2220+339:4 name pure

2221+339:9 glyph |=

2222+339:12 name x

2223+339:13 tight glyph =

2224+339:14 tight tvar M

2225+339:16 glyph ^-

2226+339:19 glyph (

2227+339:20 tight name ask

2228+339:24 tvar M

2229+339:25 tight glyph )

2230+339:27 glyph [

2231+339:28 tight lit %pure

2232+339:34 name x

2233+339:35 tight glyph ]

2234+339:36 NEWLINE

tests/golden/prelude-unit-list-transforms/tree.txt+955−777

@@ -1,794 +1,972 @@

11(module

22 (jibb 1:1 internal /lib/jibb/internal)

33 (mold 2:1 poke (ref 2:9 poke.internal))

4− (value 6:1 same

5− (gate 6:9

6− (face 6:12 x (tvar 6:14 A))

7− (wing 6:16 x)))

8− (value 8:1 head

9− (gate 8:9

10− (face 8:12 p

11− (cell 8:14 (tvar 8:15 A) (tvar 8:17 B)))

12− (body 9:3

13− (branch 9:3

14− (wing 9:6 p)

15− (arm 10:5

16− (cell 10:5 (bind 10:6 a) (bind 10:8 b))

17− (wing 10:11 a))))))

18− (value 12:1 tail

19− (gate 12:9

20− (face 12:12 p

21− (cell 12:14 (tvar 12:15 A) (tvar 12:17 B)))

22− (body 13:3

23− (branch 13:3

24− (wing 13:6 p)

25− (arm 14:5

26− (cell 14:5 (bind 14:6 a) (bind 14:8 b))

27− (wing 14:11 b))))))

28− (value 16:1 not

29− (gate 16:8

30− (face 16:11 b (flag 16:13))

31− (body 17:3

32− (branch 17:3

33− (wing 17:6 b)

34− (arm 18:5 (lit 18:5 %.y) (lit 18:9 %.n))

35− (arm 19:5 (lit 19:5 %.n) (lit 19:9 %.y))))))

36− (mold 21:1 list

37− (generic 21:9 A

38− (union 22:3

39− (const 22:3 ~)

40− (cell 23:3

41− (face 23:4 i (tvar 23:6 A))

42− (face 23:8 t

43− (apply 23:10 list (tvar 23:16 A)))))))

44− (mold 25:1 unit

45− (generic 25:9 A

46− (union 26:3

47− (const 26:3 ~)

48− (cell 27:3

49− (const 27:4 ~)

50− (face 27:6 u (tvar 27:8 A))))))

51− (value 29:1 fall

52− (gate 29:9

53− (face 29:12 args

54− (cell 29:17

55− (apply 29:18 unit (tvar 29:24 A))

56− (tvar 29:27 A)))

57− (body 30:3

58− (branch 30:3

59− (wing 30:6 args)

60− (arm 31:5

61− (cell 31:5 (bind 31:6 maybe) (bind 31:12 fallback))

62− (body 32:7

63− (branch 32:7

64− (wing 32:10 maybe)

65− (arm 33:9 (lit 33:9 ~) (wing 33:11 fallback))

66− (arm 34:9

67− (cell 34:9 (lit 34:10 ~) (bind 34:12 value))

68− (wing 34:19 value)))))))))

69− (value 36:1 need

70− (gate 36:9

71− (face 36:12 maybe

72− (apply 36:18 unit (tvar 36:24 A)))

73− (body 37:3

74− (branch 37:3

75− (wing 37:6 maybe)

76− (arm 38:5 (lit 38:5 ~) (crash 38:7))

77− (arm 39:5

78− (cell 39:5 (lit 39:6 ~) (bind 39:8 value))

79− (wing 39:15 value))))))

80− (value 41:1 weld

81− (gate 41:9

82− (face 41:12 args

83− (cell 41:17

84− (apply 41:18 list (tvar 41:24 A))

85− (apply 41:27 list (tvar 41:33 A))))

86− (body 42:3

87− (branch 42:3

88− (wing 42:6 args)

89− (arm 43:5

90− (cell 43:5 (bind 43:6 xs) (bind 43:9 ys))

91− (body 44:7

92− (cast 44:7

93− (apply 44:10 list (tvar 44:16 A))

94− (body 45:9

95− (branch 45:9

96− (wing 45:12 xs)

97− (arm 46:11 (lit 46:11 ~) (wing 46:13 ys))

98− (arm 47:11

99− (cell 47:11 (bind 47:12 item) (bind 47:17 rest))

100− (tuple 47:23

101− (wing 47:24 item)

102− (group 47:29

103− (call 47:30 (wing 47:30 weld) (wing 47:35 rest) (wing 47:40 ys))))))))))))))

104− (value 49:1 turn

105− (gate 49:9

106− (face 49:12 args

107− (cell 49:17

108− (apply 49:18 list (tvar 49:24 A))

109− (fn 49:27 (tvar 49:30 A) (tvar 49:32 B))))

110− (body 50:3

111− (branch 50:3

112− (wing 50:6 args)

113− (arm 51:5

114− (cell 51:5 (bind 51:6 xs) (bind 51:9 f))

115− (body 52:7

116− (cast 52:7

117− (apply 52:10 list (tvar 52:16 B))

118− (body 53:9

119− (branch 53:9

120− (wing 53:12 xs)

121− (arm 54:11 (lit 54:11 ~) (lit 54:13 ~))

122− (arm 55:11

123− (cell 55:11 (bind 55:12 item) (bind 55:17 rest))

124− (tuple 55:23

125− (group 55:24

126− (call 55:25 (wing 55:25 f) (wing 55:27 item)))

127− (group 55:33

128− (call 55:34 (wing 55:34 turn) (wing 55:39 rest) (wing 55:44 f))))))))))))))

129− (mold 57:1 dime

130− (cell 57:9

131− (face 57:10 p (aura 57:12 @ta))

132− (face 57:16 q (aura 57:18 @))))

133− (mold 59:1 hair

134− (cell 59:9

135− (face 59:10 p (aura 59:12 @ud))

136− (face 59:16 q (aura 59:18 @ud))))

137− (mold 61:1 pint

138− (cell 61:9

139− (face 61:10 p

140− (cell 61:12

141− (face 61:13 p (aura 61:15 @))

142− (face 61:17 q (aura 61:19 @))))

143− (face 61:22 q

144− (cell 61:24

145− (face 61:25 p (aura 61:27 @))

146− (face 61:29 q (aura 61:31 @))))))

147− (mold 63:1 coin

148− (union 64:3

149− (cell 64:3

150− (const 64:4 %$)

151− (face 64:7 p (ref 64:9 dime)))

4+ (mold 3:1 qath (ref 3:9 qath.internal))

5+ (value 7:1 same

6+ (gate 7:9

7+ (face 7:12 x (tvar 7:14 A))

8+ (wing 7:16 x)))

9+ (value 9:1 head

10+ (gate 9:9

11+ (face 9:12 p

12+ (cell 9:14 (tvar 9:15 A) (tvar 9:17 B)))

13+ (body 10:3

14+ (branch 10:3

15+ (wing 10:6 p)

16+ (arm 11:5

17+ (cell 11:5 (bind 11:6 a) (bind 11:8 b))

18+ (wing 11:11 a))))))

19+ (value 13:1 tail

20+ (gate 13:9

21+ (face 13:12 p

22+ (cell 13:14 (tvar 13:15 A) (tvar 13:17 B)))

23+ (body 14:3

24+ (branch 14:3

25+ (wing 14:6 p)

26+ (arm 15:5

27+ (cell 15:5 (bind 15:6 a) (bind 15:8 b))

28+ (wing 15:11 b))))))

29+ (value 17:1 not

30+ (gate 17:8

31+ (face 17:11 b (flag 17:13))

32+ (body 18:3

33+ (branch 18:3

34+ (wing 18:6 b)

35+ (arm 19:5 (lit 19:5 %.y) (lit 19:9 %.n))

36+ (arm 20:5 (lit 20:5 %.n) (lit 20:9 %.y))))))

37+ (mold 22:1 list

38+ (generic 22:9 A

39+ (union 23:3

40+ (const 23:3 ~)

41+ (cell 24:3

42+ (face 24:4 i (tvar 24:6 A))

43+ (face 24:8 t

44+ (apply 24:10 list (tvar 24:16 A)))))))

45+ (mold 26:1 unit

46+ (generic 26:9 A

47+ (union 27:3

48+ (const 27:3 ~)

49+ (cell 28:3

50+ (const 28:4 ~)

51+ (face 28:6 u (tvar 28:8 A))))))

52+ (value 30:1 fall

53+ (gate 30:9

54+ (face 30:12 args

55+ (cell 30:17

56+ (apply 30:18 unit (tvar 30:24 A))

57+ (tvar 30:27 A)))

58+ (body 31:3

59+ (branch 31:3

60+ (wing 31:6 args)

61+ (arm 32:5

62+ (cell 32:5 (bind 32:6 maybe) (bind 32:12 fallback))

63+ (body 33:7

64+ (branch 33:7

65+ (wing 33:10 maybe)

66+ (arm 34:9 (lit 34:9 ~) (wing 34:11 fallback))

67+ (arm 35:9

68+ (cell 35:9 (lit 35:10 ~) (bind 35:12 value))

69+ (wing 35:19 value)))))))))

70+ (value 37:1 need

71+ (gate 37:9

72+ (face 37:12 maybe

73+ (apply 37:18 unit (tvar 37:24 A)))

74+ (body 38:3

75+ (branch 38:3

76+ (wing 38:6 maybe)

77+ (arm 39:5 (lit 39:5 ~) (crash 39:7))

78+ (arm 40:5

79+ (cell 40:5 (lit 40:6 ~) (bind 40:8 value))

80+ (wing 40:15 value))))))

81+ (value 42:1 weld

82+ (gate 42:9

83+ (face 42:12 args

84+ (cell 42:17

85+ (apply 42:18 list (tvar 42:24 A))

86+ (apply 42:27 list (tvar 42:33 A))))

87+ (body 43:3

88+ (branch 43:3

89+ (wing 43:6 args)

90+ (arm 44:5

91+ (cell 44:5 (bind 44:6 xs) (bind 44:9 ys))

92+ (body 45:7

93+ (cast 45:7

94+ (apply 45:10 list (tvar 45:16 A))

95+ (body 46:9

96+ (branch 46:9

97+ (wing 46:12 xs)

98+ (arm 47:11 (lit 47:11 ~) (wing 47:13 ys))

99+ (arm 48:11

100+ (cell 48:11 (bind 48:12 item) (bind 48:17 rest))

101+ (tuple 48:23

102+ (wing 48:24 item)

103+ (group 48:29

104+ (call 48:30 (wing 48:30 weld) (wing 48:35 rest) (wing 48:40 ys))))))))))))))

105+ (value 50:1 turn

106+ (gate 50:9

107+ (face 50:12 args

108+ (cell 50:17

109+ (apply 50:18 list (tvar 50:24 A))

110+ (fn 50:27 (tvar 50:30 A) (tvar 50:32 B))))

111+ (body 51:3

112+ (branch 51:3

113+ (wing 51:6 args)

114+ (arm 52:5

115+ (cell 52:5 (bind 52:6 xs) (bind 52:9 f))

116+ (body 53:7

117+ (cast 53:7

118+ (apply 53:10 list (tvar 53:16 B))

119+ (body 54:9

120+ (branch 54:9

121+ (wing 54:12 xs)

122+ (arm 55:11 (lit 55:11 ~) (lit 55:13 ~))

123+ (arm 56:11

124+ (cell 56:11 (bind 56:12 item) (bind 56:17 rest))

125+ (tuple 56:23

126+ (group 56:24

127+ (call 56:25 (wing 56:25 f) (wing 56:27 item)))

128+ (group 56:33

129+ (call 56:34 (wing 56:34 turn) (wing 56:39 rest) (wing 56:44 f))))))))))))))

130+ (mold 58:1 dime

131+ (cell 58:9

132+ (face 58:10 p (aura 58:12 @ta))

133+ (face 58:16 q (aura 58:18 @))))

134+ (mold 60:1 hair

135+ (cell 60:9

136+ (face 60:10 p (aura 60:12 @ud))

137+ (face 60:16 q (aura 60:18 @ud))))

138+ (mold 62:1 pint

139+ (cell 62:9

140+ (face 62:10 p

141+ (cell 62:12

142+ (face 62:13 p (aura 62:15 @))

143+ (face 62:17 q (aura 62:19 @))))

144+ (face 62:22 q

145+ (cell 62:24

146+ (face 62:25 p (aura 62:27 @))

147+ (face 62:29 q (aura 62:31 @))))))

148+ (mold 64:1 coin

149+ (union 65:3

152150 (cell 65:3

153− (const 65:4 %blob)

154− (face 65:10 p (noun 65:12)))

151+ (const 65:4 %$)

152+ (face 65:7 p (ref 65:9 dime)))

155153 (cell 66:3

156− (const 66:4 %many)

157− (face 66:10 p

158− (apply 66:12 list (ref 66:18 coin))))))

159− (mold 68:1 pair

160− (generic 68:9 A B

161− (cell 68:18

162− (face 68:19 p (tvar 68:21 A))

163− (face 68:23 q (tvar 68:25 B)))))

164− (mold 70:1 trel

165− (generic 70:9 A B C

166− (cell 70:20

167− (face 70:21 p (tvar 70:23 A))

168− (face 70:25 q (tvar 70:27 B))

169− (face 70:29 r (tvar 70:31 C)))))

170− (mold 72:1 qual

171− (generic 72:9 A B C D

172− (cell 72:22

173− (face 72:23 p (tvar 72:25 A))

174− (face 72:27 q (tvar 72:29 B))

175− (face 72:31 r (tvar 72:33 C))

176− (face 72:35 s (tvar 72:37 D)))))

177− (mold 74:1 cord (aura 74:9 @t))

178− (mold 76:1 knot (aura 76:9 @ta))

179− (mold 78:1 tape

180− (apply 78:9 list (aura 78:15 @tD)))

181− (mold 80:1 path

182− (apply 80:9 list (ref 80:15 knot)))

183− (mold 82:1 tank

184− (union 83:3

185− (ref 83:3 cord)

186− (cell 84:3

187− (const 84:4 %leaf)

188− (face 84:10 p (ref 84:12 tape)))

154+ (const 66:4 %blob)

155+ (face 66:10 p (noun 66:12)))

156+ (cell 67:3

157+ (const 67:4 %many)

158+ (face 67:10 p

159+ (apply 67:12 list (ref 67:18 coin))))))

160+ (mold 69:1 pair

161+ (generic 69:9 A B

162+ (cell 69:18

163+ (face 69:19 p (tvar 69:21 A))

164+ (face 69:23 q (tvar 69:25 B)))))

165+ (mold 71:1 trel

166+ (generic 71:9 A B C

167+ (cell 71:20

168+ (face 71:21 p (tvar 71:23 A))

169+ (face 71:25 q (tvar 71:27 B))

170+ (face 71:29 r (tvar 71:31 C)))))

171+ (mold 73:1 qual

172+ (generic 73:9 A B C D

173+ (cell 73:22

174+ (face 73:23 p (tvar 73:25 A))

175+ (face 73:27 q (tvar 73:29 B))

176+ (face 73:31 r (tvar 73:33 C))

177+ (face 73:35 s (tvar 73:37 D)))))

178+ (mold 75:1 cord (aura 75:9 @t))

179+ (mold 77:1 knot (aura 77:9 @ta))

180+ (mold 79:1 tape

181+ (apply 79:9 list (aura 79:15 @tD)))

182+ (mold 81:1 path

183+ (apply 81:9 list (ref 81:15 knot)))

184+ (mold 83:1 tank

185+ (union 84:3

186+ (ref 84:3 cord)

189187 (cell 85:3

190− (const 85:4 %palm)

191− (face 85:10 p

192− (apply 85:12 qual (ref 85:18 tape) (ref 85:23 tape) (ref 85:28 tape) (ref 85:33 tape)))

193− (face 85:39 q

194− (apply 85:41 list (ref 85:47 tank))))

188+ (const 85:4 %leaf)

189+ (face 85:10 p (ref 85:12 tape)))

195190 (cell 86:3

196− (const 86:4 %rose)

191+ (const 86:4 %palm)

197192 (face 86:10 p

198− (apply 86:12 trel (ref 86:18 tape) (ref 86:23 tape) (ref 86:28 tape)))

199− (face 86:34 q

200− (apply 86:36 list (ref 86:42 tank))))))

201− (mold 88:1 nail

202− (cell 88:9

203− (face 88:10 p (ref 88:12 hair))

204− (face 88:17 q (ref 88:19 tape))))

205− (mold 90:1 edge

206− (cell 90:9

207− (face 90:10 p (ref 90:12 hair))

208− (face 90:17 q

209− (apply 90:19 unit

210− (cell 90:25

211− (face 90:26 p (noun 90:28))

212− (face 90:30 q (ref 90:32 nail)))))))

213− (mold 92:1 rule

214− (fn 92:9 (ref 92:12 nail) (ref 92:17 edge)))

215− (mold 94:1 spot

216− (cell 94:9

217− (face 94:10 p (ref 94:12 path))

218− (face 94:17 q (ref 94:19 pint))))

219− (mold 96:1 toon

220− (union 97:3

221− (cell 97:3

222− (const 97:4 %0)

223− (face 97:7 p (noun 97:9)))

193+ (apply 86:12 qual (ref 86:18 tape) (ref 86:23 tape) (ref 86:28 tape) (ref 86:33 tape)))

194+ (face 86:39 q

195+ (apply 86:41 list (ref 86:47 tank))))

196+ (cell 87:3

197+ (const 87:4 %rose)

198+ (face 87:10 p

199+ (apply 87:12 trel (ref 87:18 tape) (ref 87:23 tape) (ref 87:28 tape)))

200+ (face 87:34 q

201+ (apply 87:36 list (ref 87:42 tank))))))

202+ (mold 89:1 nail

203+ (cell 89:9

204+ (face 89:10 p (ref 89:12 hair))

205+ (face 89:17 q (ref 89:19 tape))))

206+ (mold 91:1 edge

207+ (cell 91:9

208+ (face 91:10 p (ref 91:12 hair))

209+ (face 91:17 q

210+ (apply 91:19 unit

211+ (cell 91:25

212+ (face 91:26 p (noun 91:28))

213+ (face 91:30 q (ref 91:32 nail)))))))

214+ (mold 93:1 rule

215+ (fn 93:9 (ref 93:12 nail) (ref 93:17 edge)))

216+ (mold 95:1 spot

217+ (cell 95:9

218+ (face 95:10 p (ref 95:12 path))

219+ (face 95:17 q (ref 95:19 pint))))

220+ (mold 97:1 toon

221+ (union 98:3

224222 (cell 98:3

225− (const 98:4 %1)

223+ (const 98:4 %0)

226224 (face 98:7 p (noun 98:9)))

227225 (cell 99:3

228− (const 99:4 %2)

229− (face 99:7 p

230− (apply 99:9 list (ref 99:15 tank))))))

231− (mold 101:1 like

232− (generic 101:9 A

233− (cell 101:16

234− (face 101:17 p (ref 101:19 hair))

235− (face 101:24 q

236− (apply 101:26 unit

237− (cell 101:32

238− (face 101:33 p (tvar 101:35 A))

239− (face 101:37 q (ref 101:39 nail))))))))

240− (value 103:1 wonk

241− (gate 103:9

242− (face 103:12 veq

243− (apply 103:16 like (tvar 103:22 A)))

244− (body 104:3

245− (branch 104:3

246− (wing 104:6 q.veq)

247− (arm 105:5 (lit 105:5 ~) (crash 105:7))

248− (arm 106:5

249− (cell 106:5 (lit 106:6 ~) (bind 106:8 product))

250− (wing 106:17 p.product))))))

251− (mold 108:1 lone

252− (generic 108:9 A

253− (cell 108:16

254− (face 108:17 p (tvar 108:19 A)))))

255− (mold 110:1 lest

256− (generic 110:9 A

257− (cell 110:16

258− (face 110:17 i (tvar 110:19 A))

259− (face 110:21 t

260− (apply 110:23 list (tvar 110:29 A))))))

261− (mold 112:1 pole

262− (generic 112:9 A

263− (union 113:3

264− (const 113:3 ~)

265− (cell 114:3

266− (tvar 114:4 A)

267− (apply 114:6 pole (tvar 114:12 A))))))

268− (mold 116:1 quip

269− (generic 116:9 A B

270− (cell 116:18

271− (apply 116:19 list (tvar 116:25 A))

272− (tvar 116:28 B))))

273− (mold 118:1 tree

274− (generic 118:9 A

275− (union 119:3

276− (const 119:3 ~)

277− (cell 120:3

278− (face 120:4 n (tvar 120:6 A))

279− (face 120:8 l

280− (apply 120:10 tree (tvar 120:16 A)))

281− (face 120:19 r

282− (apply 120:21 tree (tvar 120:27 A)))))))

283− (mold 122:1 each

284− (generic 122:9 A B

285− (union 123:3

226+ (const 99:4 %1)

227+ (face 99:7 p (noun 99:9)))

228+ (cell 100:3

229+ (const 100:4 %2)

230+ (face 100:7 p

231+ (apply 100:9 list (ref 100:15 tank))))))

232+ (mold 102:1 like

233+ (generic 102:9 A

234+ (cell 102:16

235+ (face 102:17 p (ref 102:19 hair))

236+ (face 102:24 q

237+ (apply 102:26 unit

238+ (cell 102:32

239+ (face 102:33 p (tvar 102:35 A))

240+ (face 102:37 q (ref 102:39 nail))))))))

241+ (value 104:1 like

242+ (gate 104:9

243+ (cell 104:12

244+ (face 104:13 f

245+ (fn 104:15 (tvar 104:18 A) (tvar 104:20 B)))

246+ (face 104:23 result

247+ (apply 104:30 like (tvar 104:36 A))))

248+ (body 105:3

249+ (value 105:3 mapped

250+ (body 106:5

251+ (cast 106:5

252+ (apply 106:8 unit

253+ (cell 106:14

254+ (face 106:15 p (tvar 106:17 B))

255+ (face 106:19 q (ref 106:21 nail))))

256+ (body 107:7

257+ (branch 107:7

258+ (wing 107:10 q.result)

259+ (arm 108:9 (lit 108:9 ~) (lit 108:11 ~))

260+ (arm 109:9

261+ (cell 109:9 (lit 109:10 ~) (bind 109:12 value))

262+ (unit 109:19

263+ (tuple 109:20

264+ (face 109:21 p

265+ (group 109:23

266+ (call 109:24 (wing 109:24 f) (wing 109:26 p.value))))

267+ (face 109:35 q (wing 109:37 q.value))))))))))

268+ (cast 110:3

269+ (apply 110:6 like (tvar 110:12 B))

270+ (tuple 110:15

271+ (face 110:16 p (wing 110:18 p.result))

272+ (face 110:27 q (wing 110:29 mapped)))))))

273+ (value 112:1 wonk

274+ (gate 112:9

275+ (face 112:12 veq

276+ (apply 112:16 like (tvar 112:22 A)))

277+ (body 113:3

278+ (branch 113:3

279+ (wing 113:6 q.veq)

280+ (arm 114:5 (lit 114:5 ~) (crash 114:7))

281+ (arm 115:5

282+ (cell 115:5 (lit 115:6 ~) (bind 115:8 product))

283+ (wing 115:17 p.product))))))

284+ (mold 117:1 lone

285+ (generic 117:9 A

286+ (cell 117:16

287+ (face 117:17 p (tvar 117:19 A)))))

288+ (mold 119:1 lest

289+ (generic 119:9 A

290+ (cell 119:16

291+ (face 119:17 i (tvar 119:19 A))

292+ (face 119:21 t

293+ (apply 119:23 list (tvar 119:29 A))))))

294+ (mold 121:1 pole

295+ (generic 121:9 A

296+ (union 122:3

297+ (const 122:3 ~)

286298 (cell 123:3

287− (const 123:4 %|)

288− (face 123:7 p (tvar 123:9 B)))

289− (cell 124:3

290− (const 124:4 %&)

291− (face 124:7 p (tvar 124:9 A))))))

292− (mold 126:1 bloq (aura 126:9 @))

293− (value 128:1 some

294− (gate 128:9

295− (face 128:12 item (tvar 128:17 A))

296− (unit 128:19 (wing 128:20 item))))

297− (value 130:1 lure

298− (gate 130:9

299− (face 130:12 item (tvar 130:17 A))

300− (body 131:3

301− (cast 131:3

302− (apply 131:6 list (tvar 131:12 A))

303− (tuple 131:15 (wing 131:16 item) (lit 131:21 ~))))))

304− (value 133:1 snoc

305− (gate 133:9

306− (face 133:12 args

307− (cell 133:17

308− (apply 133:18 list (tvar 133:24 A))

309− (tvar 133:27 A)))

310− (body 134:3

311− (branch 134:3

312− (wing 134:6 args)

313− (arm 135:5

314− (cell 135:5 (bind 135:6 xs) (bind 135:9 item))

315− (group 135:15

316− (call 135:16

317− (wing 135:16 weld)

318− (wing 135:21 xs)

319− (tuple 135:24 (wing 135:25 item) (lit 135:30 ~)))))))))

320− (value 137:1 flop

299+ (tvar 123:4 A)

300+ (apply 123:6 pole (tvar 123:12 A))))))

301+ (mold 125:1 quip

302+ (generic 125:9 A B

303+ (cell 125:18

304+ (apply 125:19 list (tvar 125:25 A))

305+ (tvar 125:28 B))))

306+ (mold 127:1 tree

307+ (generic 127:9 A

308+ (union 128:3

309+ (const 128:3 ~)

310+ (cell 129:3

311+ (face 129:4 n (tvar 129:6 A))

312+ (face 129:8 l

313+ (apply 129:10 tree (tvar 129:16 A)))

314+ (face 129:19 r

315+ (apply 129:21 tree (tvar 129:27 A)))))))

316+ (mold 131:1 each

317+ (generic 131:9 A B

318+ (union 132:3

319+ (cell 132:3

320+ (const 132:4 %|)

321+ (face 132:7 p (tvar 132:9 B)))

322+ (cell 133:3

323+ (const 133:4 %&)

324+ (face 133:7 p (tvar 133:9 A))))))

325+ (mold 135:1 bloq (aura 135:9 @))

326+ (value 137:1 some

321327 (gate 137:9

322− (face 137:12 xs

323− (apply 137:15 list (tvar 137:21 A)))

324− (body 138:3

325− (value 138:3 reverse-into

326− (gate 138:19

327− (face 138:22 args

328− (cell 138:27

329− (apply 138:28 list (tvar 138:34 A))

330− (apply 138:37 list (tvar 138:43 A))))

331− (body 139:5

332− (branch 139:5

333− (wing 139:8 args)

334− (arm 140:7

335− (cell 140:7 (bind 140:8 rest) (bind 140:13 acc))

336− (body 141:9

337− (branch 141:9

338− (wing 141:12 rest)

339− (arm 142:11 (lit 142:11 ~) (wing 142:13 acc))

340− (arm 143:11

341− (cell 143:11 (bind 143:12 item) (bind 143:17 more))

342− (group 143:23

343− (call 143:24

344− (wing 143:24 reverse-into)

345− (wing 143:37 more)

346− (tuple 143:42 (wing 143:43 item) (wing 143:48 acc))))))))))))

347− (group 144:3

348− (call 144:4 (wing 144:4 reverse-into) (wing 144:17 xs) (lit 144:20 ~))))))

349− (value 146:1 drop

328+ (face 137:12 item (tvar 137:17 A))

329+ (unit 137:19 (wing 137:20 item))))

330+ (value 139:1 lure

331+ (gate 139:9

332+ (face 139:12 item (tvar 139:17 A))

333+ (body 140:3

334+ (cast 140:3

335+ (apply 140:6 list (tvar 140:12 A))

336+ (tuple 140:15 (wing 140:16 item) (lit 140:21 ~))))))

337+ (value 142:1 snoc

338+ (gate 142:9

339+ (face 142:12 args

340+ (cell 142:17

341+ (apply 142:18 list (tvar 142:24 A))

342+ (tvar 142:27 A)))

343+ (body 143:3

344+ (branch 143:3

345+ (wing 143:6 args)

346+ (arm 144:5

347+ (cell 144:5 (bind 144:6 xs) (bind 144:9 item))

348+ (group 144:15

349+ (call 144:16

350+ (wing 144:16 weld)

351+ (wing 144:21 xs)

352+ (tuple 144:24 (wing 144:25 item) (lit 144:30 ~)))))))))

353+ (value 146:1 flop

350354 (gate 146:9

351− (face 146:12 maybe

352− (apply 146:18 unit (tvar 146:24 A)))

355+ (face 146:12 xs

356+ (apply 146:15 list (tvar 146:21 A)))

353357 (body 147:3

354− (cast 147:3

355− (apply 147:6 list (tvar 147:12 A))

356− (body 148:5

357− (branch 148:5

358− (wing 148:8 maybe)

359− (arm 149:7 (lit 149:7 ~) (lit 149:9 ~))

360− (arm 150:7

361− (cell 150:7 (lit 150:8 ~) (bind 150:10 value))

362− (tuple 150:17 (wing 150:18 value) (lit 150:24 ~)))))))))

363− (value 152:1 bind

364− (gate 152:9

365− (face 152:12 args

366− (cell 152:17

367− (apply 152:18 unit (tvar 152:24 A))

368− (fn 152:27 (tvar 152:30 A) (tvar 152:32 B))))

369− (body 153:3

370− (branch 153:3

371− (wing 153:6 args)

372− (arm 154:5

373− (cell 154:5 (bind 154:6 maybe) (bind 154:12 f))

374− (cast 154:15

375− (apply 154:18 unit (tvar 154:24 B))

376− (body 155:7

377− (branch 155:7

378− (wing 155:10 maybe)

379− (arm 156:9 (lit 156:9 ~) (lit 156:11 ~))

380− (arm 157:9

381− (cell 157:9 (lit 157:10 ~) (bind 157:12 value))

382− (unit 157:19

383− (group 157:20

384− (call 157:21 (wing 157:21 f) (wing 157:23 value)))))))))))))

385− (value 159:1 biff

386− (gate 159:9

387− (face 159:12 args

388− (cell 159:17

389− (apply 159:18 unit (tvar 159:24 A))

390− (fn 159:27

391− (tvar 159:30 A)

392− (apply 159:32 unit (tvar 159:38 B)))))

393− (body 160:3

394− (branch 160:3

395− (wing 160:6 args)

396− (arm 161:5

397− (cell 161:5 (bind 161:6 maybe) (bind 161:12 f))

398− (cast 161:15

399− (apply 161:18 unit (tvar 161:24 B))

400− (body 162:7

401− (branch 162:7

402− (wing 162:10 maybe)

403− (arm 163:9 (lit 163:9 ~) (lit 163:11 ~))

404− (arm 164:9

405− (cell 164:9 (lit 164:10 ~) (bind 164:12 value))

406− (group 164:19

407− (call 164:20 (wing 164:20 f) (wing 164:22 value))))))))))))

408− (value 166:1 both

409− (gate 166:9

410− (face 166:12 args

411− (cell 166:17

412− (apply 166:18 unit (tvar 166:24 A))

413− (apply 166:27 unit (tvar 166:33 B))))

414− (body 167:3

415− (branch 167:3

416− (wing 167:6 args)

417− (arm 168:5

418− (cell 168:5 (bind 168:6 first) (bind 168:12 second))

419− (cast 168:20

420− (apply 168:23 unit

421− (cell 168:29 (tvar 168:30 A) (tvar 168:32 B)))

422− (body 169:7

423− (branch 169:7

424− (wing 169:10 first)

425− (arm 170:9 (lit 170:9 ~) (lit 170:11 ~))

426− (arm 171:9

427− (cell 171:9 (lit 171:10 ~) (bind 171:12 a))

428− (body 172:11

429− (branch 172:11

430− (wing 172:14 second)

431− (arm 173:13 (lit 173:13 ~) (lit 173:15 ~))

432− (arm 174:13

433− (cell 174:13 (lit 174:14 ~) (bind 174:16 b))

434− (unit 174:19

435− (tuple 174:20 (wing 174:21 a) (wing 174:23 b)))))))))))))))

436− (value 176:1 clap

437− (gate 176:9

438− (face 176:12 args

439− (cell 176:17

440− (apply 176:18 unit (tvar 176:24 A))

441− (apply 176:27 unit (tvar 176:33 A))

442− (fn 176:36

443− (cell 176:39 (tvar 176:40 A) (tvar 176:42 A))

444− (tvar 176:45 A))))

445− (body 177:3

446− (branch 177:3

447− (wing 177:6 args)

448− (arm 178:5

449− (cell 178:5 (bind 178:6 first) (bind 178:12 second) (bind 178:19 combine))

450− (cast 178:28

451− (apply 178:31 unit (tvar 178:37 A))

452− (body 179:7

453− (branch 179:7

454− (wing 179:10 first)

455− (arm 180:9 (lit 180:9 ~) (wing 180:11 second))

456− (arm 181:9

457− (cell 181:9 (lit 181:10 ~) (bind 181:12 a))

458− (body 182:11

459− (branch 182:11

460− (wing 182:14 second)

461− (arm 183:13 (lit 183:13 ~) (wing 183:15 first))

462− (arm 184:13

463− (cell 184:13 (lit 184:14 ~) (bind 184:16 b))

464− (unit 184:19

465− (group 184:20

466− (call 184:21 (wing 184:21 combine) (wing 184:29 a) (wing 184:31 b))))))))))))))))

467− (value 186:1 clef

468− (gate 186:9

469− (face 186:12 args

470− (cell 186:17

471− (apply 186:18 unit (tvar 186:24 A))

472− (apply 186:27 unit (tvar 186:33 B))

473− (fn 186:36

474− (cell 186:39 (tvar 186:40 A) (tvar 186:42 B))

475− (apply 186:45 unit (tvar 186:51 C)))))

476− (body 187:3

477− (branch 187:3

478− (wing 187:6 args)

479− (arm 188:5

480− (cell 188:5 (bind 188:6 first) (bind 188:12 second) (bind 188:19 combine))

481− (cast 188:28

482− (apply 188:31 unit (tvar 188:37 C))

483− (body 189:7

484− (branch 189:7

485− (wing 189:10 first)

486− (arm 190:9 (lit 190:9 ~) (lit 190:11 ~))

487− (arm 191:9

488− (cell 191:9 (lit 191:10 ~) (bind 191:12 a))

489− (body 192:11

490− (branch 192:11

491− (wing 192:14 second)

492− (arm 193:13 (lit 193:13 ~) (lit 193:15 ~))

493− (arm 194:13

494− (cell 194:13 (lit 194:14 ~) (bind 194:16 b))

495− (group 194:19

496− (call 194:20 (wing 194:20 combine) (wing 194:28 a) (wing 194:30 b)))))))))))))))

497− (value 196:1 skim

498− (gate 196:9

499− (face 196:12 args

500− (cell 196:17

501− (apply 196:18 list (tvar 196:24 A))

502− (fn 196:27 (tvar 196:30 A) (flag 196:32))))

503− (body 197:3

504− (branch 197:3

505− (wing 197:6 args)

506− (arm 198:5

507− (cell 198:5 (bind 198:6 xs) (bind 198:9 predicate))

508− (cast 198:20

509− (apply 198:23 list (tvar 198:29 A))

510− (body 199:9

511− (branch 199:9

512− (wing 199:12 xs)

513− (arm 200:11 (lit 200:11 ~) (lit 200:13 ~))

514− (arm 201:11

515− (cell 201:11 (bind 201:12 item) (bind 201:17 rest))

516− (body 202:13

517− (branch 202:13

518− (group 202:16

519− (call 202:17 (wing 202:17 predicate) (wing 202:27 item)))

520− (arm 203:15

521− (lit 203:15 %.y)

522− (tuple 203:19

523− (wing 203:20 item)

524− (group 203:25

525− (call 203:26 (wing 203:26 skim) (wing 203:31 rest) (wing 203:36 predicate)))))

526− (arm 204:15

527− (lit 204:15 %.n)

528− (group 204:19

529− (call 204:20 (wing 204:20 skim) (wing 204:25 rest) (wing 204:30 predicate)))))))))))))))

530− (value 206:1 skip

531− (gate 206:9

532− (face 206:12 args

533− (cell 206:17

534− (apply 206:18 list (tvar 206:24 A))

535− (fn 206:27 (tvar 206:30 A) (flag 206:32))))

536− (body 207:3

537− (branch 207:3

538− (wing 207:6 args)

539− (arm 208:5

540− (cell 208:5 (bind 208:6 xs) (bind 208:9 predicate))

541− (cast 208:20

542− (apply 208:23 list (tvar 208:29 A))

543− (body 209:9

544− (branch 209:9

545− (wing 209:12 xs)

546− (arm 210:11 (lit 210:11 ~) (lit 210:13 ~))

547− (arm 211:11

548− (cell 211:11 (bind 211:12 item) (bind 211:17 rest))

549− (body 212:13

550− (branch 212:13

551− (group 212:16

552− (call 212:17 (wing 212:17 predicate) (wing 212:27 item)))

553− (arm 213:15

554− (lit 213:15 %.y)

555− (group 213:19

556− (call 213:20 (wing 213:20 skip) (wing 213:25 rest) (wing 213:30 predicate))))

557− (arm 214:15

558− (lit 214:15 %.n)

559− (tuple 214:19

560− (wing 214:20 item)

561− (group 214:25

562− (call 214:26 (wing 214:26 skip) (wing 214:31 rest) (wing 214:36 predicate))))))))))))))))

563− (value 216:1 levy

564− (gate 216:9

565− (face 216:12 args

566− (cell 216:17

567− (apply 216:18 list (tvar 216:24 A))

568− (fn 216:27 (tvar 216:30 A) (flag 216:32))))

569− (body 217:3

570− (branch 217:3

571− (wing 217:6 args)

572− (arm 218:5

573− (cell 218:5 (bind 218:6 xs) (bind 218:9 predicate))

574− (body 219:7

575− (branch 219:7

576− (wing 219:10 xs)

577− (arm 220:9 (lit 220:9 ~) (lit 220:11 %.y))

578− (arm 221:9

579− (cell 221:9 (bind 221:10 item) (bind 221:15 rest))

580− (body 222:11

581− (branch 222:11

582− (group 222:14

583− (call 222:15 (wing 222:15 predicate) (wing 222:25 item)))

584− (arm 223:13

585− (lit 223:13 %.y)

586− (group 223:17

587− (call 223:18 (wing 223:18 levy) (wing 223:23 rest) (wing 223:28 predicate))))

588− (arm 224:13 (lit 224:13 %.n) (lit 224:17 %.n))))))))))))

589− (value 226:1 lien

590− (gate 226:9

591− (face 226:12 args

592− (cell 226:17

593− (apply 226:18 list (tvar 226:24 A))

594− (fn 226:27 (tvar 226:30 A) (flag 226:32))))

595− (body 227:3

596− (branch 227:3

597− (wing 227:6 args)

598− (arm 228:5

599− (cell 228:5 (bind 228:6 xs) (bind 228:9 predicate))

600− (body 229:7

601− (branch 229:7

602− (wing 229:10 xs)

603− (arm 230:9 (lit 230:9 ~) (lit 230:11 %.n))

604− (arm 231:9

605− (cell 231:9 (bind 231:10 item) (bind 231:15 rest))

606− (body 232:11

607− (branch 232:11

608− (group 232:14

609− (call 232:15 (wing 232:15 predicate) (wing 232:25 item)))

610− (arm 233:13 (lit 233:13 %.y) (lit 233:17 %.y))

611− (arm 234:13

612− (lit 234:13 %.n)

613− (group 234:17

614− (call 234:18 (wing 234:18 lien) (wing 234:23 rest) (wing 234:28 predicate))))))))))))))

615− (value 236:1 roll

616− (gate 236:9

617− (face 236:12 args

618− (cell 236:17

619− (apply 236:18 list (tvar 236:24 A))

620− (tvar 236:27 B)

621− (fn 236:29

622− (cell 236:32 (tvar 236:33 A) (tvar 236:35 B))

623− (tvar 236:38 B))))

624− (body 237:3

625− (branch 237:3

626− (wing 237:6 args)

627− (arm 238:5

628− (cell 238:5 (bind 238:6 xs) (bind 238:9 start) (bind 238:15 combine))

629− (body 239:7

630− (branch 239:7

631− (wing 239:10 xs)

632− (arm 240:9 (lit 240:9 ~) (wing 240:11 start))

633− (arm 241:9

634− (cell 241:9 (bind 241:10 item) (bind 241:15 rest))

635− (group 241:21

636− (call 241:22

637− (wing 241:22 roll)

638− (wing 241:27 rest)

639− (group 241:32

640− (call 241:33 (wing 241:33 combine) (wing 241:41 item) (wing 241:46 start)))

641− (wing 241:53 combine)))))))))))

642− (value 243:1 reel

643− (gate 243:9

644− (face 243:12 args

645− (cell 243:17

646− (apply 243:18 list (tvar 243:24 A))

647− (tvar 243:27 B)

648− (fn 243:29

649− (cell 243:32 (tvar 243:33 A) (tvar 243:35 B))

650− (tvar 243:38 B))))

651− (body 244:3

652− (branch 244:3

653− (wing 244:6 args)

654− (arm 245:5

655− (cell 245:5 (bind 245:6 xs) (bind 245:9 start) (bind 245:15 combine))

656− (body 246:7

657− (branch 246:7

658− (wing 246:10 xs)

659− (arm 247:9 (lit 247:9 ~) (wing 247:11 start))

660− (arm 248:9

661− (cell 248:9 (bind 248:10 item) (bind 248:15 rest))

662− (group 248:21

663− (call 248:22

664− (wing 248:22 combine)

665− (wing 248:30 item)

666− (group 248:35

667− (call 248:36 (wing 248:36 reel) (wing 248:41 rest) (wing 248:46 start) (wing 248:52 combine)))))))))))))

668− (value 250:1 flit

669− (gate 250:9

670− (face 250:12 predicate

671− (fn 250:22 (tvar 250:25 A) (flag 250:27)))

672− (body 251:3

673− (gate 251:3

674− (face 251:6 value (tvar 251:12 A))

675− (body 252:5

676− (cast 252:5

677− (apply 252:8 unit (tvar 252:14 A))

678− (body 253:7

679− (branch 253:7

680− (group 253:10

681− (call 253:11 (wing 253:11 predicate) (wing 253:21 value)))

682− (arm 254:9

683− (lit 254:9 %.y)

684− (unit 254:13 (wing 254:14 value)))

685− (arm 255:9 (lit 255:9 %.n) (lit 255:13 ~))))))))))

686− (value 257:1 murn

687− (gate 257:9

688− (face 257:12 args

689− (cell 257:17

690− (apply 257:18 list (tvar 257:24 A))

691− (fn 257:27

692− (tvar 257:30 A)

693− (apply 257:32 unit (tvar 257:38 B)))))

694− (body 258:3

695− (branch 258:3

696− (wing 258:6 args)

697− (arm 259:5

698− (cell 259:5 (bind 259:6 xs) (bind 259:9 f))

699− (cast 259:12

700− (apply 259:15 list (tvar 259:21 B))

701− (body 260:9

702− (branch 260:9

703− (wing 260:12 xs)

704− (arm 261:11 (lit 261:11 ~) (lit 261:13 ~))

705− (arm 262:11

706− (cell 262:11 (bind 262:12 item) (bind 262:17 rest))

707− (body 263:13

708− (branch 263:13

709− (group 263:16

710− (call 263:17 (wing 263:17 f) (wing 263:19 item)))

711− (arm 264:15

712− (lit 264:15 ~)

713− (group 264:17

714− (call 264:18 (wing 264:18 murn) (wing 264:23 rest) (wing 264:28 f))))

715− (arm 265:15

716− (cell 265:15 (lit 265:16 ~) (bind 265:18 value))

717− (tuple 265:25

718− (wing 265:26 value)

719− (group 265:32

720− (call 265:33 (wing 265:33 murn) (wing 265:38 rest) (wing 265:43 f))))))))))))))))

721− (value 267:1 join

358+ (value 147:3 reverse-into

359+ (gate 147:19

360+ (face 147:22 args

361+ (cell 147:27

362+ (apply 147:28 list (tvar 147:34 A))

363+ (apply 147:37 list (tvar 147:43 A))))

364+ (body 148:5

365+ (branch 148:5

366+ (wing 148:8 args)

367+ (arm 149:7

368+ (cell 149:7 (bind 149:8 rest) (bind 149:13 acc))

369+ (body 150:9

370+ (branch 150:9

371+ (wing 150:12 rest)

372+ (arm 151:11 (lit 151:11 ~) (wing 151:13 acc))

373+ (arm 152:11

374+ (cell 152:11 (bind 152:12 item) (bind 152:17 more))

375+ (group 152:23

376+ (call 152:24

377+ (wing 152:24 reverse-into)

378+ (wing 152:37 more)

379+ (tuple 152:42 (wing 152:43 item) (wing 152:48 acc))))))))))))

380+ (group 153:3

381+ (call 153:4 (wing 153:4 reverse-into) (wing 153:17 xs) (lit 153:20 ~))))))

382+ (value 155:1 drop

383+ (gate 155:9

384+ (face 155:12 maybe

385+ (apply 155:18 unit (tvar 155:24 A)))

386+ (body 156:3

387+ (cast 156:3

388+ (apply 156:6 list (tvar 156:12 A))

389+ (body 157:5

390+ (branch 157:5

391+ (wing 157:8 maybe)

392+ (arm 158:7 (lit 158:7 ~) (lit 158:9 ~))

393+ (arm 159:7

394+ (cell 159:7 (lit 159:8 ~) (bind 159:10 value))

395+ (tuple 159:17 (wing 159:18 value) (lit 159:24 ~)))))))))

396+ (value 161:1 bond

397+ (gate 161:9

398+ (face 161:12 fallback

399+ (fn 161:21 (const 161:24 ~) (tvar 161:26 A)))

400+ (body 162:3

401+ (gate 162:3

402+ (face 162:6 maybe

403+ (apply 162:12 unit (tvar 162:18 A)))

404+ (body 163:5

405+ (branch 163:5

406+ (wing 163:8 maybe)

407+ (arm 164:7

408+ (lit 164:7 ~)

409+ (group 164:9

410+ (call 164:10 (wing 164:10 fallback) (lit 164:19 ~))))

411+ (arm 165:7

412+ (cell 165:7 (lit 165:8 ~) (bind 165:10 value))

413+ (wing 165:17 value))))))))

414+ (value 167:1 bind

415+ (gate 167:9

416+ (face 167:12 args

417+ (cell 167:17

418+ (apply 167:18 unit (tvar 167:24 A))

419+ (fn 167:27 (tvar 167:30 A) (tvar 167:32 B))))

420+ (body 168:3

421+ (branch 168:3

422+ (wing 168:6 args)

423+ (arm 169:5

424+ (cell 169:5 (bind 169:6 maybe) (bind 169:12 f))

425+ (cast 169:15

426+ (apply 169:18 unit (tvar 169:24 B))

427+ (body 170:7

428+ (branch 170:7

429+ (wing 170:10 maybe)

430+ (arm 171:9 (lit 171:9 ~) (lit 171:11 ~))

431+ (arm 172:9

432+ (cell 172:9 (lit 172:10 ~) (bind 172:12 value))

433+ (unit 172:19

434+ (group 172:20

435+ (call 172:21 (wing 172:21 f) (wing 172:23 value)))))))))))))

436+ (value 174:1 biff

437+ (gate 174:9

438+ (face 174:12 args

439+ (cell 174:17

440+ (apply 174:18 unit (tvar 174:24 A))

441+ (fn 174:27

442+ (tvar 174:30 A)

443+ (apply 174:32 unit (tvar 174:38 B)))))

444+ (body 175:3

445+ (branch 175:3

446+ (wing 175:6 args)

447+ (arm 176:5

448+ (cell 176:5 (bind 176:6 maybe) (bind 176:12 f))

449+ (cast 176:15

450+ (apply 176:18 unit (tvar 176:24 B))

451+ (body 177:7

452+ (branch 177:7

453+ (wing 177:10 maybe)

454+ (arm 178:9 (lit 178:9 ~) (lit 178:11 ~))

455+ (arm 179:9

456+ (cell 179:9 (lit 179:10 ~) (bind 179:12 value))

457+ (group 179:19

458+ (call 179:20 (wing 179:20 f) (wing 179:22 value))))))))))))

459+ (value 181:1 both

460+ (gate 181:9

461+ (face 181:12 args

462+ (cell 181:17

463+ (apply 181:18 unit (tvar 181:24 A))

464+ (apply 181:27 unit (tvar 181:33 B))))

465+ (body 182:3

466+ (branch 182:3

467+ (wing 182:6 args)

468+ (arm 183:5

469+ (cell 183:5 (bind 183:6 first) (bind 183:12 second))

470+ (cast 183:20

471+ (apply 183:23 unit

472+ (cell 183:29 (tvar 183:30 A) (tvar 183:32 B)))

473+ (body 184:7

474+ (branch 184:7

475+ (wing 184:10 first)

476+ (arm 185:9 (lit 185:9 ~) (lit 185:11 ~))

477+ (arm 186:9

478+ (cell 186:9 (lit 186:10 ~) (bind 186:12 a))

479+ (body 187:11

480+ (branch 187:11

481+ (wing 187:14 second)

482+ (arm 188:13 (lit 188:13 ~) (lit 188:15 ~))

483+ (arm 189:13

484+ (cell 189:13 (lit 189:14 ~) (bind 189:16 b))

485+ (unit 189:19

486+ (tuple 189:20 (wing 189:21 a) (wing 189:23 b)))))))))))))))

487+ (value 191:1 clap

488+ (gate 191:9

489+ (face 191:12 args

490+ (cell 191:17

491+ (apply 191:18 unit (tvar 191:24 A))

492+ (apply 191:27 unit (tvar 191:33 A))

493+ (fn 191:36

494+ (cell 191:39 (tvar 191:40 A) (tvar 191:42 A))

495+ (tvar 191:45 A))))

496+ (body 192:3

497+ (branch 192:3

498+ (wing 192:6 args)

499+ (arm 193:5

500+ (cell 193:5 (bind 193:6 first) (bind 193:12 second) (bind 193:19 combine))

501+ (cast 193:28

502+ (apply 193:31 unit (tvar 193:37 A))

503+ (body 194:7

504+ (branch 194:7

505+ (wing 194:10 first)

506+ (arm 195:9 (lit 195:9 ~) (wing 195:11 second))

507+ (arm 196:9

508+ (cell 196:9 (lit 196:10 ~) (bind 196:12 a))

509+ (body 197:11

510+ (branch 197:11

511+ (wing 197:14 second)

512+ (arm 198:13 (lit 198:13 ~) (wing 198:15 first))

513+ (arm 199:13

514+ (cell 199:13 (lit 199:14 ~) (bind 199:16 b))

515+ (unit 199:19

516+ (group 199:20

517+ (call 199:21 (wing 199:21 combine) (wing 199:29 a) (wing 199:31 b))))))))))))))))

518+ (value 201:1 clef

519+ (gate 201:9

520+ (face 201:12 args

521+ (cell 201:17

522+ (apply 201:18 unit (tvar 201:24 A))

523+ (apply 201:27 unit (tvar 201:33 B))

524+ (fn 201:36

525+ (cell 201:39 (tvar 201:40 A) (tvar 201:42 B))

526+ (apply 201:45 unit (tvar 201:51 C)))))

527+ (body 202:3

528+ (branch 202:3

529+ (wing 202:6 args)

530+ (arm 203:5

531+ (cell 203:5 (bind 203:6 first) (bind 203:12 second) (bind 203:19 combine))

532+ (cast 203:28

533+ (apply 203:31 unit (tvar 203:37 C))

534+ (body 204:7

535+ (branch 204:7

536+ (wing 204:10 first)

537+ (arm 205:9 (lit 205:9 ~) (lit 205:11 ~))

538+ (arm 206:9

539+ (cell 206:9 (lit 206:10 ~) (bind 206:12 a))

540+ (body 207:11

541+ (branch 207:11

542+ (wing 207:14 second)

543+ (arm 208:13 (lit 208:13 ~) (lit 208:15 ~))

544+ (arm 209:13

545+ (cell 209:13 (lit 209:14 ~) (bind 209:16 b))

546+ (group 209:19

547+ (call 209:20 (wing 209:20 combine) (wing 209:28 a) (wing 209:30 b)))))))))))))))

548+ (value 211:1 skim

549+ (gate 211:9

550+ (face 211:12 args

551+ (cell 211:17

552+ (apply 211:18 list (tvar 211:24 A))

553+ (fn 211:27 (tvar 211:30 A) (flag 211:32))))

554+ (body 212:3

555+ (branch 212:3

556+ (wing 212:6 args)

557+ (arm 213:5

558+ (cell 213:5 (bind 213:6 xs) (bind 213:9 predicate))

559+ (cast 213:20

560+ (apply 213:23 list (tvar 213:29 A))

561+ (body 214:9

562+ (branch 214:9

563+ (wing 214:12 xs)

564+ (arm 215:11 (lit 215:11 ~) (lit 215:13 ~))

565+ (arm 216:11

566+ (cell 216:11 (bind 216:12 item) (bind 216:17 rest))

567+ (body 217:13

568+ (branch 217:13

569+ (group 217:16

570+ (call 217:17 (wing 217:17 predicate) (wing 217:27 item)))

571+ (arm 218:15

572+ (lit 218:15 %.y)

573+ (tuple 218:19

574+ (wing 218:20 item)

575+ (group 218:25

576+ (call 218:26 (wing 218:26 skim) (wing 218:31 rest) (wing 218:36 predicate)))))

577+ (arm 219:15

578+ (lit 219:15 %.n)

579+ (group 219:19

580+ (call 219:20 (wing 219:20 skim) (wing 219:25 rest) (wing 219:30 predicate)))))))))))))))

581+ (value 221:1 skip

582+ (gate 221:9

583+ (face 221:12 args

584+ (cell 221:17

585+ (apply 221:18 list (tvar 221:24 A))

586+ (fn 221:27 (tvar 221:30 A) (flag 221:32))))

587+ (body 222:3

588+ (branch 222:3

589+ (wing 222:6 args)

590+ (arm 223:5

591+ (cell 223:5 (bind 223:6 xs) (bind 223:9 predicate))

592+ (cast 223:20

593+ (apply 223:23 list (tvar 223:29 A))

594+ (body 224:9

595+ (branch 224:9

596+ (wing 224:12 xs)

597+ (arm 225:11 (lit 225:11 ~) (lit 225:13 ~))

598+ (arm 226:11

599+ (cell 226:11 (bind 226:12 item) (bind 226:17 rest))

600+ (body 227:13

601+ (branch 227:13

602+ (group 227:16

603+ (call 227:17 (wing 227:17 predicate) (wing 227:27 item)))

604+ (arm 228:15

605+ (lit 228:15 %.y)

606+ (group 228:19

607+ (call 228:20 (wing 228:20 skip) (wing 228:25 rest) (wing 228:30 predicate))))

608+ (arm 229:15

609+ (lit 229:15 %.n)

610+ (tuple 229:19

611+ (wing 229:20 item)

612+ (group 229:25

613+ (call 229:26 (wing 229:26 skip) (wing 229:31 rest) (wing 229:36 predicate))))))))))))))))

614+ (value 231:1 levy

615+ (gate 231:9

616+ (face 231:12 args

617+ (cell 231:17

618+ (apply 231:18 list (tvar 231:24 A))

619+ (fn 231:27 (tvar 231:30 A) (flag 231:32))))

620+ (body 232:3

621+ (cast 232:3

622+ (flag 232:6)

623+ (body 233:5

624+ (branch 233:5

625+ (wing 233:8 args)

626+ (arm 234:7

627+ (cell 234:7 (bind 234:8 xs) (bind 234:11 predicate))

628+ (body 235:9

629+ (branch 235:9

630+ (wing 235:12 xs)

631+ (arm 236:11 (lit 236:11 ~) (lit 236:13 %.y))

632+ (arm 237:11

633+ (cell 237:11 (bind 237:12 item) (bind 237:17 rest))

634+ (body 238:13

635+ (branch 238:13

636+ (group 238:16

637+ (call 238:17 (wing 238:17 predicate) (wing 238:27 item)))

638+ (arm 239:15

639+ (lit 239:15 %.y)

640+ (group 239:19

641+ (call 239:20 (wing 239:20 levy) (wing 239:25 rest) (wing 239:30 predicate))))

642+ (arm 240:15 (lit 240:15 %.n) (lit 240:19 %.n))))))))))))))

643+ (value 242:1 lien

644+ (gate 242:9

645+ (face 242:12 args

646+ (cell 242:17

647+ (apply 242:18 list (tvar 242:24 A))

648+ (fn 242:27 (tvar 242:30 A) (flag 242:32))))

649+ (body 243:3

650+ (cast 243:3

651+ (flag 243:6)

652+ (body 244:5

653+ (branch 244:5

654+ (wing 244:8 args)

655+ (arm 245:7

656+ (cell 245:7 (bind 245:8 xs) (bind 245:11 predicate))

657+ (body 246:9

658+ (branch 246:9

659+ (wing 246:12 xs)

660+ (arm 247:11 (lit 247:11 ~) (lit 247:13 %.n))

661+ (arm 248:11

662+ (cell 248:11 (bind 248:12 item) (bind 248:17 rest))

663+ (body 249:13

664+ (branch 249:13

665+ (group 249:16

666+ (call 249:17 (wing 249:17 predicate) (wing 249:27 item)))

667+ (arm 250:15 (lit 250:15 %.y) (lit 250:19 %.y))

668+ (arm 251:15

669+ (lit 251:15 %.n)

670+ (group 251:19

671+ (call 251:20 (wing 251:20 lien) (wing 251:25 rest) (wing 251:30 predicate))))))))))))))))

672+ (value 253:1 roll

673+ (gate 253:9

674+ (face 253:12 args

675+ (cell 253:17

676+ (apply 253:18 list (tvar 253:24 A))

677+ (tvar 253:27 B)

678+ (fn 253:29

679+ (cell 253:32 (tvar 253:33 A) (tvar 253:35 B))

680+ (tvar 253:38 B))))

681+ (body 254:3

682+ (branch 254:3

683+ (wing 254:6 args)

684+ (arm 255:5

685+ (cell 255:5 (bind 255:6 xs) (bind 255:9 start) (bind 255:15 combine))

686+ (body 256:7

687+ (branch 256:7

688+ (wing 256:10 xs)

689+ (arm 257:9 (lit 257:9 ~) (wing 257:11 start))

690+ (arm 258:9

691+ (cell 258:9 (bind 258:10 item) (bind 258:15 rest))

692+ (group 258:21

693+ (call 258:22

694+ (wing 258:22 roll)

695+ (wing 258:27 rest)

696+ (group 258:32

697+ (call 258:33 (wing 258:33 combine) (wing 258:41 item) (wing 258:46 start)))

698+ (wing 258:53 combine)))))))))))

699+ (value 260:1 reel

700+ (gate 260:9

701+ (face 260:12 args

702+ (cell 260:17

703+ (apply 260:18 list (tvar 260:24 A))

704+ (tvar 260:27 B)

705+ (fn 260:29

706+ (cell 260:32 (tvar 260:33 A) (tvar 260:35 B))

707+ (tvar 260:38 B))))

708+ (body 261:3

709+ (branch 261:3

710+ (wing 261:6 args)

711+ (arm 262:5

712+ (cell 262:5 (bind 262:6 xs) (bind 262:9 start) (bind 262:15 combine))

713+ (body 263:7

714+ (branch 263:7

715+ (wing 263:10 xs)

716+ (arm 264:9 (lit 264:9 ~) (wing 264:11 start))

717+ (arm 265:9

718+ (cell 265:9 (bind 265:10 item) (bind 265:15 rest))

719+ (group 265:21

720+ (call 265:22

721+ (wing 265:22 combine)

722+ (wing 265:30 item)

723+ (group 265:35

724+ (call 265:36 (wing 265:36 reel) (wing 265:41 rest) (wing 265:46 start) (wing 265:52 combine)))))))))))))

725+ (value 267:1 flit

722726 (gate 267:9

723− (face 267:12 args

724− (cell 267:17

725− (tvar 267:18 A)

726− (apply 267:20 list (tvar 267:26 A))))

727+ (face 267:12 predicate

728+ (fn 267:22 (tvar 267:25 A) (flag 267:27)))

727729 (body 268:3

728− (branch 268:3

729− (wing 268:6 args)

730− (arm 269:5

731− (cell 269:5 (bind 269:6 separator) (bind 269:16 xs))

732− (cast 269:20

733− (apply 269:23 list (tvar 269:29 A))

734− (body 270:9

735− (branch 270:9

736− (wing 270:12 xs)

737− (arm 271:11 (lit 271:11 ~) (lit 271:13 ~))

738− (arm 272:11

739− (cell 272:11 (bind 272:12 item) (bind 272:17 rest))

740− (body 273:13

741− (branch 273:13

742− (wing 273:16 rest)

743− (arm 274:15

744− (lit 274:15 ~)

745− (tuple 274:17 (wing 274:18 item) (lit 274:23 ~)))

746− (arm 275:15

747− (cell 275:15 (bind 275:16 next) (bind 275:21 more))

748− (tuple 275:27

749− (wing 275:28 item)

750− (tuple 275:33

751− (wing 275:34 separator)

752− (group 275:44

753− (call 275:45 (wing 275:45 join) (wing 275:50 separator) (wing 275:60 rest)))))))))))))))))

754− (value 277:1 snip

755− (gate 277:9

756− (face 277:12 xs

757− (apply 277:15 list (tvar 277:21 A)))

758− (body 278:3

759− (cast 278:3

760− (apply 278:6 list (tvar 278:12 A))

761− (body 279:5

762− (branch 279:5

763− (wing 279:8 xs)

764− (arm 280:7 (lit 280:7 ~) (lit 280:9 ~))

765− (arm 281:7

766− (cell 281:7 (bind 281:8 item) (bind 281:13 rest))

767− (body 282:9

768− (branch 282:9

769− (wing 282:12 rest)

770− (arm 283:11 (lit 283:11 ~) (lit 283:13 ~))

771− (arm 284:11

772− (cell 284:11 (bind 284:12 next) (bind 284:17 more))

773− (tuple 284:23

774− (wing 284:24 item)

775− (group 284:29

776− (call 284:30 (wing 284:30 snip) (wing 284:35 rest))))))))))))))

777− (value 286:1 rear

778− (gate 286:9

779− (face 286:12 xs

780− (apply 286:15 list (tvar 286:21 A)))

781− (body 287:3

782− (branch 287:3

783− (wing 287:6 xs)

784− (arm 288:5 (lit 288:5 ~) (crash 288:7))

785− (arm 289:5

786− (cell 289:5 (bind 289:6 item) (bind 289:11 rest))

787− (body 290:7

788− (branch 290:7

789− (wing 290:10 rest)

790− (arm 291:9 (lit 291:9 ~) (wing 291:11 item))

791− (arm 292:9

792− (cell 292:9 (bind 292:10 next) (bind 292:15 more))

793− (group 292:21

794− (call 292:22 (wing 292:22 rear) (wing 292:27 rest))))))))))))

730+ (gate 268:3

731+ (face 268:6 value (tvar 268:12 A))

732+ (body 269:5

733+ (cast 269:5

734+ (apply 269:8 unit (tvar 269:14 A))

735+ (body 270:7

736+ (branch 270:7

737+ (group 270:10

738+ (call 270:11 (wing 270:11 predicate) (wing 270:21 value)))

739+ (arm 271:9

740+ (lit 271:9 %.y)

741+ (unit 271:13 (wing 271:14 value)))

742+ (arm 272:9 (lit 272:9 %.n) (lit 272:13 ~))))))))))

743+ (value 274:1 murn

744+ (gate 274:9

745+ (face 274:12 args

746+ (cell 274:17

747+ (apply 274:18 list (tvar 274:24 A))

748+ (fn 274:27

749+ (tvar 274:30 A)

750+ (apply 274:32 unit (tvar 274:38 B)))))

751+ (body 275:3

752+ (branch 275:3

753+ (wing 275:6 args)

754+ (arm 276:5

755+ (cell 276:5 (bind 276:6 xs) (bind 276:9 f))

756+ (cast 276:12

757+ (apply 276:15 list (tvar 276:21 B))

758+ (body 277:9

759+ (branch 277:9

760+ (wing 277:12 xs)

761+ (arm 278:11 (lit 278:11 ~) (lit 278:13 ~))

762+ (arm 279:11

763+ (cell 279:11 (bind 279:12 item) (bind 279:17 rest))

764+ (body 280:13

765+ (branch 280:13

766+ (group 280:16

767+ (call 280:17 (wing 280:17 f) (wing 280:19 item)))

768+ (arm 281:15

769+ (lit 281:15 ~)

770+ (group 281:17

771+ (call 281:18 (wing 281:18 murn) (wing 281:23 rest) (wing 281:28 f))))

772+ (arm 282:15

773+ (cell 282:15 (lit 282:16 ~) (bind 282:18 value))

774+ (tuple 282:25

775+ (wing 282:26 value)

776+ (group 282:32

777+ (call 282:33 (wing 282:33 murn) (wing 282:38 rest) (wing 282:43 f))))))))))))))))

778+ (value 284:1 join

779+ (gate 284:9

780+ (face 284:12 args

781+ (cell 284:17

782+ (tvar 284:18 A)

783+ (apply 284:20 list (tvar 284:26 A))))

784+ (body 285:3

785+ (branch 285:3

786+ (wing 285:6 args)

787+ (arm 286:5

788+ (cell 286:5 (bind 286:6 separator) (bind 286:16 xs))

789+ (cast 286:20

790+ (apply 286:23 list (tvar 286:29 A))

791+ (body 287:9

792+ (branch 287:9

793+ (wing 287:12 xs)

794+ (arm 288:11 (lit 288:11 ~) (lit 288:13 ~))

795+ (arm 289:11

796+ (cell 289:11 (bind 289:12 item) (bind 289:17 rest))

797+ (body 290:13

798+ (branch 290:13

799+ (wing 290:16 rest)

800+ (arm 291:15

801+ (lit 291:15 ~)

802+ (tuple 291:17 (wing 291:18 item) (lit 291:23 ~)))

803+ (arm 292:15

804+ (cell 292:15 (bind 292:16 next) (bind 292:21 more))

805+ (tuple 292:27

806+ (wing 292:28 item)

807+ (tuple 292:33

808+ (wing 292:34 separator)

809+ (group 292:44

810+ (call 292:45 (wing 292:45 join) (wing 292:50 separator) (wing 292:60 rest)))))))))))))))))

811+ (value 294:1 snip

812+ (gate 294:9

813+ (face 294:12 xs

814+ (apply 294:15 list (tvar 294:21 A)))

815+ (body 295:3

816+ (cast 295:3

817+ (apply 295:6 list (tvar 295:12 A))

818+ (body 296:5

819+ (branch 296:5

820+ (wing 296:8 xs)

821+ (arm 297:7 (lit 297:7 ~) (lit 297:9 ~))

822+ (arm 298:7

823+ (cell 298:7 (bind 298:8 item) (bind 298:13 rest))

824+ (body 299:9

825+ (branch 299:9

826+ (wing 299:12 rest)

827+ (arm 300:11 (lit 300:11 ~) (lit 300:13 ~))

828+ (arm 301:11

829+ (cell 301:11 (bind 301:12 next) (bind 301:17 more))

830+ (tuple 301:23

831+ (wing 301:24 item)

832+ (group 301:29

833+ (call 301:30 (wing 301:30 snip) (wing 301:35 rest))))))))))))))

834+ (value 303:1 rear

835+ (gate 303:9

836+ (face 303:12 xs

837+ (apply 303:15 list (tvar 303:21 A)))

838+ (body 304:3

839+ (branch 304:3

840+ (wing 304:6 xs)

841+ (arm 305:5 (lit 305:5 ~) (crash 305:7))

842+ (arm 306:5

843+ (cell 306:5 (bind 306:6 item) (bind 306:11 rest))

844+ (body 307:7

845+ (branch 307:7

846+ (wing 307:10 rest)

847+ (arm 308:9 (lit 308:9 ~) (wing 308:11 item))

848+ (arm 309:9

849+ (cell 309:9 (bind 309:10 next) (bind 309:15 more))

850+ (group 309:21

851+ (call 309:22 (wing 309:22 rear) (wing 309:27 rest)))))))))))

852+ (value 311:1 cork

853+ (gate 311:9

854+ (face 311:12 gates

855+ (cell 311:18

856+ (fn 311:19 (tvar 311:22 A) (tvar 311:24 B))

857+ (fn 311:27 (tvar 311:30 B) (tvar 311:32 C))))

858+ (body 312:3

859+ (branch 312:3

860+ (wing 312:6 gates)

861+ (arm 313:5

862+ (cell 313:5 (bind 313:6 f) (bind 313:8 g))

863+ (gate 313:11

864+ (face 313:14 x (tvar 313:16 A))

865+ (group 313:18

866+ (call 313:19

867+ (wing 313:19 g)

868+ (group 313:21

869+ (call 313:22 (wing 313:22 f) (wing 313:24 x)))))))))))

870+ (value 315:1 corl

871+ (gate 315:9

872+ (face 315:12 gates

873+ (cell 315:18

874+ (fn 315:19 (tvar 315:22 B) (tvar 315:24 C))

875+ (fn 315:27 (tvar 315:30 A) (tvar 315:32 B))))

876+ (body 316:3

877+ (branch 316:3

878+ (wing 316:6 gates)

879+ (arm 317:5

880+ (cell 317:5 (bind 317:6 f) (bind 317:8 g))

881+ (gate 317:11

882+ (face 317:14 x (tvar 317:16 A))

883+ (group 317:18

884+ (call 317:19

885+ (wing 317:19 f)

886+ (group 317:21

887+ (call 317:22 (wing 317:22 g) (wing 317:24 x)))))))))))

888+ (value 319:1 cury

889+ (gate 319:9

890+ (face 319:12 args

891+ (cell 319:17

892+ (fn 319:18

893+ (cell 319:21 (tvar 319:22 A) (tvar 319:24 B))

894+ (tvar 319:27 C))

895+ (tvar 319:30 A)))

896+ (body 320:3

897+ (branch 320:3

898+ (wing 320:6 args)

899+ (arm 321:5

900+ (cell 321:5 (bind 321:6 f) (bind 321:8 a))

901+ (gate 321:11

902+ (face 321:14 b (tvar 321:16 B))

903+ (group 321:18

904+ (call 321:19 (wing 321:19 f) (wing 321:21 a) (wing 321:23 b)))))))))

905+ (value 323:1 curr

906+ (gate 323:9

907+ (face 323:12 args

908+ (cell 323:17

909+ (fn 323:18

910+ (cell 323:21 (tvar 323:22 A) (tvar 323:24 B))

911+ (tvar 323:27 C))

912+ (tvar 323:30 B)))

913+ (body 324:3

914+ (branch 324:3

915+ (wing 324:6 args)

916+ (arm 325:5

917+ (cell 325:5 (bind 325:6 f) (bind 325:8 b))

918+ (gate 325:11

919+ (face 325:14 a (tvar 325:16 A))

920+ (group 325:18

921+ (call 325:19 (wing 325:19 f) (wing 325:21 a) (wing 325:23 b)))))))))

922+ (mold 327:1 cmd

923+ (generic 327:8 M

924+ (union 328:3

925+ (cell 328:3

926+ (const 328:4 %poke)

927+ (face 328:10 p (ref 328:12 poke))

928+ (face 328:17 reply

929+ (fn 328:23

930+ (apply 328:26 unit (aura 328:32 @t))

931+ (tvar 328:36 M))))

932+ (cell 329:3

933+ (const 329:4 %go)

934+ (face 329:8 url (aura 329:12 @t)))

935+ (cell 330:3

936+ (const 330:4 %wait)

937+ (face 330:10 gap (aura 330:14 @dr))

938+ (face 330:18 msg (tvar 330:22 M)))

939+ (cell 331:3

940+ (const 331:4 %now)

941+ (face 331:9 reply

942+ (fn 331:15 (aura 331:18 @da) (tvar 331:22 M))))

943+ (cell 332:3

944+ (const 332:4 %who)

945+ (face 332:9 reply

946+ (fn 332:15 (aura 332:18 @p) (tvar 332:21 M)))))))

947+ (value 334:1 gth

948+ (gate 334:8

949+ (face 334:11 args

950+ (cell 334:16 (tvar 334:17 A) (tvar 334:19 A)))

951+ (group 334:22

952+ (call 334:23 (wing 334:23 gth-atom.internal) (wing 334:41 args)))))

953+ (value 335:1 add

954+ (gate 335:8

955+ (face 335:11 args

956+ (cell 335:16 (tvar 335:17 A) (tvar 335:19 A)))

957+ (group 335:22

958+ (call 335:23 (wing 335:23 add-atom.internal) (wing 335:41 args)))))

959+ (value 336:1 dec

960+ (gate 336:8

961+ (face 336:11 atom (tvar 336:16 A))

962+ (group 336:18

963+ (call 336:19 (wing 336:19 dec-atom.internal) (wing 336:37 atom)))))

964+ (mold 338:1 ask

965+ (generic 338:8 M

966+ (apply 338:15 ask.internal (tvar 338:29 M))))

967+ (value 339:1 pure

968+ (gate 339:9

969+ (face 339:12 x (tvar 339:14 M))

970+ (cast 339:16

971+ (apply 339:19 ask (tvar 339:24 M))

972+ (tuple 339:27 (lit 339:28 %pure) (wing 339:34 x))))))

tests/golden/prelude-unit-list-transforms/types.txt+13

@@ -1,5 +1,6 @@

11partial inference; module not checked

22+$ poke: not checked

3++$ qath: not checked

34++ same: $-(A A)

45++ head: $-([A B] A)

56++ tail: $-([A B] B)

@@ -28,6 +29,7 @@ partial inference; module not checked

2829+$ spot: not checked

2930+$ toon: cases proven disjoint; mold not checked

3031+$ like: not checked

32+++ like: sample mold is not supported by partial inference

3133++ wonk: sample mold is not supported by partial inference

3234+$ lone: not checked

3335+$ lest: not checked

@@ -41,6 +43,7 @@ partial inference; module not checked

4143++ snoc: sample mold is not supported by partial inference

4244++ flop: sample mold is not supported by partial inference

4345++ drop: cast mold is not supported by partial inference

46+++ bond: $-($-(~ A) $-((unit A) A))

4447++ bind: unit construction needs the standard prelude in partial inference

4548++ biff: $-([(unit A) $-(A (unit B))] (unit B))

4649++ both: unit construction needs the standard prelude in partial inference

@@ -57,3 +60,13 @@ partial inference; module not checked

5760++ join: sample mold is not supported by partial inference

5861++ snip: sample mold is not supported by partial inference

5962++ rear: sample mold is not supported by partial inference

63+++ cork: $-([$-(A B) $-(B C)] $-(A C))

64+++ corl: $-([$-(A B) $-(C A)] $-(C B))

65+++ cury: $-([$-([A B] C) A] $-(B C))

66+++ curr: $-([$-([A B] C) B] $-(A C))

67++$ cmd: cases proven disjoint; mold not checked

68+++ gth: field access is not supported by partial inference

69+++ add: field access is not supported by partial inference

70+++ dec: field access is not supported by partial inference

71++$ ask: not checked

72+++ pure: cast mold is not supported by partial inference

tests/golden/types-arithmetic-combined/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/grammar.md, Molds, Atoms: "Arithmetic rejects loobean operands: `?` contains only 0 and 1, while an arithmetic result need not."

2+tests: Both inc operand orders retain non-loobean restrictions through aliases, concrete and generic holes, numeric defaulting, pending tags and @/? boundary checks.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-arithmetic-combined/modules.txtnew file+1

@@ -0,0 +1 @@

1+# Opt in to the actual source-backed prelude.

tests/golden/types-arithmetic-combined/source.jibbnew file+56

@@ -0,0 +1,56 @@

1+++ inc |= n=A (add n 1)

2+++ inc-reverse |= n=A (add 1 n)

3+++ inc-decimal ^- @ud (inc 2)

4+++ inc-hex ^- @ux (inc 0x2)

5+++ reverse-decimal ^- @ud (inc-reverse 2)

6+++ reverse-hex ^- @ux (inc-reverse 0x2)

7+++ default (add 1 2)

8+++ decrease-decimal ^- @ud (dec 2)

9+++ decrease-hex ^- @ux (dec 0x2)

10+++ bool-add (add %.n %.n)

11+++ bool-dec (dec %.n)

12+++ bool-reverse (add 1 %.y)

13+++ bool-inc (inc %.y)

14+++ bool-gate |= x=? (inc x)

15+++ bool-result ^- ? (add 1 1)

16+++ compare-bool (gth %.n %.y)

17+++ mixed (add ~zod "hi")

18+++ cells (add [1 2] [3 4])

19+++ distinct |= [a=A b=B] (add a b)

20+++ shared |= [a=A b=A] (add a b)

21+++ capture |= n=A

22+ ++ inner |= x=A (add n 1)

23+ (inner n)

24+++ nested |= n=A |= x=A (add n 1)

25+++ unrelated

26+ ~& %dangling

27+ (add 1 2)

28+++ identity |= x=A x

29+++ identity-bool (identity %.y)

30+++ alias-inc inc

31+++ alias-decimal ^- @ud (alias-inc 2)

32+++ alias-hex ^- @ux (alias-inc 0x2)

33+++ alias-bool (alias-inc %.y)

34+++ explicit-loobean-result |= n=A ^- ? (add n 1)

35+++ any-then-bool |= [x=@ b=?] (add x b)

36+++ bool-then-any |= [b=? x=@] (add b x)

37+++ any-dec |= x=@ (dec x)

38+++ any-plus-number |= x=@ (add x 1)

39+++ number-plus-any |= x=@ (add 1 x)

40+++ any-self |= x=@ (add x x)

41+++ hole-concrete |= n=_ ^- @ud (add n 1)

42+++ hole-written |= n=A ^- _ (add n 1)

43+++ hole-unresolved |= n=_ (add n 1)

44+++ standalone (add 1 2)

45+++ discarded-number

46+ ~& 2

47+ (add 1 2)

48+++ numeric-capture |= x

49+ ++ inner (add x 1)

50+ ^- @ux x

51+++ numeric-capture-reversed |= x

52+ ++ inner (add 1 x)

53+ ^- @ux x

54+++ bound-later |= x=A

55+ ++ inner (add x 1)

56+ x

tests/golden/types-arithmetic-combined/tokens.txtnew file+511

@@ -0,0 +1,511 @@

1+1:1 glyph ++

2+1:4 name inc

3+1:8 glyph |=

4+1:11 name n

5+1:12 tight glyph =

6+1:13 tight tvar A

7+1:15 glyph (

8+1:16 tight name add

9+1:20 name n

10+1:22 lit 1

11+1:23 tight glyph )

12+2:1 NEWLINE

13+2:1 glyph ++

14+2:4 name inc-reverse

15+2:16 glyph |=

16+2:19 name n

17+2:20 tight glyph =

18+2:21 tight tvar A

19+2:23 glyph (

20+2:24 tight name add

21+2:28 lit 1

22+2:30 name n

23+2:31 tight glyph )

24+3:1 NEWLINE

25+3:1 glyph ++

26+3:4 name inc-decimal

27+3:16 glyph ^-

28+3:19 aura @ud

29+3:23 glyph (

30+3:24 tight name inc

31+3:28 lit 2

32+3:29 tight glyph )

33+4:1 NEWLINE

34+4:1 glyph ++

35+4:4 name inc-hex

36+4:12 glyph ^-

37+4:15 aura @ux

38+4:19 glyph (

39+4:20 tight name inc

40+4:24 lit 0x2

41+4:27 tight glyph )

42+5:1 NEWLINE

43+5:1 glyph ++

44+5:4 name reverse-decimal

45+5:20 glyph ^-

46+5:23 aura @ud

47+5:27 glyph (

48+5:28 tight name inc-reverse

49+5:40 lit 2

50+5:41 tight glyph )

51+6:1 NEWLINE

52+6:1 glyph ++

53+6:4 name reverse-hex

54+6:16 glyph ^-

55+6:19 aura @ux

56+6:23 glyph (

57+6:24 tight name inc-reverse

58+6:36 lit 0x2

59+6:39 tight glyph )

60+7:1 NEWLINE

61+7:1 glyph ++

62+7:4 name default

63+7:12 glyph (

64+7:13 tight name add

65+7:17 lit 1

66+7:19 lit 2

67+7:20 tight glyph )

68+8:1 NEWLINE

69+8:1 glyph ++

70+8:4 name decrease-decimal

71+8:21 glyph ^-

72+8:24 aura @ud

73+8:28 glyph (

74+8:29 tight name dec

75+8:33 lit 2

76+8:34 tight glyph )

77+9:1 NEWLINE

78+9:1 glyph ++

79+9:4 name decrease-hex

80+9:17 glyph ^-

81+9:20 aura @ux

82+9:24 glyph (

83+9:25 tight name dec

84+9:29 lit 0x2

85+9:32 tight glyph )

86+10:1 NEWLINE

87+10:1 glyph ++

88+10:4 name bool-add

89+10:13 glyph (

90+10:14 tight name add

91+10:18 lit %.n

92+10:22 lit %.n

93+10:25 tight glyph )

94+11:1 NEWLINE

95+11:1 glyph ++

96+11:4 name bool-dec

97+11:13 glyph (

98+11:14 tight name dec

99+11:18 lit %.n

100+11:21 tight glyph )

101+12:1 NEWLINE

102+12:1 glyph ++

103+12:4 name bool-reverse

104+12:17 glyph (

105+12:18 tight name add

106+12:22 lit 1

107+12:24 lit %.y

108+12:27 tight glyph )

109+13:1 NEWLINE

110+13:1 glyph ++

111+13:4 name bool-inc

112+13:13 glyph (

113+13:14 tight name inc

114+13:18 lit %.y

115+13:21 tight glyph )

116+14:1 NEWLINE

117+14:1 glyph ++

118+14:4 name bool-gate

119+14:14 glyph |=

120+14:17 name x

121+14:18 tight glyph =

122+14:19 tight glyph ?

123+14:21 glyph (

124+14:22 tight name inc

125+14:26 name x

126+14:27 tight glyph )

127+15:1 NEWLINE

128+15:1 glyph ++

129+15:4 name bool-result

130+15:16 glyph ^-

131+15:19 glyph ?

132+15:21 glyph (

133+15:22 tight name add

134+15:26 lit 1

135+15:28 lit 1

136+15:29 tight glyph )

137+16:1 NEWLINE

138+16:1 glyph ++

139+16:4 name compare-bool

140+16:17 glyph (

141+16:18 tight name gth

142+16:22 lit %.n

143+16:26 lit %.y

144+16:29 tight glyph )

145+17:1 NEWLINE

146+17:1 glyph ++

147+17:4 name mixed

148+17:10 glyph (

149+17:11 tight name add

150+17:15 lit ~zod

151+17:20 str "hi"

152+17:24 tight glyph )

153+18:1 NEWLINE

154+18:1 glyph ++

155+18:4 name cells

156+18:10 glyph (

157+18:11 tight name add

158+18:15 glyph [

159+18:16 tight lit 1

160+18:18 lit 2

161+18:19 tight glyph ]

162+18:21 glyph [

163+18:22 tight lit 3

164+18:24 lit 4

165+18:25 tight glyph ]

166+18:26 tight glyph )

167+19:1 NEWLINE

168+19:1 glyph ++

169+19:4 name distinct

170+19:13 glyph |=

171+19:16 glyph [

172+19:17 tight name a

173+19:18 tight glyph =

174+19:19 tight tvar A

175+19:21 name b

176+19:22 tight glyph =

177+19:23 tight tvar B

178+19:24 tight glyph ]

179+19:26 glyph (

180+19:27 tight name add

181+19:31 name a

182+19:33 name b

183+19:34 tight glyph )

184+20:1 NEWLINE

185+20:1 glyph ++

186+20:4 name shared

187+20:11 glyph |=

188+20:14 glyph [

189+20:15 tight name a

190+20:16 tight glyph =

191+20:17 tight tvar A

192+20:19 name b

193+20:20 tight glyph =

194+20:21 tight tvar A

195+20:22 tight glyph ]

196+20:24 glyph (

197+20:25 tight name add

198+20:29 name a

199+20:31 name b

200+20:32 tight glyph )

201+21:1 NEWLINE

202+21:1 glyph ++

203+21:4 name capture

204+21:12 glyph |=

205+21:15 name n

206+21:16 tight glyph =

207+21:17 tight tvar A

208+22:3 INDENT

209+22:3 glyph ++

210+22:6 name inner

211+22:12 glyph |=

212+22:15 name x

213+22:16 tight glyph =

214+22:17 tight tvar A

215+22:19 glyph (

216+22:20 tight name add

217+22:24 name n

218+22:26 lit 1

219+22:27 tight glyph )

220+23:3 NEWLINE

221+23:3 glyph (

222+23:4 tight name inner

223+23:10 name n

224+23:11 tight glyph )

225+24:1 DEDENT

226+24:1 NEWLINE

227+24:1 glyph ++

228+24:4 name nested

229+24:11 glyph |=

230+24:14 name n

231+24:15 tight glyph =

232+24:16 tight tvar A

233+24:18 glyph |=

234+24:21 name x

235+24:22 tight glyph =

236+24:23 tight tvar A

237+24:25 glyph (

238+24:26 tight name add

239+24:30 name n

240+24:32 lit 1

241+24:33 tight glyph )

242+25:1 NEWLINE

243+25:1 glyph ++

244+25:4 name unrelated

245+26:3 INDENT

246+26:3 glyph ~&

247+26:6 lit %dangling

248+27:5 INDENT

249+27:5 glyph (

250+27:6 tight name add

251+27:10 lit 1

252+27:12 lit 2

253+27:13 tight glyph )

254+28:1 DEDENT

255+28:1 DEDENT

256+28:1 NEWLINE

257+28:1 glyph ++

258+28:4 name identity

259+28:13 glyph |=

260+28:16 name x

261+28:17 tight glyph =

262+28:18 tight tvar A

263+28:20 name x

264+29:1 NEWLINE

265+29:1 glyph ++

266+29:4 name identity-bool

267+29:18 glyph (

268+29:19 tight name identity

269+29:28 lit %.y

270+29:31 tight glyph )

271+30:1 NEWLINE

272+30:1 glyph ++

273+30:4 name alias-inc

274+30:14 name inc

275+31:1 NEWLINE

276+31:1 glyph ++

277+31:4 name alias-decimal

278+31:18 glyph ^-

279+31:21 aura @ud

280+31:25 glyph (

281+31:26 tight name alias-inc

282+31:36 lit 2

283+31:37 tight glyph )

284+32:1 NEWLINE

285+32:1 glyph ++

286+32:4 name alias-hex

287+32:14 glyph ^-

288+32:17 aura @ux

289+32:21 glyph (

290+32:22 tight name alias-inc

291+32:32 lit 0x2

292+32:35 tight glyph )

293+33:1 NEWLINE

294+33:1 glyph ++

295+33:4 name alias-bool

296+33:15 glyph (

297+33:16 tight name alias-inc

298+33:26 lit %.y

299+33:29 tight glyph )

300+34:1 NEWLINE

301+34:1 glyph ++

302+34:4 name explicit-loobean-result

303+34:28 glyph |=

304+34:31 name n

305+34:32 tight glyph =

306+34:33 tight tvar A

307+34:35 glyph ^-

308+34:38 glyph ?

309+34:40 glyph (

310+34:41 tight name add

311+34:45 name n

312+34:47 lit 1

313+34:48 tight glyph )

314+35:1 NEWLINE

315+35:1 glyph ++

316+35:4 name any-then-bool

317+35:18 glyph |=

318+35:21 glyph [

319+35:22 tight name x

320+35:23 tight glyph =

321+35:24 tight aura @

322+35:26 name b

323+35:27 tight glyph =

324+35:28 tight glyph ?

325+35:29 tight glyph ]

326+35:31 glyph (

327+35:32 tight name add

328+35:36 name x

329+35:38 name b

330+35:39 tight glyph )

331+36:1 NEWLINE

332+36:1 glyph ++

333+36:4 name bool-then-any

334+36:18 glyph |=

335+36:21 glyph [

336+36:22 tight name b

337+36:23 tight glyph =

338+36:24 tight glyph ?

339+36:26 name x

340+36:27 tight glyph =

341+36:28 tight aura @

342+36:29 tight glyph ]

343+36:31 glyph (

344+36:32 tight name add

345+36:36 name b

346+36:38 name x

347+36:39 tight glyph )

348+37:1 NEWLINE

349+37:1 glyph ++

350+37:4 name any-dec

351+37:12 glyph |=

352+37:15 name x

353+37:16 tight glyph =

354+37:17 tight aura @

355+37:19 glyph (

356+37:20 tight name dec

357+37:24 name x

358+37:25 tight glyph )

359+38:1 NEWLINE

360+38:1 glyph ++

361+38:4 name any-plus-number

362+38:20 glyph |=

363+38:23 name x

364+38:24 tight glyph =

365+38:25 tight aura @

366+38:27 glyph (

367+38:28 tight name add

368+38:32 name x

369+38:34 lit 1

370+38:35 tight glyph )

371+39:1 NEWLINE

372+39:1 glyph ++

373+39:4 name number-plus-any

374+39:20 glyph |=

375+39:23 name x

376+39:24 tight glyph =

377+39:25 tight aura @

378+39:27 glyph (

379+39:28 tight name add

380+39:32 lit 1

381+39:34 name x

382+39:35 tight glyph )

383+40:1 NEWLINE

384+40:1 glyph ++

385+40:4 name any-self

386+40:13 glyph |=

387+40:16 name x

388+40:17 tight glyph =

389+40:18 tight aura @

390+40:20 glyph (

391+40:21 tight name add

392+40:25 name x

393+40:27 name x

394+40:28 tight glyph )

395+41:1 NEWLINE

396+41:1 glyph ++

397+41:4 name hole-concrete

398+41:18 glyph |=

399+41:21 name n

400+41:22 tight glyph =

401+41:23 tight glyph _

402+41:25 glyph ^-

403+41:28 aura @ud

404+41:32 glyph (

405+41:33 tight name add

406+41:37 name n

407+41:39 lit 1

408+41:40 tight glyph )

409+42:1 NEWLINE

410+42:1 glyph ++

411+42:4 name hole-written

412+42:17 glyph |=

413+42:20 name n

414+42:21 tight glyph =

415+42:22 tight tvar A

416+42:24 glyph ^-

417+42:27 glyph _

418+42:29 glyph (

419+42:30 tight name add

420+42:34 name n

421+42:36 lit 1

422+42:37 tight glyph )

423+43:1 NEWLINE

424+43:1 glyph ++

425+43:4 name hole-unresolved

426+43:20 glyph |=

427+43:23 name n

428+43:24 tight glyph =

429+43:25 tight glyph _

430+43:27 glyph (

431+43:28 tight name add

432+43:32 name n

433+43:34 lit 1

434+43:35 tight glyph )

435+44:1 NEWLINE

436+44:1 glyph ++

437+44:4 name standalone

438+44:15 glyph (

439+44:16 tight name add

440+44:20 lit 1

441+44:22 lit 2

442+44:23 tight glyph )

443+45:1 NEWLINE

444+45:1 glyph ++

445+45:4 name discarded-number

446+46:3 INDENT

447+46:3 glyph ~&

448+46:6 lit 2

449+47:5 INDENT

450+47:5 glyph (

451+47:6 tight name add

452+47:10 lit 1

453+47:12 lit 2

454+47:13 tight glyph )

455+48:1 DEDENT

456+48:1 DEDENT

457+48:1 NEWLINE

458+48:1 glyph ++

459+48:4 name numeric-capture

460+48:20 glyph |=

461+48:23 name x

462+49:3 INDENT

463+49:3 glyph ++

464+49:6 name inner

465+49:12 glyph (

466+49:13 tight name add

467+49:17 name x

468+49:19 lit 1

469+49:20 tight glyph )

470+50:3 NEWLINE

471+50:3 glyph ^-

472+50:6 aura @ux

473+50:10 name x

474+51:1 DEDENT

475+51:1 NEWLINE

476+51:1 glyph ++

477+51:4 name numeric-capture-reversed

478+51:29 glyph |=

479+51:32 name x

480+52:3 INDENT

481+52:3 glyph ++

482+52:6 name inner

483+52:12 glyph (

484+52:13 tight name add

485+52:17 lit 1

486+52:19 name x

487+52:20 tight glyph )

488+53:3 NEWLINE

489+53:3 glyph ^-

490+53:6 aura @ux

491+53:10 name x

492+54:1 DEDENT

493+54:1 NEWLINE

494+54:1 glyph ++

495+54:4 name bound-later

496+54:16 glyph |=

497+54:19 name x

498+54:20 tight glyph =

499+54:21 tight tvar A

500+55:3 INDENT

501+55:3 glyph ++

502+55:6 name inner

503+55:12 glyph (

504+55:13 tight name add

505+55:17 name x

506+55:19 lit 1

507+55:20 tight glyph )

508+56:3 NEWLINE

509+56:3 name x

510+56:4 DEDENT

511+56:4 NEWLINE

tests/golden/types-arithmetic-combined/tree.txtnew file+232

@@ -0,0 +1,232 @@

1+(module

2+ (value 1:1 inc

3+ (gate 1:8

4+ (face 1:11 n (tvar 1:13 A))

5+ (group 1:15

6+ (call 1:16 (wing 1:16 add) (wing 1:20 n) (lit 1:22 1)))))

7+ (value 2:1 inc-reverse

8+ (gate 2:16

9+ (face 2:19 n (tvar 2:21 A))

10+ (group 2:23

11+ (call 2:24 (wing 2:24 add) (lit 2:28 1) (wing 2:30 n)))))

12+ (value 3:1 inc-decimal

13+ (cast 3:16

14+ (aura 3:19 @ud)

15+ (group 3:23

16+ (call 3:24 (wing 3:24 inc) (lit 3:28 2)))))

17+ (value 4:1 inc-hex

18+ (cast 4:12

19+ (aura 4:15 @ux)

20+ (group 4:19

21+ (call 4:20 (wing 4:20 inc) (lit 4:24 0x2)))))

22+ (value 5:1 reverse-decimal

23+ (cast 5:20

24+ (aura 5:23 @ud)

25+ (group 5:27

26+ (call 5:28 (wing 5:28 inc-reverse) (lit 5:40 2)))))

27+ (value 6:1 reverse-hex

28+ (cast 6:16

29+ (aura 6:19 @ux)

30+ (group 6:23

31+ (call 6:24 (wing 6:24 inc-reverse) (lit 6:36 0x2)))))

32+ (value 7:1 default

33+ (group 7:12

34+ (call 7:13 (wing 7:13 add) (lit 7:17 1) (lit 7:19 2))))

35+ (value 8:1 decrease-decimal

36+ (cast 8:21

37+ (aura 8:24 @ud)

38+ (group 8:28

39+ (call 8:29 (wing 8:29 dec) (lit 8:33 2)))))

40+ (value 9:1 decrease-hex

41+ (cast 9:17

42+ (aura 9:20 @ux)

43+ (group 9:24

44+ (call 9:25 (wing 9:25 dec) (lit 9:29 0x2)))))

45+ (value 10:1 bool-add

46+ (group 10:13

47+ (call 10:14 (wing 10:14 add) (lit 10:18 %.n) (lit 10:22 %.n))))

48+ (value 11:1 bool-dec

49+ (group 11:13

50+ (call 11:14 (wing 11:14 dec) (lit 11:18 %.n))))

51+ (value 12:1 bool-reverse

52+ (group 12:17

53+ (call 12:18 (wing 12:18 add) (lit 12:22 1) (lit 12:24 %.y))))

54+ (value 13:1 bool-inc

55+ (group 13:13

56+ (call 13:14 (wing 13:14 inc) (lit 13:18 %.y))))

57+ (value 14:1 bool-gate

58+ (gate 14:14

59+ (face 14:17 x (flag 14:19))

60+ (group 14:21

61+ (call 14:22 (wing 14:22 inc) (wing 14:26 x)))))

62+ (value 15:1 bool-result

63+ (cast 15:16

64+ (flag 15:19)

65+ (group 15:21

66+ (call 15:22 (wing 15:22 add) (lit 15:26 1) (lit 15:28 1)))))

67+ (value 16:1 compare-bool

68+ (group 16:17

69+ (call 16:18 (wing 16:18 gth) (lit 16:22 %.n) (lit 16:26 %.y))))

70+ (value 17:1 mixed

71+ (group 17:10

72+ (call 17:11 (wing 17:11 add) (lit 17:15 ~zod) (str 17:20 "hi"))))

73+ (value 18:1 cells

74+ (group 18:10

75+ (call 18:11

76+ (wing 18:11 add)

77+ (tuple 18:15 (lit 18:16 1) (lit 18:18 2))

78+ (tuple 18:21 (lit 18:22 3) (lit 18:24 4)))))

79+ (value 19:1 distinct

80+ (gate 19:13

81+ (cell 19:16

82+ (face 19:17 a (tvar 19:19 A))

83+ (face 19:21 b (tvar 19:23 B)))

84+ (group 19:26

85+ (call 19:27 (wing 19:27 add) (wing 19:31 a) (wing 19:33 b)))))

86+ (value 20:1 shared

87+ (gate 20:11

88+ (cell 20:14

89+ (face 20:15 a (tvar 20:17 A))

90+ (face 20:19 b (tvar 20:21 A)))

91+ (group 20:24

92+ (call 20:25 (wing 20:25 add) (wing 20:29 a) (wing 20:31 b)))))

93+ (value 21:1 capture

94+ (gate 21:12

95+ (face 21:15 n (tvar 21:17 A))

96+ (body 22:3

97+ (value 22:3 inner

98+ (gate 22:12

99+ (face 22:15 x (tvar 22:17 A))

100+ (group 22:19

101+ (call 22:20 (wing 22:20 add) (wing 22:24 n) (lit 22:26 1)))))

102+ (group 23:3

103+ (call 23:4 (wing 23:4 inner) (wing 23:10 n))))))

104+ (value 24:1 nested

105+ (gate 24:11

106+ (face 24:14 n (tvar 24:16 A))

107+ (gate 24:18

108+ (face 24:21 x (tvar 24:23 A))

109+ (group 24:25

110+ (call 24:26 (wing 24:26 add) (wing 24:30 n) (lit 24:32 1))))))

111+ (value 25:1 unrelated

112+ (body 26:3

113+ (trace 26:3

114+ (lit 26:6 %dangling)

115+ (body 27:5

116+ (group 27:5

117+ (call 27:6 (wing 27:6 add) (lit 27:10 1) (lit 27:12 2)))))))

118+ (value 28:1 identity

119+ (gate 28:13

120+ (face 28:16 x (tvar 28:18 A))

121+ (wing 28:20 x)))

122+ (value 29:1 identity-bool

123+ (group 29:18

124+ (call 29:19 (wing 29:19 identity) (lit 29:28 %.y))))

125+ (value 30:1 alias-inc (wing 30:14 inc))

126+ (value 31:1 alias-decimal

127+ (cast 31:18

128+ (aura 31:21 @ud)

129+ (group 31:25

130+ (call 31:26 (wing 31:26 alias-inc) (lit 31:36 2)))))

131+ (value 32:1 alias-hex

132+ (cast 32:14

133+ (aura 32:17 @ux)

134+ (group 32:21

135+ (call 32:22 (wing 32:22 alias-inc) (lit 32:32 0x2)))))

136+ (value 33:1 alias-bool

137+ (group 33:15

138+ (call 33:16 (wing 33:16 alias-inc) (lit 33:26 %.y))))

139+ (value 34:1 explicit-loobean-result

140+ (gate 34:28

141+ (face 34:31 n (tvar 34:33 A))

142+ (cast 34:35

143+ (flag 34:38)

144+ (group 34:40

145+ (call 34:41 (wing 34:41 add) (wing 34:45 n) (lit 34:47 1))))))

146+ (value 35:1 any-then-bool

147+ (gate 35:18

148+ (cell 35:21

149+ (face 35:22 x (aura 35:24 @))

150+ (face 35:26 b (flag 35:28)))

151+ (group 35:31

152+ (call 35:32 (wing 35:32 add) (wing 35:36 x) (wing 35:38 b)))))

153+ (value 36:1 bool-then-any

154+ (gate 36:18

155+ (cell 36:21

156+ (face 36:22 b (flag 36:24))

157+ (face 36:26 x (aura 36:28 @)))

158+ (group 36:31

159+ (call 36:32 (wing 36:32 add) (wing 36:36 b) (wing 36:38 x)))))

160+ (value 37:1 any-dec

161+ (gate 37:12

162+ (face 37:15 x (aura 37:17 @))

163+ (group 37:19

164+ (call 37:20 (wing 37:20 dec) (wing 37:24 x)))))

165+ (value 38:1 any-plus-number

166+ (gate 38:20

167+ (face 38:23 x (aura 38:25 @))

168+ (group 38:27

169+ (call 38:28 (wing 38:28 add) (wing 38:32 x) (lit 38:34 1)))))

170+ (value 39:1 number-plus-any

171+ (gate 39:20

172+ (face 39:23 x (aura 39:25 @))

173+ (group 39:27

174+ (call 39:28 (wing 39:28 add) (lit 39:32 1) (wing 39:34 x)))))

175+ (value 40:1 any-self

176+ (gate 40:13

177+ (face 40:16 x (aura 40:18 @))

178+ (group 40:20

179+ (call 40:21 (wing 40:21 add) (wing 40:25 x) (wing 40:27 x)))))

180+ (value 41:1 hole-concrete

181+ (gate 41:18

182+ (face 41:21 n (hole 41:23))

183+ (cast 41:25

184+ (aura 41:28 @ud)

185+ (group 41:32

186+ (call 41:33 (wing 41:33 add) (wing 41:37 n) (lit 41:39 1))))))

187+ (value 42:1 hole-written

188+ (gate 42:17

189+ (face 42:20 n (tvar 42:22 A))

190+ (cast 42:24

191+ (hole 42:27)

192+ (group 42:29

193+ (call 42:30 (wing 42:30 add) (wing 42:34 n) (lit 42:36 1))))))

194+ (value 43:1 hole-unresolved

195+ (gate 43:20

196+ (face 43:23 n (hole 43:25))

197+ (group 43:27

198+ (call 43:28 (wing 43:28 add) (wing 43:32 n) (lit 43:34 1)))))

199+ (value 44:1 standalone

200+ (group 44:15

201+ (call 44:16 (wing 44:16 add) (lit 44:20 1) (lit 44:22 2))))

202+ (value 45:1 discarded-number

203+ (body 46:3

204+ (trace 46:3

205+ (lit 46:6 2)

206+ (body 47:5

207+ (group 47:5

208+ (call 47:6 (wing 47:6 add) (lit 47:10 1) (lit 47:12 2)))))))

209+ (value 48:1 numeric-capture

210+ (gate 48:20

211+ (bind 48:23 x)

212+ (body 49:3

213+ (value 49:3 inner

214+ (group 49:12

215+ (call 49:13 (wing 49:13 add) (wing 49:17 x) (lit 49:19 1))))

216+ (cast 50:3 (aura 50:6 @ux) (wing 50:10 x)))))

217+ (value 51:1 numeric-capture-reversed

218+ (gate 51:29

219+ (bind 51:32 x)

220+ (body 52:3

221+ (value 52:3 inner

222+ (group 52:12

223+ (call 52:13 (wing 52:13 add) (lit 52:17 1) (wing 52:19 x))))

224+ (cast 53:3 (aura 53:6 @ux) (wing 53:10 x)))))

225+ (value 54:1 bound-later

226+ (gate 54:16

227+ (face 54:19 x (tvar 54:21 A))

228+ (body 55:3

229+ (value 55:3 inner

230+ (group 55:12

231+ (call 55:13 (wing 55:13 add) (wing 55:17 x) (lit 55:19 1))))

232+ (wing 56:3 x)))))

tests/golden/types-arithmetic-combined/types.txtnew file+120

@@ -0,0 +1,120 @@

1+partial inference; module not checked

2+++ inc: $-(A A) where A is an atom other than ?

3+++ inc-reverse: $-(A A) where A is an atom other than ?

4+++ inc-decimal: @ud

5+++ inc-hex: @ux

6+++ reverse-decimal: @ud

7+++ reverse-hex: @ux

8+++ default: @ud

9+++ decrease-decimal: @ud

10+++ decrease-hex: @ux

11+++ bool-add: call's sample and argument types do not unify

12+/tests/golden/types-arithmetic-combined/source.jibb:10:14: called gate has type $-([A A] A) where A is an atom other than ?

13+++ bool-add (add %.n %.n)

14+ ^

15+/tests/golden/types-arithmetic-combined/source.jibb:10:18: argument has type ?

16+++ bool-add (add %.n %.n)

17+ ^

18+++ bool-dec: call's sample and argument types do not unify

19+/tests/golden/types-arithmetic-combined/source.jibb:11:14: called gate has type $-(A A) where A is an atom other than ?

20+++ bool-dec (dec %.n)

21+ ^

22+/tests/golden/types-arithmetic-combined/source.jibb:11:18: argument has type ?

23+++ bool-dec (dec %.n)

24+ ^

25+++ bool-reverse: call's sample and argument types do not unify

26+/tests/golden/types-arithmetic-combined/source.jibb:12:18: called gate has type $-([A A] A) where A is an atom other than ?

27+++ bool-reverse (add 1 %.y)

28+ ^

29+/tests/golden/types-arithmetic-combined/source.jibb:12:22: argument

30+++ bool-reverse (add 1 %.y)

31+ ^

32+++ bool-inc: call's sample and argument types do not unify

33+/tests/golden/types-arithmetic-combined/source.jibb:13:14: called gate has type $-(A A) where A is an atom other than ?

34+++ bool-inc (inc %.y)

35+ ^

36+/tests/golden/types-arithmetic-combined/source.jibb:13:18: argument has type ?

37+++ bool-inc (inc %.y)

38+ ^

39+++ bool-gate: call's sample and argument types do not unify

40+/tests/golden/types-arithmetic-combined/source.jibb:14:22: called gate has type $-(A A) where A is an atom other than ?

41+++ bool-gate |= x=? (inc x)

42+ ^

43+/tests/golden/types-arithmetic-combined/source.jibb:14:26: argument has type ?

44+++ bool-gate |= x=? (inc x)

45+ ^

46+++ bool-result: cast mold and expression type do not unify

47+/tests/golden/types-arithmetic-combined/source.jibb:15:19: cast mold has type ?

48+++ bool-result ^- ? (add 1 1)

49+ ^

50+/tests/golden/types-arithmetic-combined/source.jibb:15:21: expression

51+++ bool-result ^- ? (add 1 1)

52+ ^

53+++ compare-bool: ?

54+++ mixed: call's sample and argument types do not unify

55+/tests/golden/types-arithmetic-combined/source.jibb:17:11: called gate has type $-([A A] A) where A is an atom other than ?

56+++ mixed (add ~zod "hi")

57+ ^

58+/tests/golden/types-arithmetic-combined/source.jibb:17:15: argument has type [@p @t]

59+++ mixed (add ~zod "hi")

60+ ^

61+++ cells: call's sample and argument types do not unify

62+/tests/golden/types-arithmetic-combined/source.jibb:18:11: called gate has type $-([A A] A) where A is an atom other than ?

63+++ cells (add [1 2] [3 4])

64+ ^

65+/tests/golden/types-arithmetic-combined/source.jibb:18:15: argument

66+++ cells (add [1 2] [3 4])

67+ ^

68+++ distinct: distinct type variables `A` and `B` must not be forced equal; use the same capital for a shared type

69+/tests/golden/types-arithmetic-combined/source.jibb:19:19: first type variable

70+++ distinct |= [a=A b=B] (add a b)

71+ ^

72+/tests/golden/types-arithmetic-combined/source.jibb:19:23: second type variable

73+++ distinct |= [a=A b=B] (add a b)

74+ ^

75+++ shared: $-([a=A b=A] A) where A is an atom other than ?

76+++ capture: explicit capital constraints are not supported by partial inference

77+++ nested: $-(A $-(A A)) where A is an atom other than ?

78+++ unrelated: tag needs context in partial inference

79+++ identity: $-(A A)

80+++ identity-bool: ?

81+++ alias-inc: $-(A A) where A is an atom other than ?

82+++ alias-decimal: @ud

83+++ alias-hex: @ux

84+++ alias-bool: call's sample and argument types do not unify

85+/tests/golden/types-arithmetic-combined/source.jibb:33:16: called gate has type $-(A A) where A is an atom other than ?

86+++ alias-bool (alias-inc %.y)

87+ ^

88+/tests/golden/types-arithmetic-combined/source.jibb:33:26: argument has type ?

89+++ alias-bool (alias-inc %.y)

90+ ^

91+++ explicit-loobean-result: cast mold and expression type do not unify

92+/tests/golden/types-arithmetic-combined/source.jibb:34:38: cast mold has type ?

93+++ explicit-loobean-result |= n=A ^- ? (add n 1)

94+ ^

95+/tests/golden/types-arithmetic-combined/source.jibb:34:40: expression

96+++ explicit-loobean-result |= n=A ^- ? (add n 1)

97+ ^

98+++ any-then-bool: call constraint is not supported by partial inference

99+++ bool-then-any: call's sample and argument types do not unify

100+/tests/golden/types-arithmetic-combined/source.jibb:36:32: called gate has type $-([A A] A) where A is an atom other than ?

101+++ bool-then-any |= [b=? x=@] (add b x)

102+ ^

103+/tests/golden/types-arithmetic-combined/source.jibb:36:36: argument has type ?

104+++ bool-then-any |= [b=? x=@] (add b x)

105+ ^

106+++ any-dec: call constraint is not supported by partial inference

107+++ any-plus-number: call constraint is not supported by partial inference

108+++ number-plus-any: call constraint is not supported by partial inference

109+++ any-self: call constraint is not supported by partial inference

110+++ hole-concrete: $-(@ud @ud)

111+++ hole-written: $-(A A) where A is an atom other than ?

112+++ hole-unresolved: type hole needs unsupported inference

113+/tests/golden/types-arithmetic-combined/source.jibb:43:25: type hole

114+++ hole-unresolved |= n=_ (add n 1)

115+ ^

116+++ standalone: @ud

117+++ discarded-number: @ud

118+++ numeric-capture: local definitions need unsupported inference

119+++ numeric-capture-reversed: local definitions need unsupported inference

120+++ bound-later: explicit capital constraints are not supported by partial inference

tests/golden/types-arithmetic-generic/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/grammar.md, Molds, Atoms: "Arithmetic rejects loobean operands: `?` contains only 0 and 1, while an arithmetic result need not."

2+tests: Generic add and dec, aliases and captured variables retain the restriction; ordinary identity and comparison still accept loobeans.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-arithmetic-generic/modules.txtnew file+1

@@ -0,0 +1 @@

1+# Opt in to the actual source-backed prelude.

tests/golden/types-arithmetic-generic/source.jibbnew file+21

@@ -0,0 +1,21 @@

1+++ sum |= [a=A b=A] (add a b)

2+++ decreasing |= x=A (dec x)

3+++ forward sum

4+++ text-aura ^- @t (sum "a" "b")

5+++ ship-aura ^- @p (sum ~zod ~nec)

6+++ decimal ^- @ud (sum 1 2)

7+++ hex ^- @ux (sum 0x1 0x2)

8+++ decrease-dec ^- @ud (decreasing 2)

9+++ decrease-hex ^- @ux (decreasing 0x2)

10+++ bad-sum (sum %.y %.n)

11+++ bad-dec (decreasing %.y)

12+++ bad-alias (forward %.y %.n)

13+++ compare (gth %.y %.n)

14+++ identity |= x=A x

15+++ accept-bool (identity %.y)

16+++ capture |= x=A

17+ ++ nested |= y=A (add x y)

18+ (nested x)

19+++ mixed |= [x=@ b=?] (sum x b)

20+++ opposite |= [b=? x=@] (sum b x)

21+++ any-dec |= x=@ (decreasing x)

tests/golden/types-arithmetic-generic/tokens.txtnew file+206

@@ -0,0 +1,206 @@

1+1:1 glyph ++

2+1:4 name sum

3+1:8 glyph |=

4+1:11 glyph [

5+1:12 tight name a

6+1:13 tight glyph =

7+1:14 tight tvar A

8+1:16 name b

9+1:17 tight glyph =

10+1:18 tight tvar A

11+1:19 tight glyph ]

12+1:21 glyph (

13+1:22 tight name add

14+1:26 name a

15+1:28 name b

16+1:29 tight glyph )

17+2:1 NEWLINE

18+2:1 glyph ++

19+2:4 name decreasing

20+2:15 glyph |=

21+2:18 name x

22+2:19 tight glyph =

23+2:20 tight tvar A

24+2:22 glyph (

25+2:23 tight name dec

26+2:27 name x

27+2:28 tight glyph )

28+3:1 NEWLINE

29+3:1 glyph ++

30+3:4 name forward

31+3:12 name sum

32+4:1 NEWLINE

33+4:1 glyph ++

34+4:4 name text-aura

35+4:14 glyph ^-

36+4:17 aura @t

37+4:20 glyph (

38+4:21 tight name sum

39+4:25 str "a"

40+4:29 str "b"

41+4:32 tight glyph )

42+5:1 NEWLINE

43+5:1 glyph ++

44+5:4 name ship-aura

45+5:14 glyph ^-

46+5:17 aura @p

47+5:20 glyph (

48+5:21 tight name sum

49+5:25 lit ~zod

50+5:30 lit ~nec

51+5:34 tight glyph )

52+6:1 NEWLINE

53+6:1 glyph ++

54+6:4 name decimal

55+6:12 glyph ^-

56+6:15 aura @ud

57+6:19 glyph (

58+6:20 tight name sum

59+6:24 lit 1

60+6:26 lit 2

61+6:27 tight glyph )

62+7:1 NEWLINE

63+7:1 glyph ++

64+7:4 name hex

65+7:8 glyph ^-

66+7:11 aura @ux

67+7:15 glyph (

68+7:16 tight name sum

69+7:20 lit 0x1

70+7:24 lit 0x2

71+7:27 tight glyph )

72+8:1 NEWLINE

73+8:1 glyph ++

74+8:4 name decrease-dec

75+8:17 glyph ^-

76+8:20 aura @ud

77+8:24 glyph (

78+8:25 tight name decreasing

79+8:36 lit 2

80+8:37 tight glyph )

81+9:1 NEWLINE

82+9:1 glyph ++

83+9:4 name decrease-hex

84+9:17 glyph ^-

85+9:20 aura @ux

86+9:24 glyph (

87+9:25 tight name decreasing

88+9:36 lit 0x2

89+9:39 tight glyph )

90+10:1 NEWLINE

91+10:1 glyph ++

92+10:4 name bad-sum

93+10:12 glyph (

94+10:13 tight name sum

95+10:17 lit %.y

96+10:21 lit %.n

97+10:24 tight glyph )

98+11:1 NEWLINE

99+11:1 glyph ++

100+11:4 name bad-dec

101+11:12 glyph (

102+11:13 tight name decreasing

103+11:24 lit %.y

104+11:27 tight glyph )

105+12:1 NEWLINE

106+12:1 glyph ++

107+12:4 name bad-alias

108+12:14 glyph (

109+12:15 tight name forward

110+12:23 lit %.y

111+12:27 lit %.n

112+12:30 tight glyph )

113+13:1 NEWLINE

114+13:1 glyph ++

115+13:4 name compare

116+13:12 glyph (

117+13:13 tight name gth

118+13:17 lit %.y

119+13:21 lit %.n

120+13:24 tight glyph )

121+14:1 NEWLINE

122+14:1 glyph ++

123+14:4 name identity

124+14:13 glyph |=

125+14:16 name x

126+14:17 tight glyph =

127+14:18 tight tvar A

128+14:20 name x

129+15:1 NEWLINE

130+15:1 glyph ++

131+15:4 name accept-bool

132+15:16 glyph (

133+15:17 tight name identity

134+15:26 lit %.y

135+15:29 tight glyph )

136+16:1 NEWLINE

137+16:1 glyph ++

138+16:4 name capture

139+16:12 glyph |=

140+16:15 name x

141+16:16 tight glyph =

142+16:17 tight tvar A

143+17:3 INDENT

144+17:3 glyph ++

145+17:6 name nested

146+17:13 glyph |=

147+17:16 name y

148+17:17 tight glyph =

149+17:18 tight tvar A

150+17:20 glyph (

151+17:21 tight name add

152+17:25 name x

153+17:27 name y

154+17:28 tight glyph )

155+18:3 NEWLINE

156+18:3 glyph (

157+18:4 tight name nested

158+18:11 name x

159+18:12 tight glyph )

160+19:1 DEDENT

161+19:1 NEWLINE

162+19:1 glyph ++

163+19:4 name mixed

164+19:10 glyph |=

165+19:13 glyph [

166+19:14 tight name x

167+19:15 tight glyph =

168+19:16 tight aura @

169+19:18 name b

170+19:19 tight glyph =

171+19:20 tight glyph ?

172+19:21 tight glyph ]

173+19:23 glyph (

174+19:24 tight name sum

175+19:28 name x

176+19:30 name b

177+19:31 tight glyph )

178+20:1 NEWLINE

179+20:1 glyph ++

180+20:4 name opposite

181+20:13 glyph |=

182+20:16 glyph [

183+20:17 tight name b

184+20:18 tight glyph =

185+20:19 tight glyph ?

186+20:21 name x

187+20:22 tight glyph =

188+20:23 tight aura @

189+20:24 tight glyph ]

190+20:26 glyph (

191+20:27 tight name sum

192+20:31 name b

193+20:33 name x

194+20:34 tight glyph )

195+21:1 NEWLINE

196+21:1 glyph ++

197+21:4 name any-dec

198+21:12 glyph |=

199+21:15 name x

200+21:16 tight glyph =

201+21:17 tight aura @

202+21:19 glyph (

203+21:20 tight name decreasing

204+21:31 name x

205+21:32 tight glyph )

206+21:33 NEWLINE

tests/golden/types-arithmetic-generic/tree.txtnew file+93

@@ -0,0 +1,93 @@

1+(module

2+ (value 1:1 sum

3+ (gate 1:8

4+ (cell 1:11

5+ (face 1:12 a (tvar 1:14 A))

6+ (face 1:16 b (tvar 1:18 A)))

7+ (group 1:21

8+ (call 1:22 (wing 1:22 add) (wing 1:26 a) (wing 1:28 b)))))

9+ (value 2:1 decreasing

10+ (gate 2:15

11+ (face 2:18 x (tvar 2:20 A))

12+ (group 2:22

13+ (call 2:23 (wing 2:23 dec) (wing 2:27 x)))))

14+ (value 3:1 forward (wing 3:12 sum))

15+ (value 4:1 text-aura

16+ (cast 4:14

17+ (aura 4:17 @t)

18+ (group 4:20

19+ (call 4:21 (wing 4:21 sum) (str 4:25 "a") (str 4:29 "b")))))

20+ (value 5:1 ship-aura

21+ (cast 5:14

22+ (aura 5:17 @p)

23+ (group 5:20

24+ (call 5:21 (wing 5:21 sum) (lit 5:25 ~zod) (lit 5:30 ~nec)))))

25+ (value 6:1 decimal

26+ (cast 6:12

27+ (aura 6:15 @ud)

28+ (group 6:19

29+ (call 6:20 (wing 6:20 sum) (lit 6:24 1) (lit 6:26 2)))))

30+ (value 7:1 hex

31+ (cast 7:8

32+ (aura 7:11 @ux)

33+ (group 7:15

34+ (call 7:16 (wing 7:16 sum) (lit 7:20 0x1) (lit 7:24 0x2)))))

35+ (value 8:1 decrease-dec

36+ (cast 8:17

37+ (aura 8:20 @ud)

38+ (group 8:24

39+ (call 8:25 (wing 8:25 decreasing) (lit 8:36 2)))))

40+ (value 9:1 decrease-hex

41+ (cast 9:17

42+ (aura 9:20 @ux)

43+ (group 9:24

44+ (call 9:25 (wing 9:25 decreasing) (lit 9:36 0x2)))))

45+ (value 10:1 bad-sum

46+ (group 10:12

47+ (call 10:13 (wing 10:13 sum) (lit 10:17 %.y) (lit 10:21 %.n))))

48+ (value 11:1 bad-dec

49+ (group 11:12

50+ (call 11:13 (wing 11:13 decreasing) (lit 11:24 %.y))))

51+ (value 12:1 bad-alias

52+ (group 12:14

53+ (call 12:15 (wing 12:15 forward) (lit 12:23 %.y) (lit 12:27 %.n))))

54+ (value 13:1 compare

55+ (group 13:12

56+ (call 13:13 (wing 13:13 gth) (lit 13:17 %.y) (lit 13:21 %.n))))

57+ (value 14:1 identity

58+ (gate 14:13

59+ (face 14:16 x (tvar 14:18 A))

60+ (wing 14:20 x)))

61+ (value 15:1 accept-bool

62+ (group 15:16

63+ (call 15:17 (wing 15:17 identity) (lit 15:26 %.y))))

64+ (value 16:1 capture

65+ (gate 16:12

66+ (face 16:15 x (tvar 16:17 A))

67+ (body 17:3

68+ (value 17:3 nested

69+ (gate 17:13

70+ (face 17:16 y (tvar 17:18 A))

71+ (group 17:20

72+ (call 17:21 (wing 17:21 add) (wing 17:25 x) (wing 17:27 y)))))

73+ (group 18:3

74+ (call 18:4 (wing 18:4 nested) (wing 18:11 x))))))

75+ (value 19:1 mixed

76+ (gate 19:10

77+ (cell 19:13

78+ (face 19:14 x (aura 19:16 @))

79+ (face 19:18 b (flag 19:20)))

80+ (group 19:23

81+ (call 19:24 (wing 19:24 sum) (wing 19:28 x) (wing 19:30 b)))))

82+ (value 20:1 opposite

83+ (gate 20:13

84+ (cell 20:16

85+ (face 20:17 b (flag 20:19))

86+ (face 20:21 x (aura 20:23 @)))

87+ (group 20:26

88+ (call 20:27 (wing 20:27 sum) (wing 20:31 b) (wing 20:33 x)))))

89+ (value 21:1 any-dec

90+ (gate 21:12

91+ (face 21:15 x (aura 21:17 @))

92+ (group 21:19

93+ (call 21:20 (wing 21:20 decreasing) (wing 21:31 x))))))

tests/golden/types-arithmetic-generic/types.txtnew file+44

@@ -0,0 +1,44 @@

1+partial inference; module not checked

2+++ sum: $-([a=A b=A] A) where A is an atom other than ?

3+++ decreasing: $-(A A) where A is an atom other than ?

4+++ forward: $-([a=A b=A] A) where A is an atom other than ?

5+++ text-aura: @t

6+++ ship-aura: @p

7+++ decimal: @ud

8+++ hex: @ux

9+++ decrease-dec: @ud

10+++ decrease-hex: @ux

11+++ bad-sum: call's sample and argument types do not unify

12+/tests/golden/types-arithmetic-generic/source.jibb:10:13: called gate has type $-([a=A b=A] A) where A is an atom other than ?

13+++ bad-sum (sum %.y %.n)

14+ ^

15+/tests/golden/types-arithmetic-generic/source.jibb:10:17: argument has type ?

16+++ bad-sum (sum %.y %.n)

17+ ^

18+++ bad-dec: call's sample and argument types do not unify

19+/tests/golden/types-arithmetic-generic/source.jibb:11:13: called gate has type $-(A A) where A is an atom other than ?

20+++ bad-dec (decreasing %.y)

21+ ^

22+/tests/golden/types-arithmetic-generic/source.jibb:11:24: argument has type ?

23+++ bad-dec (decreasing %.y)

24+ ^

25+++ bad-alias: call's sample and argument types do not unify

26+/tests/golden/types-arithmetic-generic/source.jibb:12:15: called gate has type $-([a=A b=A] A) where A is an atom other than ?

27+++ bad-alias (forward %.y %.n)

28+ ^

29+/tests/golden/types-arithmetic-generic/source.jibb:12:23: argument has type ?

30+++ bad-alias (forward %.y %.n)

31+ ^

32+++ compare: ?

33+++ identity: $-(A A)

34+++ accept-bool: ?

35+++ capture: $-(A A) where A is an atom other than ?

36+++ mixed: call constraint is not supported by partial inference

37+++ opposite: call's sample and argument types do not unify

38+/tests/golden/types-arithmetic-generic/source.jibb:20:27: called gate has type $-([a=A b=A] A) where A is an atom other than ?

39+++ opposite |= [b=? x=@] (sum b x)

40+ ^

41+/tests/golden/types-arithmetic-generic/source.jibb:20:31: argument has type ?

42+++ opposite |= [b=? x=@] (sum b x)

43+ ^

44+++ any-dec: call constraint is not supported by partial inference

tests/golden/types-arithmetic-module/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/grammar.md, Molds, Atoms: "Arithmetic rejects loobean operands: `?` contains only 0 and 1, while an arithmetic result need not."

2+tests: Imported generic arithmetic and aliases preserve restrictions under independent instantiation and reject loobeans; broad @ stays unsupported.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-arithmetic-module/module-trees.txtnew file+26

@@ -0,0 +1,26 @@

1+/ui/math.jibb

2+(module

3+ (value 1:1 sum

4+ (gate 1:8

5+ (cell 1:11

6+ (face 1:12 a (tvar 1:14 A))

7+ (face 1:16 b (tvar 1:18 A)))

8+ (group 1:21

9+ (call 1:22 (wing 1:22 add) (wing 1:26 a) (wing 1:28 b)))))

10+ (value 2:1 down

11+ (gate 2:9

12+ (face 2:12 x (tvar 2:14 A))

13+ (group 2:16

14+ (call 2:17 (wing 2:17 dec) (wing 2:21 x)))))

15+ (value 3:1 alias (wing 3:10 sum))

16+ (value 4:1 inc

17+ (gate 4:8

18+ (face 4:11 n (tvar 4:13 A))

19+ (group 4:15

20+ (call 4:16 (wing 4:16 add) (wing 4:20 n) (lit 4:22 1)))))

21+ (value 5:1 inc-reverse

22+ (gate 5:16

23+ (face 5:19 n (tvar 5:21 A))

24+ (group 5:23

25+ (call 5:24 (wing 5:24 add) (lit 5:28 1) (wing 5:30 n)))))

26+ (value 6:1 alias-inc (wing 6:14 inc)))

tests/golden/types-arithmetic-module/modules.txtnew file+1

@@ -0,0 +1 @@

1+/ui/math.jibb

tests/golden/types-arithmetic-module/modules/ui/math.jibbnew file+6

@@ -0,0 +1,6 @@

1+++ sum |= [a=A b=A] (add a b)

2+++ down |= x=A (dec x)

3+++ alias sum

4+++ inc |= n=A (add n 1)

5+++ inc-reverse |= n=A (add 1 n)

6+++ alias-inc inc

tests/golden/types-arithmetic-module/source.jibbnew file+16

@@ -0,0 +1,16 @@

1+/= math /ui/math

2+++ decimal ^- @ud (sum.math 1 2)

3+++ hex ^- @ux (sum.math 0x1 0x2)

4+++ text ^- @t (alias.math "a" "b")

5+++ ship ^- @p (down.math ~zod)

6+++ reject-bool (sum.math %.y %.n)

7+++ reject-down (down.math %.y)

8+++ reject-alias (alias.math %.n %.y)

9+++ reject-any |= x=@ (down.math x)

10+++ nested |= x=A

11+ ++ local |= y=A (sum.math x y)

12+ (local x)

13+++ inc-decimal ^- @ud (inc.math 2)

14+++ inc-hex ^- @ux (inc-reverse.math 0x2)

15+++ inc-bool (inc.math %.y)

16+++ alias-bool (alias-inc.math %.n)

tests/golden/types-arithmetic-module/tokens.txtnew file+137

@@ -0,0 +1,137 @@

1+1:1 glyph /=

2+1:4 name math

3+1:9 glyph /

4+1:10 tight knot ui

5+1:12 tight glyph /

6+1:13 tight knot math

7+2:1 NEWLINE

8+2:1 glyph ++

9+2:4 name decimal

10+2:12 glyph ^-

11+2:15 aura @ud

12+2:19 glyph (

13+2:20 tight wing sum.math

14+2:29 lit 1

15+2:31 lit 2

16+2:32 tight glyph )

17+3:1 NEWLINE

18+3:1 glyph ++

19+3:4 name hex

20+3:8 glyph ^-

21+3:11 aura @ux

22+3:15 glyph (

23+3:16 tight wing sum.math

24+3:25 lit 0x1

25+3:29 lit 0x2

26+3:32 tight glyph )

27+4:1 NEWLINE

28+4:1 glyph ++

29+4:4 name text

30+4:9 glyph ^-

31+4:12 aura @t

32+4:15 glyph (

33+4:16 tight wing alias.math

34+4:27 str "a"

35+4:31 str "b"

36+4:34 tight glyph )

37+5:1 NEWLINE

38+5:1 glyph ++

39+5:4 name ship

40+5:9 glyph ^-

41+5:12 aura @p

42+5:15 glyph (

43+5:16 tight wing down.math

44+5:26 lit ~zod

45+5:30 tight glyph )

46+6:1 NEWLINE

47+6:1 glyph ++

48+6:4 name reject-bool

49+6:16 glyph (

50+6:17 tight wing sum.math

51+6:26 lit %.y

52+6:30 lit %.n

53+6:33 tight glyph )

54+7:1 NEWLINE

55+7:1 glyph ++

56+7:4 name reject-down

57+7:16 glyph (

58+7:17 tight wing down.math

59+7:27 lit %.y

60+7:30 tight glyph )

61+8:1 NEWLINE

62+8:1 glyph ++

63+8:4 name reject-alias

64+8:17 glyph (

65+8:18 tight wing alias.math

66+8:29 lit %.n

67+8:33 lit %.y

68+8:36 tight glyph )

69+9:1 NEWLINE

70+9:1 glyph ++

71+9:4 name reject-any

72+9:15 glyph |=

73+9:18 name x

74+9:19 tight glyph =

75+9:20 tight aura @

76+9:22 glyph (

77+9:23 tight wing down.math

78+9:33 name x

79+9:34 tight glyph )

80+10:1 NEWLINE

81+10:1 glyph ++

82+10:4 name nested

83+10:11 glyph |=

84+10:14 name x

85+10:15 tight glyph =

86+10:16 tight tvar A

87+11:3 INDENT

88+11:3 glyph ++

89+11:6 name local

90+11:12 glyph |=

91+11:15 name y

92+11:16 tight glyph =

93+11:17 tight tvar A

94+11:19 glyph (

95+11:20 tight wing sum.math

96+11:29 name x

97+11:31 name y

98+11:32 tight glyph )

99+12:3 NEWLINE

100+12:3 glyph (

101+12:4 tight name local

102+12:10 name x

103+12:11 tight glyph )

104+13:1 DEDENT

105+13:1 NEWLINE

106+13:1 glyph ++

107+13:4 name inc-decimal

108+13:16 glyph ^-

109+13:19 aura @ud

110+13:23 glyph (

111+13:24 tight wing inc.math

112+13:33 lit 2

113+13:34 tight glyph )

114+14:1 NEWLINE

115+14:1 glyph ++

116+14:4 name inc-hex

117+14:12 glyph ^-

118+14:15 aura @ux

119+14:19 glyph (

120+14:20 tight wing inc-reverse.math

121+14:37 lit 0x2

122+14:40 tight glyph )

123+15:1 NEWLINE

124+15:1 glyph ++

125+15:4 name inc-bool

126+15:13 glyph (

127+15:14 tight wing inc.math

128+15:23 lit %.y

129+15:26 tight glyph )

130+16:1 NEWLINE

131+16:1 glyph ++

132+16:4 name alias-bool

133+16:15 glyph (

134+16:16 tight wing alias-inc.math

135+16:31 lit %.n

136+16:34 tight glyph )

137+16:35 NEWLINE

tests/golden/types-arithmetic-module/tree.txtnew file+63

@@ -0,0 +1,63 @@

1+(module

2+ (jibb 1:1 math /ui/math)

3+ (value 2:1 decimal

4+ (cast 2:12

5+ (aura 2:15 @ud)

6+ (group 2:19

7+ (call 2:20 (wing 2:20 sum.math) (lit 2:29 1) (lit 2:31 2)))))

8+ (value 3:1 hex

9+ (cast 3:8

10+ (aura 3:11 @ux)

11+ (group 3:15

12+ (call 3:16 (wing 3:16 sum.math) (lit 3:25 0x1) (lit 3:29 0x2)))))

13+ (value 4:1 text

14+ (cast 4:9

15+ (aura 4:12 @t)

16+ (group 4:15

17+ (call 4:16 (wing 4:16 alias.math) (str 4:27 "a") (str 4:31 "b")))))

18+ (value 5:1 ship

19+ (cast 5:9

20+ (aura 5:12 @p)

21+ (group 5:15

22+ (call 5:16 (wing 5:16 down.math) (lit 5:26 ~zod)))))

23+ (value 6:1 reject-bool

24+ (group 6:16

25+ (call 6:17 (wing 6:17 sum.math) (lit 6:26 %.y) (lit 6:30 %.n))))

26+ (value 7:1 reject-down

27+ (group 7:16

28+ (call 7:17 (wing 7:17 down.math) (lit 7:27 %.y))))

29+ (value 8:1 reject-alias

30+ (group 8:17

31+ (call 8:18 (wing 8:18 alias.math) (lit 8:29 %.n) (lit 8:33 %.y))))

32+ (value 9:1 reject-any

33+ (gate 9:15

34+ (face 9:18 x (aura 9:20 @))

35+ (group 9:22

36+ (call 9:23 (wing 9:23 down.math) (wing 9:33 x)))))

37+ (value 10:1 nested

38+ (gate 10:11

39+ (face 10:14 x (tvar 10:16 A))

40+ (body 11:3

41+ (value 11:3 local

42+ (gate 11:12

43+ (face 11:15 y (tvar 11:17 A))

44+ (group 11:19

45+ (call 11:20 (wing 11:20 sum.math) (wing 11:29 x) (wing 11:31 y)))))

46+ (group 12:3

47+ (call 12:4 (wing 12:4 local) (wing 12:10 x))))))

48+ (value 13:1 inc-decimal

49+ (cast 13:16

50+ (aura 13:19 @ud)

51+ (group 13:23

52+ (call 13:24 (wing 13:24 inc.math) (lit 13:33 2)))))

53+ (value 14:1 inc-hex

54+ (cast 14:12

55+ (aura 14:15 @ux)

56+ (group 14:19

57+ (call 14:20 (wing 14:20 inc-reverse.math) (lit 14:37 0x2)))))

58+ (value 15:1 inc-bool

59+ (group 15:13

60+ (call 15:14 (wing 15:14 inc.math) (lit 15:23 %.y))))

61+ (value 16:1 alias-bool

62+ (group 16:15

63+ (call 16:16 (wing 16:16 alias-inc.math) (lit 16:31 %.n)))))

tests/golden/types-arithmetic-module/types.txtnew file+44

@@ -0,0 +1,44 @@

1+partial inference; module not checked

2+++ decimal: @ud

3+++ hex: @ux

4+++ text: @t

5+++ ship: @p

6+++ reject-bool: call's sample and argument types do not unify

7+/tests/golden/types-arithmetic-module/source.jibb:6:17: called gate has type $-([a=A b=A] A) where A is an atom other than ?

8+++ reject-bool (sum.math %.y %.n)

9+ ^

10+/tests/golden/types-arithmetic-module/source.jibb:6:26: argument has type ?

11+++ reject-bool (sum.math %.y %.n)

12+ ^

13+++ reject-down: call's sample and argument types do not unify

14+/tests/golden/types-arithmetic-module/source.jibb:7:17: called gate has type $-(A A) where A is an atom other than ?

15+++ reject-down (down.math %.y)

16+ ^

17+/tests/golden/types-arithmetic-module/source.jibb:7:27: argument has type ?

18+++ reject-down (down.math %.y)

19+ ^

20+++ reject-alias: call's sample and argument types do not unify

21+/tests/golden/types-arithmetic-module/source.jibb:8:18: called gate has type $-([a=A b=A] A) where A is an atom other than ?

22+++ reject-alias (alias.math %.n %.y)

23+ ^

24+/tests/golden/types-arithmetic-module/source.jibb:8:29: argument has type ?

25+++ reject-alias (alias.math %.n %.y)

26+ ^

27+++ reject-any: call constraint is not supported by partial inference

28+++ nested: local definitions need unsupported inference

29+++ inc-decimal: @ud

30+++ inc-hex: @ux

31+++ inc-bool: call's sample and argument types do not unify

32+/tests/golden/types-arithmetic-module/source.jibb:15:14: called gate has type $-(A A) where A is an atom other than ?

33+++ inc-bool (inc.math %.y)

34+ ^

35+/tests/golden/types-arithmetic-module/source.jibb:15:23: argument has type ?

36+++ inc-bool (inc.math %.y)

37+ ^

38+++ alias-bool: call's sample and argument types do not unify

39+/tests/golden/types-arithmetic-module/source.jibb:16:16: called gate has type $-(A A) where A is an atom other than ?

40+++ alias-bool (alias-inc.math %.n)

41+ ^

42+/tests/golden/types-arithmetic-module/source.jibb:16:31: argument has type ?

43+++ alias-bool (alias-inc.math %.n)

44+ ^

tests/golden/types-arithmetic-proj-qath/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/grammar.md, Molds, Atoms: "Arithmetic rejects loobean operands: `?` contains only 0 and 1, while an arithmetic result need not."

2+tests: Arithmetic retains non-loobean constraints through wider and single-field projected records and qath values; incompatible auras, loobean operands, and scalar binder faces do not silently infer.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-arithmetic-proj-qath/modules.txtnew file+1

@@ -0,0 +1 @@

1+# Opt in to the actual source-backed prelude.

tests/golden/types-arithmetic-proj-qath/source.jibbnew file+18

@@ -0,0 +1,18 @@

1+++ project-increment |= r=[a=A b=@t c=@ud]

2+ ^- [a=A b=@t] (proj [a=(add a.r 1) b=b.r c=c.r])

3+++ good ^- [a=@ux b=@t] (project-increment [a=0x7 b="x" c=0])

4+++ flag (project-increment [a=%.y b="x" c=0])

5+++ mixed (add ~zod "x")

6+++ path-and-number [path=%/foo number=(add 1 2)]

7+++ path-value |= p=qath [path=p number=(add 1 2)]

8+++ with-path |= r=[a=A b=qath c=@ud]

9+ ^- [a=A b=qath] (proj [a=(dec a.r) b=b.r c=c.r])

10+++ wrong-width ^- [a=@ud b=@t] [a=(add 1 2) b="x" c=0]

11+++ select-one |= r=[a=A b=@t]

12+ ^- [a=A] (proj [a=(add a.r 1) b=b.r])

13+++ select-one-ux ^- [a=@ux] (select-one [a=0x7 b="x"])

14+++ select-one-bool (select-one [a=%.y b="x"])

15+++ scalar |= x=@t x

16+++ no-binder-field (scalar (proj [x="ok" y=~zod]))

17+++ select-one-nested |= r=[a=A b=@t]

18+ ^- [outer=[a=A] marker=@ud] [outer=(proj [a=(add a.r 1) b=b.r]) marker=0]

tests/golden/types-arithmetic-proj-qath/tokens.txtnew file+351

@@ -0,0 +1,351 @@

1+1:1 glyph ++

2+1:4 name project-increment

3+1:22 glyph |=

4+1:25 name r

5+1:26 tight glyph =

6+1:27 tight glyph [

7+1:28 tight name a

8+1:29 tight glyph =

9+1:30 tight tvar A

10+1:32 name b

11+1:33 tight glyph =

12+1:34 tight aura @t

13+1:37 name c

14+1:38 tight glyph =

15+1:39 tight aura @ud

16+1:42 tight glyph ]

17+2:3 INDENT

18+2:3 glyph ^-

19+2:6 glyph [

20+2:7 tight name a

21+2:8 tight glyph =

22+2:9 tight tvar A

23+2:11 name b

24+2:12 tight glyph =

25+2:13 tight aura @t

26+2:15 tight glyph ]

27+2:17 glyph (

28+2:18 tight name proj

29+2:23 glyph [

30+2:24 tight name a

31+2:25 tight glyph =

32+2:26 tight glyph (

33+2:27 tight name add

34+2:31 wing a.r

35+2:35 lit 1

36+2:36 tight glyph )

37+2:38 name b

38+2:39 tight glyph =

39+2:40 tight wing b.r

40+2:44 name c

41+2:45 tight glyph =

42+2:46 tight wing c.r

43+2:49 tight glyph ]

44+2:50 tight glyph )

45+3:1 DEDENT

46+3:1 NEWLINE

47+3:1 glyph ++

48+3:4 name good

49+3:9 glyph ^-

50+3:12 glyph [

51+3:13 tight name a

52+3:14 tight glyph =

53+3:15 tight aura @ux

54+3:19 name b

55+3:20 tight glyph =

56+3:21 tight aura @t

57+3:23 tight glyph ]

58+3:25 glyph (

59+3:26 tight name project-increment

60+3:44 glyph [

61+3:45 tight name a

62+3:46 tight glyph =

63+3:47 tight lit 0x7

64+3:51 name b

65+3:52 tight glyph =

66+3:53 tight str "x"

67+3:57 name c

68+3:58 tight glyph =

69+3:59 tight lit 0

70+3:60 tight glyph ]

71+3:61 tight glyph )

72+4:1 NEWLINE

73+4:1 glyph ++

74+4:4 name flag

75+4:9 glyph (

76+4:10 tight name project-increment

77+4:28 glyph [

78+4:29 tight name a

79+4:30 tight glyph =

80+4:31 tight lit %.y

81+4:35 name b

82+4:36 tight glyph =

83+4:37 tight str "x"

84+4:41 name c

85+4:42 tight glyph =

86+4:43 tight lit 0

87+4:44 tight glyph ]

88+4:45 tight glyph )

89+5:1 NEWLINE

90+5:1 glyph ++

91+5:4 name mixed

92+5:10 glyph (

93+5:11 tight name add

94+5:15 lit ~zod

95+5:20 str "x"

96+5:23 tight glyph )

97+6:1 NEWLINE

98+6:1 glyph ++

99+6:4 name path-and-number

100+6:20 glyph [

101+6:21 tight name path

102+6:25 tight glyph =

103+6:26 tight glyph %/

104+6:28 tight knot foo

105+6:32 name number

106+6:38 tight glyph =

107+6:39 tight glyph (

108+6:40 tight name add

109+6:44 lit 1

110+6:46 lit 2

111+6:47 tight glyph )

112+6:48 tight glyph ]

113+7:1 NEWLINE

114+7:1 glyph ++

115+7:4 name path-value

116+7:15 glyph |=

117+7:18 name p

118+7:19 tight glyph =

119+7:20 tight name qath

120+7:25 glyph [

121+7:26 tight name path

122+7:30 tight glyph =

123+7:31 tight name p

124+7:33 name number

125+7:39 tight glyph =

126+7:40 tight glyph (

127+7:41 tight name add

128+7:45 lit 1

129+7:47 lit 2

130+7:48 tight glyph )

131+7:49 tight glyph ]

132+8:1 NEWLINE

133+8:1 glyph ++

134+8:4 name with-path

135+8:14 glyph |=

136+8:17 name r

137+8:18 tight glyph =

138+8:19 tight glyph [

139+8:20 tight name a

140+8:21 tight glyph =

141+8:22 tight tvar A

142+8:24 name b

143+8:25 tight glyph =

144+8:26 tight name qath

145+8:31 name c

146+8:32 tight glyph =

147+8:33 tight aura @ud

148+8:36 tight glyph ]

149+9:3 INDENT

150+9:3 glyph ^-

151+9:6 glyph [

152+9:7 tight name a

153+9:8 tight glyph =

154+9:9 tight tvar A

155+9:11 name b

156+9:12 tight glyph =

157+9:13 tight name qath

158+9:17 tight glyph ]

159+9:19 glyph (

160+9:20 tight name proj

161+9:25 glyph [

162+9:26 tight name a

163+9:27 tight glyph =

164+9:28 tight glyph (

165+9:29 tight name dec

166+9:33 wing a.r

167+9:36 tight glyph )

168+9:38 name b

169+9:39 tight glyph =

170+9:40 tight wing b.r

171+9:44 name c

172+9:45 tight glyph =

173+9:46 tight wing c.r

174+9:49 tight glyph ]

175+9:50 tight glyph )

176+10:1 DEDENT

177+10:1 NEWLINE

178+10:1 glyph ++

179+10:4 name wrong-width

180+10:16 glyph ^-

181+10:19 glyph [

182+10:20 tight name a

183+10:21 tight glyph =

184+10:22 tight aura @ud

185+10:26 name b

186+10:27 tight glyph =

187+10:28 tight aura @t

188+10:30 tight glyph ]

189+10:32 glyph [

190+10:33 tight name a

191+10:34 tight glyph =

192+10:35 tight glyph (

193+10:36 tight name add

194+10:40 lit 1

195+10:42 lit 2

196+10:43 tight glyph )

197+10:45 name b

198+10:46 tight glyph =

199+10:47 tight str "x"

200+10:51 name c

201+10:52 tight glyph =

202+10:53 tight lit 0

203+10:54 tight glyph ]

204+11:1 NEWLINE

205+11:1 glyph ++

206+11:4 name select-one

207+11:15 glyph |=

208+11:18 name r

209+11:19 tight glyph =

210+11:20 tight glyph [

211+11:21 tight name a

212+11:22 tight glyph =

213+11:23 tight tvar A

214+11:25 name b

215+11:26 tight glyph =

216+11:27 tight aura @t

217+11:29 tight glyph ]

218+12:3 INDENT

219+12:3 glyph ^-

220+12:6 glyph [

221+12:7 tight name a

222+12:8 tight glyph =

223+12:9 tight tvar A

224+12:10 tight glyph ]

225+12:12 glyph (

226+12:13 tight name proj

227+12:18 glyph [

228+12:19 tight name a

229+12:20 tight glyph =

230+12:21 tight glyph (

231+12:22 tight name add

232+12:26 wing a.r

233+12:30 lit 1

234+12:31 tight glyph )

235+12:33 name b

236+12:34 tight glyph =

237+12:35 tight wing b.r

238+12:38 tight glyph ]

239+12:39 tight glyph )

240+13:1 DEDENT

241+13:1 NEWLINE

242+13:1 glyph ++

243+13:4 name select-one-ux

244+13:18 glyph ^-

245+13:21 glyph [

246+13:22 tight name a

247+13:23 tight glyph =

248+13:24 tight aura @ux

249+13:27 tight glyph ]

250+13:29 glyph (

251+13:30 tight name select-one

252+13:41 glyph [

253+13:42 tight name a

254+13:43 tight glyph =

255+13:44 tight lit 0x7

256+13:48 name b

257+13:49 tight glyph =

258+13:50 tight str "x"

259+13:53 tight glyph ]

260+13:54 tight glyph )

261+14:1 NEWLINE

262+14:1 glyph ++

263+14:4 name select-one-bool

264+14:20 glyph (

265+14:21 tight name select-one

266+14:32 glyph [

267+14:33 tight name a

268+14:34 tight glyph =

269+14:35 tight lit %.y

270+14:39 name b

271+14:40 tight glyph =

272+14:41 tight str "x"

273+14:44 tight glyph ]

274+14:45 tight glyph )

275+15:1 NEWLINE

276+15:1 glyph ++

277+15:4 name scalar

278+15:11 glyph |=

279+15:14 name x

280+15:15 tight glyph =

281+15:16 tight aura @t

282+15:19 name x

283+16:1 NEWLINE

284+16:1 glyph ++

285+16:4 name no-binder-field

286+16:20 glyph (

287+16:21 tight name scalar

288+16:28 glyph (

289+16:29 tight name proj

290+16:34 glyph [

291+16:35 tight name x

292+16:36 tight glyph =

293+16:37 tight str "ok"

294+16:42 name y

295+16:43 tight glyph =

296+16:44 tight lit ~zod

297+16:48 tight glyph ]

298+16:49 tight glyph )

299+16:50 tight glyph )

300+17:1 NEWLINE

301+17:1 glyph ++

302+17:4 name select-one-nested

303+17:22 glyph |=

304+17:25 name r

305+17:26 tight glyph =

306+17:27 tight glyph [

307+17:28 tight name a

308+17:29 tight glyph =

309+17:30 tight tvar A

310+17:32 name b

311+17:33 tight glyph =

312+17:34 tight aura @t

313+17:36 tight glyph ]

314+18:3 INDENT

315+18:3 glyph ^-

316+18:6 glyph [

317+18:7 tight name outer

318+18:12 tight glyph =

319+18:13 tight glyph [

320+18:14 tight name a

321+18:15 tight glyph =

322+18:16 tight tvar A

323+18:17 tight glyph ]

324+18:19 name marker

325+18:25 tight glyph =

326+18:26 tight aura @ud

327+18:29 tight glyph ]

328+18:31 glyph [

329+18:32 tight name outer

330+18:37 tight glyph =

331+18:38 tight glyph (

332+18:39 tight name proj

333+18:44 glyph [

334+18:45 tight name a

335+18:46 tight glyph =

336+18:47 tight glyph (

337+18:48 tight name add

338+18:52 wing a.r

339+18:56 lit 1

340+18:57 tight glyph )

341+18:59 name b

342+18:60 tight glyph =

343+18:61 tight wing b.r

344+18:64 tight glyph ]

345+18:65 tight glyph )

346+18:67 name marker

347+18:73 tight glyph =

348+18:74 tight lit 0

349+18:75 tight glyph ]

350+18:76 DEDENT

351+18:76 NEWLINE

tests/golden/types-arithmetic-proj-qath/tree.txtnew file+164

@@ -0,0 +1,164 @@

1+(module

2+ (value 1:1 project-increment

3+ (gate 1:22

4+ (face 1:25 r

5+ (cell 1:27

6+ (face 1:28 a (tvar 1:30 A))

7+ (face 1:32 b (aura 1:34 @t))

8+ (face 1:37 c (aura 1:39 @ud))))

9+ (body 2:3

10+ (cast 2:3

11+ (cell 2:6

12+ (face 2:7 a (tvar 2:9 A))

13+ (face 2:11 b (aura 2:13 @t)))

14+ (group 2:17

15+ (call 2:18

16+ (wing 2:18 proj)

17+ (tuple 2:23

18+ (face 2:24 a

19+ (group 2:26

20+ (call 2:27 (wing 2:27 add) (wing 2:31 a.r) (lit 2:35 1))))

21+ (face 2:38 b (wing 2:40 b.r))

22+ (face 2:44 c (wing 2:46 c.r)))))))))

23+ (value 3:1 good

24+ (cast 3:9

25+ (cell 3:12

26+ (face 3:13 a (aura 3:15 @ux))

27+ (face 3:19 b (aura 3:21 @t)))

28+ (group 3:25

29+ (call 3:26

30+ (wing 3:26 project-increment)

31+ (tuple 3:44

32+ (face 3:45 a (lit 3:47 0x7))

33+ (face 3:51 b (str 3:53 "x"))

34+ (face 3:57 c (lit 3:59 0)))))))

35+ (value 4:1 flag

36+ (group 4:9

37+ (call 4:10

38+ (wing 4:10 project-increment)

39+ (tuple 4:28

40+ (face 4:29 a (lit 4:31 %.y))

41+ (face 4:35 b (str 4:37 "x"))

42+ (face 4:41 c (lit 4:43 0))))))

43+ (value 5:1 mixed

44+ (group 5:10

45+ (call 5:11 (wing 5:11 add) (lit 5:15 ~zod) (str 5:20 "x"))))

46+ (value 6:1 path-and-number

47+ (tuple 6:20

48+ (face 6:21 path (qath 6:26 foo))

49+ (face 6:32 number

50+ (group 6:39

51+ (call 6:40 (wing 6:40 add) (lit 6:44 1) (lit 6:46 2))))))

52+ (value 7:1 path-value

53+ (gate 7:15

54+ (face 7:18 p (ref 7:20 qath))

55+ (tuple 7:25

56+ (face 7:26 path (wing 7:31 p))

57+ (face 7:33 number

58+ (group 7:40

59+ (call 7:41 (wing 7:41 add) (lit 7:45 1) (lit 7:47 2)))))))

60+ (value 8:1 with-path

61+ (gate 8:14

62+ (face 8:17 r

63+ (cell 8:19

64+ (face 8:20 a (tvar 8:22 A))

65+ (face 8:24 b (ref 8:26 qath))

66+ (face 8:31 c (aura 8:33 @ud))))

67+ (body 9:3

68+ (cast 9:3

69+ (cell 9:6

70+ (face 9:7 a (tvar 9:9 A))

71+ (face 9:11 b (ref 9:13 qath)))

72+ (group 9:19

73+ (call 9:20

74+ (wing 9:20 proj)

75+ (tuple 9:25

76+ (face 9:26 a

77+ (group 9:28

78+ (call 9:29 (wing 9:29 dec) (wing 9:33 a.r))))

79+ (face 9:38 b (wing 9:40 b.r))

80+ (face 9:44 c (wing 9:46 c.r)))))))))

81+ (value 10:1 wrong-width

82+ (cast 10:16

83+ (cell 10:19

84+ (face 10:20 a (aura 10:22 @ud))

85+ (face 10:26 b (aura 10:28 @t)))

86+ (tuple 10:32

87+ (face 10:33 a

88+ (group 10:35

89+ (call 10:36 (wing 10:36 add) (lit 10:40 1) (lit 10:42 2))))

90+ (face 10:45 b (str 10:47 "x"))

91+ (face 10:51 c (lit 10:53 0)))))

92+ (value 11:1 select-one

93+ (gate 11:15

94+ (face 11:18 r

95+ (cell 11:20

96+ (face 11:21 a (tvar 11:23 A))

97+ (face 11:25 b (aura 11:27 @t))))

98+ (body 12:3

99+ (cast 12:3

100+ (cell 12:6

101+ (face 12:7 a (tvar 12:9 A)))

102+ (group 12:12

103+ (call 12:13

104+ (wing 12:13 proj)

105+ (tuple 12:18

106+ (face 12:19 a

107+ (group 12:21

108+ (call 12:22 (wing 12:22 add) (wing 12:26 a.r) (lit 12:30 1))))

109+ (face 12:33 b (wing 12:35 b.r)))))))))

110+ (value 13:1 select-one-ux

111+ (cast 13:18

112+ (cell 13:21

113+ (face 13:22 a (aura 13:24 @ux)))

114+ (group 13:29

115+ (call 13:30

116+ (wing 13:30 select-one)

117+ (tuple 13:41

118+ (face 13:42 a (lit 13:44 0x7))

119+ (face 13:48 b (str 13:50 "x")))))))

120+ (value 14:1 select-one-bool

121+ (group 14:20

122+ (call 14:21

123+ (wing 14:21 select-one)

124+ (tuple 14:32

125+ (face 14:33 a (lit 14:35 %.y))

126+ (face 14:39 b (str 14:41 "x"))))))

127+ (value 15:1 scalar

128+ (gate 15:11

129+ (face 15:14 x (aura 15:16 @t))

130+ (wing 15:19 x)))

131+ (value 16:1 no-binder-field

132+ (group 16:20

133+ (call 16:21

134+ (wing 16:21 scalar)

135+ (group 16:28

136+ (call 16:29

137+ (wing 16:29 proj)

138+ (tuple 16:34

139+ (face 16:35 x (str 16:37 "ok"))

140+ (face 16:42 y (lit 16:44 ~zod))))))))

141+ (value 17:1 select-one-nested

142+ (gate 17:22

143+ (face 17:25 r

144+ (cell 17:27

145+ (face 17:28 a (tvar 17:30 A))

146+ (face 17:32 b (aura 17:34 @t))))

147+ (body 18:3

148+ (cast 18:3

149+ (cell 18:6

150+ (face 18:7 outer

151+ (cell 18:13

152+ (face 18:14 a (tvar 18:16 A))))

153+ (face 18:19 marker (aura 18:26 @ud)))

154+ (tuple 18:31

155+ (face 18:32 outer

156+ (group 18:38

157+ (call 18:39

158+ (wing 18:39 proj)

159+ (tuple 18:44

160+ (face 18:45 a

161+ (group 18:47

162+ (call 18:48 (wing 18:48 add) (wing 18:52 a.r) (lit 18:56 1))))

163+ (face 18:59 b (wing 18:61 b.r))))))

164+ (face 18:67 marker (lit 18:74 0))))))))

tests/golden/types-arithmetic-proj-qath/types.txtnew file+33

@@ -0,0 +1,33 @@

1+partial inference; module not checked

2+++ project-increment: $-([a=A [b=@t c=@ud]] [a=A b=@t]) where A is an atom other than ?

3+++ good: [a=@ux b=@t]

4+++ flag: call's sample and argument types do not unify

5+/tests/golden/types-arithmetic-proj-qath/source.jibb:4:10: called gate has type $-([a=A [b=@t c=@ud]] [a=A b=@t]) where A is an atom other than ?

6+++ flag (project-increment [a=%.y b="x" c=0])

7+ ^

8+/tests/golden/types-arithmetic-proj-qath/source.jibb:4:28: argument

9+++ flag (project-increment [a=%.y b="x" c=0])

10+ ^

11+++ mixed: call's sample and argument types do not unify

12+/tests/golden/types-arithmetic-proj-qath/source.jibb:5:11: called gate has type $-([A A] A) where A is an atom other than ?

13+++ mixed (add ~zod "x")

14+ ^

15+/tests/golden/types-arithmetic-proj-qath/source.jibb:5:15: argument has type [@p @t]

16+++ mixed (add ~zod "x")

17+ ^

18+++ path-and-number: [path=qath number=@ud]

19+++ path-value: unresolved aura-variable inference

20+++ with-path: $-([a=A [b=qath c=@ud]] [a=A b=qath]) where A is an atom other than ?

21+++ wrong-width: record width constraint needs unsupported inference

22+++ select-one: $-([a=A b=@t] [a=A]) where A is an atom other than ?

23+++ select-one-ux: [a=@ux]

24+++ select-one-bool: call's sample and argument types do not unify

25+/tests/golden/types-arithmetic-proj-qath/source.jibb:14:21: called gate has type $-([a=A b=@t] [a=A]) where A is an atom other than ?

26+++ select-one-bool (select-one [a=%.y b="x"])

27+ ^

28+/tests/golden/types-arithmetic-proj-qath/source.jibb:14:32: argument has type [a=? b=@t]

29+++ select-one-bool (select-one [a=%.y b="x"])

30+ ^

31+++ scalar: $-(@t @t)

32+++ no-binder-field: proj needs an expected record type

33+++ select-one-nested: $-([a=A b=@t] [outer=[a=A] marker=@ud]) where A is an atom other than ?

tests/golden/types-arithmetic-scopes/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/grammar.md, Molds, Atoms: "Arithmetic rejects loobean operands: `?` contains only 0 and 1, while an arithmetic result need not."

2+tests: Independent aura instantiation, shared and distinct capitals, nested/local captures, pending literals and direct/mutual recursion preserve the constraint or fail closed.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-arithmetic-scopes/modules.txtnew file+1

@@ -0,0 +1 @@

1+# Opt in to the actual source-backed prelude.

tests/golden/types-arithmetic-scopes/source.jibbnew file+22

@@ -0,0 +1,22 @@

1+++ inc |= n=A (add n 1)

2+++ inc-r |= n=A (add 1 n)

3+++ text-case ^- @t (inc "x")

4+++ ship-case ^- @p (inc ~zod)

5+++ shared-case |= [a=A b=A] (add a b)

6+++ distinct |= [a=A b=B] (add a b)

7+++ nested |= n=A |= x=A (add n 1)

8+++ local-fresh |= outer=@t

9+ ++ inner |= n=A (add n 1)

10+ [(inner "a") (inner ~zod)]

11+++ local-capture |= outer=A

12+ ++ inner |= n=A (add outer 1)

13+ (inner outer)

14+++ trace-tag

15+ ~& %dangling

16+ (add 1 2)

17+++ trace-number

18+ ~& 4

19+ (add 1 2)

20+++ recurse |= n=A (add n (recurse n))

21+++ mutual-a |= n=A (add n (mutual-b n))

22+++ mutual-b |= n=A (add n (mutual-a n))

tests/golden/types-arithmetic-scopes/tokens.txtnew file+221

@@ -0,0 +1,221 @@

1+1:1 glyph ++

2+1:4 name inc

3+1:8 glyph |=

4+1:11 name n

5+1:12 tight glyph =

6+1:13 tight tvar A

7+1:15 glyph (

8+1:16 tight name add

9+1:20 name n

10+1:22 lit 1

11+1:23 tight glyph )

12+2:1 NEWLINE

13+2:1 glyph ++

14+2:4 name inc-r

15+2:10 glyph |=

16+2:13 name n

17+2:14 tight glyph =

18+2:15 tight tvar A

19+2:17 glyph (

20+2:18 tight name add

21+2:22 lit 1

22+2:24 name n

23+2:25 tight glyph )

24+3:1 NEWLINE

25+3:1 glyph ++

26+3:4 name text-case

27+3:14 glyph ^-

28+3:17 aura @t

29+3:20 glyph (

30+3:21 tight name inc

31+3:25 str "x"

32+3:28 tight glyph )

33+4:1 NEWLINE

34+4:1 glyph ++

35+4:4 name ship-case

36+4:14 glyph ^-

37+4:17 aura @p

38+4:20 glyph (

39+4:21 tight name inc

40+4:25 lit ~zod

41+4:29 tight glyph )

42+5:1 NEWLINE

43+5:1 glyph ++

44+5:4 name shared-case

45+5:16 glyph |=

46+5:19 glyph [

47+5:20 tight name a

48+5:21 tight glyph =

49+5:22 tight tvar A

50+5:24 name b

51+5:25 tight glyph =

52+5:26 tight tvar A

53+5:27 tight glyph ]

54+5:29 glyph (

55+5:30 tight name add

56+5:34 name a

57+5:36 name b

58+5:37 tight glyph )

59+6:1 NEWLINE

60+6:1 glyph ++

61+6:4 name distinct

62+6:13 glyph |=

63+6:16 glyph [

64+6:17 tight name a

65+6:18 tight glyph =

66+6:19 tight tvar A

67+6:21 name b

68+6:22 tight glyph =

69+6:23 tight tvar B

70+6:24 tight glyph ]

71+6:26 glyph (

72+6:27 tight name add

73+6:31 name a

74+6:33 name b

75+6:34 tight glyph )

76+7:1 NEWLINE

77+7:1 glyph ++

78+7:4 name nested

79+7:11 glyph |=

80+7:14 name n

81+7:15 tight glyph =

82+7:16 tight tvar A

83+7:18 glyph |=

84+7:21 name x

85+7:22 tight glyph =

86+7:23 tight tvar A

87+7:25 glyph (

88+7:26 tight name add

89+7:30 name n

90+7:32 lit 1

91+7:33 tight glyph )

92+8:1 NEWLINE

93+8:1 glyph ++

94+8:4 name local-fresh

95+8:16 glyph |=

96+8:19 name outer

97+8:24 tight glyph =

98+8:25 tight aura @t

99+9:3 INDENT

100+9:3 glyph ++

101+9:6 name inner

102+9:12 glyph |=

103+9:15 name n

104+9:16 tight glyph =

105+9:17 tight tvar A

106+9:19 glyph (

107+9:20 tight name add

108+9:24 name n

109+9:26 lit 1

110+9:27 tight glyph )

111+10:3 NEWLINE

112+10:3 glyph [

113+10:4 tight glyph (

114+10:5 tight name inner

115+10:11 str "a"

116+10:14 tight glyph )

117+10:16 glyph (

118+10:17 tight name inner

119+10:23 lit ~zod

120+10:27 tight glyph )

121+10:28 tight glyph ]

122+11:1 DEDENT

123+11:1 NEWLINE

124+11:1 glyph ++

125+11:4 name local-capture

126+11:18 glyph |=

127+11:21 name outer

128+11:26 tight glyph =

129+11:27 tight tvar A

130+12:3 INDENT

131+12:3 glyph ++

132+12:6 name inner

133+12:12 glyph |=

134+12:15 name n

135+12:16 tight glyph =

136+12:17 tight tvar A

137+12:19 glyph (

138+12:20 tight name add

139+12:24 name outer

140+12:30 lit 1

141+12:31 tight glyph )

142+13:3 NEWLINE

143+13:3 glyph (

144+13:4 tight name inner

145+13:10 name outer

146+13:15 tight glyph )

147+14:1 DEDENT

148+14:1 NEWLINE

149+14:1 glyph ++

150+14:4 name trace-tag

151+15:3 INDENT

152+15:3 glyph ~&

153+15:6 lit %dangling

154+16:5 INDENT

155+16:5 glyph (

156+16:6 tight name add

157+16:10 lit 1

158+16:12 lit 2

159+16:13 tight glyph )

160+17:1 DEDENT

161+17:1 DEDENT

162+17:1 NEWLINE

163+17:1 glyph ++

164+17:4 name trace-number

165+18:3 INDENT

166+18:3 glyph ~&

167+18:6 lit 4

168+19:5 INDENT

169+19:5 glyph (

170+19:6 tight name add

171+19:10 lit 1

172+19:12 lit 2

173+19:13 tight glyph )

174+20:1 DEDENT

175+20:1 DEDENT

176+20:1 NEWLINE

177+20:1 glyph ++

178+20:4 name recurse

179+20:12 glyph |=

180+20:15 name n

181+20:16 tight glyph =

182+20:17 tight tvar A

183+20:19 glyph (

184+20:20 tight name add

185+20:24 name n

186+20:26 glyph (

187+20:27 tight name recurse

188+20:35 name n

189+20:36 tight glyph )

190+20:37 tight glyph )

191+21:1 NEWLINE

192+21:1 glyph ++

193+21:4 name mutual-a

194+21:13 glyph |=

195+21:16 name n

196+21:17 tight glyph =

197+21:18 tight tvar A

198+21:20 glyph (

199+21:21 tight name add

200+21:25 name n

201+21:27 glyph (

202+21:28 tight name mutual-b

203+21:37 name n

204+21:38 tight glyph )

205+21:39 tight glyph )

206+22:1 NEWLINE

207+22:1 glyph ++

208+22:4 name mutual-b

209+22:13 glyph |=

210+22:16 name n

211+22:17 tight glyph =

212+22:18 tight tvar A

213+22:20 glyph (

214+22:21 tight name add

215+22:25 name n

216+22:27 glyph (

217+22:28 tight name mutual-a

218+22:37 name n

219+22:38 tight glyph )

220+22:39 tight glyph )

221+22:40 NEWLINE

tests/golden/types-arithmetic-scopes/tree.txtnew file+108

@@ -0,0 +1,108 @@

1+(module

2+ (value 1:1 inc

3+ (gate 1:8

4+ (face 1:11 n (tvar 1:13 A))

5+ (group 1:15

6+ (call 1:16 (wing 1:16 add) (wing 1:20 n) (lit 1:22 1)))))

7+ (value 2:1 inc-r

8+ (gate 2:10

9+ (face 2:13 n (tvar 2:15 A))

10+ (group 2:17

11+ (call 2:18 (wing 2:18 add) (lit 2:22 1) (wing 2:24 n)))))

12+ (value 3:1 text-case

13+ (cast 3:14

14+ (aura 3:17 @t)

15+ (group 3:20

16+ (call 3:21 (wing 3:21 inc) (str 3:25 "x")))))

17+ (value 4:1 ship-case

18+ (cast 4:14

19+ (aura 4:17 @p)

20+ (group 4:20

21+ (call 4:21 (wing 4:21 inc) (lit 4:25 ~zod)))))

22+ (value 5:1 shared-case

23+ (gate 5:16

24+ (cell 5:19

25+ (face 5:20 a (tvar 5:22 A))

26+ (face 5:24 b (tvar 5:26 A)))

27+ (group 5:29

28+ (call 5:30 (wing 5:30 add) (wing 5:34 a) (wing 5:36 b)))))

29+ (value 6:1 distinct

30+ (gate 6:13

31+ (cell 6:16

32+ (face 6:17 a (tvar 6:19 A))

33+ (face 6:21 b (tvar 6:23 B)))

34+ (group 6:26

35+ (call 6:27 (wing 6:27 add) (wing 6:31 a) (wing 6:33 b)))))

36+ (value 7:1 nested

37+ (gate 7:11

38+ (face 7:14 n (tvar 7:16 A))

39+ (gate 7:18

40+ (face 7:21 x (tvar 7:23 A))

41+ (group 7:25

42+ (call 7:26 (wing 7:26 add) (wing 7:30 n) (lit 7:32 1))))))

43+ (value 8:1 local-fresh

44+ (gate 8:16

45+ (face 8:19 outer (aura 8:25 @t))

46+ (body 9:3

47+ (value 9:3 inner

48+ (gate 9:12

49+ (face 9:15 n (tvar 9:17 A))

50+ (group 9:19

51+ (call 9:20 (wing 9:20 add) (wing 9:24 n) (lit 9:26 1)))))

52+ (tuple 10:3

53+ (group 10:4

54+ (call 10:5 (wing 10:5 inner) (str 10:11 "a")))

55+ (group 10:16

56+ (call 10:17 (wing 10:17 inner) (lit 10:23 ~zod)))))))

57+ (value 11:1 local-capture

58+ (gate 11:18

59+ (face 11:21 outer (tvar 11:27 A))

60+ (body 12:3

61+ (value 12:3 inner

62+ (gate 12:12

63+ (face 12:15 n (tvar 12:17 A))

64+ (group 12:19

65+ (call 12:20 (wing 12:20 add) (wing 12:24 outer) (lit 12:30 1)))))

66+ (group 13:3

67+ (call 13:4 (wing 13:4 inner) (wing 13:10 outer))))))

68+ (value 14:1 trace-tag

69+ (body 15:3

70+ (trace 15:3

71+ (lit 15:6 %dangling)

72+ (body 16:5

73+ (group 16:5

74+ (call 16:6 (wing 16:6 add) (lit 16:10 1) (lit 16:12 2)))))))

75+ (value 17:1 trace-number

76+ (body 18:3

77+ (trace 18:3

78+ (lit 18:6 4)

79+ (body 19:5

80+ (group 19:5

81+ (call 19:6 (wing 19:6 add) (lit 19:10 1) (lit 19:12 2)))))))

82+ (value 20:1 recurse

83+ (gate 20:12

84+ (face 20:15 n (tvar 20:17 A))

85+ (group 20:19

86+ (call 20:20

87+ (wing 20:20 add)

88+ (wing 20:24 n)

89+ (group 20:26

90+ (call 20:27 (wing 20:27 recurse) (wing 20:35 n)))))))

91+ (value 21:1 mutual-a

92+ (gate 21:13

93+ (face 21:16 n (tvar 21:18 A))

94+ (group 21:20

95+ (call 21:21

96+ (wing 21:21 add)

97+ (wing 21:25 n)

98+ (group 21:27

99+ (call 21:28 (wing 21:28 mutual-b) (wing 21:37 n)))))))

100+ (value 22:1 mutual-b

101+ (gate 22:13

102+ (face 22:16 n (tvar 22:18 A))

103+ (group 22:20

104+ (call 22:21

105+ (wing 22:21 add)

106+ (wing 22:25 n)

107+ (group 22:27

108+ (call 22:28 (wing 22:28 mutual-a) (wing 22:37 n))))))))

tests/golden/types-arithmetic-scopes/types.txtnew file+21

@@ -0,0 +1,21 @@

1+partial inference; module not checked

2+++ inc: $-(A A) where A is an atom other than ?

3+++ inc-r: $-(A A) where A is an atom other than ?

4+++ text-case: @t

5+++ ship-case: @p

6+++ shared-case: $-([a=A b=A] A) where A is an atom other than ?

7+++ distinct: distinct type variables `A` and `B` must not be forced equal; use the same capital for a shared type

8+/tests/golden/types-arithmetic-scopes/source.jibb:6:19: first type variable

9+++ distinct |= [a=A b=B] (add a b)

10+ ^

11+/tests/golden/types-arithmetic-scopes/source.jibb:6:23: second type variable

12+++ distinct |= [a=A b=B] (add a b)

13+ ^

14+++ nested: $-(A $-(A A)) where A is an atom other than ?

15+++ local-fresh: $-(@t [@t @p])

16+++ local-capture: explicit capital constraints are not supported by partial inference

17+++ trace-tag: tag needs context in partial inference

18+++ trace-number: @ud

19+++ recurse: $-(A A) where A is an atom other than ?

20+++ mutual-a: $-(A A) where A is an atom other than ?

21+++ mutual-b: $-(A A) where A is an atom other than ?

tests/golden/types-cell-branch-context/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: Grammar, Branching and Molds — branch arms share the expected result type; unresolved tags need context; written record faces remain part of values.

2+tests: Closed cell result context flows into bounded loobean branches. The checker preserves previously inferred cases and faces, leaves wrong or inconsistent fields, unresolved tags, and open generic context unsupported.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-cell-branch-context/modules.txtnew file+1

@@ -0,0 +1 @@

1+# Use the actual source-backed prelude.

tests/golden/types-cell-branch-context/source.jibbnew file+37

@@ -0,0 +1,37 @@

1+++ choose |= flag=?

2+ ^- [@t (unit @t)] ?- flag

3+ %.y ["yes" ~]

4+ %.n ["no" ~]

5+++ bad |= flag=?

6+ ^- [@t (unit @t)] ?- flag

7+ %.y ["yes" ~]

8+ %.n [~zod ~]

9+++ pending |= flag=?

10+ ^- [@t (unit @t)] ?- flag

11+ %.y ["yes" ~]

12+ %.n [%waiting ~]

13+++ already |= flag=?

14+ ^- [@t @t] ?- flag

15+ %.y ["yes" "a"]

16+ %.n ["no" "b"]

17++$ rec [name=@t place=(unit @t)]

18+++ named |= flag=?

19+ ^- rec ?- flag

20+ %.y [name="yes" place=~]

21+ %.n [name="no" place=~]

22+++ wrong |= flag=?

23+ ^- rec ?- flag

24+ %.y [name="yes" place=~]

25+ %.n [other="no" place=~]

26+++ different |= flag=?

27+ ^- rec ?- flag

28+ %.y [name="yes" place=~]

29+ %.n ["no" ~]

30+++ open |= [flag=? value=A]

31+ ^- [A (unit A)] ?- flag

32+ %.y [value ~]

33+ %.n [value ~]

34+++ waiting |= flag=?

35+ ^- rec ?- flag

36+ %.y [name="yes" place=~]

37+ %.n [name=%waiting place=~]

tests/golden/types-cell-branch-context/tokens.txtnew file+308

@@ -0,0 +1,308 @@

1+1:1 glyph ++

2+1:4 name choose

3+1:11 glyph |=

4+1:14 name flag

5+1:18 tight glyph =

6+1:19 tight glyph ?

7+2:3 INDENT

8+2:3 glyph ^-

9+2:6 glyph [

10+2:7 tight aura @t

11+2:10 glyph (

12+2:11 tight name unit

13+2:16 aura @t

14+2:18 tight glyph )

15+2:19 tight glyph ]

16+2:21 glyph ?-

17+2:24 name flag

18+3:5 INDENT

19+3:5 lit %.y

20+3:9 glyph [

21+3:10 tight str "yes"

22+3:16 lit ~

23+3:17 tight glyph ]

24+4:5 NEWLINE

25+4:5 lit %.n

26+4:9 glyph [

27+4:10 tight str "no"

28+4:15 lit ~

29+4:16 tight glyph ]

30+5:1 DEDENT

31+5:1 DEDENT

32+5:1 NEWLINE

33+5:1 glyph ++

34+5:4 name bad

35+5:8 glyph |=

36+5:11 name flag

37+5:15 tight glyph =

38+5:16 tight glyph ?

39+6:3 INDENT

40+6:3 glyph ^-

41+6:6 glyph [

42+6:7 tight aura @t

43+6:10 glyph (

44+6:11 tight name unit

45+6:16 aura @t

46+6:18 tight glyph )

47+6:19 tight glyph ]

48+6:21 glyph ?-

49+6:24 name flag

50+7:5 INDENT

51+7:5 lit %.y

52+7:9 glyph [

53+7:10 tight str "yes"

54+7:16 lit ~

55+7:17 tight glyph ]

56+8:5 NEWLINE

57+8:5 lit %.n

58+8:9 glyph [

59+8:10 tight lit ~zod

60+8:15 lit ~

61+8:16 tight glyph ]

62+9:1 DEDENT

63+9:1 DEDENT

64+9:1 NEWLINE

65+9:1 glyph ++

66+9:4 name pending

67+9:12 glyph |=

68+9:15 name flag

69+9:19 tight glyph =

70+9:20 tight glyph ?

71+10:3 INDENT

72+10:3 glyph ^-

73+10:6 glyph [

74+10:7 tight aura @t

75+10:10 glyph (

76+10:11 tight name unit

77+10:16 aura @t

78+10:18 tight glyph )

79+10:19 tight glyph ]

80+10:21 glyph ?-

81+10:24 name flag

82+11:5 INDENT

83+11:5 lit %.y

84+11:9 glyph [

85+11:10 tight str "yes"

86+11:16 lit ~

87+11:17 tight glyph ]

88+12:5 NEWLINE

89+12:5 lit %.n

90+12:9 glyph [

91+12:10 tight lit %waiting

92+12:19 lit ~

93+12:20 tight glyph ]

94+13:1 DEDENT

95+13:1 DEDENT

96+13:1 NEWLINE

97+13:1 glyph ++

98+13:4 name already

99+13:12 glyph |=

100+13:15 name flag

101+13:19 tight glyph =

102+13:20 tight glyph ?

103+14:3 INDENT

104+14:3 glyph ^-

105+14:6 glyph [

106+14:7 tight aura @t

107+14:10 aura @t

108+14:12 tight glyph ]

109+14:14 glyph ?-

110+14:17 name flag

111+15:5 INDENT

112+15:5 lit %.y

113+15:9 glyph [

114+15:10 tight str "yes"

115+15:16 str "a"

116+15:19 tight glyph ]

117+16:5 NEWLINE

118+16:5 lit %.n

119+16:9 glyph [

120+16:10 tight str "no"

121+16:15 str "b"

122+16:18 tight glyph ]

123+17:1 DEDENT

124+17:1 DEDENT

125+17:1 NEWLINE

126+17:1 glyph +$

127+17:4 name rec

128+17:8 glyph [

129+17:9 tight name name

130+17:13 tight glyph =

131+17:14 tight aura @t

132+17:17 name place

133+17:22 tight glyph =

134+17:23 tight glyph (

135+17:24 tight name unit

136+17:29 aura @t

137+17:31 tight glyph )

138+17:32 tight glyph ]

139+18:1 NEWLINE

140+18:1 glyph ++

141+18:4 name named

142+18:10 glyph |=

143+18:13 name flag

144+18:17 tight glyph =

145+18:18 tight glyph ?

146+19:3 INDENT

147+19:3 glyph ^-

148+19:6 name rec

149+19:10 glyph ?-

150+19:13 name flag

151+20:5 INDENT

152+20:5 lit %.y

153+20:9 glyph [

154+20:10 tight name name

155+20:14 tight glyph =

156+20:15 tight str "yes"

157+20:21 name place

158+20:26 tight glyph =

159+20:27 tight lit ~

160+20:28 tight glyph ]

161+21:5 NEWLINE

162+21:5 lit %.n

163+21:9 glyph [

164+21:10 tight name name

165+21:14 tight glyph =

166+21:15 tight str "no"

167+21:20 name place

168+21:25 tight glyph =

169+21:26 tight lit ~

170+21:27 tight glyph ]

171+22:1 DEDENT

172+22:1 DEDENT

173+22:1 NEWLINE

174+22:1 glyph ++

175+22:4 name wrong

176+22:10 glyph |=

177+22:13 name flag

178+22:17 tight glyph =

179+22:18 tight glyph ?

180+23:3 INDENT

181+23:3 glyph ^-

182+23:6 name rec

183+23:10 glyph ?-

184+23:13 name flag

185+24:5 INDENT

186+24:5 lit %.y

187+24:9 glyph [

188+24:10 tight name name

189+24:14 tight glyph =

190+24:15 tight str "yes"

191+24:21 name place

192+24:26 tight glyph =

193+24:27 tight lit ~

194+24:28 tight glyph ]

195+25:5 NEWLINE

196+25:5 lit %.n

197+25:9 glyph [

198+25:10 tight name other

199+25:15 tight glyph =

200+25:16 tight str "no"

201+25:21 name place

202+25:26 tight glyph =

203+25:27 tight lit ~

204+25:28 tight glyph ]

205+26:1 DEDENT

206+26:1 DEDENT

207+26:1 NEWLINE

208+26:1 glyph ++

209+26:4 name different

210+26:14 glyph |=

211+26:17 name flag

212+26:21 tight glyph =

213+26:22 tight glyph ?

214+27:3 INDENT

215+27:3 glyph ^-

216+27:6 name rec

217+27:10 glyph ?-

218+27:13 name flag

219+28:5 INDENT

220+28:5 lit %.y

221+28:9 glyph [

222+28:10 tight name name

223+28:14 tight glyph =

224+28:15 tight str "yes"

225+28:21 name place

226+28:26 tight glyph =

227+28:27 tight lit ~

228+28:28 tight glyph ]

229+29:5 NEWLINE

230+29:5 lit %.n

231+29:9 glyph [

232+29:10 tight str "no"

233+29:15 lit ~

234+29:16 tight glyph ]

235+30:1 DEDENT

236+30:1 DEDENT

237+30:1 NEWLINE

238+30:1 glyph ++

239+30:4 name open

240+30:9 glyph |=

241+30:12 glyph [

242+30:13 tight name flag

243+30:17 tight glyph =

244+30:18 tight glyph ?

245+30:20 name value

246+30:25 tight glyph =

247+30:26 tight tvar A

248+30:27 tight glyph ]

249+31:3 INDENT

250+31:3 glyph ^-

251+31:6 glyph [

252+31:7 tight tvar A

253+31:9 glyph (

254+31:10 tight name unit

255+31:15 tvar A

256+31:16 tight glyph )

257+31:17 tight glyph ]

258+31:19 glyph ?-

259+31:22 name flag

260+32:5 INDENT

261+32:5 lit %.y

262+32:9 glyph [

263+32:10 tight name value

264+32:16 lit ~

265+32:17 tight glyph ]

266+33:5 NEWLINE

267+33:5 lit %.n

268+33:9 glyph [

269+33:10 tight name value

270+33:16 lit ~

271+33:17 tight glyph ]

272+34:1 DEDENT

273+34:1 DEDENT

274+34:1 NEWLINE

275+34:1 glyph ++

276+34:4 name waiting

277+34:12 glyph |=

278+34:15 name flag

279+34:19 tight glyph =

280+34:20 tight glyph ?

281+35:3 INDENT

282+35:3 glyph ^-

283+35:6 name rec

284+35:10 glyph ?-

285+35:13 name flag

286+36:5 INDENT

287+36:5 lit %.y

288+36:9 glyph [

289+36:10 tight name name

290+36:14 tight glyph =

291+36:15 tight str "yes"

292+36:21 name place

293+36:26 tight glyph =

294+36:27 tight lit ~

295+36:28 tight glyph ]

296+37:5 NEWLINE

297+37:5 lit %.n

298+37:9 glyph [

299+37:10 tight name name

300+37:14 tight glyph =

301+37:15 tight lit %waiting

302+37:24 name place

303+37:29 tight glyph =

304+37:30 tight lit ~

305+37:31 tight glyph ]

306+37:32 DEDENT

307+37:32 DEDENT

308+37:32 NEWLINE

tests/golden/types-cell-branch-context/tree.txtnew file+156

@@ -0,0 +1,156 @@

1+(module

2+ (value 1:1 choose

3+ (gate 1:11

4+ (face 1:14 flag (flag 1:19))

5+ (body 2:3

6+ (cast 2:3

7+ (cell 2:6

8+ (aura 2:7 @t)

9+ (apply 2:10 unit (aura 2:16 @t)))

10+ (branch 2:21

11+ (wing 2:24 flag)

12+ (arm 3:5

13+ (lit 3:5 %.y)

14+ (tuple 3:9 (str 3:10 "yes") (lit 3:16 ~)))

15+ (arm 4:5

16+ (lit 4:5 %.n)

17+ (tuple 4:9 (str 4:10 "no") (lit 4:15 ~))))))))

18+ (value 5:1 bad

19+ (gate 5:8

20+ (face 5:11 flag (flag 5:16))

21+ (body 6:3

22+ (cast 6:3

23+ (cell 6:6

24+ (aura 6:7 @t)

25+ (apply 6:10 unit (aura 6:16 @t)))

26+ (branch 6:21

27+ (wing 6:24 flag)

28+ (arm 7:5

29+ (lit 7:5 %.y)

30+ (tuple 7:9 (str 7:10 "yes") (lit 7:16 ~)))

31+ (arm 8:5

32+ (lit 8:5 %.n)

33+ (tuple 8:9 (lit 8:10 ~zod) (lit 8:15 ~))))))))

34+ (value 9:1 pending

35+ (gate 9:12

36+ (face 9:15 flag (flag 9:20))

37+ (body 10:3

38+ (cast 10:3

39+ (cell 10:6

40+ (aura 10:7 @t)

41+ (apply 10:10 unit (aura 10:16 @t)))

42+ (branch 10:21

43+ (wing 10:24 flag)

44+ (arm 11:5

45+ (lit 11:5 %.y)

46+ (tuple 11:9 (str 11:10 "yes") (lit 11:16 ~)))

47+ (arm 12:5

48+ (lit 12:5 %.n)

49+ (tuple 12:9 (lit 12:10 %waiting) (lit 12:19 ~))))))))

50+ (value 13:1 already

51+ (gate 13:12

52+ (face 13:15 flag (flag 13:20))

53+ (body 14:3

54+ (cast 14:3

55+ (cell 14:6 (aura 14:7 @t) (aura 14:10 @t))

56+ (branch 14:14

57+ (wing 14:17 flag)

58+ (arm 15:5

59+ (lit 15:5 %.y)

60+ (tuple 15:9 (str 15:10 "yes") (str 15:16 "a")))

61+ (arm 16:5

62+ (lit 16:5 %.n)

63+ (tuple 16:9 (str 16:10 "no") (str 16:15 "b"))))))))

64+ (mold 17:1 rec

65+ (cell 17:8

66+ (face 17:9 name (aura 17:14 @t))

67+ (face 17:17 place

68+ (apply 17:23 unit (aura 17:29 @t)))))

69+ (value 18:1 named

70+ (gate 18:10

71+ (face 18:13 flag (flag 18:18))

72+ (body 19:3

73+ (cast 19:3

74+ (ref 19:6 rec)

75+ (branch 19:10

76+ (wing 19:13 flag)

77+ (arm 20:5

78+ (lit 20:5 %.y)

79+ (tuple 20:9

80+ (face 20:10 name (str 20:15 "yes"))

81+ (face 20:21 place (lit 20:27 ~))))

82+ (arm 21:5

83+ (lit 21:5 %.n)

84+ (tuple 21:9

85+ (face 21:10 name (str 21:15 "no"))

86+ (face 21:20 place (lit 21:26 ~)))))))))

87+ (value 22:1 wrong

88+ (gate 22:10

89+ (face 22:13 flag (flag 22:18))

90+ (body 23:3

91+ (cast 23:3

92+ (ref 23:6 rec)

93+ (branch 23:10

94+ (wing 23:13 flag)

95+ (arm 24:5

96+ (lit 24:5 %.y)

97+ (tuple 24:9

98+ (face 24:10 name (str 24:15 "yes"))

99+ (face 24:21 place (lit 24:27 ~))))

100+ (arm 25:5

101+ (lit 25:5 %.n)

102+ (tuple 25:9

103+ (face 25:10 other (str 25:16 "no"))

104+ (face 25:21 place (lit 25:27 ~)))))))))

105+ (value 26:1 different

106+ (gate 26:14

107+ (face 26:17 flag (flag 26:22))

108+ (body 27:3

109+ (cast 27:3

110+ (ref 27:6 rec)

111+ (branch 27:10

112+ (wing 27:13 flag)

113+ (arm 28:5

114+ (lit 28:5 %.y)

115+ (tuple 28:9

116+ (face 28:10 name (str 28:15 "yes"))

117+ (face 28:21 place (lit 28:27 ~))))

118+ (arm 29:5

119+ (lit 29:5 %.n)

120+ (tuple 29:9 (str 29:10 "no") (lit 29:15 ~))))))))

121+ (value 30:1 open

122+ (gate 30:9

123+ (cell 30:12

124+ (face 30:13 flag (flag 30:18))

125+ (face 30:20 value (tvar 30:26 A)))

126+ (body 31:3

127+ (cast 31:3

128+ (cell 31:6

129+ (tvar 31:7 A)

130+ (apply 31:9 unit (tvar 31:15 A)))

131+ (branch 31:19

132+ (wing 31:22 flag)

133+ (arm 32:5

134+ (lit 32:5 %.y)

135+ (tuple 32:9 (wing 32:10 value) (lit 32:16 ~)))

136+ (arm 33:5

137+ (lit 33:5 %.n)

138+ (tuple 33:9 (wing 33:10 value) (lit 33:16 ~))))))))

139+ (value 34:1 waiting

140+ (gate 34:12

141+ (face 34:15 flag (flag 34:20))

142+ (body 35:3

143+ (cast 35:3

144+ (ref 35:6 rec)

145+ (branch 35:10

146+ (wing 35:13 flag)

147+ (arm 36:5

148+ (lit 36:5 %.y)

149+ (tuple 36:9

150+ (face 36:10 name (str 36:15 "yes"))

151+ (face 36:21 place (lit 36:27 ~))))

152+ (arm 37:5

153+ (lit 37:5 %.n)

154+ (tuple 37:9

155+ (face 37:10 name (lit 37:15 %waiting))

156+ (face 37:24 place (lit 37:30 ~))))))))))

tests/golden/types-cell-branch-context/types.txtnew file+11

@@ -0,0 +1,11 @@

1+partial inference; module not checked

2+++ choose: $-(? [@t (unit @t)])

3+++ bad: branch tag or union context is not supported by partial inference

4+++ pending: branch tag or union context is not supported by partial inference

5+++ already: $-(? [@t @t])

6++$ rec: not checked

7+++ named: $-(? [name=@t place=(unit @t)])

8+++ wrong: branch tag or union context is not supported by partial inference

9+++ different: branch tag or union context is not supported by partial inference

10+++ open: branch widening is not supported by partial inference

11+++ waiting: branch tag or union context is not supported by partial inference

tests/golden/types-cell-pattern-many/types.txt+2−2

@@ -9,6 +9,6 @@ partial inference; module not checked

99++ atom: cell pattern does not match the subject type

1010++ too-many: cell pattern does not match the subject type

1111++ record: record patterns are not supported by partial inference

12−++ nested: branch pattern is not supported by partial inference

13−++ wildcard: branch pattern is not supported by partial inference

12+++ nested: $-([@t [[@p ?] @ux]] @ux)

13+++ wildcard: $-([@t [@p ?]] ?)

1414++ pending: tag needs context in partial inference

tests/golden/types-constructor-context/about.txtnew file+1

@@ -0,0 +1 @@

1+Constructor callback results require a known contextual union. This case checks unknown, matching, missing and wrong payload cases, aliases, written capitals and pending obligations.

tests/golden/types-constructor-context/source.jibbnew file+37

@@ -0,0 +1,37 @@

1++$ msg

2+ [%got value=@t]

3+ %other

4++$ alias msg

5++$ wrong-payload

6+ [%got value=@p]

7+ %other

8++$ missing

9+ [%different value=@t]

10+ %other

11++$ maybe |$ [A]

12+ [%got value=A]

13+ %other

14+++ call |= callback=$-(@t M) (callback "payload")

15+++ call-ship |= callback=$-(@p M) (callback ~zod)

16+++ unknown (call |=%got)

17+++ later-context ^- msg (call |=%got)

18+++ named-alias ^- alias (call |=%got)

19+++ wrong-context ^- wrong-payload (call |=%got)

20+++ missing-case ^- missing (call |=%got)

21+++ generic-context ^- (maybe @t) (call |=%got)

22+++ generic-wrong ^- (maybe @p) (call |=%got)

23+++ generic-right-ship ^- (maybe @p) (call-ship |=%got)

24+++ named-capital |= value=A

25+ ^- (maybe A)

26+ (|=(callback=$-(A M) (callback value)) |=%got)

27+++ discarded-pending

28+ ~& %unrelated

29+ ^- msg (call |=%got)

30+++ discarded-constructor

31+ ~& |=%missing

32+ ^- msg (call |=%got)

33+++ existing-no-context ^- $-(@t msg) |=%got

34+++ wrong-existing ^- $-(@p msg) |=%got

35+++ later-use ^- msg unknown

36+++ noun-context ^- * (call |=%got)

37+++ other-known-origin ^- (ask @t) (call |=%got)

tests/golden/types-constructor-context/tokens.txtnew file+289

@@ -0,0 +1,289 @@

1+1:1 glyph +$

2+1:4 name msg

3+2:3 INDENT

4+2:3 glyph [

5+2:4 tight lit %got

6+2:9 name value

7+2:14 tight glyph =

8+2:15 tight aura @t

9+2:17 tight glyph ]

10+3:3 NEWLINE

11+3:3 lit %other

12+4:1 DEDENT

13+4:1 NEWLINE

14+4:1 glyph +$

15+4:4 name alias

16+4:10 name msg

17+5:1 NEWLINE

18+5:1 glyph +$

19+5:4 name wrong-payload

20+6:3 INDENT

21+6:3 glyph [

22+6:4 tight lit %got

23+6:9 name value

24+6:14 tight glyph =

25+6:15 tight aura @p

26+6:17 tight glyph ]

27+7:3 NEWLINE

28+7:3 lit %other

29+8:1 DEDENT

30+8:1 NEWLINE

31+8:1 glyph +$

32+8:4 name missing

33+9:3 INDENT

34+9:3 glyph [

35+9:4 tight lit %different

36+9:15 name value

37+9:20 tight glyph =

38+9:21 tight aura @t

39+9:23 tight glyph ]

40+10:3 NEWLINE

41+10:3 lit %other

42+11:1 DEDENT

43+11:1 NEWLINE

44+11:1 glyph +$

45+11:4 name maybe

46+11:10 glyph |$

47+11:13 glyph [

48+11:14 tight tvar A

49+11:15 tight glyph ]

50+12:3 INDENT

51+12:3 glyph [

52+12:4 tight lit %got

53+12:9 name value

54+12:14 tight glyph =

55+12:15 tight tvar A

56+12:16 tight glyph ]

57+13:3 NEWLINE

58+13:3 lit %other

59+14:1 DEDENT

60+14:1 NEWLINE

61+14:1 glyph ++

62+14:4 name call

63+14:9 glyph |=

64+14:12 name callback

65+14:20 tight glyph =

66+14:21 tight glyph $-(

67+14:24 tight aura @t

68+14:27 tvar M

69+14:28 tight glyph )

70+14:30 glyph (

71+14:31 tight name callback

72+14:40 str "payload"

73+14:49 tight glyph )

74+15:1 NEWLINE

75+15:1 glyph ++

76+15:4 name call-ship

77+15:14 glyph |=

78+15:17 name callback

79+15:25 tight glyph =

80+15:26 tight glyph $-(

81+15:29 tight aura @p

82+15:32 tvar M

83+15:33 tight glyph )

84+15:35 glyph (

85+15:36 tight name callback

86+15:45 lit ~zod

87+15:49 tight glyph )

88+16:1 NEWLINE

89+16:1 glyph ++

90+16:4 name unknown

91+16:12 glyph (

92+16:13 tight name call

93+16:18 glyph |=

94+16:20 tight lit %got

95+16:24 tight glyph )

96+17:1 NEWLINE

97+17:1 glyph ++

98+17:4 name later-context

99+17:18 glyph ^-

100+17:21 name msg

101+17:25 glyph (

102+17:26 tight name call

103+17:31 glyph |=

104+17:33 tight lit %got

105+17:37 tight glyph )

106+18:1 NEWLINE

107+18:1 glyph ++

108+18:4 name named-alias

109+18:16 glyph ^-

110+18:19 name alias

111+18:25 glyph (

112+18:26 tight name call

113+18:31 glyph |=

114+18:33 tight lit %got

115+18:37 tight glyph )

116+19:1 NEWLINE

117+19:1 glyph ++

118+19:4 name wrong-context

119+19:18 glyph ^-

120+19:21 name wrong-payload

121+19:35 glyph (

122+19:36 tight name call

123+19:41 glyph |=

124+19:43 tight lit %got

125+19:47 tight glyph )

126+20:1 NEWLINE

127+20:1 glyph ++

128+20:4 name missing-case

129+20:17 glyph ^-

130+20:20 name missing

131+20:28 glyph (

132+20:29 tight name call

133+20:34 glyph |=

134+20:36 tight lit %got

135+20:40 tight glyph )

136+21:1 NEWLINE

137+21:1 glyph ++

138+21:4 name generic-context

139+21:20 glyph ^-

140+21:23 glyph (

141+21:24 tight name maybe

142+21:30 aura @t

143+21:32 tight glyph )

144+21:34 glyph (

145+21:35 tight name call

146+21:40 glyph |=

147+21:42 tight lit %got

148+21:46 tight glyph )

149+22:1 NEWLINE

150+22:1 glyph ++

151+22:4 name generic-wrong

152+22:18 glyph ^-

153+22:21 glyph (

154+22:22 tight name maybe

155+22:28 aura @p

156+22:30 tight glyph )

157+22:32 glyph (

158+22:33 tight name call

159+22:38 glyph |=

160+22:40 tight lit %got

161+22:44 tight glyph )

162+23:1 NEWLINE

163+23:1 glyph ++

164+23:4 name generic-right-ship

165+23:23 glyph ^-

166+23:26 glyph (

167+23:27 tight name maybe

168+23:33 aura @p

169+23:35 tight glyph )

170+23:37 glyph (

171+23:38 tight name call-ship

172+23:48 glyph |=

173+23:50 tight lit %got

174+23:54 tight glyph )

175+24:1 NEWLINE

176+24:1 glyph ++

177+24:4 name named-capital

178+24:18 glyph |=

179+24:21 name value

180+24:26 tight glyph =

181+24:27 tight tvar A

182+25:3 INDENT

183+25:3 glyph ^-

184+25:6 glyph (

185+25:7 tight name maybe

186+25:13 tvar A

187+25:14 tight glyph )

188+26:5 INDENT

189+26:5 glyph (

190+26:6 tight glyph |=(

191+26:9 tight name callback

192+26:17 tight glyph =

193+26:18 tight glyph $-(

194+26:21 tight tvar A

195+26:23 tvar M

196+26:24 tight glyph )

197+26:26 glyph (

198+26:27 tight name callback

199+26:36 name value

200+26:41 tight glyph )

201+26:42 tight glyph )

202+26:44 glyph |=

203+26:46 tight lit %got

204+26:50 tight glyph )

205+27:1 DEDENT

206+27:1 DEDENT

207+27:1 NEWLINE

208+27:1 glyph ++

209+27:4 name discarded-pending

210+28:3 INDENT

211+28:3 glyph ~&

212+28:6 lit %unrelated

213+29:5 INDENT

214+29:5 glyph ^-

215+29:8 name msg

216+29:12 glyph (

217+29:13 tight name call

218+29:18 glyph |=

219+29:20 tight lit %got

220+29:24 tight glyph )

221+30:1 DEDENT

222+30:1 DEDENT

223+30:1 NEWLINE

224+30:1 glyph ++

225+30:4 name discarded-constructor

226+31:3 INDENT

227+31:3 glyph ~&

228+31:6 glyph |=

229+31:8 tight lit %missing

230+32:5 INDENT

231+32:5 glyph ^-

232+32:8 name msg

233+32:12 glyph (

234+32:13 tight name call

235+32:18 glyph |=

236+32:20 tight lit %got

237+32:24 tight glyph )

238+33:1 DEDENT

239+33:1 DEDENT

240+33:1 NEWLINE

241+33:1 glyph ++

242+33:4 name existing-no-context

243+33:24 glyph ^-

244+33:27 glyph $-(

245+33:30 tight aura @t

246+33:33 name msg

247+33:36 tight glyph )

248+33:38 glyph |=

249+33:40 tight lit %got

250+34:1 NEWLINE

251+34:1 glyph ++

252+34:4 name wrong-existing

253+34:19 glyph ^-

254+34:22 glyph $-(

255+34:25 tight aura @p

256+34:28 name msg

257+34:31 tight glyph )

258+34:33 glyph |=

259+34:35 tight lit %got

260+35:1 NEWLINE

261+35:1 glyph ++

262+35:4 name later-use

263+35:14 glyph ^-

264+35:17 name msg

265+35:21 name unknown

266+36:1 NEWLINE

267+36:1 glyph ++

268+36:4 name noun-context

269+36:17 glyph ^-

270+36:20 glyph *

271+36:22 glyph (

272+36:23 tight name call

273+36:28 glyph |=

274+36:30 tight lit %got

275+36:34 tight glyph )

276+37:1 NEWLINE

277+37:1 glyph ++

278+37:4 name other-known-origin

279+37:23 glyph ^-

280+37:26 glyph (

281+37:27 tight name ask

282+37:31 aura @t

283+37:33 tight glyph )

284+37:35 glyph (

285+37:36 tight name call

286+37:41 glyph |=

287+37:43 tight lit %got

288+37:47 tight glyph )

289+37:48 NEWLINE

tests/golden/types-constructor-context/tree.txtnew file+130

@@ -0,0 +1,130 @@

1+(module

2+ (mold 1:1 msg

3+ (union 2:3

4+ (cell 2:3

5+ (const 2:4 %got)

6+ (face 2:9 value (aura 2:15 @t)))

7+ (const 3:3 %other)))

8+ (mold 4:1 alias (ref 4:10 msg))

9+ (mold 5:1 wrong-payload

10+ (union 6:3

11+ (cell 6:3

12+ (const 6:4 %got)

13+ (face 6:9 value (aura 6:15 @p)))

14+ (const 7:3 %other)))

15+ (mold 8:1 missing

16+ (union 9:3

17+ (cell 9:3

18+ (const 9:4 %different)

19+ (face 9:15 value (aura 9:21 @t)))

20+ (const 10:3 %other)))

21+ (mold 11:1 maybe

22+ (generic 11:10 A

23+ (union 12:3

24+ (cell 12:3

25+ (const 12:4 %got)

26+ (face 12:9 value (tvar 12:15 A)))

27+ (const 13:3 %other))))

28+ (value 14:1 call

29+ (gate 14:9

30+ (face 14:12 callback

31+ (fn 14:21 (aura 14:24 @t) (tvar 14:27 M)))

32+ (group 14:30

33+ (call 14:31 (wing 14:31 callback) (str 14:40 "payload")))))

34+ (value 15:1 call-ship

35+ (gate 15:14

36+ (face 15:17 callback

37+ (fn 15:26 (aura 15:29 @p) (tvar 15:32 M)))

38+ (group 15:35

39+ (call 15:36 (wing 15:36 callback) (lit 15:45 ~zod)))))

40+ (value 16:1 unknown

41+ (group 16:12

42+ (call 16:13 (wing 16:13 call) (ctor 16:18 %got))))

43+ (value 17:1 later-context

44+ (cast 17:18

45+ (ref 17:21 msg)

46+ (group 17:25

47+ (call 17:26 (wing 17:26 call) (ctor 17:31 %got)))))

48+ (value 18:1 named-alias

49+ (cast 18:16

50+ (ref 18:19 alias)

51+ (group 18:25

52+ (call 18:26 (wing 18:26 call) (ctor 18:31 %got)))))

53+ (value 19:1 wrong-context

54+ (cast 19:18

55+ (ref 19:21 wrong-payload)

56+ (group 19:35

57+ (call 19:36 (wing 19:36 call) (ctor 19:41 %got)))))

58+ (value 20:1 missing-case

59+ (cast 20:17

60+ (ref 20:20 missing)

61+ (group 20:28

62+ (call 20:29 (wing 20:29 call) (ctor 20:34 %got)))))

63+ (value 21:1 generic-context

64+ (cast 21:20

65+ (apply 21:23 maybe (aura 21:30 @t))

66+ (group 21:34

67+ (call 21:35 (wing 21:35 call) (ctor 21:40 %got)))))

68+ (value 22:1 generic-wrong

69+ (cast 22:18

70+ (apply 22:21 maybe (aura 22:28 @p))

71+ (group 22:32

72+ (call 22:33 (wing 22:33 call) (ctor 22:38 %got)))))

73+ (value 23:1 generic-right-ship

74+ (cast 23:23

75+ (apply 23:26 maybe (aura 23:33 @p))

76+ (group 23:37

77+ (call 23:38 (wing 23:38 call-ship) (ctor 23:48 %got)))))

78+ (value 24:1 named-capital

79+ (gate 24:18

80+ (face 24:21 value (tvar 24:27 A))

81+ (body 25:3

82+ (cast 25:3

83+ (apply 25:6 maybe (tvar 25:13 A))

84+ (body 26:5

85+ (group 26:5

86+ (call 26:6

87+ (gate-wide 26:6

88+ (face 26:9 callback

89+ (fn 26:18 (tvar 26:21 A) (tvar 26:23 M)))

90+ (group 26:26

91+ (call 26:27 (wing 26:27 callback) (wing 26:36 value))))

92+ (ctor 26:44 %got))))))))

93+ (value 27:1 discarded-pending

94+ (body 28:3

95+ (trace 28:3

96+ (lit 28:6 %unrelated)

97+ (body 29:5

98+ (cast 29:5

99+ (ref 29:8 msg)

100+ (group 29:12

101+ (call 29:13 (wing 29:13 call) (ctor 29:18 %got))))))))

102+ (value 30:1 discarded-constructor

103+ (body 31:3

104+ (trace 31:3

105+ (ctor 31:6 %missing)

106+ (body 32:5

107+ (cast 32:5

108+ (ref 32:8 msg)

109+ (group 32:12

110+ (call 32:13 (wing 32:13 call) (ctor 32:18 %got))))))))

111+ (value 33:1 existing-no-context

112+ (cast 33:24

113+ (fn 33:27 (aura 33:30 @t) (ref 33:33 msg))

114+ (ctor 33:38 %got)))

115+ (value 34:1 wrong-existing

116+ (cast 34:19

117+ (fn 34:22 (aura 34:25 @p) (ref 34:28 msg))

118+ (ctor 34:33 %got)))

119+ (value 35:1 later-use

120+ (cast 35:14 (ref 35:17 msg) (wing 35:21 unknown)))

121+ (value 36:1 noun-context

122+ (cast 36:17

123+ (noun 36:20)

124+ (group 36:22

125+ (call 36:23 (wing 36:23 call) (ctor 36:28 %got)))))

126+ (value 37:1 other-known-origin

127+ (cast 37:23

128+ (apply 37:26 ask (aura 37:31 @t))

129+ (group 37:35

130+ (call 37:36 (wing 37:36 call) (ctor 37:41 %got))))))

tests/golden/types-constructor-context/types.txtnew file+54

@@ -0,0 +1,54 @@

1+partial inference; module not checked

2++$ msg: cases proven disjoint; mold not checked

3++$ alias: not checked

4++$ wrong-payload: cases proven disjoint; mold not checked

5++$ missing: cases proven disjoint; mold not checked

6++$ maybe: cases proven disjoint; mold not checked

7+++ call: $-($-(@t A) A)

8+++ call-ship: $-($-(@p A) A)

9+++ unknown: call constraint is not supported by partial inference

10+++ later-context: msg

11+++ named-alias: msg

12+++ wrong-context: call's sample and argument types do not unify

13+/tests/golden/types-constructor-context/source.jibb:19:36: called gate

14+++ wrong-context ^- wrong-payload (call |=%got)

15+ ^

16+/tests/golden/types-constructor-context/source.jibb:19:41: argument

17+++ wrong-context ^- wrong-payload (call |=%got)

18+ ^

19+++ missing-case: call's sample and argument types do not unify

20+/tests/golden/types-constructor-context/source.jibb:20:29: called gate

21+++ missing-case ^- missing (call |=%got)

22+ ^

23+/tests/golden/types-constructor-context/source.jibb:20:34: argument

24+++ missing-case ^- missing (call |=%got)

25+ ^

26+++ generic-context: (maybe @t)

27+++ generic-wrong: call's sample and argument types do not unify

28+/tests/golden/types-constructor-context/source.jibb:22:33: called gate

29+++ generic-wrong ^- (maybe @p) (call |=%got)

30+ ^

31+/tests/golden/types-constructor-context/source.jibb:22:38: argument

32+++ generic-wrong ^- (maybe @p) (call |=%got)

33+ ^

34+++ generic-right-ship: (maybe @p)

35+++ named-capital: explicit capital constraints are not supported by partial inference

36+++ discarded-pending: tag needs context in partial inference

37+++ discarded-constructor: tag needs context in partial inference

38+++ existing-no-context: $-(@t msg)

39+++ wrong-existing: cast mold and expression type do not unify

40+/tests/golden/types-constructor-context/source.jibb:34:22: cast mold

41+++ wrong-existing ^- $-(@p msg) |=%got

42+ ^

43+/tests/golden/types-constructor-context/source.jibb:34:33: expression

44+++ wrong-existing ^- $-(@p msg) |=%got

45+ ^

46+++ later-use: name is not available to partial inference

47+++ noun-context: call's sample and argument types do not unify

48+/tests/golden/types-constructor-context/source.jibb:36:23: called gate has type $-($-(@t *) *)

49+++ noun-context ^- * (call |=%got)

50+ ^

51+/tests/golden/types-constructor-context/source.jibb:36:28: argument

52+++ noun-context ^- * (call |=%got)

53+ ^

54+++ other-known-origin: cast mold is not supported by partial inference

tests/golden/types-deferred-call-context/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: Grammar, literals by context and type variables: calls can receive expected result types while preserving shared type variables and pending constraints.

2+tests: A known identity-like gate receives list, null, unit, union and nested record contexts. Incorrect items, tags, auras and repeated arguments report errors; unrelated pending literals and explicit capital restrictions remain. Generic list and union results instantiate independently, captured variables retain their scope, and unsupported recursive inference fails closed. The module report remains partial.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-deferred-call-context/modules.txtnew file+1

@@ -0,0 +1 @@

1+# no module fixtures

tests/golden/types-deferred-call-context/source.jibbnew file+56

@@ -0,0 +1,56 @@

1++$ msg

2+ %good

3+ %other

4+++ local-id |= x x

5+++ empty-list ^- (list @t) (local-id ~)

6+++ filled-list ^- (list @t) (local-id ~["hi"])

7+++ wrong-list ^- (list @t) (local-id ~[~zod])

8+++ unit-value ^- (unit msg) (local-id `%good)

9+++ union-value ^- msg (local-id %good)

10+++ union-bad ^- msg (local-id %wrong)

11+++ nested ^- (list (unit msg)) (local-id ~[`%good])

12+++ rec-value ^- [field=(list @t)] (local-id [field=~])

13+++ already |= x=@ud ^- @u (local-id x)

14+++ bad-aura |= x=@p ^- @t (local-id x)

15+++ capital |= x=A ^- A (local-id "text")

16+++ trace-tag ^- (list @t)

17+ ~& %dangling

18+ (local-id ~)

19+++ trace-null ^- (list @t)

20+ ~& ~

21+ (local-id ~)

22+++ unresolved (local-id %dangling)

23+++ no-context (local-id ~)

24+++ local-keep |= [a=A b=A] a

25+++ repeated-good ^- @t (local-keep "hi" "bye")

26+++ repeated-bad ^- @t (local-keep "hi" ~zod)

27+++ rec-good ^- [field=(list @t) flag=?] (local-id [field=~ flag=%.y])

28+++ rec-bad ^- [field=(list @t) flag=?] (local-id [field=~[~zod] flag=%.y])

29+++ wrap-identity |= x=A ^- A (local-id x)

30+++ wrap-forced |= x=A ^- @t (local-id x)

31+++ retain |= x=@t (local-id x)

32+++ result-later |= x ^- (list @t) (local-id x)

33+++ result-repeated ^- (list @t) (local-keep ~ ~)

34+++ result-repeated-bad ^- (list @t) (local-keep ~ ~[~zod])

35+++ recursive |= [flag=? value]

36+ ^- (list @t)

37+ ?- flag

38+ %.y (local-id value)

39+ %.n (recursive flag value)

40+++ captured |= sample

41+ ++ local |= ignored sample

42+ ^- (list @t) (local ~zod)

43+++ captured-bad |= sample

44+ ++ local |= ignored sample

45+ ~& ^- @t sample

46+ ^- @p (local ~zod)

47++$ choice |$ [A]

48+ [%one value=A]

49+ %none

50+++ param-list |= x=(list A) ^- (list A) (local-id ~)

51+++ param-list-text (param-list ~["hi"])

52+++ param-list-ship (param-list ~[~zod])

53+++ param-union |= x=A ^- (choice A) (local-id [%one x])

54+++ param-union-text (param-union "hi")

55+++ param-union-ship (param-union ~zod)

56+++ nested-tag-unknown (local-id [%one %dangling])

tests/golden/types-deferred-call-context/tokens.txtnew file+557

@@ -0,0 +1,557 @@

1+1:1 glyph +$

2+1:4 name msg

3+2:3 INDENT

4+2:3 lit %good

5+3:3 NEWLINE

6+3:3 lit %other

7+4:1 DEDENT

8+4:1 NEWLINE

9+4:1 glyph ++

10+4:4 name local-id

11+4:13 glyph |=

12+4:16 name x

13+4:18 name x

14+5:1 NEWLINE

15+5:1 glyph ++

16+5:4 name empty-list

17+5:15 glyph ^-

18+5:18 glyph (

19+5:19 tight name list

20+5:24 aura @t

21+5:26 tight glyph )

22+5:28 glyph (

23+5:29 tight name local-id

24+5:38 lit ~

25+5:39 tight glyph )

26+6:1 NEWLINE

27+6:1 glyph ++

28+6:4 name filled-list

29+6:16 glyph ^-

30+6:19 glyph (

31+6:20 tight name list

32+6:25 aura @t

33+6:27 tight glyph )

34+6:29 glyph (

35+6:30 tight name local-id

36+6:39 glyph ~[

37+6:41 tight str "hi"

38+6:45 tight glyph ]

39+6:46 tight glyph )

40+7:1 NEWLINE

41+7:1 glyph ++

42+7:4 name wrong-list

43+7:15 glyph ^-

44+7:18 glyph (

45+7:19 tight name list

46+7:24 aura @t

47+7:26 tight glyph )

48+7:28 glyph (

49+7:29 tight name local-id

50+7:38 glyph ~[

51+7:40 tight lit ~zod

52+7:44 tight glyph ]

53+7:45 tight glyph )

54+8:1 NEWLINE

55+8:1 glyph ++

56+8:4 name unit-value

57+8:15 glyph ^-

58+8:18 glyph (

59+8:19 tight name unit

60+8:24 name msg

61+8:27 tight glyph )

62+8:29 glyph (

63+8:30 tight name local-id

64+8:39 glyph `

65+8:40 tight lit %good

66+8:45 tight glyph )

67+9:1 NEWLINE

68+9:1 glyph ++

69+9:4 name union-value

70+9:16 glyph ^-

71+9:19 name msg

72+9:23 glyph (

73+9:24 tight name local-id

74+9:33 lit %good

75+9:38 tight glyph )

76+10:1 NEWLINE

77+10:1 glyph ++

78+10:4 name union-bad

79+10:14 glyph ^-

80+10:17 name msg

81+10:21 glyph (

82+10:22 tight name local-id

83+10:31 lit %wrong

84+10:37 tight glyph )

85+11:1 NEWLINE

86+11:1 glyph ++

87+11:4 name nested

88+11:11 glyph ^-

89+11:14 glyph (

90+11:15 tight name list

91+11:20 glyph (

92+11:21 tight name unit

93+11:26 name msg

94+11:29 tight glyph )

95+11:30 tight glyph )

96+11:32 glyph (

97+11:33 tight name local-id

98+11:42 glyph ~[

99+11:44 tight glyph `

100+11:45 tight lit %good

101+11:50 tight glyph ]

102+11:51 tight glyph )

103+12:1 NEWLINE

104+12:1 glyph ++

105+12:4 name rec-value

106+12:14 glyph ^-

107+12:17 glyph [

108+12:18 tight name field

109+12:23 tight glyph =

110+12:24 tight glyph (

111+12:25 tight name list

112+12:30 aura @t

113+12:32 tight glyph )

114+12:33 tight glyph ]

115+12:35 glyph (

116+12:36 tight name local-id

117+12:45 glyph [

118+12:46 tight name field

119+12:51 tight glyph =

120+12:52 tight lit ~

121+12:53 tight glyph ]

122+12:54 tight glyph )

123+13:1 NEWLINE

124+13:1 glyph ++

125+13:4 name already

126+13:12 glyph |=

127+13:15 name x

128+13:16 tight glyph =

129+13:17 tight aura @ud

130+13:21 glyph ^-

131+13:24 aura @u

132+13:27 glyph (

133+13:28 tight name local-id

134+13:37 name x

135+13:38 tight glyph )

136+14:1 NEWLINE

137+14:1 glyph ++

138+14:4 name bad-aura

139+14:13 glyph |=

140+14:16 name x

141+14:17 tight glyph =

142+14:18 tight aura @p

143+14:21 glyph ^-

144+14:24 aura @t

145+14:27 glyph (

146+14:28 tight name local-id

147+14:37 name x

148+14:38 tight glyph )

149+15:1 NEWLINE

150+15:1 glyph ++

151+15:4 name capital

152+15:12 glyph |=

153+15:15 name x

154+15:16 tight glyph =

155+15:17 tight tvar A

156+15:19 glyph ^-

157+15:22 tvar A

158+15:24 glyph (

159+15:25 tight name local-id

160+15:34 str "text"

161+15:40 tight glyph )

162+16:1 NEWLINE

163+16:1 glyph ++

164+16:4 name trace-tag

165+16:14 glyph ^-

166+16:17 glyph (

167+16:18 tight name list

168+16:23 aura @t

169+16:25 tight glyph )

170+17:3 INDENT

171+17:3 glyph ~&

172+17:6 lit %dangling

173+18:5 INDENT

174+18:5 glyph (

175+18:6 tight name local-id

176+18:15 lit ~

177+18:16 tight glyph )

178+19:1 DEDENT

179+19:1 DEDENT

180+19:1 NEWLINE

181+19:1 glyph ++

182+19:4 name trace-null

183+19:15 glyph ^-

184+19:18 glyph (

185+19:19 tight name list

186+19:24 aura @t

187+19:26 tight glyph )

188+20:3 INDENT

189+20:3 glyph ~&

190+20:6 lit ~

191+21:5 INDENT

192+21:5 glyph (

193+21:6 tight name local-id

194+21:15 lit ~

195+21:16 tight glyph )

196+22:1 DEDENT

197+22:1 DEDENT

198+22:1 NEWLINE

199+22:1 glyph ++

200+22:4 name unresolved

201+22:15 glyph (

202+22:16 tight name local-id

203+22:25 lit %dangling

204+22:34 tight glyph )

205+23:1 NEWLINE

206+23:1 glyph ++

207+23:4 name no-context

208+23:15 glyph (

209+23:16 tight name local-id

210+23:25 lit ~

211+23:26 tight glyph )

212+24:1 NEWLINE

213+24:1 glyph ++

214+24:4 name local-keep

215+24:15 glyph |=

216+24:18 glyph [

217+24:19 tight name a

218+24:20 tight glyph =

219+24:21 tight tvar A

220+24:23 name b

221+24:24 tight glyph =

222+24:25 tight tvar A

223+24:26 tight glyph ]

224+24:28 name a

225+25:1 NEWLINE

226+25:1 glyph ++

227+25:4 name repeated-good

228+25:18 glyph ^-

229+25:21 aura @t

230+25:24 glyph (

231+25:25 tight name local-keep

232+25:36 str "hi"

233+25:41 str "bye"

234+25:46 tight glyph )

235+26:1 NEWLINE

236+26:1 glyph ++

237+26:4 name repeated-bad

238+26:17 glyph ^-

239+26:20 aura @t

240+26:23 glyph (

241+26:24 tight name local-keep

242+26:35 str "hi"

243+26:40 lit ~zod

244+26:44 tight glyph )

245+27:1 NEWLINE

246+27:1 glyph ++

247+27:4 name rec-good

248+27:13 glyph ^-

249+27:16 glyph [

250+27:17 tight name field

251+27:22 tight glyph =

252+27:23 tight glyph (

253+27:24 tight name list

254+27:29 aura @t

255+27:31 tight glyph )

256+27:33 name flag

257+27:37 tight glyph =

258+27:38 tight glyph ?

259+27:39 tight glyph ]

260+27:41 glyph (

261+27:42 tight name local-id

262+27:51 glyph [

263+27:52 tight name field

264+27:57 tight glyph =

265+27:58 tight lit ~

266+27:60 name flag

267+27:64 tight glyph =

268+27:65 tight lit %.y

269+27:68 tight glyph ]

270+27:69 tight glyph )

271+28:1 NEWLINE

272+28:1 glyph ++

273+28:4 name rec-bad

274+28:12 glyph ^-

275+28:15 glyph [

276+28:16 tight name field

277+28:21 tight glyph =

278+28:22 tight glyph (

279+28:23 tight name list

280+28:28 aura @t

281+28:30 tight glyph )

282+28:32 name flag

283+28:36 tight glyph =

284+28:37 tight glyph ?

285+28:38 tight glyph ]

286+28:40 glyph (

287+28:41 tight name local-id

288+28:50 glyph [

289+28:51 tight name field

290+28:56 tight glyph =

291+28:57 tight glyph ~[

292+28:59 tight lit ~zod

293+28:63 tight glyph ]

294+28:65 name flag

295+28:69 tight glyph =

296+28:70 tight lit %.y

297+28:73 tight glyph ]

298+28:74 tight glyph )

299+29:1 NEWLINE

300+29:1 glyph ++

301+29:4 name wrap-identity

302+29:18 glyph |=

303+29:21 name x

304+29:22 tight glyph =

305+29:23 tight tvar A

306+29:25 glyph ^-

307+29:28 tvar A

308+29:30 glyph (

309+29:31 tight name local-id

310+29:40 name x

311+29:41 tight glyph )

312+30:1 NEWLINE

313+30:1 glyph ++

314+30:4 name wrap-forced

315+30:16 glyph |=

316+30:19 name x

317+30:20 tight glyph =

318+30:21 tight tvar A

319+30:23 glyph ^-

320+30:26 aura @t

321+30:29 glyph (

322+30:30 tight name local-id

323+30:39 name x

324+30:40 tight glyph )

325+31:1 NEWLINE

326+31:1 glyph ++

327+31:4 name retain

328+31:11 glyph |=

329+31:14 name x

330+31:15 tight glyph =

331+31:16 tight aura @t

332+31:19 glyph (

333+31:20 tight name local-id

334+31:29 name x

335+31:30 tight glyph )

336+32:1 NEWLINE

337+32:1 glyph ++

338+32:4 name result-later

339+32:17 glyph |=

340+32:20 name x

341+32:22 glyph ^-

342+32:25 glyph (

343+32:26 tight name list

344+32:31 aura @t

345+32:33 tight glyph )

346+32:35 glyph (

347+32:36 tight name local-id

348+32:45 name x

349+32:46 tight glyph )

350+33:1 NEWLINE

351+33:1 glyph ++

352+33:4 name result-repeated

353+33:20 glyph ^-

354+33:23 glyph (

355+33:24 tight name list

356+33:29 aura @t

357+33:31 tight glyph )

358+33:33 glyph (

359+33:34 tight name local-keep

360+33:45 lit ~

361+33:47 lit ~

362+33:48 tight glyph )

363+34:1 NEWLINE

364+34:1 glyph ++

365+34:4 name result-repeated-bad

366+34:24 glyph ^-

367+34:27 glyph (

368+34:28 tight name list

369+34:33 aura @t

370+34:35 tight glyph )

371+34:37 glyph (

372+34:38 tight name local-keep

373+34:49 lit ~

374+34:51 glyph ~[

375+34:53 tight lit ~zod

376+34:57 tight glyph ]

377+34:58 tight glyph )

378+35:1 NEWLINE

379+35:1 glyph ++

380+35:4 name recursive

381+35:14 glyph |=

382+35:17 glyph [

383+35:18 tight name flag

384+35:22 tight glyph =

385+35:23 tight glyph ?

386+35:25 name value

387+35:30 tight glyph ]

388+36:3 INDENT

389+36:3 glyph ^-

390+36:6 glyph (

391+36:7 tight name list

392+36:12 aura @t

393+36:14 tight glyph )

394+37:5 INDENT

395+37:5 glyph ?-

396+37:8 name flag

397+38:7 INDENT

398+38:7 lit %.y

399+38:11 glyph (

400+38:12 tight name local-id

401+38:21 name value

402+38:26 tight glyph )

403+39:7 NEWLINE

404+39:7 lit %.n

405+39:11 glyph (

406+39:12 tight name recursive

407+39:22 name flag

408+39:27 name value

409+39:32 tight glyph )

410+40:1 DEDENT

411+40:1 DEDENT

412+40:1 DEDENT

413+40:1 NEWLINE

414+40:1 glyph ++

415+40:4 name captured

416+40:13 glyph |=

417+40:16 name sample

418+41:3 INDENT

419+41:3 glyph ++

420+41:6 name local

421+41:12 glyph |=

422+41:15 name ignored

423+41:23 name sample

424+42:3 NEWLINE

425+42:3 glyph ^-

426+42:6 glyph (

427+42:7 tight name list

428+42:12 aura @t

429+42:14 tight glyph )

430+42:16 glyph (

431+42:17 tight name local

432+42:23 lit ~zod

433+42:27 tight glyph )

434+43:1 DEDENT

435+43:1 NEWLINE

436+43:1 glyph ++

437+43:4 name captured-bad

438+43:17 glyph |=

439+43:20 name sample

440+44:3 INDENT

441+44:3 glyph ++

442+44:6 name local

443+44:12 glyph |=

444+44:15 name ignored

445+44:23 name sample

446+45:3 NEWLINE

447+45:3 glyph ~&

448+45:6 glyph ^-

449+45:9 aura @t

450+45:12 name sample

451+46:5 INDENT

452+46:5 glyph ^-

453+46:8 aura @p

454+46:11 glyph (

455+46:12 tight name local

456+46:18 lit ~zod

457+46:22 tight glyph )

458+47:1 DEDENT

459+47:1 DEDENT

460+47:1 NEWLINE

461+47:1 glyph +$

462+47:4 name choice

463+47:11 glyph |$

464+47:14 glyph [

465+47:15 tight tvar A

466+47:16 tight glyph ]

467+48:3 INDENT

468+48:3 glyph [

469+48:4 tight lit %one

470+48:9 name value

471+48:14 tight glyph =

472+48:15 tight tvar A

473+48:16 tight glyph ]

474+49:3 NEWLINE

475+49:3 lit %none

476+50:1 DEDENT

477+50:1 NEWLINE

478+50:1 glyph ++

479+50:4 name param-list

480+50:15 glyph |=

481+50:18 name x

482+50:19 tight glyph =

483+50:20 tight glyph (

484+50:21 tight name list

485+50:26 tvar A

486+50:27 tight glyph )

487+50:29 glyph ^-

488+50:32 glyph (

489+50:33 tight name list

490+50:38 tvar A

491+50:39 tight glyph )

492+50:41 glyph (

493+50:42 tight name local-id

494+50:51 lit ~

495+50:52 tight glyph )

496+51:1 NEWLINE

497+51:1 glyph ++

498+51:4 name param-list-text

499+51:20 glyph (

500+51:21 tight name param-list

501+51:32 glyph ~[

502+51:34 tight str "hi"

503+51:38 tight glyph ]

504+51:39 tight glyph )

505+52:1 NEWLINE

506+52:1 glyph ++

507+52:4 name param-list-ship

508+52:20 glyph (

509+52:21 tight name param-list

510+52:32 glyph ~[

511+52:34 tight lit ~zod

512+52:38 tight glyph ]

513+52:39 tight glyph )

514+53:1 NEWLINE

515+53:1 glyph ++

516+53:4 name param-union

517+53:16 glyph |=

518+53:19 name x

519+53:20 tight glyph =

520+53:21 tight tvar A

521+53:23 glyph ^-

522+53:26 glyph (

523+53:27 tight name choice

524+53:34 tvar A

525+53:35 tight glyph )

526+53:37 glyph (

527+53:38 tight name local-id

528+53:47 glyph [

529+53:48 tight lit %one

530+53:53 name x

531+53:54 tight glyph ]

532+53:55 tight glyph )

533+54:1 NEWLINE

534+54:1 glyph ++

535+54:4 name param-union-text

536+54:21 glyph (

537+54:22 tight name param-union

538+54:34 str "hi"

539+54:38 tight glyph )

540+55:1 NEWLINE

541+55:1 glyph ++

542+55:4 name param-union-ship

543+55:21 glyph (

544+55:22 tight name param-union

545+55:34 lit ~zod

546+55:38 tight glyph )

547+56:1 NEWLINE

548+56:1 glyph ++

549+56:4 name nested-tag-unknown

550+56:23 glyph (

551+56:24 tight name local-id

552+56:33 glyph [

553+56:34 tight lit %one

554+56:39 lit %dangling

555+56:48 tight glyph ]

556+56:49 tight glyph )

557+56:50 NEWLINE

tests/golden/types-deferred-call-context/tree.txtnew file+272

@@ -0,0 +1,272 @@

1+(module

2+ (mold 1:1 msg

3+ (union 2:3 (const 2:3 %good) (const 3:3 %other)))

4+ (value 4:1 local-id

5+ (gate 4:13 (bind 4:16 x) (wing 4:18 x)))

6+ (value 5:1 empty-list

7+ (cast 5:15

8+ (apply 5:18 list (aura 5:24 @t))

9+ (group 5:28

10+ (call 5:29 (wing 5:29 local-id) (lit 5:38 ~)))))

11+ (value 6:1 filled-list

12+ (cast 6:16

13+ (apply 6:19 list (aura 6:25 @t))

14+ (group 6:29

15+ (call 6:30

16+ (wing 6:30 local-id)

17+ (list 6:39 (str 6:41 "hi"))))))

18+ (value 7:1 wrong-list

19+ (cast 7:15

20+ (apply 7:18 list (aura 7:24 @t))

21+ (group 7:28

22+ (call 7:29

23+ (wing 7:29 local-id)

24+ (list 7:38 (lit 7:40 ~zod))))))

25+ (value 8:1 unit-value

26+ (cast 8:15

27+ (apply 8:18 unit (ref 8:24 msg))

28+ (group 8:29

29+ (call 8:30

30+ (wing 8:30 local-id)

31+ (unit 8:39 (lit 8:40 %good))))))

32+ (value 9:1 union-value

33+ (cast 9:16

34+ (ref 9:19 msg)

35+ (group 9:23

36+ (call 9:24 (wing 9:24 local-id) (lit 9:33 %good)))))

37+ (value 10:1 union-bad

38+ (cast 10:14

39+ (ref 10:17 msg)

40+ (group 10:21

41+ (call 10:22 (wing 10:22 local-id) (lit 10:31 %wrong)))))

42+ (value 11:1 nested

43+ (cast 11:11

44+ (apply 11:14 list

45+ (apply 11:20 unit (ref 11:26 msg)))

46+ (group 11:32

47+ (call 11:33

48+ (wing 11:33 local-id)

49+ (list 11:42

50+ (unit 11:44 (lit 11:45 %good)))))))

51+ (value 12:1 rec-value

52+ (cast 12:14

53+ (cell 12:17

54+ (face 12:18 field

55+ (apply 12:24 list (aura 12:30 @t))))

56+ (group 12:35

57+ (call 12:36

58+ (wing 12:36 local-id)

59+ (tuple 12:45

60+ (face 12:46 field (lit 12:52 ~)))))))

61+ (value 13:1 already

62+ (gate 13:12

63+ (face 13:15 x (aura 13:17 @ud))

64+ (cast 13:21

65+ (aura 13:24 @u)

66+ (group 13:27

67+ (call 13:28 (wing 13:28 local-id) (wing 13:37 x))))))

68+ (value 14:1 bad-aura

69+ (gate 14:13

70+ (face 14:16 x (aura 14:18 @p))

71+ (cast 14:21

72+ (aura 14:24 @t)

73+ (group 14:27

74+ (call 14:28 (wing 14:28 local-id) (wing 14:37 x))))))

75+ (value 15:1 capital

76+ (gate 15:12

77+ (face 15:15 x (tvar 15:17 A))

78+ (cast 15:19

79+ (tvar 15:22 A)

80+ (group 15:24

81+ (call 15:25 (wing 15:25 local-id) (str 15:34 "text"))))))

82+ (value 16:1 trace-tag

83+ (cast 16:14

84+ (apply 16:17 list (aura 16:23 @t))

85+ (body 17:3

86+ (trace 17:3

87+ (lit 17:6 %dangling)

88+ (body 18:5

89+ (group 18:5

90+ (call 18:6 (wing 18:6 local-id) (lit 18:15 ~))))))))

91+ (value 19:1 trace-null

92+ (cast 19:15

93+ (apply 19:18 list (aura 19:24 @t))

94+ (body 20:3

95+ (trace 20:3

96+ (lit 20:6 ~)

97+ (body 21:5

98+ (group 21:5

99+ (call 21:6 (wing 21:6 local-id) (lit 21:15 ~))))))))

100+ (value 22:1 unresolved

101+ (group 22:15

102+ (call 22:16 (wing 22:16 local-id) (lit 22:25 %dangling))))

103+ (value 23:1 no-context

104+ (group 23:15

105+ (call 23:16 (wing 23:16 local-id) (lit 23:25 ~))))

106+ (value 24:1 local-keep

107+ (gate 24:15

108+ (cell 24:18

109+ (face 24:19 a (tvar 24:21 A))

110+ (face 24:23 b (tvar 24:25 A)))

111+ (wing 24:28 a)))

112+ (value 25:1 repeated-good

113+ (cast 25:18

114+ (aura 25:21 @t)

115+ (group 25:24

116+ (call 25:25 (wing 25:25 local-keep) (str 25:36 "hi") (str 25:41 "bye")))))

117+ (value 26:1 repeated-bad

118+ (cast 26:17

119+ (aura 26:20 @t)

120+ (group 26:23

121+ (call 26:24 (wing 26:24 local-keep) (str 26:35 "hi") (lit 26:40 ~zod)))))

122+ (value 27:1 rec-good

123+ (cast 27:13

124+ (cell 27:16

125+ (face 27:17 field

126+ (apply 27:23 list (aura 27:29 @t)))

127+ (face 27:33 flag (flag 27:38)))

128+ (group 27:41

129+ (call 27:42

130+ (wing 27:42 local-id)

131+ (tuple 27:51

132+ (face 27:52 field (lit 27:58 ~))

133+ (face 27:60 flag (lit 27:65 %.y)))))))

134+ (value 28:1 rec-bad

135+ (cast 28:12

136+ (cell 28:15

137+ (face 28:16 field

138+ (apply 28:22 list (aura 28:28 @t)))

139+ (face 28:32 flag (flag 28:37)))

140+ (group 28:40

141+ (call 28:41

142+ (wing 28:41 local-id)

143+ (tuple 28:50

144+ (face 28:51 field

145+ (list 28:57 (lit 28:59 ~zod)))

146+ (face 28:65 flag (lit 28:70 %.y)))))))

147+ (value 29:1 wrap-identity

148+ (gate 29:18

149+ (face 29:21 x (tvar 29:23 A))

150+ (cast 29:25

151+ (tvar 29:28 A)

152+ (group 29:30

153+ (call 29:31 (wing 29:31 local-id) (wing 29:40 x))))))

154+ (value 30:1 wrap-forced

155+ (gate 30:16

156+ (face 30:19 x (tvar 30:21 A))

157+ (cast 30:23

158+ (aura 30:26 @t)

159+ (group 30:29

160+ (call 30:30 (wing 30:30 local-id) (wing 30:39 x))))))

161+ (value 31:1 retain

162+ (gate 31:11

163+ (face 31:14 x (aura 31:16 @t))

164+ (group 31:19

165+ (call 31:20 (wing 31:20 local-id) (wing 31:29 x)))))

166+ (value 32:1 result-later

167+ (gate 32:17

168+ (bind 32:20 x)

169+ (cast 32:22

170+ (apply 32:25 list (aura 32:31 @t))

171+ (group 32:35

172+ (call 32:36 (wing 32:36 local-id) (wing 32:45 x))))))

173+ (value 33:1 result-repeated

174+ (cast 33:20

175+ (apply 33:23 list (aura 33:29 @t))

176+ (group 33:33

177+ (call 33:34 (wing 33:34 local-keep) (lit 33:45 ~) (lit 33:47 ~)))))

178+ (value 34:1 result-repeated-bad

179+ (cast 34:24

180+ (apply 34:27 list (aura 34:33 @t))

181+ (group 34:37

182+ (call 34:38

183+ (wing 34:38 local-keep)

184+ (lit 34:49 ~)

185+ (list 34:51 (lit 34:53 ~zod))))))

186+ (value 35:1 recursive

187+ (gate 35:14

188+ (cell 35:17

189+ (face 35:18 flag (flag 35:23))

190+ (bind 35:25 value))

191+ (body 36:3

192+ (cast 36:3

193+ (apply 36:6 list (aura 36:12 @t))

194+ (body 37:5

195+ (branch 37:5

196+ (wing 37:8 flag)

197+ (arm 38:7

198+ (lit 38:7 %.y)

199+ (group 38:11

200+ (call 38:12 (wing 38:12 local-id) (wing 38:21 value))))

201+ (arm 39:7

202+ (lit 39:7 %.n)

203+ (group 39:11

204+ (call 39:12 (wing 39:12 recursive) (wing 39:22 flag) (wing 39:27 value))))))))))

205+ (value 40:1 captured

206+ (gate 40:13

207+ (bind 40:16 sample)

208+ (body 41:3

209+ (value 41:3 local

210+ (gate 41:12 (bind 41:15 ignored) (wing 41:23 sample)))

211+ (cast 42:3

212+ (apply 42:6 list (aura 42:12 @t))

213+ (group 42:16

214+ (call 42:17 (wing 42:17 local) (lit 42:23 ~zod)))))))

215+ (value 43:1 captured-bad

216+ (gate 43:17

217+ (bind 43:20 sample)

218+ (body 44:3

219+ (value 44:3 local

220+ (gate 44:12 (bind 44:15 ignored) (wing 44:23 sample)))

221+ (trace 45:3

222+ (cast 45:6 (aura 45:9 @t) (wing 45:12 sample))

223+ (body 46:5

224+ (cast 46:5

225+ (aura 46:8 @p)

226+ (group 46:11

227+ (call 46:12 (wing 46:12 local) (lit 46:18 ~zod)))))))))

228+ (mold 47:1 choice

229+ (generic 47:11 A

230+ (union 48:3

231+ (cell 48:3

232+ (const 48:4 %one)

233+ (face 48:9 value (tvar 48:15 A)))

234+ (const 49:3 %none))))

235+ (value 50:1 param-list

236+ (gate 50:15

237+ (face 50:18 x

238+ (apply 50:20 list (tvar 50:26 A)))

239+ (cast 50:29

240+ (apply 50:32 list (tvar 50:38 A))

241+ (group 50:41

242+ (call 50:42 (wing 50:42 local-id) (lit 50:51 ~))))))

243+ (value 51:1 param-list-text

244+ (group 51:20

245+ (call 51:21

246+ (wing 51:21 param-list)

247+ (list 51:32 (str 51:34 "hi")))))

248+ (value 52:1 param-list-ship

249+ (group 52:20

250+ (call 52:21

251+ (wing 52:21 param-list)

252+ (list 52:32 (lit 52:34 ~zod)))))

253+ (value 53:1 param-union

254+ (gate 53:16

255+ (face 53:19 x (tvar 53:21 A))

256+ (cast 53:23

257+ (apply 53:26 choice (tvar 53:34 A))

258+ (group 53:37

259+ (call 53:38

260+ (wing 53:38 local-id)

261+ (tuple 53:47 (lit 53:48 %one) (wing 53:53 x)))))))

262+ (value 54:1 param-union-text

263+ (group 54:21

264+ (call 54:22 (wing 54:22 param-union) (str 54:34 "hi"))))

265+ (value 55:1 param-union-ship

266+ (group 55:21

267+ (call 55:22 (wing 55:22 param-union) (lit 55:34 ~zod))))

268+ (value 56:1 nested-tag-unknown

269+ (group 56:23

270+ (call 56:24

271+ (wing 56:24 local-id)

272+ (tuple 56:33 (lit 56:34 %one) (lit 56:39 %dangling))))))

tests/golden/types-deferred-call-context/types.txtnew file+82

@@ -0,0 +1,82 @@

1+partial inference; module not checked

2++$ msg: cases proven disjoint; mold not checked

3+++ local-id: $-(A A)

4+++ empty-list: (list @t)

5+++ filled-list: (list @t)

6+++ wrong-list: list item does not fit its expected type

7+/tests/golden/types-deferred-call-context/source.jibb:7:29: expected item has type @t

8+++ wrong-list ^- (list @t) (local-id ~[~zod])

9+ ^

10+/tests/golden/types-deferred-call-context/source.jibb:7:40: list item has type @p

11+++ wrong-list ^- (list @t) (local-id ~[~zod])

12+ ^

13+++ unit-value: (unit msg)

14+++ union-value: msg

15+++ union-bad: msg has no case `%wrong`

16+/tests/golden/types-deferred-call-context/source.jibb:10:22: expected union

17+++ union-bad ^- msg (local-id %wrong)

18+ ^

19+/tests/golden/types-deferred-call-context/source.jibb:10:31: tag

20+++ union-bad ^- msg (local-id %wrong)

21+ ^

22+++ nested: (list (unit msg))

23+++ rec-value: cons shape is not supported by partial inference

24+++ already: $-(@ud @u)

25+++ bad-aura: call's sample and argument types do not unify

26+/tests/golden/types-deferred-call-context/source.jibb:14:28: called gate has type $-(@t @t)

27+++ bad-aura |= x=@p ^- @t (local-id x)

28+ ^

29+/tests/golden/types-deferred-call-context/source.jibb:14:37: argument has type @p

30+++ bad-aura |= x=@p ^- @t (local-id x)

31+ ^

32+++ capital: explicit capital constraints are not supported by partial inference

33+++ trace-tag: tag needs context in partial inference

34+++ trace-null: `~` needs context in partial inference

35+++ unresolved: tag needs context in partial inference

36+++ no-context: `~` needs context in partial inference

37+++ local-keep: $-([a=A b=A] A)

38+++ repeated-good: @t

39+++ repeated-bad: call's sample and argument types do not unify

40+/tests/golden/types-deferred-call-context/source.jibb:26:24: called gate has type $-([a=@t b=@t] @t)

41+++ repeated-bad ^- @t (local-keep "hi" ~zod)

42+ ^

43+/tests/golden/types-deferred-call-context/source.jibb:26:35: argument has type [@t @p]

44+++ repeated-bad ^- @t (local-keep "hi" ~zod)

45+ ^

46+++ rec-good: [field=(list @t) flag=?]

47+++ rec-bad: list item does not fit its expected type

48+/tests/golden/types-deferred-call-context/source.jibb:28:41: expected item has type @t

49+++ rec-bad ^- [field=(list @t) flag=?] (local-id [field=~[~zod] flag=%.y])

50+ ^

51+/tests/golden/types-deferred-call-context/source.jibb:28:59: list item has type @p

52+++ rec-bad ^- [field=(list @t) flag=?] (local-id [field=~[~zod] flag=%.y])

53+ ^

54+++ wrap-identity: $-(A A)

55+++ wrap-forced: explicit capital constraints are not supported by partial inference

56+++ retain: $-(@t @t)

57+++ result-later: $-((list @t) (list @t))

58+++ result-repeated: (list @t)

59+++ result-repeated-bad: list item does not fit its expected type

60+/tests/golden/types-deferred-call-context/source.jibb:34:38: expected item has type @t

61+++ result-repeated-bad ^- (list @t) (local-keep ~ ~[~zod])

62+ ^

63+/tests/golden/types-deferred-call-context/source.jibb:34:53: list item has type @p

64+++ result-repeated-bad ^- (list @t) (local-keep ~ ~[~zod])

65+ ^

66+++ recursive: call constraint is not supported by partial inference

67+++ captured: $-((list @t) (list @t))

68+++ captured-bad: cast mold and expression type do not unify

69+/tests/golden/types-deferred-call-context/source.jibb:46:8: cast mold has type @p

70+ ^- @p (local ~zod)

71+ ^

72+/tests/golden/types-deferred-call-context/source.jibb:46:11: expression has type @t

73+ ^- @p (local ~zod)

74+ ^

75++$ choice: cases proven disjoint; mold not checked

76+++ param-list: $-((list A) (list A))

77+++ param-list-text: (list @t)

78+++ param-list-ship: (list @p)

79+++ param-union: $-(A (choice A))

80+++ param-union-text: (choice @t)

81+++ param-union-ship: (choice @p)

82+++ nested-tag-unknown: tag needs context in partial inference

tests/golden/types-equal-head-disjoint/about.txtnew file+2

@@ -0,0 +1,2 @@

1+source: equal literal heads may have disjoint payloads and are compared by noun.

2+tests: Singleton payloads %alpha and %beta select distinct same-head cases; @t and @p cases overlap at zero. Incompatible samples and unrelated pending literals fail closed.

tests/golden/types-equal-head-disjoint/source.jibbnew file+25

@@ -0,0 +1,25 @@

1++$ split

2+ [%one value=@t]

3+ [%one value=@p]

4++$ split-zero

5+ [~ value=@t]

6+ [%.y value=@p]

7++$ nullable

8+ ~

9+ [~ value=@t]

10+++ cord ^- $-(@t split) |=%one

11+++ ship ^- $-(@p split) |=%one

12+++ neither ^- $-(@ud split) |=%one

13+++ zero-cord ^- $-(@t split-zero) |=%$

14+++ zero-ship ^- $-(@p split-zero) |=%$

15+++ zero-neither ^- $-(@ud split-zero) |=%$

16+++ contextual ^- $-(@t nullable) |=%$

17+++ pending

18+ ~& %orphan

19+ ^- $-(@t split) |=%one

20++$ exact

21+ [%same %alpha]

22+ [%same %beta]

23+++ first ^- $-(%alpha exact) |=%same

24+++ second ^- $-(%beta exact) |=%same

25+++ no-case ^- $-(%other exact) |=%same

tests/golden/types-equal-head-disjoint/tokens.txtnew file+179

@@ -0,0 +1,179 @@

1+1:1 glyph +$

2+1:4 name split

3+2:3 INDENT

4+2:3 glyph [

5+2:4 tight lit %one

6+2:9 name value

7+2:14 tight glyph =

8+2:15 tight aura @t

9+2:17 tight glyph ]

10+3:3 NEWLINE

11+3:3 glyph [

12+3:4 tight lit %one

13+3:9 name value

14+3:14 tight glyph =

15+3:15 tight aura @p

16+3:17 tight glyph ]

17+4:1 DEDENT

18+4:1 NEWLINE

19+4:1 glyph +$

20+4:4 name split-zero

21+5:3 INDENT

22+5:3 glyph [

23+5:4 tight lit ~

24+5:6 name value

25+5:11 tight glyph =

26+5:12 tight aura @t

27+5:14 tight glyph ]

28+6:3 NEWLINE

29+6:3 glyph [

30+6:4 tight lit %.y

31+6:8 name value

32+6:13 tight glyph =

33+6:14 tight aura @p

34+6:16 tight glyph ]

35+7:1 DEDENT

36+7:1 NEWLINE

37+7:1 glyph +$

38+7:4 name nullable

39+8:3 INDENT

40+8:3 lit ~

41+9:3 NEWLINE

42+9:3 glyph [

43+9:4 tight lit ~

44+9:6 name value

45+9:11 tight glyph =

46+9:12 tight aura @t

47+9:14 tight glyph ]

48+10:1 DEDENT

49+10:1 NEWLINE

50+10:1 glyph ++

51+10:4 name cord

52+10:9 glyph ^-

53+10:12 glyph $-(

54+10:15 tight aura @t

55+10:18 name split

56+10:23 tight glyph )

57+10:25 glyph |=

58+10:27 tight lit %one

59+11:1 NEWLINE

60+11:1 glyph ++

61+11:4 name ship

62+11:9 glyph ^-

63+11:12 glyph $-(

64+11:15 tight aura @p

65+11:18 name split

66+11:23 tight glyph )

67+11:25 glyph |=

68+11:27 tight lit %one

69+12:1 NEWLINE

70+12:1 glyph ++

71+12:4 name neither

72+12:12 glyph ^-

73+12:15 glyph $-(

74+12:18 tight aura @ud

75+12:22 name split

76+12:27 tight glyph )

77+12:29 glyph |=

78+12:31 tight lit %one

79+13:1 NEWLINE

80+13:1 glyph ++

81+13:4 name zero-cord

82+13:14 glyph ^-

83+13:17 glyph $-(

84+13:20 tight aura @t

85+13:23 name split-zero

86+13:33 tight glyph )

87+13:35 glyph |=

88+13:37 tight lit %$

89+14:1 NEWLINE

90+14:1 glyph ++

91+14:4 name zero-ship

92+14:14 glyph ^-

93+14:17 glyph $-(

94+14:20 tight aura @p

95+14:23 name split-zero

96+14:33 tight glyph )

97+14:35 glyph |=

98+14:37 tight lit %$

99+15:1 NEWLINE

100+15:1 glyph ++

101+15:4 name zero-neither

102+15:17 glyph ^-

103+15:20 glyph $-(

104+15:23 tight aura @ud

105+15:27 name split-zero

106+15:37 tight glyph )

107+15:39 glyph |=

108+15:41 tight lit %$

109+16:1 NEWLINE

110+16:1 glyph ++

111+16:4 name contextual

112+16:15 glyph ^-

113+16:18 glyph $-(

114+16:21 tight aura @t

115+16:24 name nullable

116+16:32 tight glyph )

117+16:34 glyph |=

118+16:36 tight lit %$

119+17:1 NEWLINE

120+17:1 glyph ++

121+17:4 name pending

122+18:3 INDENT

123+18:3 glyph ~&

124+18:6 lit %orphan

125+19:5 INDENT

126+19:5 glyph ^-

127+19:8 glyph $-(

128+19:11 tight aura @t

129+19:14 name split

130+19:19 tight glyph )

131+19:21 glyph |=

132+19:23 tight lit %one

133+20:1 DEDENT

134+20:1 DEDENT

135+20:1 NEWLINE

136+20:1 glyph +$

137+20:4 name exact

138+21:3 INDENT

139+21:3 glyph [

140+21:4 tight lit %same

141+21:10 lit %alpha

142+21:16 tight glyph ]

143+22:3 NEWLINE

144+22:3 glyph [

145+22:4 tight lit %same

146+22:10 lit %beta

147+22:15 tight glyph ]

148+23:1 DEDENT

149+23:1 NEWLINE

150+23:1 glyph ++

151+23:4 name first

152+23:10 glyph ^-

153+23:13 glyph $-(

154+23:16 tight lit %alpha

155+23:23 name exact

156+23:28 tight glyph )

157+23:30 glyph |=

158+23:32 tight lit %same

159+24:1 NEWLINE

160+24:1 glyph ++

161+24:4 name second

162+24:11 glyph ^-

163+24:14 glyph $-(

164+24:17 tight lit %beta

165+24:23 name exact

166+24:28 tight glyph )

167+24:30 glyph |=

168+24:32 tight lit %same

169+25:1 NEWLINE

170+25:1 glyph ++

171+25:4 name no-case

172+25:12 glyph ^-

173+25:15 glyph $-(

174+25:18 tight lit %other

175+25:25 name exact

176+25:30 tight glyph )

177+25:32 glyph |=

178+25:34 tight lit %same

179+25:39 NEWLINE

tests/golden/types-equal-head-disjoint/tree.txtnew file+75

This diff is too big to show here.

tests/golden/types-equal-head-disjoint/types.txtnew file+34

This diff is too big to show here.

tests/golden/types-flag-branch-context/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-flag-branch-context/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-flag-branch-context/source.jibbnew file+83

This diff is too big to show here.

tests/golden/types-flag-branch-context/tokens.txtnew file+496

This diff is too big to show here.

tests/golden/types-flag-branch-context/tree.txtnew file+244

This diff is too big to show here.

tests/golden/types-flag-branch-context/types.txtnew file+33

This diff is too big to show here.

tests/golden/types-generic-result-context/about.txtnew file+1

This diff is too big to show here.

tests/golden/types-generic-result-context/source.jibbnew file+24

This diff is too big to show here.

tests/golden/types-generic-result-context/tokens.txtnew file+233

This diff is too big to show here.

tests/golden/types-generic-result-context/tree.txtnew file+86

This diff is too big to show here.

tests/golden/types-generic-result-context/types.txtnew file+22

This diff is too big to show here.

tests/golden/types-hole-concrete/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-concrete/source.jibbnew file+6

This diff is too big to show here.

tests/golden/types-hole-concrete/tokens.txtnew file+54

This diff is too big to show here.

tests/golden/types-hole-concrete/tree.txtnew file+22

This diff is too big to show here.

tests/golden/types-hole-concrete/types.txtnew file+10

This diff is too big to show here.

tests/golden/types-hole-generic-mold/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-generic-mold/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-hole-generic-mold/tokens.txtnew file+26

This diff is too big to show here.

tests/golden/types-hole-generic-mold/tree.txtnew file+11

This diff is too big to show here.

tests/golden/types-hole-generic-mold/types.txtnew file+6

This diff is too big to show here.

tests/golden/types-hole-local-boundary/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-local-boundary/source.jibbnew file+16

This diff is too big to show here.

tests/golden/types-hole-local-boundary/tokens.txtnew file+118

This diff is too big to show here.

tests/golden/types-hole-local-boundary/tree.txtnew file+55

This diff is too big to show here.

tests/golden/types-hole-local-boundary/types.txtnew file+17

This diff is too big to show here.

tests/golden/types-hole-module-boundary/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-module-boundary/module-trees.txtnew file+6

This diff is too big to show here.

tests/golden/types-module-field-ambiguous/modules.txt → tests/golden/types-hole-module-boundary/modules.txtrenamed

The content is the same.

tests/golden/types-hole-module-boundary/modules/ui/lib.jibbnew file+1

This diff is too big to show here.

tests/golden/types-hole-module-boundary/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-hole-module-boundary/tokens.txtnew file+14

This diff is too big to show here.

tests/golden/types-hole-module-boundary/tree.txtnew file+5

This diff is too big to show here.

tests/golden/types-hole-module-boundary/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-hole-named-complex/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-named-complex/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-hole-named-complex/tokens.txtnew file+20

This diff is too big to show here.

tests/golden/types-hole-named-complex/tree.txtnew file+9

This diff is too big to show here.

tests/golden/types-hole-named-complex/types.txtnew file+3

This diff is too big to show here.

tests/golden/types-hole-numeric-capture/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-numeric-capture/source.jibbnew file+19

This diff is too big to show here.

tests/golden/types-hole-numeric-capture/tokens.txtnew file+127

This diff is too big to show here.

tests/golden/types-hole-numeric-capture/tree.txtnew file+62

This diff is too big to show here.

tests/golden/types-hole-numeric-capture/types.txtnew file+10

This diff is too big to show here.

tests/golden/types-hole-unbound-mold/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-unbound-mold/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-hole-unbound-mold/tokens.txtnew file+19

This diff is too big to show here.

tests/golden/types-hole-unbound-mold/tree.txtnew file+9

This diff is too big to show here.

tests/golden/types-hole-unbound-mold/types.txtnew file+3

This diff is too big to show here.

tests/golden/types-hole-unsupported/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-unsupported/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-hole-unsupported/tokens.txtnew file+14

This diff is too big to show here.

tests/golden/types-hole-unsupported/tree.txtnew file+7

This diff is too big to show here.

tests/golden/types-hole-unsupported/types.txtnew file+6

This diff is too big to show here.

tests/golden/types-hole-user-generic/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-user-generic/source.jibbnew file+6

This diff is too big to show here.

tests/golden/types-hole-user-generic/tokens.txtnew file+71

This diff is too big to show here.

tests/golden/types-hole-user-generic/tree.txtnew file+31

This diff is too big to show here.

tests/golden/types-hole-user-generic/types.txtnew file+10

This diff is too big to show here.

tests/golden/types-hole-user-named/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-user-named/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-hole-user-named/tokens.txtnew file+22

This diff is too big to show here.

tests/golden/types-hole-user-named/tree.txtnew file+11

This diff is too big to show here.

tests/golden/types-hole-user-named/types.txtnew file+6

This diff is too big to show here.

tests/golden/types-hole-user-value/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-hole-user-value/source.jibbnew file+3

This diff is too big to show here.

tests/golden/types-hole-user-value/tokens.txtnew file+21

This diff is too big to show here.

tests/golden/types-hole-user-value/tree.txtnew file+10

This diff is too big to show here.

tests/golden/types-hole-user-value/types.txtnew file+7

This diff is too big to show here.

tests/golden/types-import-tlon-notes/about.txt+1−1

This diff is too big to show here.

tests/golden/types-import-tlon-notes/imports.txt+5

This diff is too big to show here.

tests/golden/types-import-tlon-notes/source.jibb+5

This diff is too big to show here.

tests/golden/types-import-tlon-notes/tokens.txt+41−1

This diff is too big to show here.

tests/golden/types-import-tlon-notes/tree.txt+21−1

This diff is too big to show here.

tests/golden/types-import-tlon-notes/types.txt+5

This diff is too big to show here.

tests/golden/types-list-patterns/about.txt+1−1

This diff is too big to show here.

tests/golden/types-list-patterns/types.txt+1−1

This diff is too big to show here.

tests/golden/types-literal-constructor-nouns/about.txtnew file+2

This diff is too big to show here.

tests/golden/types-literal-constructor-nouns/source.jibbnew file+25

This diff is too big to show here.

tests/golden/types-literal-constructor-nouns/tokens.txtnew file+177

This diff is too big to show here.

tests/golden/types-literal-constructor-nouns/tree.txtnew file+78

This diff is too big to show here.

tests/golden/types-literal-constructor-nouns/types.txtnew file+45

This diff is too big to show here.

tests/golden/types-loobean-singleton-source/about.txtnew file+2

This diff is too big to show here.

tests/golden/types-loobean-singleton-source/source.jibbnew file+22

This diff is too big to show here.

tests/golden/types-loobean-singleton-source/tokens.txtnew file+143

This diff is too big to show here.

tests/golden/types-loobean-singleton-source/tree.txtnew file+52

This diff is too big to show here.

tests/golden/types-loobean-singleton-source/types.txtnew file+65

This diff is too big to show here.

tests/golden/types-loobean-union-context/about.txtnew file+2

This diff is too big to show here.

tests/golden/types-loobean-union-context/source.jibbnew file+28

This diff is too big to show here.

tests/golden/types-loobean-union-context/tokens.txtnew file+136

This diff is too big to show here.

tests/golden/types-loobean-union-context/tree.txtnew file+55

This diff is too big to show here.

tests/golden/types-loobean-union-context/types.txtnew file+35

This diff is too big to show here.

tests/golden/types-module-field-ambiguous/about.txtdeleted−4

This diff is too big to show here.

tests/golden/types-module-field-ambiguous/types.txtdeleted−2

This diff is too big to show here.

tests/golden/types-module-field-duplicate/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-module-field-ambiguous/module-trees.txt → tests/golden/types-module-field-duplicate/module-trees.txtrenamed

The content is the same.

tests/golden/types-module-field-duplicate/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-module-field-ambiguous/modules/ui/lib.jibb → tests/golden/types-module-field-duplicate/modules/ui/lib.jibbrenamed

The content is the same.

tests/golden/types-module-field-ambiguous/source.jibb → tests/golden/types-module-field-duplicate/source.jibbrenamed

The content is the same.

tests/golden/types-module-field-ambiguous/tokens.txt → tests/golden/types-module-field-duplicate/tokens.txtrenamed

The content is the same.

tests/golden/types-module-field-ambiguous/tree.txt → tests/golden/types-module-field-duplicate/tree.txtrenamed

The content is the same.

tests/golden/types-module-field-duplicate/types.txtnew file+8

This diff is too big to show here.

tests/golden/types-nested-noun-context/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-nested-noun-context/source.jibbnew file+35

This diff is too big to show here.

tests/golden/types-nested-noun-context/tokens.txtnew file+363

This diff is too big to show here.

tests/golden/types-nested-noun-context/tree.txtnew file+162

This diff is too big to show here.

tests/golden/types-nested-noun-context/types.txtnew file+34

This diff is too big to show here.

tests/golden/types-nested-shallow-preserve/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-nested-shallow-preserve/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-nested-shallow-preserve/source.jibbnew file+30

This diff is too big to show here.

tests/golden/types-nested-shallow-preserve/tokens.txtnew file+271

This diff is too big to show here.

tests/golden/types-nested-shallow-preserve/tree.txtnew file+136

This diff is too big to show here.

tests/golden/types-nested-shallow-preserve/types.txtnew file+33

This diff is too big to show here.

tests/golden/types-nested-union-context/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-nested-union-context/source.jibbnew file+59

This diff is too big to show here.

tests/golden/types-nested-union-context/tokens.txtnew file+660

This diff is too big to show here.

tests/golden/types-nested-union-context/tree.txtnew file+302

This diff is too big to show here.

tests/golden/types-nested-union-context/types.txtnew file+49

This diff is too big to show here.

tests/golden/types-null-context/about.txt+1−1

This diff is too big to show here.

tests/golden/types-null-context/source.jibb+1−1

This diff is too big to show here.

tests/golden/types-null-context/tokens.txt+8−8

This diff is too big to show here.

tests/golden/types-null-context/tree.txt+4−4

This diff is too big to show here.

tests/golden/types-null-context/types.txt+1−7

This diff is too big to show here.

tests/golden/types-pair-context/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-pair-context/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-pair-context/source.jibbnew file+32

This diff is too big to show here.

tests/golden/types-pair-context/tokens.txtnew file+217

This diff is too big to show here.

tests/golden/types-pair-context/tree.txtnew file+86

This diff is too big to show here.

tests/golden/types-pair-context/types.txtnew file+43

This diff is too big to show here.

tests/golden/types-partial-union-nested-nouns/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-partial-union-nested-nouns/source.jibbnew file+18

This diff is too big to show here.

tests/golden/types-partial-union-nested-nouns/tokens.txtnew file+108

This diff is too big to show here.

tests/golden/types-partial-union-nested-nouns/tree.txtnew file+47

This diff is too big to show here.

tests/golden/types-partial-union-nested-nouns/types.txtnew file+25

This diff is too big to show here.

tests/golden/types-positional-faces/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-positional-faces/source.jibbnew file+25

This diff is too big to show here.

tests/golden/types-positional-faces/tokens.txtnew file+394

This diff is too big to show here.

tests/golden/types-positional-faces/tree.txtnew file+197

This diff is too big to show here.

tests/golden/types-positional-faces/types.txtnew file+42

This diff is too big to show here.

tests/golden/types-prelude-arithmetic/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-arithmetic/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-arithmetic/source.jibbnew file+23

This diff is too big to show here.

tests/golden/types-prelude-arithmetic/tokens.txtnew file+201

This diff is too big to show here.

tests/golden/types-prelude-arithmetic/tree.txtnew file+85

This diff is too big to show here.

tests/golden/types-prelude-arithmetic/types.txtnew file+50

This diff is too big to show here.

tests/golden/types-prelude-ask/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-ask/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-ask/source.jibbnew file+55

This diff is too big to show here.

tests/golden/types-prelude-ask/tokens.txtnew file+804

This diff is too big to show here.

tests/golden/types-prelude-ask/tree.txtnew file+335

This diff is too big to show here.

tests/golden/types-prelude-ask/types.txtnew file+41

This diff is too big to show here.

tests/golden/types-prelude-bond/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-bond/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-bond/source.jibbnew file+6

This diff is too big to show here.

tests/golden/types-prelude-bond/tokens.txtnew file+57

This diff is too big to show here.

tests/golden/types-prelude-bond/tree.txtnew file+30

This diff is too big to show here.

tests/golden/types-prelude-bond/types.txtnew file+7

This diff is too big to show here.

tests/golden/types-prelude-cmd/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-cmd/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-cmd/source.jibbnew file+21

This diff is too big to show here.

tests/golden/types-prelude-cmd/tokens.txtnew file+285

This diff is too big to show here.

tests/golden/types-prelude-cmd/tree.txtnew file+122

This diff is too big to show here.

tests/golden/types-prelude-cmd/types.txtnew file+56

This diff is too big to show here.

tests/golden/types-prelude-comparison/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-comparison/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-comparison/source.jibbnew file+18

This diff is too big to show here.

tests/golden/types-prelude-comparison/tokens.txtnew file+175

This diff is too big to show here.

tests/golden/types-prelude-comparison/tree.txtnew file+71

This diff is too big to show here.

tests/golden/types-prelude-comparison/types.txtnew file+31

This diff is too big to show here.

tests/golden/types-prelude-functional/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-functional/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-functional/source.jibbnew file+18

This diff is too big to show here.

tests/golden/types-prelude-functional/tokens.txtnew file+145

This diff is too big to show here.

tests/golden/types-prelude-functional/tree.txtnew file+65

This diff is too big to show here.

tests/golden/types-prelude-functional/types.txtnew file+23

This diff is too big to show here.

tests/golden/types-prelude-generic-alias/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-generic-alias/module-trees.txtnew file+10

This diff is too big to show here.

tests/golden/types-prelude-generic-alias/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-generic-alias/modules/ui/alias-helper.jibbnew file+2

This diff is too big to show here.

tests/golden/types-prelude-generic-alias/source.jibbnew file+13

This diff is too big to show here.

tests/golden/types-prelude-generic-alias/tokens.txtnew file+146

This diff is too big to show here.

tests/golden/types-prelude-generic-alias/tree.txtnew file+51

This diff is too big to show here.

tests/golden/types-prelude-generic-alias/types.txtnew file+13

This diff is too big to show here.

tests/golden/types-prelude-lead-late/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-lead-late/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-lead-late/source.jibbnew file+10

This diff is too big to show here.

tests/golden/types-prelude-lead-late/tokens.txtnew file+151

This diff is too big to show here.

tests/golden/types-prelude-lead-late/tree.txtnew file+83

This diff is too big to show here.

tests/golden/types-prelude-lead-late/types.txtnew file+17

This diff is too big to show here.

tests/golden/types-prelude-lent/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-lent/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-lent/source.jibbnew file+8

This diff is too big to show here.

tests/golden/types-prelude-lent/tokens.txtnew file+76

This diff is too big to show here.

tests/golden/types-prelude-lent/tree.txtnew file+38

This diff is too big to show here.

tests/golden/types-prelude-lent/types.txtnew file+15

This diff is too big to show here.

tests/golden/types-prelude-like/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-like/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-like/source.jibbnew file+22

This diff is too big to show here.

tests/golden/types-prelude-like/tokens.txtnew file+320

This diff is too big to show here.

tests/golden/types-prelude-like/tree.txtnew file+163

This diff is too big to show here.

tests/golden/types-prelude-like/types.txtnew file+18

This diff is too big to show here.

tests/golden/types-prelude-list-alias/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-list-alias/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-list-alias/source.jibbnew file+7

This diff is too big to show here.

tests/golden/types-prelude-list-alias/tokens.txtnew file+68

This diff is too big to show here.

tests/golden/types-prelude-list-alias/tree.txtnew file+30

This diff is too big to show here.

tests/golden/types-prelude-list-alias/types.txtnew file+14

This diff is too big to show here.

tests/golden/types-prelude-predicates/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-predicates/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-predicates/source.jibbnew file+6

This diff is too big to show here.

tests/golden/types-prelude-predicates/tokens.txtnew file+91

This diff is too big to show here.

tests/golden/types-prelude-predicates/tree.txtnew file+49

This diff is too big to show here.

tests/golden/types-prelude-predicates/types.txtnew file+19

This diff is too big to show here.

tests/golden/types-prelude-sub-nested/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-sub-nested/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-sub-nested/source.jibbnew file+20

This diff is too big to show here.

tests/golden/types-prelude-sub-nested/tokens.txtnew file+211

This diff is too big to show here.

tests/golden/types-prelude-sub-nested/tree.txtnew file+100

This diff is too big to show here.

tests/golden/types-prelude-sub-nested/types.txtnew file+27

This diff is too big to show here.

tests/golden/types-prelude-sub/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-sub/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-sub/source.jibbnew file+37

This diff is too big to show here.

tests/golden/types-prelude-sub/tokens.txtnew file+380

This diff is too big to show here.

tests/golden/types-prelude-sub/tree.txtnew file+164

This diff is too big to show here.

tests/golden/types-prelude-sub/types.txtnew file+32

This diff is too big to show here.

tests/golden/types-prelude-succ/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-succ/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-succ/source.jibbnew file+4

This diff is too big to show here.

tests/golden/types-prelude-succ/tokens.txtnew file+32

This diff is too big to show here.

tests/golden/types-prelude-succ/tree.txtnew file+15

This diff is too big to show here.

tests/golden/types-prelude-succ/types.txtnew file+11

This diff is too big to show here.

tests/golden/types-prelude-text/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-text/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-text/source.jibbnew file+8

This diff is too big to show here.

tests/golden/types-prelude-text/tokens.txtnew file+66

This diff is too big to show here.

tests/golden/types-prelude-text/tree.txtnew file+36

This diff is too big to show here.

tests/golden/types-prelude-text/types.txtnew file+26

This diff is too big to show here.

tests/golden/types-prelude-zing/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-prelude-zing/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-prelude-zing/source.jibbnew file+6

This diff is too big to show here.

tests/golden/types-prelude-zing/tokens.txtnew file+92

This diff is too big to show here.

tests/golden/types-prelude-zing/tree.txtnew file+43

This diff is too big to show here.

tests/golden/types-prelude-zing/types.txtnew file+13

This diff is too big to show here.

tests/golden/types-proj-explicit-context/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-explicit-context/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-explicit-context/source.jibbnew file+35

This diff is too big to show here.

tests/golden/types-proj-explicit-context/tokens.txtnew file+626

This diff is too big to show here.

tests/golden/types-proj-explicit-context/tree.txtnew file+287

This diff is too big to show here.

tests/golden/types-proj-explicit-context/types.txtnew file+31

This diff is too big to show here.

tests/golden/types-proj-nested-no-implicit/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-nested-no-implicit/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-nested-no-implicit/source.jibbnew file+6

This diff is too big to show here.

tests/golden/types-proj-nested-no-implicit/tokens.txtnew file+119

This diff is too big to show here.

tests/golden/types-proj-nested-no-implicit/tree.txtnew file+56

This diff is too big to show here.

tests/golden/types-proj-nested-no-implicit/types.txtnew file+7

This diff is too big to show here.

tests/golden/types-proj-reserved-imported-definition/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-imported-definition/module-trees.txtnew file+10

This diff is too big to show here.

tests/golden/types-proj-reserved-imported-definition/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-imported-definition/modules/ui/lib.jibbnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-imported-definition/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-imported-definition/tokens.txtnew file+11

This diff is too big to show here.

tests/golden/types-proj-reserved-imported-definition/tree.txtnew file+3

This diff is too big to show here.

tests/golden/types-proj-reserved-imported-definition/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-jibb-import/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-jibb-import/module-trees.txtnew file+6

This diff is too big to show here.

tests/golden/types-proj-reserved-jibb-import/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-jibb-import/modules/ui/lib.jibbnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-jibb-import/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-jibb-import/tokens.txtnew file+11

This diff is too big to show here.

tests/golden/types-proj-reserved-jibb-import/tree.txtnew file+3

This diff is too big to show here.

tests/golden/types-proj-reserved-jibb-import/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-local-mold/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-local-mold/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-local-mold/source.jibbnew file+3

This diff is too big to show here.

tests/golden/types-proj-reserved-local-mold/tokens.txtnew file+10

This diff is too big to show here.

tests/golden/types-proj-reserved-local-mold/tree.txtnew file+5

This diff is too big to show here.

tests/golden/types-proj-reserved-local-mold/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-local/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-local/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-local/source.jibbnew file+3

This diff is too big to show here.

tests/golden/types-proj-reserved-local/tokens.txtnew file+14

This diff is too big to show here.

tests/golden/types-proj-reserved-local/tree.txtnew file+8

This diff is too big to show here.

tests/golden/types-proj-reserved-local/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-mark-import/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-mark-import/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-mark-import/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-mark-import/tokens.txtnew file+7

This diff is too big to show here.

tests/golden/types-proj-reserved-mark-import/tree.txtnew file+3

This diff is too big to show here.

tests/golden/types-proj-reserved-mark-import/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-mold/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-mold/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-mold/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-mold/tokens.txtnew file+8

This diff is too big to show here.

tests/golden/types-proj-reserved-mold/tree.txtnew file+3

This diff is too big to show here.

tests/golden/types-proj-reserved-mold/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-pattern/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-pattern/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-pattern/source.jibbnew file+3

This diff is too big to show here.

tests/golden/types-proj-reserved-pattern/tokens.txtnew file+21

This diff is too big to show here.

tests/golden/types-proj-reserved-pattern/tree.txtnew file+11

This diff is too big to show here.

tests/golden/types-proj-reserved-pattern/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-positive/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-positive/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-positive/source.jibbnew file+8

This diff is too big to show here.

tests/golden/types-proj-reserved-positive/tokens.txtnew file+70

This diff is too big to show here.

tests/golden/types-proj-reserved-positive/tree.txtnew file+31

This diff is too big to show here.

tests/golden/types-proj-reserved-positive/types.txtnew file+7

This diff is too big to show here.

tests/golden/types-proj-reserved-sample/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-sample/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-sample/source.jibbnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-sample/tokens.txtnew file+8

This diff is too big to show here.

tests/golden/types-proj-reserved-sample/tree.txtnew file+5

This diff is too big to show here.

tests/golden/types-proj-reserved-sample/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-sur-import/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-sur-import/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-sur-import/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-sur-import/tokens.txtnew file+7

This diff is too big to show here.

tests/golden/types-proj-reserved-sur-import/tree.txtnew file+3

This diff is too big to show here.

tests/golden/types-proj-reserved-sur-import/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-pattern/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-pattern/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-pattern/source.jibbnew file+6

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-pattern/tokens.txtnew file+38

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-pattern/tree.txtnew file+18

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-pattern/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-sample/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-sample/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-sample/source.jibbnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-sample/tokens.txtnew file+25

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-sample/tree.txtnew file+12

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-sample/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-value/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-value/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-value/source.jibbnew file+6

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-value/tokens.txtnew file+31

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-value/tree.txtnew file+15

This diff is too big to show here.

tests/golden/types-proj-reserved-unused-value/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-value/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-reserved-value/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-reserved-value/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-proj-reserved-value/tokens.txtnew file+12

This diff is too big to show here.

tests/golden/types-proj-reserved-value/tree.txtnew file+6

This diff is too big to show here.

tests/golden/types-proj-reserved-value/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-proj-single-duplicate/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-single-duplicate/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-single-duplicate/source.jibbnew file+1

This diff is too big to show here.

tests/golden/types-proj-single-duplicate/tokens.txtnew file+23

This diff is too big to show here.

tests/golden/types-proj-single-duplicate/tree.txtnew file+12

This diff is too big to show here.

tests/golden/types-proj-single-duplicate/types.txtnew file+8

This diff is too big to show here.

tests/golden/types-proj-single-field/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-single-field/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-single-field/source.jibbnew file+25

This diff is too big to show here.

tests/golden/types-proj-single-field/tokens.txtnew file+499

This diff is too big to show here.

tests/golden/types-proj-single-field/tree.txtnew file+243

This diff is too big to show here.

tests/golden/types-proj-single-field/types.txtnew file+31

This diff is too big to show here.

tests/golden/types-proj-single-sample-face/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-single-sample-face/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-single-sample-face/source.jibbnew file+22

This diff is too big to show here.

tests/golden/types-proj-single-sample-face/tokens.txtnew file+210

This diff is too big to show here.

tests/golden/types-proj-single-sample-face/tree.txtnew file+117

This diff is too big to show here.

tests/golden/types-proj-single-sample-face/types.txtnew file+9

This diff is too big to show here.

tests/golden/types-proj-single-wrapped/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-proj-single-wrapped/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-proj-single-wrapped/source.jibbnew file+26

This diff is too big to show here.

tests/golden/types-proj-single-wrapped/tokens.txtnew file+208

This diff is too big to show here.

tests/golden/types-proj-single-wrapped/tree.txtnew file+107

This diff is too big to show here.

tests/golden/types-proj-single-wrapped/types.txtnew file+5

This diff is too big to show here.

tests/golden/types-qath-faces/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-qath-faces/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-qath-faces/source.jibbnew file+8

This diff is too big to show here.

tests/golden/types-qath-faces/tokens.txtnew file+130

This diff is too big to show here.

tests/golden/types-qath-faces/tree.txtnew file+59

This diff is too big to show here.

tests/golden/types-qath-faces/types.txtnew file+18

This diff is too big to show here.

tests/golden/types-qath-holes/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-qath-holes/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-qath-holes/source.jibbnew file+18

This diff is too big to show here.

tests/golden/types-qath-holes/tokens.txtnew file+178

This diff is too big to show here.

tests/golden/types-qath-holes/tree.txtnew file+78

This diff is too big to show here.

tests/golden/types-qath-holes/types.txtnew file+22

This diff is too big to show here.

tests/golden/types-qath-module-identity/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-qath-module-identity/module-trees.txtnew file+44

This diff is too big to show here.

tests/golden/types-qath-module-identity/modules.txtnew file+3

This diff is too big to show here.

tests/golden/types-qath-module-identity/modules/ui/mid.jibbnew file+4

This diff is too big to show here.

tests/golden/types-qath-module-identity/modules/ui/one.jibbnew file+7

This diff is too big to show here.

tests/golden/types-qath-module-identity/modules/ui/two.jibbnew file+4

This diff is too big to show here.

tests/golden/types-qath-module-identity/source.jibbnew file+15

This diff is too big to show here.

tests/golden/types-qath-module-identity/tokens.txtnew file+171

This diff is too big to show here.

tests/golden/types-qath-module-identity/tree.txtnew file+70

This diff is too big to show here.

tests/golden/types-qath-module-identity/types.txtnew file+18

This diff is too big to show here.

tests/golden/types-qath-recursive/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-qath-recursive/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-qath-recursive/source.jibbnew file+19

This diff is too big to show here.

tests/golden/types-qath-recursive/tokens.txtnew file+145

This diff is too big to show here.

tests/golden/types-qath-recursive/tree.txtnew file+63

This diff is too big to show here.

tests/golden/types-qath-recursive/types.txtnew file+14

This diff is too big to show here.

tests/golden/types-record-change-generic/about.txt+1−1

This diff is too big to show here.

tests/golden/types-record-change-generic/source.jibb−2

This diff is too big to show here.

tests/golden/types-record-change-generic/tokens.txt+1−25

This diff is too big to show here.

tests/golden/types-record-change-generic/tree.txt+1−10

This diff is too big to show here.

tests/golden/types-record-change-generic/types.txt−2

This diff is too big to show here.

tests/golden/types-record-field-edit-separate/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-edit-separate/source.jibbnew file+1

This diff is too big to show here.

tests/golden/types-record-field-edit-separate/tokens.txtnew file+51

This diff is too big to show here.

tests/golden/types-record-field-edit-separate/tree.txtnew file+22

This diff is too big to show here.

tests/golden/types-record-field-edit-separate/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-record-field-expr-duplicate/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-expr-duplicate/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-record-field-expr-duplicate/tokens.txtnew file+22

This diff is too big to show here.

tests/golden/types-record-field-expr-duplicate/tree.txtnew file+9

This diff is too big to show here.

tests/golden/types-record-field-expr-duplicate/types.txtnew file+8

This diff is too big to show here.

tests/golden/types-record-field-expr-separate/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-expr-separate/source.jibbnew file+1

This diff is too big to show here.

tests/golden/types-record-field-expr-separate/tokens.txtnew file+25

This diff is too big to show here.

tests/golden/types-record-field-expr-separate/tree.txtnew file+11

This diff is too big to show here.

tests/golden/types-record-field-expr-separate/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-record-field-module-reachable/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-module-reachable/module-trees.txtnew file+7

This diff is too big to show here.

tests/golden/types-record-field-module-reachable/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-record-field-module-reachable/modules/ui/lib.jibbnew file+2

This diff is too big to show here.

tests/golden/types-record-field-module-reachable/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-record-field-module-reachable/tokens.txtnew file+11

This diff is too big to show here.

tests/golden/types-record-field-module-reachable/tree.txtnew file+3

This diff is too big to show here.

tests/golden/types-record-field-module-reachable/types.txtnew file+8

This diff is too big to show here.

tests/golden/types-record-field-module-unused/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-module-unused/module-trees.txtnew file+10

This diff is too big to show here.

tests/golden/types-record-field-module-unused/modules.txtnew file+2

This diff is too big to show here.

tests/golden/types-record-field-module-unused/modules/ui/good.jibbnew file+1

This diff is too big to show here.

tests/golden/types-record-field-module-unused/modules/ui/unused.jibbnew file+2

This diff is too big to show here.

tests/golden/types-record-field-module-unused/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-record-field-module-unused/tokens.txtnew file+11

This diff is too big to show here.

tests/golden/types-record-field-module-unused/tree.txtnew file+3

This diff is too big to show here.

tests/golden/types-record-field-module-unused/types.txtnew file+2

This diff is too big to show here.

tests/golden/types-record-field-nested-mold/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-nested-mold/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-record-field-nested-mold/tokens.txtnew file+22

This diff is too big to show here.

tests/golden/types-record-field-nested-mold/tree.txtnew file+9

This diff is too big to show here.

tests/golden/types-record-field-nested-mold/types.txtnew file+8

This diff is too big to show here.

tests/golden/types-record-field-outer-inner/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-outer-inner/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-record-field-outer-inner/tokens.txtnew file+26

This diff is too big to show here.

tests/golden/types-record-field-outer-inner/tree.txtnew file+12

This diff is too big to show here.

tests/golden/types-record-field-outer-inner/types.txtnew file+3

This diff is too big to show here.

tests/golden/types-record-field-sample-duplicate/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-sample-duplicate/source.jibbnew file+1

This diff is too big to show here.

tests/golden/types-record-field-sample-duplicate/tokens.txtnew file+13

This diff is too big to show here.

tests/golden/types-record-field-sample-duplicate/tree.txtnew file+7

This diff is too big to show here.

tests/golden/types-record-field-sample-duplicate/types.txtnew file+8

This diff is too big to show here.

tests/golden/types-record-field-separate-molds/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-separate-molds/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-record-field-separate-molds/tokens.txtnew file+33

This diff is too big to show here.

tests/golden/types-record-field-separate-molds/tree.txtnew file+15

This diff is too big to show here.

tests/golden/types-record-field-separate-molds/types.txtnew file+3

This diff is too big to show here.

tests/golden/types-record-field-unused-mold/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-record-field-unused-mold/source.jibbnew file+2

This diff is too big to show here.

tests/golden/types-record-field-unused-mold/tokens.txtnew file+15

This diff is too big to show here.

tests/golden/types-record-field-unused-mold/tree.txtnew file+6

This diff is too big to show here.

tests/golden/types-record-field-unused-mold/types.txtnew file+8

This diff is too big to show here.

tests/golden/types-request-normal/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-request-normal/mar/full.txtnew file+5

This diff is too big to show here.

tests/golden/types-request-normal/marks.txtnew file+1

This diff is too big to show here.

tests/golden/types-request-normal/module-trees.txtnew file+5

This diff is too big to show here.

tests/golden/types-request-normal/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-request-normal/modules/ui/api/demo.jibbnew file+2

This diff is too big to show here.

tests/golden/types-request-normal/source.jibbnew file+9

This diff is too big to show here.

tests/golden/types-request-normal/tokens.txtnew file+95

This diff is too big to show here.

tests/golden/types-request-normal/tree.txtnew file+50

This diff is too big to show here.

tests/golden/types-request-normal/types.txtnew file+26

This diff is too big to show here.

tests/golden/types-single-case-pattern/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-single-case-pattern/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-single-case-pattern/source.jibbnew file+59

This diff is too big to show here.

tests/golden/types-single-case-pattern/tokens.txtnew file+364

This diff is too big to show here.

tests/golden/types-single-case-pattern/tree.txtnew file+182

This diff is too big to show here.

tests/golden/types-single-case-pattern/types.txtnew file+32

This diff is too big to show here.

tests/golden/types-tuple-context-nested/about.txt+1−1

This diff is too big to show here.

tests/golden/types-tuple-context-nested/types.txt+1−7

This diff is too big to show here.

tests/golden/types-union-finite-limit/about.txt+1−1

This diff is too big to show here.

tests/golden/types-union-finite-limit/types.txt+1−1

This diff is too big to show here.

tests/golden/types-union-nonwing-subject/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-union-nonwing-subject/modules.txtnew file+1

This diff is too big to show here.

tests/golden/types-union-nonwing-subject/source.jibbnew file+82

This diff is too big to show here.

tests/golden/types-union-nonwing-subject/tokens.txtnew file+593

This diff is too big to show here.

tests/golden/types-union-nonwing-subject/tree.txtnew file+257

This diff is too big to show here.

tests/golden/types-union-nonwing-subject/types.txtnew file+45

This diff is too big to show here.

tests/golden/types-union-pattern-result-controls/about.txt+1−1

This diff is too big to show here.

tests/golden/types-union-pattern-result-controls/types.txt+1−1

This diff is too big to show here.

tests/golden/types-union-patterns/about.txt+1−1

This diff is too big to show here.

tests/golden/types-union-patterns/types.txt+1−1

This diff is too big to show here.

tests/golden/types-union-polymorphic-identity/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-union-polymorphic-identity/module-trees.txtnew file+16

This diff is too big to show here.

tests/golden/types-union-polymorphic-identity/modules.txtnew file+2

This diff is too big to show here.

tests/golden/types-union-polymorphic-identity/modules/ui/one.jibbnew file+4

This diff is too big to show here.

tests/golden/types-union-polymorphic-identity/modules/ui/two.jibbnew file+4

This diff is too big to show here.

tests/golden/types-union-polymorphic-identity/source.jibbnew file+33

This diff is too big to show here.

tests/golden/types-union-polymorphic-identity/tokens.txtnew file+368

This diff is too big to show here.

tests/golden/types-union-polymorphic-identity/tree.txtnew file+152

This diff is too big to show here.

tests/golden/types-union-polymorphic-identity/types.txtnew file+36

This diff is too big to show here.

tests/golden/types-union-runtime-equality/about.txtnew file+3

This diff is too big to show here.

tests/golden/types-union-runtime-equality/source.jibbnew file+16

This diff is too big to show here.

tests/golden/types-union-runtime-equality/tokens.txtnew file+96

This diff is too big to show here.

tests/golden/types-union-runtime-equality/tree.txtnew file+37

This diff is too big to show here.

tests/golden/types-union-runtime-equality/types.txtnew file+25

This diff is too big to show here.

tests/golden/types-union-source-alias/about.txtnew file+4

This diff is too big to show here.

tests/golden/types-union-source-alias/source.jibbnew file+18

This diff is too big to show here.

tests/golden/types-union-source-alias/tokens.txtnew file+119

This diff is too big to show here.

tests/golden/types-union-source-alias/tree.txtnew file+41

This diff is too big to show here.

tests/golden/types-union-source-alias/types.txtnew file+23

This diff is too big to show here.

tests/importer/about.txt+26−1

This diff is too big to show here.

tests/importer/shadow-static.txt+2

This diff is too big to show here.

tests/importer/shadow.txt+3

This diff is too big to show here.

tests/importer/small.txt+47

This diff is too big to show here.

tests/importer/tree.txt+42−3

This diff is too big to show here.

tests/lib/jibb-api-evidence.hoonnew file+258

This diff is too big to show here.

tests/lib/jibb-arithmetic-guards.hoonnew file+58

This diff is too big to show here.

tests/lib/jibb-ask-guards.hoonnew file+63

This diff is too big to show here.

tests/lib/jibb-bridge.hoon+57−2

This diff is too big to show here.

tests/lib/jibb-cell-branch.hoonnew file+53

This diff is too big to show here.

tests/lib/jibb-closed-gate-guards.hoonnew file+60

This diff is too big to show here.

tests/lib/jibb-constructor-fit-guards.hoonnew file+128

This diff is too big to show here.

tests/lib/jibb-deferred-context.hoonnew file+83

This diff is too big to show here.

tests/lib/jibb-deferred-resolver.hoonnew file+113

This diff is too big to show here.

tests/lib/jibb-deferred.hoonnew file+244

This diff is too big to show here.

tests/lib/jibb-direct-gate-guards.hoonnew file+172

This diff is too big to show here.

tests/lib/jibb-direct-gate-source.hoonnew file+46

This diff is too big to show here.

tests/lib/jibb-empty.hoonnew file+174

This diff is too big to show here.

tests/lib/jibb-full-overlap-basic.hoonnew file+143

This diff is too big to show here.

tests/lib/jibb-full-overlap-graph.hoonnew file+126

This diff is too big to show here.

tests/lib/jibb-gate-free-guards.hoonnew file+79

This diff is too big to show here.

tests/lib/jibb-gate-free-source.hoonnew file+95

This diff is too big to show here.

tests/lib/jibb-generic-alias.hoonnew file+48

This diff is too big to show here.

tests/lib/jibb-generic-construction.hoonnew file+141

This diff is too big to show here.

tests/lib/jibb-generic-pattern.hoonnew file+165

This diff is too big to show here.

tests/lib/jibb-generic-recursion.hoonnew file+170

This diff is too big to show here.

tests/lib/jibb-hole-guards.hoonnew file+77

This diff is too big to show here.

tests/lib/jibb-import-default.hoonnew file+50

This diff is too big to show here.

tests/lib/jibb-import-overlap.hoonnew file+80

This diff is too big to show here.

tests/lib/jibb-import-structural.hoonnew file+82

This diff is too big to show here.

tests/lib/jibb-list-alias-guards.hoonnew file+27

This diff is too big to show here.

tests/lib/jibb-module-scope.hoon+25−1

This diff is too big to show here.

tests/lib/jibb-nested-union-guards.hoonnew file+67

This diff is too big to show here.

tests/lib/jibb-positional-face-guards.hoonnew file+38

This diff is too big to show here.

tests/lib/jibb-proj-guards.hoonnew file+124

This diff is too big to show here.

tests/lib/jibb-qath-fuel.hoonnew file+52

This diff is too big to show here.

tests/lib/jibb-qath-source.hoonnew file+66

This diff is too big to show here.

tests/lib/jibb-request-guards.hoonnew file+149

This diff is too big to show here.

tests/lib/jibb-sub-guards.hoonnew file+37

This diff is too big to show here.

tests/lib/jibb-todo-api.hoonnew file+85

This diff is too big to show here.

tests/lib/jibb-todo-partial.hoonnew file+58

This diff is too big to show here.

tests/lib/jibb-union-alias-overlap.hoonnew file+107

This diff is too big to show here.

tests/lib/jibb-union-source.hoonnew file+152

This diff is too big to show here.

tests/lib/jibb.hoon+1527−939

This diff is too big to show here.

tests/type-api-evidence/about.txtnew file+3

This diff is too big to show here.

tests/type-api-evidence/expected.txtnew file+1

This diff is too big to show here.

tests/type-cell-branch/about.txtnew file+2

This diff is too big to show here.

tests/type-cell-branch/bad.txtnew file+3

This diff is too big to show here.

tests/type-cell-branch/good.txtnew file+3

This diff is too big to show here.

tests/type-deferred-context/about.txtnew file+3

This diff is too big to show here.

tests/type-deferred-context/collision-early.txtnew file+27

This diff is too big to show here.

tests/type-deferred-context/collision-late.txtnew file+28

This diff is too big to show here.

tests/type-deferred-context/dangling.txtnew file+16

This diff is too big to show here.

tests/type-deferred-context/duplicate.txtnew file+14

This diff is too big to show here.

tests/type-deferred-context/missing.txtnew file+14

This diff is too big to show here.

tests/type-deferred-context/plain.txtnew file+11

This diff is too big to show here.

tests/type-deferred-context/report.txtnew file+15

This diff is too big to show here.

tests/type-deferred-context/rich.txtnew file+27

This diff is too big to show here.

tests/type-deferred-context/simple.txtnew file+10

This diff is too big to show here.

tests/type-deferred-context/wrong.txtnew file+14

This diff is too big to show here.

tests/type-deferred-resolver/about.txtnew file+5

This diff is too big to show here.

tests/type-deferred-resolver/conflict.txtnew file+12

This diff is too big to show here.

tests/type-deferred-resolver/duplicate.txtnew file+12

This diff is too big to show here.

tests/type-deferred-resolver/expected.txtnew file+42

This diff is too big to show here.

tests/type-deferred-resolver/face.txtnew file+6

This diff is too big to show here.

tests/type-deferred-resolver/good.txtnew file+11

This diff is too big to show here.

tests/type-deferred-resolver/hole.txtnew file+12

This diff is too big to show here.

tests/type-deferred-resolver/missing.txtnew file+10

This diff is too big to show here.

tests/type-deferred-resolver/stability-early.txtnew file+6

This diff is too big to show here.

tests/type-deferred-resolver/stability-late.txtnew file+6

This diff is too big to show here.

tests/type-deferred-resolver/stability-output-early.txtnew file+9

This diff is too big to show here.

tests/type-deferred-resolver/stability-output-late.txtnew file+9

This diff is too big to show here.

tests/type-deferred-resolver/stability-simple-early.txtnew file+6

This diff is too big to show here.

tests/type-deferred-resolver/stability-simple-late.txtnew file+6

This diff is too big to show here.

tests/type-deferred-resolver/stability-slot-early.txtnew file+9

This diff is too big to show here.

tests/type-deferred-resolver/stability-slot-late.txtnew file+9

This diff is too big to show here.

tests/type-deferred-resolver/store.txtnew file+12

This diff is too big to show here.

tests/type-deferred/about.txtnew file+3

This diff is too big to show here.

tests/type-deferred/conflict-src.txtnew file+12

This diff is too big to show here.

tests/type-deferred/duplicate-src.txtnew file+12

This diff is too big to show here.

tests/type-deferred/expected.txtnew file+38

This diff is too big to show here.

tests/type-deferred/face-bad-src.txtnew file+6

This diff is too big to show here.

tests/type-deferred/face-good-src.txtnew file+6

This diff is too big to show here.

tests/type-deferred/hole-src.txtnew file+12

This diff is too big to show here.

tests/type-deferred/local-src.txtnew file+8

This diff is too big to show here.

tests/type-deferred/missing-src.txtnew file+10

This diff is too big to show here.

tests/type-deferred/mold-hole-src.txtnew file+12

This diff is too big to show here.

tests/type-deferred/mutual-src.txtnew file+7

This diff is too big to show here.

tests/type-deferred/nested-src.txtnew file+7

This diff is too big to show here.

tests/type-deferred/principal-src.txtnew file+11

This diff is too big to show here.

tests/type-direct-gate/about.txtnew file+4

This diff is too big to show here.

tests/type-direct-gate/expected.txtnew file+86

This diff is too big to show here.

tests/type-direct-gate/source.txtnew file+96

This diff is too big to show here.

tests/type-empty/about.txtnew file+3

This diff is too big to show here.

tests/type-empty/dead.txtnew file+7

This diff is too big to show here.

tests/type-empty/expected.txtnew file+59

This diff is too big to show here.

tests/type-empty/face-source.txtnew file+2

This diff is too big to show here.

tests/type-empty/good.txtnew file+11

This diff is too big to show here.

tests/type-empty/late-cap.txtnew file+16

This diff is too big to show here.

tests/type-empty/list-dead.txtnew file+4

This diff is too big to show here.

tests/type-empty/list-live.txtnew file+3

This diff is too big to show here.

tests/type-empty/list-open.txtnew file+3

This diff is too big to show here.

tests/type-empty/missing.txtnew file+6

This diff is too big to show here.

tests/type-empty/overlap.txtnew file+3

This diff is too big to show here.

tests/type-empty/standard-good.txtnew file+11

This diff is too big to show here.

tests/type-empty/unit-dead.txtnew file+4

This diff is too big to show here.

tests/type-full-overlap/about.txtnew file+3

This diff is too big to show here.

tests/type-full-overlap/child.txtnew file+4

This diff is too big to show here.

tests/type-full-overlap/distinct.txtnew file+5

This diff is too big to show here.

tests/type-full-overlap/duplicate-generic.txtnew file+4

This diff is too big to show here.

tests/type-full-overlap/duplicate.txtnew file+5

This diff is too big to show here.

tests/type-full-overlap/expected-basic.txtnew file+16

This diff is too big to show here.

tests/type-full-overlap/expected-graph.txtnew file+8

This diff is too big to show here.

tests/type-full-overlap/generic.txtnew file+4

This diff is too big to show here.

tests/type-full-overlap/invalid.txtnew file+4

This diff is too big to show here.

tests/type-full-overlap/parent.txtnew file+5

This diff is too big to show here.

tests/type-full-overlap/precedence.txtnew file+5

This diff is too big to show here.

tests/type-full-overlap/same.txtnew file+4

This diff is too big to show here.

tests/type-full-overlap/unsupported.txtnew file+4

This diff is too big to show here.

tests/type-full-overlap/zero.txtnew file+4

This diff is too big to show here.

tests/type-gate-free/about.txtnew file+1

This diff is too big to show here.

tests/type-gate-free/expected.txtnew file+9

This diff is too big to show here.

tests/type-gate-free/todo-gate.txtnew file+40

This diff is too big to show here.

tests/type-gate-free/todo-noun.txtnew file+40

This diff is too big to show here.

tests/type-gate-free/todo.txtnew file+40

This diff is too big to show here.

tests/type-generic-construction/about.txtnew file+9

This diff is too big to show here.

tests/type-generic-construction/alias-client.txtnew file+12

This diff is too big to show here.

tests/type-generic-construction/alias.txtnew file+3

This diff is too big to show here.

tests/type-generic-construction/client.txtnew file+24

This diff is too big to show here.

tests/type-generic-construction/expected.txtnew file+65

This diff is too big to show here.

tests/type-generic-construction/no-event-client.txtnew file+8

This diff is too big to show here.

tests/type-generic-construction/owner-negative.txtnew file+10

This diff is too big to show here.

tests/type-generic-construction/owner-positive.txtnew file+9

This diff is too big to show here.

tests/type-generic-construction/sibling-values.txtnew file+4

This diff is too big to show here.

tests/type-generic-construction/tree-no-event.txtnew file+4

This diff is too big to show here.

tests/type-generic-construction/tree.txtnew file+6

This diff is too big to show here.

tests/type-generic-pattern/about.txtnew file+10

This diff is too big to show here.

tests/type-generic-pattern/client.txtnew file+166

This diff is too big to show here.

tests/type-generic-pattern/expected.txtnew file+91

This diff is too big to show here.

tests/type-generic-pattern/no-event.txtnew file+17

This diff is too big to show here.

tests/type-generic-pattern/owner-bad.txtnew file+22

This diff is too big to show here.

tests/type-generic-pattern/owner.txtnew file+18

This diff is too big to show here.

tests/type-generic-pattern/poly-values.txtnew file+2

This diff is too big to show here.

tests/type-generic-pattern/values.txtnew file+18

This diff is too big to show here.

tests/type-generic-recursion/about.txtnew file+14

This diff is too big to show here.

tests/type-generic-recursion/alias.txtnew file+3

This diff is too big to show here.

tests/type-generic-recursion/bad-constructor.txtnew file+8

This diff is too big to show here.

tests/type-generic-recursion/bad-match.txtnew file+10

This diff is too big to show here.

tests/type-generic-recursion/bad-mold.txtnew file+8

This diff is too big to show here.

tests/type-generic-recursion/bad-parameter.txtnew file+6

This diff is too big to show here.

tests/type-generic-recursion/chain.txtnew file+3

This diff is too big to show here.

tests/type-generic-recursion/client.txtnew file+11

This diff is too big to show here.

tests/type-generic-recursion/expected.txtnew file+35

This diff is too big to show here.

tests/type-generic-recursion/list-shadow.txtnew file+4

This diff is too big to show here.

tests/type-generic-recursion/local-distinct.txtnew file+11

This diff is too big to show here.

tests/type-generic-recursion/local-only.txtnew file+11

This diff is too big to show here.

tests/type-generic-recursion/local-shadow.txtnew file+11

This diff is too big to show here.

tests/type-generic-recursion/tree-changed.txtnew file+6

This diff is too big to show here.

tests/type-generic-recursion/tree.txtnew file+6

This diff is too big to show here.

tests/type-import-default/about.txtnew file+1

This diff is too big to show here.

tests/type-import-default/controls.txtnew file+16

This diff is too big to show here.

tests/type-import-default/expected.txtnew file+9

This diff is too big to show here.

tests/type-import-default/parent.txtnew file+3

This diff is too big to show here.

tests/type-import-default/tlon.txtnew file+18

This diff is too big to show here.

tests/type-import-diagnostic/nested.txt+1−1

This diff is too big to show here.

tests/type-import-overlap/about.txtnew file+24

This diff is too big to show here.

tests/type-import-overlap/expected.txtnew file+26

This diff is too big to show here.

tests/type-import-overlap/source.txtnew file+4

This diff is too big to show here.

tests/type-import-overlap/sur.txtnew file+17

This diff is too big to show here.

tests/type-import-structural/about.txtnew file+14

This diff is too big to show here.

tests/type-import-structural/expected.txtnew file+41

This diff is too big to show here.

tests/type-import-structural/source.txtnew file+5

This diff is too big to show here.

tests/type-import-structural/sur.txtnew file+12

This diff is too big to show here.

tests/type-import/about.txt+10−2

This diff is too big to show here.

tests/type-import/expected.txt+29−1

This diff is too big to show here.

tests/type-import/source.txt+5

This diff is too big to show here.

tests/type-import/sur.txt+3

This diff is too big to show here.

tests/type-list-alias/expected.txtnew file+36

This diff is too big to show here.

tests/type-module-scope/expected.txt+1

This diff is too big to show here.

tests/type-todo-api/about.txtnew file+1

This diff is too big to show here.

tests/type-todo-api/expected.txtnew file+17

This diff is too big to show here.

tests/type-todo-api/negative-expected.txtnew file+26

This diff is too big to show here.

tests/type-todo-api/negative.txtnew file+12

This diff is too big to show here.

tests/type-todo-api/source.txtnew file+21

This diff is too big to show here.

tests/type-todo-api/unsupported.txtnew file+13

This diff is too big to show here.

tests/type-todo-partial/about.txtnew file+4

This diff is too big to show here.

tests/type-todo-partial/expected.txtnew file+17

This diff is too big to show here.

tests/type-union-alias-overlap/duplicate.txtnew file+5

This diff is too big to show here.

tests/type-union-alias-overlap/expected.txtnew file+25

This diff is too big to show here.

tests/type-union-alias-overlap/flag-source.txtnew file+7

This diff is too big to show here.

tests/type-union-alias-overlap/multi.txtnew file+5

This diff is too big to show here.

tests/type-union-alias-overlap/negative.txtnew file+16

This diff is too big to show here.

tests/type-union-alias-overlap/nonzero.txtnew file+4

This diff is too big to show here.

tests/type-union-alias-overlap/opaque.txtnew file+4

This diff is too big to show here.

tests/type-union-alias-overlap/positive.txtnew file+8

This diff is too big to show here.

tests/type-union-alias-overlap/qualified.txtnew file+5

This diff is too big to show here.

tests/type-union-alias-overlap/wrong.txtnew file+5

This diff is too big to show here.

tests/type-union-source/direct-source.txtnew file+3

This diff is too big to show here.

tests/type-union-source/duplicate-params.txtnew file+4

This diff is too big to show here.

tests/type-union-source/duplicate.txtnew file+5

This diff is too big to show here.

tests/type-union-source/expected.txtnew file+36

This diff is too big to show here.

tests/type-union-source/free-source.txtnew file+4

This diff is too big to show here.

tests/type-union-source/good.txtnew file+9

This diff is too big to show here.

tests/type-union-source/hidden-ref.txtnew file+5

This diff is too big to show here.

tests/type-union-source/late-source.txtnew file+4

This diff is too big to show here.

tests/type-union-source/mixed-source.txtnew file+8

This diff is too big to show here.

tests/type-union-source/nested.txtnew file+4

This diff is too big to show here.

tests/type-union-source/qualified.txtnew file+4

This diff is too big to show here.

tests/type-union-source/same.txtnew file+5

This diff is too big to show here.

tests/type-union-source/shadow-source.txtnew file+7

This diff is too big to show here.

tests/type-union-source/wide-source.txtnew file+4

This diff is too big to show here.

tests/type-union-source/wrong.txtnew file+5

This diff is too big to show here.

tests/type-union-source/zero.txtnew file+5

This diff is too big to show here.

tools/clay-fixtures+43

This diff is too big to show here.

tools/importer-test+1−1

This diff is too big to show here.

tools/ship+43−6

This diff is too big to show here.

tools/testdata/clay-fixtures-selftestnew file+109

This diff is too big to show here.

tools/testdata/lead-late-hoon-reference.hoonnew file+24

This diff is too big to show here.

tools/testdata/ship-selftest+158−1

This diff is too big to show here.

tools/testdata/succ-hoon-reference.hoonnew file+9

This diff is too big to show here.

tools/testdata/zing-hoon-reference.hoonnew file+17

This diff is too big to show here.

tools/type-api-evidence-testnew file+40

This diff is too big to show here.

tools/type-arithmetic-guards-testnew file+28

This diff is too big to show here.

tools/type-ask-guards-testnew file+31

This diff is too big to show here.

tools/type-cell-branch-testnew file+43

This diff is too big to show here.

tools/type-closed-gate-guards-testnew file+29

This diff is too big to show here.

tools/type-constructor-fit-guards-testnew file+29

This diff is too big to show here.

tools/type-deferred-context-testnew file+31

This diff is too big to show here.

tools/type-deferred-resolver-testnew file+33

This diff is too big to show here.

tools/type-deferred-testnew file+32

This diff is too big to show here.

tools/type-direct-gate-testnew file+64

This diff is too big to show here.

tools/type-empty-testnew file+55

This diff is too big to show here.

tools/type-full-overlap-testnew file+49

This diff is too big to show here.

tools/type-gate-free-guards-testnew file+29

This diff is too big to show here.

tools/type-gate-free-source-testnew file+50

This diff is too big to show here.

tools/type-generic-alias-testnew file+28

This diff is too big to show here.

tools/type-generic-construction-testnew file+49

This diff is too big to show here.

tools/type-generic-pattern-testnew file+52

This diff is too big to show here.

tools/type-generic-recursion-testnew file+61

This diff is too big to show here.

tools/type-hole-guards-testnew file+32

This diff is too big to show here.

tools/type-import-default-testnew file+38

This diff is too big to show here.

tools/type-import-overlap-testnew file+33

This diff is too big to show here.

tools/type-import-structural-testnew file+36

This diff is too big to show here.

tools/type-list-alias-testnew file+33

This diff is too big to show here.

tools/type-nested-union-guards-testnew file+29

This diff is too big to show here.

tools/type-positional-face-guards-testnew file+29

This diff is too big to show here.

tools/type-proj-guards-testnew file+32

This diff is too big to show here.

tools/type-qath-guards-testnew file+31

This diff is too big to show here.

tools/type-request-guards-testnew file+31

This diff is too big to show here.

tools/type-sub-guards-testnew file+31

This diff is too big to show here.

tools/type-todo-api-testnew file+62

This diff is too big to show here.

tools/type-todo-partial-testnew file+55

This diff is too big to show here.

tools/type-union-alias-overlap-testnew file+52

This diff is too big to show here.

tools/type-union-source-testnew file+55

This diff is too big to show here.