ae1ec26..master · jibb

git.iko.soy/jibb

511 files changed+23275−1974

unifiedsplit

README.md+3−1

@@ -42,7 +42,9 @@ 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-prepared-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.

46+

47+The focused `tools/type-program-main-test` checks the narrow closed, subscription-free `main` slice and its shared fake-ship fixture. `tools/type-program-init-test` checks transactional initializer recovery for a synthetic direct program, including exact exported and imported types and rejection boundaries. `tools/type-program-update-test` checks derived result context for an unannotated two-slot update, including a union/boolean branch, downstream types and fail-closed controls under eval with a shared fake-ship arm. `tools/type-program-watch-test` uses the real todo readers with synthetic program components to check one direct request value against merged API-source evidence and reject hand-built, indirect, parameterized, diff and ambiguous subscriptions. These are static checks only: they do not run an island or establish runtime watching. `tools/type-todo-full-test` additionally checks the byte-identical todo island through both full-module APIs, verifies its exact closed `main` type and structural downstream import, and runs rejection controls.

4648

4749### The doc's examples

4850

docs/compiler.md+57−5

@@ -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. 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. 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 and recursive molds 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. 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.

60+

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.

6070

6171A 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

@@ -80,17 +90,25 @@ A backtick constructs a unit when the supplied prelude has the validated standar

8090

8191A 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.

8292

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+

8395A 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.

8496

8597A 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.

8698

8799The 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.

88100

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.

102+

89103Self-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.

90104

91105The 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.

92106

93−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.

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.

94112

95113The 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.

96114

@@ -102,12 +120,32 @@ For a unique supported declaration, `+api-request-parts` retains that evidence w

102120

103121`+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.

104122

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+A full ordinary module may export a narrow checked program `main` only as a direct, unqualified `(program init update view subs)` call with four simple wing arguments, modulo transparent grouping. The canonical prepared prelude must supply both the `program` value and mold. The ordinary source-backed program fit and all normal mold, value and request-graph checks complete first. The inferred `main` must be closed and invariantly match an instantiated `program` mold from that prelude. The initializer must have a closed gate scheme; its data and model contain no open variables and share the existing 256-node gate-free budget, with `%yes` required for both. The named subscription gate may syntactically return null through transparent casts, groups and definition-free bodies. Alternatively, after a successful request-graph merge, it may return one singleton list containing an unfaced `[%watch request]` pair whose request is a direct `case.face` call with one direct constructor callback. The face must resolve to an imported interface whose member has the exact plain derived-request scheme. Exactly one merged request evidence must match its API path and case, agree with the declaration's inner name, and appear in that interface's own graph; the interface source must equal the evidence's API source. The declaration must have no scry, diffs or path parameters. Pure or hand-built requests, helpers, aliases, re-exports, typed paths, folds, multiple subscriptions and missing or ambiguous evidence fail closed. Arbitrary or aliased mains, API/store kinds, and gates or unknowns in data/model also fail closed. This retains source and graph evidence and permits ordinary downstream imports; it neither executes the program nor implements runtime watching.

132+

133+When only that program's initializer and `main` are unresolved, a bounded transactional retry can derive the initializer's expected gate from the resolved update, view and subscription components. It instantiates all schemes above the greatest variable ID in the module and prelude, reuses the source-backed positional fit and stable replay, and leaves only the initializer's data variable open. The named initializer must be a direct gate whose transparent body is a tuple ending in null. Its own sample fixes data; ordinary inference, product and whole-gate fits, pending-tag and finalization checks, and a fresh ordinary `main` inference must all succeed before the ordinary kind and graph checks publish anything. Aliases, non-main libraries, simultaneous unresolved subscriptions, nonempty subscriptions and unrelated pending tags decline.

134+

135+A component-local recovery sequence handles a recognized direct program whose context-dependent definitions cannot resolve ordinarily. Update first derives its result from its inferred two-slot sample and canonical `cmd`/`list` templates. Subscription recovery then checks the same message/model relation and the canonical fourth slot. A narrow keyed-view proof finds exactly one direct `each (turn xs mapper)` site, derives the mapper from the actual `each` and `turn` schemes, and recovers the view before the existing initializer and ordinary `main` retries. Every recovered scheme must be closed and freshly allocated above the current environment and prelude IDs. A source screen skips doomed ordinary attempts only for this keyed shape and never skips final `main` inference; non-gate views and aliases decline without crashing. Final publication still requires all module definitions, the program-mold and gate-free checks, and request-value watchability.

136+

137+Canonical `element` composition has two tightly scoped accommodations. Recursive result context is allowed only when every recursive side has the prepared prelude's `element` origin. When ordinary list-item fitting fails, an `element` target may instead prove its message argument invariantly or select one exact literal case with a full payload fit; a successful ordinary fit always takes precedence. This covers the unchanged todo's union controls and raw constructors without opening those paths to other unions. `tools/type-todo-full-test` checks the byte-identical island through both full APIs, the exact closed `main` type, structural downstream import, and model/message/mapper/watch rejection controls. It does not execute Jibb or implement runtime watching.

138+

139+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.

140+

105141`+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.

106142

107−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`, `flop`, `rear`, `drop`, `skim`, `skip`, `murn`, `join`, `snip`, `levy`, `lien`, `cork`, `corl`, `cury` and `curr`; 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 and arithmetic schemes for the Jibb-written `gth`, `add` and `dec` 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 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 ?`. Length and primitive execution remain unavailable. 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, 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.

143+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.

108144

109145`+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.

110146

147+The prepared interface includes the source-backed UI molds and constructors, the full nonrecursive `element` union, and the exact `program` and `page` records and builders. Its element union erases nested child, keyed-item and table payloads to `*`, while public constructor schemes retain typed composition and independent key parameters. `types-prelude-ui` checks those schemes and selected valid and invalid compositions. A child-message mismatch currently fails closed as an unsupported list-item constraint rather than a definite mismatch diagnostic. Raw-constructor encapsulation, duplicate-attribute checks, rendering, navigation, storage and execution remain outside this slice.

148+

111149And the design notes:

112150

113151| Note | Says |

@@ -119,7 +157,7 @@ And the design notes:

119157

120158Source-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.

121159

122−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. Generated decoders, source-bound runtime validation, derived request gates, `sub` and island watch checks remain unfinished. Public prelude preparation is partial: consumers must verify that `ask` was actually exported with its source origin.

160+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.

123161

124162Public 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.

125163

@@ -161,3 +199,17 @@ Note 4 has examples of each.

161199## Speed

162200

163201Starting `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).

202+

203+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-prelude recovery, imports, recursive groups, unresolved holes or written capitals, and new projection actions remain outside this full-module path. `%grec` in the constraint or freshness scan is conservatively unsupported. This is not an island-kind, runtime, or watchability check.

204+

205+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.

206+

207+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.

208+

209+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.

210+

211+With the caller's unchanged prepared prelude, the partial report can also recover a narrow import-free, non-main ordinary library initializer. A direct tuple literal may retain one source-owned fit obligation for each newly created pending literal until a later exact result cast closes them. A separate bounded candidate screen admits a direct tuple even without a constructor call. The prepared transaction requires exact agreement among the supplied interface, value inventory and reserved molds, and retains the API, store, import and `main` exclusions. It only adds recovered entries to the partial report: the ordinary full-module resolver does not publish them. Wrong unit or draft fields, unrelated pending tags and mold-name collisions fail closed; without the later final cast, the initializer remains not checked. This does not add list-literal deferral or import-aware recovery.

212+

213+Before the no-prepared-prelude 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.

214+

215+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+66

@@ -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.

@@ -62,6 +64,11 @@ git clone https://github.com/urbit/tools /root/src/tools

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

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

6466| `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 |

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

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

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

@@ -70,10 +77,34 @@ git clone https://github.com/urbit/tools /root/src/tools

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

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

7279| `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-deferred-prepared-test` | Checks prepared-prelude tuple initializer recovery, exact partial reports and fail-closed guards under eval and on the ship |

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

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

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

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

91+| `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 |

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

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

94+| `tools/type-program-main-test` | Checks the narrow closed subscription-free program-main interface, downstream import and rejection guards under eval and on the ship |

95+| `tools/type-program-init-test` | Checks transactional direct-program initializer recovery, exact exported/imported types and fail-closed boundaries under eval and on the ship |

96+| `tools/type-program-update-test` | Checks transactional direct-program update result recovery, union/boolean context, exact exported/imported types and fail-closed boundaries under eval and on the ship |

97+| `tools/type-program-watch-test` | Checks direct singleton request-value watchability against merged real-todo evidence, exact types/imports and rejection boundaries under eval and on the ship |

98+| `tools/type-todo-full-test` | Fully checks the byte-identical todo island through real readers, exact main type, structural downstream import and rejection controls under eval and on the ship |

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

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

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

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

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

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

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

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

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

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

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

79110| `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 |

@@ -91,9 +122,15 @@ git clone https://github.com/urbit/tools /root/src/tools

91122

92123```

93124tools/golden # all cases pass

125+tools/golden --case types-prelude-ui # exact UI/program/page schemes and composition

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

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

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

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

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

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

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

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

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

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

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

@@ -105,12 +142,39 @@ tools/type-list-alias-test # prelude list-alias guards pass

105142tools/type-generic-alias-test # generic union alias guards pass

106143tools/type-positional-face-guards-test # positional sample face guards pass

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

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

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

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

148+tools/type-program-main-test # closed program-main interface and rejection guards pass

149+tools/type-program-init-test # transactional direct-program initializer context guards pass

150+tools/type-program-update-test # transactional direct-program update context guards pass

151+tools/type-program-watch-test # direct request-value watchability guards pass

152+tools/type-todo-full-test # byte-identical full todo, downstream import and rejection guards pass

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

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

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

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

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

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

159+tools/type-deferred-prepared-test # prepared initializer reports and failure guards

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

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

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

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

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

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

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

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

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

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

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

110171tools/type-arithmetic-guards-test # arithmetic constraint guards pass

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

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

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

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

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

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

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

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

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

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

162226## Commits

163227

164228A 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.

229+

230+`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. `tools/type-deferred-prepared-test` checks the separate partial-report-only prepared-prelude route, direct tuple-literal obligations, exact report types and its wrong-field, unrelated-tag, mold-collision and no-final-cast controls. These checks do not establish island-kind or watchability support.

docs/open-questions.md+2

@@ -64,6 +64,8 @@ Found while writing [prompts/milestone-2.md](prompts/milestone-2.md), checking i

6464

656533. **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.

6666

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.

68+

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

6870

6971In milestone 1 the parser met about thirty places where the doc could be read more than one way. Twelve went to @iko on 2026-10-30 and are rows of the Decisions tab. These were not asked. For each, the parser follows the reading below, and some are marked "(doc question)" in the library's notes. None changes what a valid program means, except where a reading makes something an error.

docs/prelude-inventory.md+9−5

@@ -6,7 +6,9 @@ The source is the fake ship's `%base` `/sys/hoon.hoon` (Hoon version 135), read

77The 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.

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 related `sub` declaration awaits checking and the remaining request support.

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.

10+

11+The public prelude now defines the UI `length`, `align`, `role`, `tone` and `attr` molds, a nonrecursive generic `element` union with one case per UI node, and the exact `program` and `page` records with their builders. Nested child, keyed-item and table payloads in the runtime union are erased to `*`; the public constructors retain typed children and independent key types, and `island` stores `[program data]` in its erased payload. The focused `types-prelude-ui` golden infers the complete union and constructor schemes, including static and message-bearing composition. Raw-constructor encapsulation, duplicate-attribute rejection, rendering, storage, navigation and execution are not established by this slice.

1012

1113Hoon `+$` 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.

1214

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

1416

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

1618

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. Primitive execution and jet recognition remain unfinished.

19+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.

1820

1921## 1c

2022

@@ -26,7 +28,7 @@ The source-backed `gth` gate calls a compiler-supplied private comparison interf

2628

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

2830

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 remains outstanding for all of them.

31+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.

3032

3133| Name | Hoon behavior | Jibb status |

3234| --- | --- | --- |

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

4951

5052`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`.

5153

52−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`, `snip`, `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. Backend validation remains outstanding for all of them.

54+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.

5355

5456## 2c

5557

@@ -99,7 +101,7 @@ The current prelude writes `snoc`, `lure`, `flop`, `join`, `levy`, `lien`, `murn

99101

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

101103

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. The partial checker infers their polymorphic types. Their runtime implementations remain to be validated by a backend.

104+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.

103105

104106## 2o

105107

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

162164

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

164166

167+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.

168+

165169## 4k

166170

167171`co`.

docs/prompts/milestone-2.md+3−3

@@ -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.

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

7575

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

7777- 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"".

78−- `|=%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."

7979- 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.

8080- "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.

8181- 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.

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

121121- 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."

122122

123123**Errors**

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 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.

125125- 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.

126126- "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.

127127- 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/decisions.md+1−1

@@ -24,7 +24,7 @@ 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 |

2929| 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 |

docs/spec/grammar.md+1−1

@@ -141,7 +141,7 @@ A mold is only a type: never called on a noun, and with no default. Types are in

141141A 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".

142142

143143- 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.

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 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.

145145- 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.

146146- 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)`.

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

docs/status.md+104−12

@@ -1,6 +1,6 @@

11# Status

3−As of 2026-10-31. The plan is [spec/implementation-plan.md](spec/implementation-plan.md); each milestone ends with its checks passing on a fake ship.

3+As of 2026-11-01. The plan is [spec/implementation-plan.md](spec/implementation-plan.md); each milestone ends with its checks passing on a fake ship.

55| # | Milestone | Status |

66| --- | --- | --- |

@@ -23,21 +23,65 @@ The parser accepts `_` in mold positions and typed path segments, retaining each

2323

2424On 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.

2525

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. 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.

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.

2727

28−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. Derived requests, checked decoding, runtime validation, `sub` and island watch checking remain unimplemented.

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.

2929

30−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.

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.

3131

32−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. It does not yet create callable request gates or establish watchability of values.

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+A prepared-prelude partial report can recover a narrow import-free, non-main ordinary library initializer by deferring source-owned literals in a direct tuple until a later exact result cast. The prepared interface and declared-name inventories must agree exactly. API/store paths, `main` and imports remain excluded, and the ordinary full-module resolver does not publish the recovered interface. Wrong field types, unrelated tags and mold collisions fail closed; a no-final-cast control remains unchecked. `tools/type-deferred-prepared-test` checks the exact recovered types and unchanged `partial inference; module not checked` disclaimer under eval and on the ship. List-literal deferral and import-aware recovery remain unsupported.

35+

36+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 remaining cross-definition context or complete island-kind and watchability checks needed by the unchanged todo island.

37+

38+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 general island watch checking remain unimplemented; the separate direct-program proof below covers only one narrow static value shape.

39+

40+The public prelude now contains the source-backed UI length/attribute molds, all element constructors, and exact program/page records and builders. The full 19-case generic `element` union is nonrecursive: nested child, keyed-item and table payloads are `*`, while public constructor schemes preserve typed composition and independent key types. `island` returns `(element !!)` with `[program data]` as its erased payload. The focused UI golden checks exact schemes, static and message-bearing composition, concrete programs/pages/islands, malformed inputs and selected mismatches. A child-message mismatch fails closed as an unsupported constraint. Raw-constructor encapsulation, duplicate-attribute checks, rendering, storage, navigation and execution are not claimed.

41+

42+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.

43+

44+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.

45+

46+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.

47+

48+A narrow full-module path now checks direct four-wing `(program init update view subs)` definitions named `main`. It requires the canonical prepared `program` value and mold, reuses ordinary source-backed program fitting, and publishes only after all ordinary module and request-graph checks. The inferred `main` must be closed and invariantly match the instantiated `program` mold. Initializer data and model must be closed and gate-free with `%yes` verdicts inside a shared 256-node budget. `subs` may syntactically return null through transparent forms, or one direct imported request watch after the request graph merges. The latter is only an unfaced two-item `[%watch (case.face |=%callback)]` singleton: the imported member must have the exact plain derived-request scheme, a unique merged request must match the API path and both case names and occur in the interface's own graph, the API source must be identical, and scry, diffs and parameters must be absent. Pure or hand-built values, helpers, aliases, re-exports, typed paths, folds, multiple watches and unknown or ambiguous evidence remain rejected. Checked interfaces retain source evidence and support ordinary downstream imports; no program execution or runtime watching is claimed. A transactional extension can recover a direct initializer whose transparent tuple body ends in null when update, view and subs are already resolved. It derives the expected gate through the ordinary positional program fit with fresh IDs and stable replay, then re-infers the actual initializer and `main` under all ordinary finalization and kind checks. Non-main libraries, aliases, nonempty or simultaneously unresolved subscriptions, and unrelated pending tags remain rejected.

49+

50+The component-local program recovery now covers update, subscriptions, one direct keyed `each`/`turn` mapper and its view, then the existing initializer and ordinary `main` path. Each recovered scheme is closed and freshly allocated; a keyed source screen avoids repeated doomed ordinary attempts without skipping final `main`, and non-gate views decline safely. Canonical `element` recursion and exact singleton-case list fits are narrowly guarded, with successful ordinary fits taking precedence. The byte-identical unchanged todo now passes both detailed and legacy full-module checks with an exact closed `main` type and structural downstream import. Wrong models, messages, results, mappers, keys, aliases, non-gate views and watches fail closed. This is static checking only: no Jibb execution or runtime watching is claimed.

51+

52+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. This remains declaration evidence rather than proof about an arbitrary request value. The narrow direct-program check above composes it with final value syntax, resolved imports and merged evidence for one plain request. Prepared artifacts and reader results remain trusted host inputs.

53+

54+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.

3355

3456A 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.

3557

58+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.

59+

3660The 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.

3761

38−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 create requests or check an API module. Complete private module checking, other API shapes, request gates, root API and kind checking, stores, complete `ask` and `pure` checking, 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 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. 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 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.

62+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.

63+

64+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.

65+

66+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.

67+

68+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.

69+

70+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.

71+

72+The experimental deferred constructor transaction conservatively declines general structural tuple fits, 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.

73+

74+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.

75+

76+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.

77+

78+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.

79+

80+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.

81+

82+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.

3983

40−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` 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. 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.

84+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.

4185

4286## Milestone 1: parser and mark

4387

@@ -55,8 +99,8 @@ What the plan asks for, and where it is:

5599

56100Besides the plan's list:

57101

58−- 637 golden cases: 417 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.

59−- The 637-case corpus passed under `urbit eval` in 89.7 s while other checks were running. The fake ship passed all 658 tests, including the importer, importer/checker and mark/checker bridges, module scope, unification, hole, qath, ask, default-wrapper importer, projection, arithmetic, generic-alias, positional-face and API-evidence guards, with 60.3 s for sync and 81.5 s for tests. 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.

102+- 660 golden cases: 440 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.

103+- The 660-case corpus passed under `urbit eval` in 107.0 s while other checks were running. The fake ship passed all 712 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 102.0 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.

60104- `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.

61105- 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.

62106- 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).

@@ -147,17 +191,51 @@ Besides the plan's list:

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

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

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

150−| This change | 2026-10-31 | Prove selected default-wrapped Hoon unions from source |

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

216+| ab6fdc1 | 2026-10-31 | Add source-backed text conversion wrappers |

217+| aa277c9 | 2026-10-31 | Recover prepared tuple initializers in partial reports |

218+| b4703e7 | 2026-11-01 | Check narrow closed subscription-free program mains |

219+| 26bf7a7 | 2026-11-01 | Recover narrow direct-program initializer contexts |

220+| 642d2c0 | 2026-11-01 | Prove direct request-value watchability for program subscriptions |

221+| 2e4d582 | 2026-11-01 | Add the source-backed UI, program and page prelude slice |

222+| a163965 | 2026-11-01 | Recover direct-program update result contexts |

223+| This change | 2026-11-01 | Check the unchanged todo island through component recovery |

151224

152225## Checking it

153226

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

155228

156229```

157−tools/golden # 637 cases under urbit eval

230+tools/golden # 660 cases under urbit eval

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

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

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

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

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

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

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

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

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

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

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

@@ -166,17 +244,31 @@ tools/type-api-paths-test # partial API path metadata fixture

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

167245tools/type-list-alias-test # prelude list-alias guards

168246tools/type-generic-alias-test # generic union alias guards

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

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

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

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

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

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

253+tools/type-deferred-prepared-test # prepared initializer reports and failure guards

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

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

169256tools/type-positional-face-guards-test # positional sample face guards

170257tools/type-qath-guards-test # qath source and unfolding guards

171258tools/type-ask-guards-test # ask source and bootstrap guards

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

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

261+tools/type-program-main-test # closed program-main interface and rejection guards

262+tools/type-program-init-test # transactional direct-program initializer context guards

263+tools/type-program-update-test # transactional direct-program update context guards

264+tools/type-program-watch-test # direct request-value watchability guards

265+tools/type-todo-full-test # byte-identical full todo and rejection guards

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

175267tools/testdata/selftest # the tools themselves

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

177269tools/ship start

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

179−tools/ship test # the same 637 cases as -test arms on the ship

271+tools/ship test # the same 660 cases as -test arms on the ship

180272tools/testdata/ship-selftest

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

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

jibb-dev/lib/jibb-import.hoon+181−6

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

4747 ==

4848+$ import-diagnostic

4949 $% [%ok value=imported]

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

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

5151 [%unsupported message=@t]

5252 ==

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

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

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

133133 ?~ rest ~

134134 `[[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]

135164::

136165:: Benign source annotations have different typed representations on

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

@@ -170,11 +199,19 @@

170199 ?~ found ~

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

172201 ?~ body ~

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

174− =/ cases=(list spec) p.u.body

175− ?~ cases ~

176− ?~ t.cases ~

177− (tagged-cases cases ~)

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+ ==

178215::

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

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

@@ -346,6 +383,140 @@

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

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

348385 $(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)

349520::

350521:: +read-mold-in: accept the /sur core as provenance. The core must be

351522:: built against zuse or validated Ford imports, and its selected arm

@@ -361,6 +532,8 @@

361532 [%| (crip "Hoon mold `{(trip name)}` is not declared")]

362533 ?. =(typ (~(play ut cor) (ream (cat 3 '*' name))))

363534 [%| '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']

364537 =/ result (read-with module name typ [~ cor])

365538 ?: ?=([%& *] result) result

366539 =/ fallback=(each (unit (each imported @t)) tang)

@@ -461,6 +634,8 @@

461634 [%unsupported p.result]

462635 =/ selected=(each type tang) (mule |.((~(play ut cor) (ream (cat 3 '*' name)))))

463636 ?. ?=(%& -.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']

464639 =/ again=(each imported tang) (mule |.((walk module p.selected catalog ~ [~ cor])))

465640 ?. ?=(%& -.again) [%unsupported p.result]

466641 =/ evidence=(unit import-diagnostic) (first-invalid p.again)

jibb-dev/lib/jibb.hoon+3875−139

@@ -4607,6 +4607,8 @@

46074607:: Atom constraints tied to an explicit capital or an inferred sample

46084608:: are generalized and printed. Other aura variables remain unsupported until

46094609:: 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.

46104612:: Bare @ is a separate unrestricted atom type. A directional fit check

46114613:: permits concrete atoms to widen to it, never the reverse. A fit that

46124614:: needs a not-yet-implemented constraint remains unsupported. Named unions

@@ -4628,6 +4630,32 @@

46284630:: proofs to fewer than 1,024 cells; the projection planner has a separate

46294631:: 4,096-step bound. These are inference limits, not language limits.

46304632::

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+::

46314659+$ itype

46324660 $~ [%var 0]

46334661 $% [%var id=@ud]

@@ -4639,11 +4667,13 @@

46394667 [%any-atom ~]

46404668 [%flag ~]

46414669 [%noun ~]

4670+ [%empty ~]

46424671 [%tag id=@ud literal=lit constructor=?]

46434672 [%const literal=lit]

46444673 [%collection name=term args=(list itype)]

46454674 [%recursive module=term name=term label=(unit @t)]

46464675 [%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)]

46474677 [%union cases=(list itype) origin=(unit [at=path name=term]) label=(unit @t) args=(list itype)]

46484678 [%face name=term body=itype]

46494679 [%fn sample=itype product=itype]

@@ -4696,6 +4726,88 @@

46964726 $(t u.found)

46974727 ==

46984728::

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+::

46994811++ itype-occurs

47004812 |= [n=@ud t=itype sub=isub]

47014813 ^- ?

@@ -4710,11 +4822,13 @@

47104822 %any-atom |

47114823 %flag |

47124824 %noun |

4825+ %empty |

47134826 %tag =(n id.t)

47144827 %const |

47154828 %union |((lien cases.t |=(c=itype (itype-occurs n c sub))) (lien args.t |=(c=itype (itype-occurs n c sub))))

47164829 %recursive |

47174830 %jrec |

4831+ %grec (lien args.t |=(c=itype (itype-occurs n c sub)))

47184832 %collection (lien args.t |=(c=itype (itype-occurs n c sub)))

47194833 %face $(t body.t)

47204834 %fn |($(t sample.t) $(t product.t))

@@ -4733,6 +4847,9 @@

47334847 =. a (itype-walk a sub)

47344848 =. b (itype-walk b sub)

47354849 ?: =(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)

47364853 ?: &(?=(%jrec -.a) ?=(%jrec -.b))

47374854 ?:(&(=(at.a at.b) =(name.a name.b) =(head.a head.b) =(aura.a aura.b) =(tail.a tail.b)) `sub ~)

47384855 ?: &(?=(%recursive -.a) ?=(%recursive -.b))

@@ -4838,11 +4955,13 @@

48384955 %any-atom &

48394956 %flag |

48404957 %noun |

4958+ %empty |

48414959 %tag |

48424960 %const |

48434961 %union |((lien cases.t |=(c=itype (itype-has-any-atom c sub))) (lien args.t |=(c=itype (itype-has-any-atom c sub))))

48444962 %recursive |

48454963 %jrec |

4964+ %grec (lien args.t |=(c=itype (itype-has-any-atom c sub)))

48464965 %collection (lien args.t |=(c=itype (itype-has-any-atom c sub)))

48474966 %face $(t body.t)

48484967 %fn |($(t sample.t) $(t product.t))

@@ -4912,11 +5031,13 @@

49125031 %any-atom &

49135032 %flag &

49145033 %noun |

5034+ %empty |

49155035 %tag &

49165036 %const &

49175037 %union |((lien cases.typ |=(c=itype (itype-has-fixed-atom c))) (lien args.typ |=(c=itype (itype-has-fixed-atom c))))

49185038 %recursive |

49195039 %jrec |

5040+ %grec (lien args.typ |=(c=itype (itype-has-fixed-atom c)))

49205041 %collection (lien args.typ |=(c=itype (itype-has-fixed-atom c)))

49215042 %face $(typ body.typ)

49225043 %fn |($(typ sample.typ) $(typ product.typ))

@@ -4945,6 +5066,7 @@

49455066 ^- ?

49465067 =. t (itype-walk t sub)

49475068 ?- -.t

5069+ %grec (lien args.t |=(c=itype (itype-has-face c sub)))

49485070 %collection (lien args.t |=(c=itype (itype-has-face c sub)))

49495071 %face &

49505072 %cell |($(t hed.t) $(t tal.t))

@@ -4952,6 +5074,42 @@

49525074 * |

49535075 ==

49545076::

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+::

49555113++ itype-face-asym-collection-args

49565114 |= [as=(list itype) bs=(list itype) sub=isub]

49575115 ^- ?

@@ -4965,6 +5123,9 @@

49655123 ^- ?

49665124 =. a (itype-walk a sub)

49675125 =. 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)

49685129 ?: &(?=(%collection -.a) ?=(%collection -.b))

49695130 ?. =(name.a name.b) |

49705131 (itype-face-asym-collection-args args.a args.b sub)

@@ -4997,6 +5158,12 @@

49975158:: labels. Ignore one raw sample-slot face per written argument while

49985159:: checking value faces as usual. An unknown or variable-bound cell spine

49995160:: 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+::

50005167++ itype-positional-face-asym

50015168 |= [args=(list expr) actual=itype expected=itype sub=isub]

50025169 ^- ?

@@ -5004,11 +5171,11 @@

50045171 ?~ t.args

50055172 =/ slot=itype expected

50065173 =? slot ?=(%face -.slot) body.slot

5007− (itype-face-asym actual slot sub)

5174+ (itype-positional-slot-face-asym actual slot sub)

50085175 ?. &(?=(%cell -.actual) ?=(%cell -.expected)) &

50095176 =/ slot=itype hed.expected

50105177 =? slot ?=(%face -.slot) body.slot

5011− ?: (itype-face-asym hed.actual slot sub) &

5178+ ?: (itype-positional-slot-face-asym hed.actual slot sub) &

50125179 $(args t.args, actual tal.actual, expected tal.expected)

50135180::

50145181++ itype-output-may-be-cell

@@ -5021,6 +5188,7 @@

50215188 %union &

50225189 %recursive &

50235190 %jrec &

5191+ %grec &

50245192 %noun &

50255193 %collection &

50265194 %face $(t body.t)

@@ -5050,6 +5218,7 @@

50505218 ^- ?

50515219 ?- -.t

50525220 %tag &

5221+ %grec (lien args.t |=(c=itype (itype-has-tag c)))

50535222 %collection (lien args.t |=(c=itype (itype-has-tag c)))

50545223 %face $(t body.t)

50555224 %fn |($(t sample.t) $(t product.t))

@@ -5063,6 +5232,7 @@

50635232 ^- ?

50645233 ?- -.t

50655234 %union &

5235+ %grec (lien args.t |=(c=itype (itype-has-union c)))

50665236 %collection (lien args.t |=(c=itype (itype-has-union c)))

50675237 %face $(t body.t)

50685238 %fn |($(t sample.t) $(t product.t))

@@ -5081,6 +5251,7 @@

50815251 %union

50825252 ?: &(?=(~ label.t) ?=(^ args.t)) &

50835253 (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))))

50845255 %collection (lien args.t |=(c=itype (itype-has-hidden-generic c)))

50855256 %face $(t body.t)

50865257 %fn |($(t sample.t) $(t product.t))

@@ -5094,6 +5265,7 @@

50945265 ?- -.t

50955266 %recursive &

50965267 %jrec &

5268+ %grec &

50975269 %collection (lien args.t |=(c=itype (itype-has-recursive c)))

50985270 %union (lien (weld args.t cases.t) |=(c=itype (itype-has-recursive c)))

50995271 %face $(t body.t)

@@ -5108,6 +5280,7 @@

51085280 ?- -.t

51095281 %recursive ?=(~ label.t)

51105282 %jrec ?=(~ label.t)

5283+ %grec |(?=(~ label.t) (lien args.t |=(c=itype (itype-has-hidden-recursive c))))

51115284 %collection (lien args.t |=(c=itype (itype-has-hidden-recursive c)))

51125285 %union (lien (weld args.t cases.t) |=(c=itype (itype-has-hidden-recursive c)))

51135286 %face $(t body.t)

@@ -5135,30 +5308,63 @@

51355308 $(cases t.cases, good `trial)

51365309 ==

51375310::

5138−:: A constructor needs a case with its tag at the head and a payload

5139−:: compatible with the expected gate sample. Other case forms do not

5140−:: 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.

51415314::

51425315++ itype-fit-ctor-cases

51435316 |= [tag=lit sample=itype cases=(list itype) sub=isub next=@ud]

51445317 ^- ifit

51455318 =/ found=(unit ifit) ~

5319+ =/ pending=? |

51465320 |-

5147− ?~ cases ?~(found [%bad ~] u.found)

5148− =/ 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 &)

51495331 ?. ?=(%cell -.c) $(cases t.cases)

5150− =/ 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 &)

51515344 ?. ?=(%const -.head) $(cases t.cases)

5152− ?. =(%term form.literal.head) $(cases t.cases)

51535345 ?. =(val.literal.head val.tag) $(cases t.cases)

5154− ?^ 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.

51555348 =/ trial=ifit (itype-fit sample tal.c sub next)

5156− $(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+ ==

51575356::

51585357++ itype-fit

51595358 |= [actual=itype expected=itype sub=isub next=@ud]

51605359 ^- ifit

5161− (itype-fit-inner actual expected sub next | |)

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

51625368++ itype-fit-inner

51635369 |= [actual=itype expected=itype sub=isub next=@ud skip-width=? spine-proof=?]

51645370 ^- ifit

@@ -5177,6 +5383,10 @@

51775383 =. actual (itype-walk actual sub)

51785384 =. expected (itype-walk expected sub)

51795385 ?: =(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 ~]

51805390 :: Any value can be used where a noun is expected. An unresolved

51815391 :: bare tag is fixed as a constant; a constructor still needs a gate.

51825392 ?: ?=(%noun -.expected)

@@ -5186,6 +5396,14 @@

51865396 [%ok sub next]

51875397 :: An arbitrary noun is not known to fit a narrower type.

51885398 ?: &(?=(%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 ~]

51895407 ?: &(!uncertain ?=(%jrec -.actual) ?=(%face -.expected)) $(expected body.expected)

51905408 ?: &(!uncertain ?=(%face -.actual) ?=(%jrec -.expected)) $(actual body.actual)

51915409 ?: &(?=(%jrec -.actual) ?=(%jrec -.expected))

@@ -5259,6 +5477,10 @@

52595477 ?: ?=(%const -.expected)

52605478 ?:(=(val.literal.actual val.literal.expected) [%ok sub next] [%bad ~])

52615479 ?: ?=(%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 ~]

52625484 ?: |(=(%tas aura.expected) =(%ta aura.expected)) [%ok sub next]

52635485 [%bad ~]

52645486 ?: ?=(%flag -.expected)

@@ -5318,6 +5540,7 @@

53185540 $(actual body.actual, expected body.expected, skip-width |, spine-proof |)

53195541 ?: ?=(%face -.actual) $(actual body.actual, skip-width |, spine-proof |)

53205542 ?: ?=(%face -.expected) $(expected body.expected, skip-width |, spine-proof |)

5543+ ?: &(!uncertain (itype-closed-gates-match actual expected)) [%ok sub next]

53215544 ?: (itype-face-asym actual expected sub) [%unknown ~]

53225545 ?: |((itype-has-any-atom actual sub) (itype-has-any-atom expected sub))

53235546 [%unknown ~]

@@ -5396,7 +5619,15 @@

53965619+$ iderived [name=term agent=term mark=term]

53975620+$ iwidth-definition [name=term original=expr typ=itype sub=isub projections=(list iwprojection)]

53985621+$ iwidth-dependency [at=path source=(unit @t) definitions=(list iwidth-definition)]

5399−+$ ifile [values=ienv molds=imold-types at=path derived=(list iderived) elaborations=(list iwidth-definition) dependencies=(list iwidth-dependency) source=(unit @t)]

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)]

54005631+$ ijimports (list [face=term interface=ifile])

54015632+$ icap [name=@t id=@ud at=span]

54025633+$ icaps (list icap)

@@ -5499,7 +5730,77 @@

54995730 ?. (width-in-order order.source.shape order.target.shape) ~

55005731 (width-fit-fields index.source.shape order.target.shape sub next)

55015732::

5502−+$ 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)]

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)]

55035804+$ idiag [msg=tape sites=(list [at=span note=tape])]

55045805+$ iresult (each [typ=itype state=istate] idiag)

55055806+$ isample-result (each [typ=itype env=ienv state=istate] tape)

@@ -5519,6 +5820,7 @@

55195820 |= [t=itype sub=isub]

55205821 ^- itype

55215822 =. t (itype-walk t sub)

5823+ ?: ?=(%grec -.t) t(args (turn args.t |=(c=itype (itype-normalize c sub))))

55225824 ?: ?=(%collection -.t) [%collection name.t (turn args.t |=(c=itype (itype-normalize c sub)))]

55235825 ?: ?=(%union -.t)

55245826 [%union (turn cases.t |=(c=itype (itype-normalize c sub))) origin.t label.t (turn args.t |=(c=itype (itype-normalize c sub)))]

@@ -5545,6 +5847,7 @@

55455847 %cell |($(t hed.t) $(t tal.t))

55465848 %recursive |

55475849 %jrec |

5850+ %grec &

55485851 %collection (lien args.t |=(c=itype (itype-has-gate c)))

55495852 %face $(t body.t)

55505853 %union (lien cases.t |=(c=itype (itype-has-gate c)))

@@ -5559,6 +5862,7 @@

55595862 %any-atom |

55605863 %flag |

55615864 %noun |

5865+ %empty |

55625866 ==

55635867::

55645868++ default-decimals

@@ -5568,6 +5872,7 @@

55685872 ?- -.t

55695873 %nvar [%atom %ud]

55705874 %rnvar [%atom %ud]

5875+ %grec t(args (turn args.t |=(c=itype (default-decimals c))))

55715876 %collection [%collection name.t (turn args.t |=(c=itype (default-decimals c)))]

55725877 %face [%face name.t $(t body.t)]

55735878 %cell [%cell $(t hed.t) $(t tal.t)]

@@ -5609,6 +5914,7 @@

56095914 %tag |

56105915 %any-atom &

56115916 %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)))

56125918 %collection (levy args.t |=(c=itype (hole-known c state)))

56135919 %face $(t body.t)

56145920 %fn &($(t sample.t) $(t product.t))

@@ -5618,6 +5924,8 @@

56185924++ promote-restricted-numbers

56195925 |= [state=istate env=ienv]

56205926 ^- istate

5927+ :: With no written capitals, there is nothing to promote.

5928+ ?~ caps.state state

56215929 =/ ids=(list @ud) (turn caps.state |=(c=icap id.c))

56225930 =/ free=(list @ud) (free-env-vars env sub.state)

56235931 |-

@@ -5654,6 +5962,7 @@

56545962 ?- -.t

56555963 ?(%tag %nvar %rnvar %avar %rvar) !(hole-known t state)

56565964 %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)))

56575966 %collection (lien args.t |=(c=itype (hole-uncertain c state)))

56585967 %face $(t body.t)

56595968 %fn |($(t sample.t) $(t product.t))

@@ -5685,11 +5994,13 @@

56855994 %any-atom ~

56865995 %flag ~

56875996 %noun ~

5997+ %empty ~

56885998 %tag ~

56895999 %const ~

56906000 %union (zing (turn (weld args.t cases.t) |=(c=itype (itype-vars c))))

56916001 %recursive ~

56926002 %jrec ~

6003+ %grec (zing (turn args.t |=(c=itype (itype-vars c))))

56936004 %collection (zing (turn args.t |=(c=itype (itype-vars c))))

56946005 %face $(t body.t)

56956006 %fn (weld $(t sample.t) $(t product.t))

@@ -5733,11 +6044,13 @@

57336044 %any-atom t

57346045 %flag t

57356046 %noun t

6047+ %empty t

57366048 %tag t

57376049 %const t

57386050 %union [%union (turn cases.t |=(c=itype (itype-rename c ren))) origin.t label.t (turn args.t |=(c=itype (itype-rename c ren)))]

57396051 %recursive t

57406052 %jrec t

6053+ %grec t(args (turn args.t |=(c=itype (itype-rename c ren))))

57416054 %collection [%collection name.t (turn args.t |=(c=itype (itype-rename c ren)))]

57426055 %face [%face name.t $(t body.t)]

57436056 %fn [%fn $(t sample.t) $(t product.t)]

@@ -5760,11 +6073,13 @@

57606073 %any-atom |

57616074 %flag |

57626075 %noun |

6076+ %empty |

57636077 %tag |

57646078 %const |

57656079 %union |((lien cases.t |=(c=itype (itype-var-is-atom n c))) (lien args.t |=(c=itype (itype-var-is-atom n c))))

57666080 %recursive |

57676081 %jrec |

6082+ %grec (lien args.t |=(c=itype (itype-var-is-atom n c)))

57686083 %collection (lien args.t |=(c=itype (itype-var-is-atom n c)))

57696084 %face $(t body.t)

57706085 %fn |($(t sample.t) $(t product.t))

@@ -5783,11 +6098,13 @@

57836098 %any-atom |

57846099 %flag |

57856100 %noun |

6101+ %empty |

57866102 %tag |

57876103 %const |

57886104 %union |((lien cases.t |=(c=itype (itype-var-is-restricted n c))) (lien args.t |=(c=itype (itype-var-is-restricted n c))))

57896105 %recursive |

57906106 %jrec |

6107+ %grec (lien args.t |=(c=itype (itype-var-is-restricted n c)))

57916108 %collection (lien args.t |=(c=itype (itype-var-is-restricted n c)))

57926109 %face $(t body.t)

57936110 %fn |($(t sample.t) $(t product.t))

@@ -6084,6 +6401,7 @@

60846401 ^- upat

60856402 ?- -.typ

60866403 %noun [%all ~]

6404+ %empty [%empty ~]

60876405 %atom [%atom ~]

60886406 %flag [%or ~[[%atom `0] [%atom `1]]]

60896407 %const [%atom `val.literal.typ]

@@ -6218,6 +6536,16 @@

62186536 ?: &(?=(~ vars.template) ?=(%jrec -.typ.template) =(at.typ.template origin) =(name.typ.template name)) `name.i.molds

62196537 $(molds t.molds)

62206538::

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+::

62216549++ itype-in-import

62226550 |= [t=itype iface=ifile face=term prelude=(unit ifile)]

62236551 ^- itype

@@ -6237,6 +6565,11 @@

62376565 `(crip "{(trip u.alias)}.{(trip face)}")

62386566 [%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)))]

62396567 %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))))

62406573 %jrec

62416574 =/ public=(unit term) ?~(prelude ~ (jrec-alias at.t name.t molds.u.prelude))

62426575 ?^ public t(label `u.public)

@@ -6349,9 +6682,29 @@

63496682 ?. =(names.tail ~[name]) ~

63506683 `[%jrec at.state name `name name.i.fs aura.shape.i.fs name.i.t.fs]

63516684::

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+

63526701++ infer-mold-template

63536702 |= [sh=shape state=istate]

63546703 ^- (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))]

63556708 =/ direct=(unit itype)

63566709 ?. ?=([@ ~] active.state) ~

63576710 (simple-source-recursive i.active.state sh state)

@@ -6409,7 +6762,7 @@

64096762 ?~ found ~

64106763 ?^ t.found ~

64116764 result.i.found

6412− ?. ?=([%invalid ?(%aura %core) @] raw) ~

6765+ ?. ?=([%invalid ?(%aura %core %overlap) @] raw) ~

64136766 `["{(trip +>.raw)}" ~[[at.sh "invalid imported mold"]]]

64146767::

64156768:: Replay only the shape branches whose evaluation order we can prove.

@@ -6484,12 +6837,18 @@

64846837 `[[%atom aura.sh] state]

64856838 %flag `[[%flag ~] state]

64866839 %noun `[[%noun ~] state]

6840+ %void `[[%empty ~] state]

64876841 %const

6488− ?. |(=(%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))) ~

64896844 `[[%const lit.sh] state]

64906845 %union

64916846 =/ pairs=(list upair) (union-pairs cases.sh molds.state)

6492− ?. (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 ~

64936852 =/ cs=(unit [types=(list itype) state=istate]) (infer-shape-args cases.sh state)

64946853 ?~ cs ~

64956854 `[[%union types.u.cs ~ ~ ~] state.u.cs]

@@ -6563,6 +6922,8 @@

65636922 ?~ applied ~

65646923 `[u.applied state.u.args]

65656924 ?. ?=(%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]

65666927 ?. (distinct-params vars.u.found) ~

65676928 =/ params=(unit iparams) (bind-params vars.u.found types.u.args)

65686929 ?~ params ~

@@ -6891,6 +7252,7 @@

68917252 =/ retried=? ?=(%| -.inferred)

68927253 =? inferred retried (infer-recursive-gate d env local-state)

68937254 ?: ?=(%| -.inferred) $(ds t.ds, remaining [d remaining])

7255+ ?: !=(obligations.state.p.inferred obligations.state) [%| ["deferred local definition needs unsupported inference" ~]]

68947256 =. state.p.inferred (promote-restricted-numbers state.p.inferred env)

68957257 =. 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)))

68967258 =/ hole=(unit idiag) (unresolved-hole holes.state.p.inferred holes.state state.p.inferred)

@@ -7000,6 +7362,8 @@

70007362 ?: &(?=(%collection -.expected) =(%list name.expected) (context-list-expression e))

70017363 (infer-list-context e expected env state context)

70027364 ?: ?=(%branch -.e)

7365+ =/ empty-list=(unit iresult) (empty-list-null-branch e env state `[expected context])

7366+ ?^ empty-list u.empty-list

70037367 ?~ arms.e [%| ["branch is not supported by partial inference" ~]]

70047368 ?~ t.arms.e [%| ["branch pattern is not supported by partial inference" ~]]

70057369 ?^ t.t.arms.e [%| ["branch is not supported by partial inference" ~]]

@@ -7113,7 +7477,12 @@

71137477 =/ target=itype (itype-walk expected sub.state)

71147478 =/ value=iresult (infer-call-context-arg i.items target env state context)

71157479 ?: ?=(%| -.value) value

7116− =/ fit=ifit (itype-fit typ.p.value target sub.state.p.value next.state.p.value)

7480+ =/ ordinary-fit=ifit (itype-fit typ.p.value target sub.state.p.value next.state.p.value)

7481+ =/ fit=ifit

7482+ ?: ?=(%ok -.ordinary-fit) ordinary-fit

7483+ ?: ?&(?=(%union -.target) ?=(^ prelude.state) =(origin.target `[at.u.prelude.state %element]))

7484+ (program-single-generic-fit typ.p.value target sub.state.p.value next.state.p.value)

7485+ ordinary-fit

71177486 ?: ?=(%unknown -.fit) [%| ["list item constraint is not supported by partial inference" ~]]

71187487 ?: ?=(%bad -.fit)

71197488 ?: |((itype-family-related typ.p.value target sub.state.p.value) (itype-has-any-atom typ.p.value sub.state.p.value) (itype-has-any-atom target sub.state.p.value))

@@ -7130,7 +7499,12 @@

71307499 =/ target=itype (itype-walk expected sub.state)

71317500 =/ value=iresult (infer-call-context-arg i.items target env state context)

71327501 ?: ?=(%| -.value) value

7133− =/ fit=ifit (itype-fit typ.p.value target sub.state.p.value next.state.p.value)

7502+ =/ ordinary-fit=ifit (itype-fit typ.p.value target sub.state.p.value next.state.p.value)

7503+ =/ fit=ifit

7504+ ?: ?=(%ok -.ordinary-fit) ordinary-fit

7505+ ?: ?&(?=(%union -.target) ?=(^ prelude.state) =(origin.target `[at.u.prelude.state %element]))

7506+ (program-single-generic-fit typ.p.value target sub.state.p.value next.state.p.value)

7507+ ordinary-fit

71347508 ?: ?=(%unknown -.fit) [%| ["list item constraint is not supported by partial inference" ~]]

71357509 ?: ?=(%bad -.fit)

71367510 =/ missing=(unit idiag) (missing-union-tag i.items target sub.state.p.value context)

@@ -7217,6 +7591,11 @@

72177591 [%| ["list pattern needs the standard prelude in partial inference" ~]]

72187592 ?~ args.typ [%| ["list pattern is not supported by partial inference" ~]]

72197593 ?^ t.args.typ [%| ["list pattern is not supported by partial inference" ~]]

7594+ =/ item-live=(unit [result=?(%yes %no %unknown) left=@ud])

7595+ (itype-inhabited-proof i.args.typ sub.state caps.state 256)

7596+ ?~ item-live [%| ["list element reachability needs unsupported inference" ~]]

7597+ ?: =(%unknown result.u.item-live) [%| ["list element reachability needs unsupported inference" ~]]

7598+ ?: =(%no result.u.item-live) [%| ["list nonempty pattern is unreachable" ~]]

72207599 ?~ arms.e [%| ["list branch is not supported by partial inference" ~]]

72217600 ?~ t.arms.e [%| ["list branch is not supported by partial inference" ~]]

72227601 ?^ t.t.arms.e [%| ["list branch is not supported by partial inference" ~]]

@@ -7270,6 +7649,11 @@

72707649 [%| ["pattern binder shadows a name" ~]]

72717650 =/ payload=(unit itype) (unit-union-payload typ)

72727651 ?~ payload [%| ["unit branch subject is not supported by partial inference" ~]]

7652+ =/ payload-live=(unit [result=?(%yes %no %unknown) left=@ud])

7653+ (itype-inhabited-proof u.payload sub.state.p.subject caps.state.p.subject 256)

7654+ ?~ payload-live [%| ["unit payload reachability needs unsupported inference" ~]]

7655+ ?: =(%unknown result.u.payload-live) [%| ["unit payload reachability needs unsupported inference" ~]]

7656+ ?: =(%no result.u.payload-live) [%| ["unit present pattern is unreachable" ~]]

72737657 =/ extended=ienv [[u.binder [u.payload ~]] env]

72747658 =/ left=iresult

72757659 ?~ expected (infer-fragment val.x ?:(first-empty env extended) state.p.subject)

@@ -7422,7 +7806,9 @@

74227806 ?: ?=(%| -.subject) `subject

74237807 =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

74247808 ?. ?=(%union -.typ) `[%| ["branch is not supported by partial inference" ~]]

7425− =/ cases=(list itype) cases.typ

7809+ =/ live=(unit (list itype)) (itype-live-cases cases.typ sub.state.p.subject caps.state.p.subject 4.096)

7810+ ?~ live ~

7811+ =/ cases=(list itype) u.live

74267812 =/ remaining=(list itype) cases

74277813 =/ arms=(list arm) arms.e

74287814 =/ st=istate state.p.subject

@@ -7459,7 +7845,9 @@

74597845 ?: ?=(%| -.subject) `subject

74607846 =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

74617847 ?. ?=(%union -.typ) `[%| ["branch is not supported by partial inference" ~]]

7462− =/ cases=(list itype) cases.typ

7848+ =/ live=(unit (list itype)) (itype-live-cases cases.typ sub.state.p.subject caps.state.p.subject 4.096)

7849+ ?~ live ~

7850+ =/ cases=(list itype) u.live

74637851 =/ remaining=(list itype) cases

74647852 =/ arms=(list arm) arms.e

74657853 =/ st=istate state.p.subject

@@ -7503,7 +7891,9 @@

75037891 ?: ?=(%| -.subject) subject

75047892 =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

75057893 ?. ?=(%union -.typ) [%| ["branch is not supported by partial inference" ~]]

7506− =/ expanded=(unit (list ifinite)) (finite-cases cases.typ ~ 0)

7894+ =/ live=(unit (list itype)) (itype-live-cases cases.typ sub.state.p.subject caps.state.p.subject 4.096)

7895+ ?~ live [%| ["union emptiness needs unsupported inference" ~]]

7896+ =/ expanded=(unit (list ifinite)) (finite-cases u.live ~ 0)

75077897 ?~ expanded [%| ["union pattern expansion needs unsupported inference" ~]]

75087898 =/ cases=(list ifinite) u.expanded

75097899 =/ remaining=(list ifinite) cases

@@ -7624,9 +8014,65 @@

76248014 =/ cell=itype [%cell [%face head.typ [%atom aura.typ]] [%face tail.typ typ]]

76258015 [%& [%union ~[nil cell] ~ ~ ~] state.p.subject(jrec-fuel (dec jrec-fuel.state.p.subject))]

76268016::

8017+:: A bounded source-proven tree match permits flat tag patterns and

8018+:: nonbinding catch-alls. Whole-case binders cannot consume the temporary

8019+:: structural view. Pattern count and field arity are checked first.

8020+++ grec-simple-pattern

8021+ |= [pat=pattern view=itype]

8022+ ^- ?

8023+ ?. ?=(%cell -.pat) |

8024+ ?~ items.pat |

8025+ =/ first=pattern i.items.pat

8026+ ?. ?=(%lit -.first) |

8027+ ?. =(%term form.lit.first) |

8028+ =/ chosen=(unit itype) (contextual-tagged-case view val.lit.first ~)

8029+ ?~ chosen |

8030+ ?> ?=(%cell -.u.chosen)

8031+ =/ rest=(list pattern) t.items.pat

8032+ =/ arity=? ?:(?=(%cell -.tal.u.chosen) ?=([* [* ~]] rest) ?=([* ~] rest))

8033+ ?. arity |

8034+ (levy rest |=(p=pattern |(?=(%bind -.p) ?=(%any -.p))))

8035+::

8036+:: A catch-all with no binder is safe even when it covers both cases.

8037+:: A bound whole case still declines to avoid exporting the analysis view.

8038+++ grec-patterns-eligible

8039+ |= [arms=(list arm) view=itype left=@ud]

8040+ ^- ?

8041+ ?~ arms &

8042+ ?: =(0 left) |

8043+ =/ pat=pattern pat.i.arms

8044+ ?. |(?=(%any -.pat) (grec-simple-pattern pat view)) |

8045+ $(arms t.arms, left (dec left))

8046+++ grec-match-view

8047+ |= [e=expr subject=iresult]

8048+ ^- iresult

8049+ ?: ?=(%| -.subject) subject

8050+ ?. ?=(%branch -.e) subject

8051+ ?. (grec-direct-context typ.p.subject sub.state.p.subject) subject

8052+ =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

8053+ ?. ?=(%grec -.typ) subject

8054+ ?~ arms.e subject

8055+ =/ view=(unit [view=itype left=@ud]) (grec-unfold-view typ jrec-fuel.state.p.subject)

8056+ ?~ view [%| ["recursive mold unfolding needs unsupported inference" ~]]

8057+ ?. (grec-patterns-eligible arms.e view.u.view 128) subject

8058+ [%& view.u.view state.p.subject(jrec-fuel left.u.view)]

8059+::

8060+:: A single-arm diagnostic only probes a direct, source-typed in-scope wing;

8061+:: other subjects retain the prior single-pattern inference path.

8062+++ grec-single-wing-subject

8063+ |= [e=expr env=ienv state=istate]

8064+ ^- (unit iresult)

8065+ ?. ?=(%wing -.e) ~

8066+ ?. ?=([@ ~] names.e) ~

8067+ =/ scheme=(unit ischeme) (ienv-lookup i.names.e env)

8068+ ?~ scheme ~

8069+ ?. (grec-direct-context typ.u.scheme sub.state) ~

8070+ `(infer-fragment e env state)

8071+::

76278072++ infer-known-union-branch-subject

76288073 |= [e=expr env=ienv subject=iresult]

76298074 ^- iresult

8075+ =. subject (grec-match-view e subject)

76308076 =. subject (jrec-match-view e subject)

76318077 =/ whole=(unit iresult) (infer-known-union-whole e env subject)

76328078 ?~ whole (infer-known-union-finite e env subject ~)

@@ -7641,6 +8087,7 @@

76418087++ infer-known-union-context-subject

76428088 |= [e=expr expected=itype env=ienv subject=iresult context=span]

76438089 ^- iresult

8090+ =. subject (grec-match-view e subject)

76448091 =. subject (jrec-match-view e subject)

76458092 =/ whole=(unit iresult) (infer-known-union-context-whole e expected env subject context)

76468093 ?~ whole (infer-known-union-finite e env subject `[expected context])

@@ -7693,9 +8140,67 @@

76938140 =/ subject=iresult (infer-fragment e env state)

76948141 ?: ?=(%| -.subject) ?:((union-subject-call e) `subject ~)

76958142 =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

7696− ?. |(?=(%union -.typ) ?=(%jrec -.typ)) ~

8143+ ?. |(?=(%union -.typ) ?=(%jrec -.typ) &(?=(%grec -.typ) (grec-direct-context typ.p.subject sub.state.p.subject))) ~

76978144 `subject

76988145::

8146+:: A direct wing with an already-known union may skip genuinely empty cases

8147+:: when checking a one-arm match. Other subjects keep their existing path.

8148+:: A directly known canonical list of an empty element contains only null.

8149+:: This helper never refines an opaque or variable-bound subject.

8150+++ empty-list-null-branch

8151+ |= [e=expr env=ienv state=istate expected=(unit [typ=itype context=span])]

8152+ ^- (unit iresult)

8153+ ?. ?=(%branch -.e) ~

8154+ ?~ arms.e ~

8155+ ?^ t.arms.e ~

8156+ ?. (unit-empty-pattern pat.i.arms.e) ~

8157+ ?. ?=(%wing -.subject.e) ~

8158+ ?. ?=([@ ~] names.subject.e) ~

8159+ =/ scheme=(unit ischeme) (ienv-lookup i.names.subject.e env)

8160+ ?~ scheme ~

8161+ ?. ?=(%collection -.typ.u.scheme) ~

8162+ ?. =(%list name.typ.u.scheme) ~

8163+ ?~ prelude.state ~

8164+ ?. =(at.u.prelude.state /lib/jibb/prelude/jibb) ~

8165+ =/ standard=(unit ischeme) (find-jibb-mold %list u.prelude.state)

8166+ ?~ standard ~

8167+ ?. =(u.standard [[%collection %list ~[[%var 0]]] ~[0]]) ~

8168+ =/ subject=iresult (infer-fragment subject.e env state)

8169+ ?: ?=(%| -.subject) ~

8170+ =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

8171+ ?. ?=(%collection -.typ) ~

8172+ ?. =(%list name.typ) ~

8173+ ?~ args.typ ~

8174+ ?^ t.args.typ ~

8175+ =/ proof=(unit [empty=? left=@ud]) (itype-empty-proof i.args.typ sub.state.p.subject 256)

8176+ ?~ proof ~

8177+ ?. empty.u.proof ~

8178+ ?~ expected `(infer-fragment val.i.arms.e env state.p.subject)

8179+ =/ body=iresult (infer-call-context-arg val.i.arms.e typ.u.expected env state.p.subject context.u.expected)

8180+ ?: ?=(%| -.body) `body

8181+ =/ fit=ifit (itype-fit typ.p.body typ.u.expected sub.state.p.body next.state.p.body)

8182+ ?: ?=(%unknown -.fit) `[%| ["single-case branch result constraint is not supported by partial inference" ~]]

8183+ ?: ?=(%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"]]]]

8184+ ?: (itype-has-tag (itype-normalize typ.u.expected sub.fit))

8185+ `[%| ["single-case branch result needs context in partial inference" ~]]

8186+ `[%& typ.p.body state.p.body(sub sub.fit, next next.fit)]

8187+::

8188+++ known-empty-union-wing

8189+ |= [e=expr env=ienv state=istate]

8190+ ^- (unit iresult)

8191+ ?. ?=(%wing -.e) ~

8192+ ?. ?=([@ ~] names.e) ~

8193+ =/ scheme=(unit ischeme) (ienv-lookup i.names.e env)

8194+ ?~ scheme ~

8195+ ?. (contextual-direct-union typ.u.scheme) ~

8196+ =/ subject=iresult (infer-fragment e env state)

8197+ ?: ?=(%| -.subject) ~

8198+ =/ typ=itype (itype-normalize typ.p.subject sub.state.p.subject)

8199+ ?. ?=(%union -.typ) ~

8200+ =/ live=(unit (list itype)) (itype-live-cases cases.typ sub.state.p.subject caps.state.p.subject 4.096)

8201+ ?~ live ~

8202+ ?: =(u.live cases.typ) ~

8203+ `subject

76998204::

77008205:: Infer changes only against a fully known record spine. Retain the

77018206:: target type; unknown spines and repeated edits remain unsupported.

@@ -7940,7 +8445,10 @@

79408445 =/ traced=iresult $(e val.e)

79418446 ?: ?=(%| -.traced) traced

79428447 $(e then.e, state state.p.traced)

7943− %tuple (infer-simple-items items.e env state)

8448+ %tuple

8449+ ?: &(?=(^ defer.state) ?=(^ prelude.state))

8450+ (dg-infer-tuple-items items.e env state)

8451+ (infer-simple-items items.e env state)

79448452 %body

79458453 ?~ defs.e $(e final.e)

79468454 =/ local-names=(list term) (global-value-names defs.e)

@@ -7963,8 +8471,15 @@

79638471 ?: ?=(%| -.result) result

79648472 [%& typ.p.result state.p.result(globals globals.state, molds molds.state)]

79658473 %branch

8474+ ?^ defer.state (dg-boolean-branch e env state)

79668475 ?~ arms.e [%| ["branch is not supported by partial inference" ~]]

79678476 ?~ t.arms.e

8477+ =/ empty-list=(unit iresult) (empty-list-null-branch e env state ~)

8478+ ?^ empty-list u.empty-list

8479+ =/ empty-union=(unit iresult) (known-empty-union-wing subject.e env state)

8480+ ?^ empty-union (infer-known-union-branch-subject e env u.empty-union)

8481+ =/ single=(unit iresult) (grec-single-wing-subject subject.e env state)

8482+ ?^ single (infer-known-union-branch-subject e env u.single)

79688483 ?: (single-structured-pattern e) (infer-single-case-branch e env state ~)

79698484 (infer-cell-branch e env state ~)

79708485 ?^ t.t.arms.e (infer-known-union-branch e env state)

@@ -8032,6 +8547,8 @@

80328547 =/ 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)

80338548 ?^ nested [%| u.nested]

80348549 [%| ["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)]]]]

8550+ ?: &(?=(^ defer.state.p.value) !(dg-stable-fit typ.p.value typ.u.target sub.fit))

8551+ [%| ["deferred cast fit needs stable inference" ~]]

80358552 =/ merged=itype (itype-merge-faces typ.p.value typ.u.target sub.fit)

80368553 [%& merged state.p.value(sub sub.fit, next next.fit)]

80378554 %crash [%& [%var next.state] state(next +(next.state))]

@@ -8081,6 +8598,234 @@

80818598 ?: ?=(%| -.out) [%| p.out]

80828599 [%& [e typ.p.out sub.state.p.out (flop projections.state.p.out)]]

80838600::

8601+:: Source-bound gate-layout evidence, confined to checked root gate

8602+:: definitions and direct unshadowed prelude calls. The prepared prelude

8603+:: interface and its retained source are trusted as a matching artifact.

8604+:: Layouts identify sample binder faces; they do not change call arity or

8605+:: authorize stripping nested value faces. Unknown origins use ordinary fit.

8606+++ direct-written-gates

8607+ |= [ds=(list def) out=ivisited]

8608+ ^- ivisited

8609+ ?~ ds out

8610+ ?: ?=(%mold -.i.ds) $(ds t.ds)

8611+ ?. |(?=(%gate -.val.i.ds) ?=(%gate-wide -.val.i.ds)) $(ds t.ds)

8612+ $(ds t.ds, out (~(put by out) name.i.ds &))

8613+++ direct-may-use-prelude

8614+ |= [ds=(list def) root=ivisited heads=ivisited]

8615+ ^- ?

8616+ ?~ ds |

8617+ ?: ?=(%mold -.i.ds) $(ds t.ds)

8618+ =/ refs=(list term) (dependency-expr val.i.ds)

8619+ =/ has-root=? (lien refs |=(n=term ?=(^ (~(get by root) n))))

8620+ =/ has-head=? (lien refs |=(n=term ?=(^ (~(get by heads) n))))

8621+ ?: &(has-root has-head) &

8622+ $(ds t.ds)

8623+++ direct-unique-names

8624+ |= [names=(list term) seen=ivisited]

8625+ ^- ?

8626+ ?~ names &

8627+ ?: ?=(^ (~(get by seen) i.names)) |

8628+ $(names t.names, seen (~(put by seen) i.names &))

8629+++ direct-prelude-evidence

8630+ |= [ds=(list def) prelude=(unit ifile)]

8631+ ^- (unit igate-prelude-evidence)

8632+ ?~ prelude ~

8633+ ?~ source.u.prelude ~

8634+ =/ root=ivisited (direct-written-gates ds ~)

8635+ =/ names=(list term) (turn values.u.prelude |=(e=[name=term scheme=ischeme] name.e))

8636+ =/ heads=ivisited (graph-nameset names ~)

8637+ ?. (direct-may-use-prelude ds root heads) ~

8638+ =/ parsed (parse at.u.prelude u.source.u.prelude)

8639+ ?: ?=(%| -.parsed) ~

8640+ ?^ (duplicate-defs defs.p.parsed) ~

8641+ ?. (direct-unique-names (global-value-names defs.p.parsed) ~) ~

8642+ =/ gates=(map term def) (direct-checked-gates defs.p.parsed values.u.prelude)

8643+ `[u.prelude gates]

8644+++ direct-checked-gates

8645+ |= [ds=(list def) env=ienv]

8646+ ^- (map term def)

8647+ =/ names=(list term) (turn env |=(e=[name=term scheme=ischeme] name.e))

8648+ =/ known=ivisited (graph-nameset names ~)

8649+ =/ out=(map term def) ~

8650+ |-

8651+ ?~ ds out

8652+ =/ d=def i.ds

8653+ ?: ?=(%mold -.d) $(ds t.ds)

8654+ ?. ?=(^ (~(get by known) name.d)) $(ds t.ds)

8655+ ?. |(?=(%gate -.val.d) ?=(%gate-wide -.val.d)) $(ds t.ds)

8656+ $(ds t.ds, out (~(put by out) name.d d))

8657+++ direct-find-gate

8658+ |= [n=term ds=(list def)]

8659+ ^- (unit def)

8660+ ?~ ds ~

8661+ ?: &(?=(%value -.i.ds) =(n name.i.ds)) `i.ds

8662+ $(ds t.ds)

8663+++ direct-gate-sample

8664+ |= d=def

8665+ ^- (unit sample)

8666+ ?. ?=(%value -.d) ~

8667+ ?- -.val.d

8668+ %gate `sample.val.d

8669+ %gate-wide `sample.val.d

8670+ * ~

8671+ ==

8672+++ direct-sample-name

8673+ |= sam=sample

8674+ ^- (unit term)

8675+ ?- -.sam

8676+ %bind `name.sam

8677+ %face `name.sam

8678+ %pun `name.sam

8679+ * ~

8680+ ==

8681+++ direct-field-name

8682+ |= f=field

8683+ ^- (unit term)

8684+ ?- -.f

8685+ %face `name.f

8686+ %pun `name.f

8687+ * ~

8688+ ==

8689+++ direct-slot-body

8690+ |= [typ=itype name=(unit term)]

8691+ ^- (unit itype)

8692+ ?~ name `typ

8693+ ?. ?=(%face -.typ) ~

8694+ ?. =(name.typ u.name) ~

8695+ `body.typ

8696+++ direct-invariant

8697+ |= [a=itype b=itype sub=isub next=@ud]

8698+ ^- ifit

8699+ ?: (itype-face-asym a b sub) [%unknown ~]

8700+ =/ forward=ifit (itype-fit a b sub next)

8701+ ?. ?=(%ok -.forward) [%unknown ~]

8702+ ?: (itype-face-asym a b sub.forward) [%unknown ~]

8703+ =/ reverse=ifit (itype-fit b a sub.forward next.forward)

8704+ ?. ?=(%ok -.reverse) [%unknown ~]

8705+ reverse

8706+++ direct-function-fit

8707+ |= [a=itype b=itype sam=sample sh=shape sub=isub next=@ud]

8708+ ^- ifit

8709+ ?. &(?=(%fn -.a) ?=(%fn -.b) ?=(%cell -.sam) ?=(%fn -.sh)) [%unknown ~]

8710+ ?. ?=(%cell -.sample.sh) [%unknown ~]

8711+ =/ as=(list sample) items.sam

8712+ =/ bs=(list field) fields.sample.sh

8713+ ?~ as [%unknown ~]

8714+ ?~ t.as [%unknown ~]

8715+ ?^ t.t.as [%unknown ~]

8716+ ?~ bs [%unknown ~]

8717+ ?~ t.bs [%unknown ~]

8718+ ?^ t.t.bs [%unknown ~]

8719+ ?. &(?=(%cell -.sample.a) ?=(%cell -.sample.b)) [%unknown ~]

8720+ =/ an=(unit term) (direct-sample-name i.as)

8721+ =/ bn=(unit term) (direct-field-name i.bs)

8722+ ?: &(?=(^ an) ?=(^ bn) !=(u.an u.bn)) [%unknown ~]

8723+ =/ x=(unit itype) (direct-slot-body hed.sample.a an)

8724+ =/ y=(unit itype) (direct-slot-body hed.sample.b bn)

8725+ ?~ x [%unknown ~]

8726+ ?~ y [%unknown ~]

8727+ =/ first=ifit (direct-invariant u.x u.y sub next)

8728+ ?. ?=(%ok -.first) [%unknown ~]

8729+ =. an (direct-sample-name i.t.as)

8730+ =. bn (direct-field-name i.t.bs)

8731+ ?: &(?=(^ an) ?=(^ bn) !=(u.an u.bn)) [%unknown ~]

8732+ =/ x2=(unit itype) (direct-slot-body tal.sample.a an)

8733+ =/ y2=(unit itype) (direct-slot-body tal.sample.b bn)

8734+ ?~ x2 [%unknown ~]

8735+ ?~ y2 [%unknown ~]

8736+ =/ second=ifit (direct-invariant u.x2 u.y2 sub.first next.first)

8737+ ?. ?=(%ok -.second) [%unknown ~]

8738+ (direct-invariant product.a product.b sub.second next.second)

8739+:: This is a tentative proof: its caller must require closed call samples

8740+:: and repeat every positional check under the stable final substitution.

8741+++ direct-positional-fit

8742+ |= [args=(list expr) slots=(list sample) actual=itype expected=itype env=ienv state=istate sub=isub next=@ud]

8743+ ^- ifit

8744+ ?~ args [%unknown ~]

8745+ ?~ slots [%unknown ~]

8746+ =/ last=? ?=(~ t.args)

8747+ ?: !=(last ?=(~ t.slots)) [%unknown ~]

8748+ =/ split=(unit [left=itype right=itype])

8749+ ?: last `[actual expected]

8750+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) ~

8751+ `[hed.actual hed.expected]

8752+ ?~ split [%unknown ~]

8753+ =/ x=itype left.u.split

8754+ =/ y=itype right.u.split

8755+ =/ expected-name=(unit term) (direct-sample-name i.slots)

8756+ =/ expected-body=(unit itype) (direct-slot-body y expected-name)

8757+ ?~ expected-body [%unknown ~]

8758+ =. y u.expected-body

8759+ =/ fit=ifit (itype-fit x y sub next)

8760+ =/ accepted=? &(?=(%ok -.fit) !(itype-positional-slot-face-asym x y sub.fit))

8761+ =/ result=(unit ifit)

8762+ ?: accepted `fit

8763+ ?. &(?=(%face -.i.slots) ?=(%fn -.shape.i.slots)) ~

8764+ ?. ?=(%wing -.i.args) ~

8765+ ?. ?=([@ ~] names.i.args) ~

8766+ ?. (unique-value-name i.names.i.args globals.state) ~

8767+ =/ source=(unit def) (~(get by gate-defs.state) i.names.i.args)

8768+ ?~ source ~

8769+ =/ sample=(unit sample) (direct-gate-sample u.source)

8770+ ?~ sample ~

8771+ =/ trial=ifit (direct-function-fit x y u.sample shape.i.slots sub next)

8772+ ?. ?=(%ok -.trial) ~

8773+ `trial

8774+ ?~ result [%unknown ~]

8775+ =. fit u.result

8776+ ?: last fit

8777+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) [%unknown ~]

8778+ ?. ?=(%ok -.fit) [%unknown ~]

8779+ $(args t.args, slots t.slots, actual tal.actual, expected tal.expected, sub sub.fit, next next.fit)

8780+++ direct-any-gate-arg

8781+ |= [args=(list expr) defs=(map term def)]

8782+ ^- ?

8783+ ?~ args |

8784+ =/ found=?

8785+ ?. ?=(%wing -.i.args) |

8786+ ?. ?=([@ ~] names.i.args) |

8787+ ?=(^ (~(get by defs) i.names.i.args))

8788+ ?: found &

8789+ $(args t.args)

8790+++ direct-gate-call-fit

8791+ |= [e=expr actual=itype expected=itype env=ienv state=istate]

8792+ ^- (unit ifit)

8793+ ?. ?=(%call -.e) ~

8794+ ?~ args.e ~

8795+ ?~ t.args.e ~

8796+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) ~

8797+ ?. ?=(%wing -.head.e) ~

8798+ ?. ?=([@ ~] names.head.e) ~

8799+ ?. ?=(~ (ienv-lookup i.names.head.e env)) ~

8800+ ?. (unique-value-name i.names.head.e globals.state) ~

8801+ ?. (direct-any-gate-arg args.e gate-defs.state) ~

8802+ ?~ prelude.state ~

8803+ ?~ source.u.prelude.state ~

8804+ ?~ head-evidence.state ~

8805+ ?. =(u.prelude.state iface.u.head-evidence.state) ~

8806+ ?. ?=(^ (ienv-lookup i.names.head.e values.u.prelude.state)) ~

8807+ =/ head=(unit def) (~(get by gates.u.head-evidence.state) i.names.head.e)

8808+ ?~ head ~

8809+ =/ sam=(unit sample) (direct-gate-sample u.head)

8810+ ?~ sam ~

8811+ ?. ?=(%cell -.u.sam) ~

8812+ =/ fit=ifit (direct-positional-fit args.e items.u.sam actual expected env state sub.state next.state)

8813+ ?. ?=(%ok -.fit) ~

8814+ :: Enclosing inference may add constraints after this call. Only a

8815+ :: closed call-sample proof can remain stable under those later bindings.

8816+ =/ actual-final=itype (itype-normalize actual sub.fit)

8817+ =/ expected-final=itype (itype-normalize expected sub.fit)

8818+ ?^ (itype-vars actual-final) ~

8819+ ?^ (itype-vars expected-final) ~

8820+ ?: |((itype-has-tag actual-final) (itype-has-tag expected-final)) ~

8821+ :: A later argument may resolve a variable used by an earlier slot.

8822+ :: Recheck every fit and face against the completed substitution; no

8823+ :: additional binding or fresh variable is permitted in the second pass.

8824+ =/ verified=ifit (direct-positional-fit args.e items.u.sam actual expected env state sub.fit next.fit)

8825+ ?. ?=(%ok -.verified) ~

8826+ ?. &(=(sub.fit sub.verified) =(next.fit next.verified)) ~

8827+ `fit

8828+::

80848829++ infer-call-with-head

80858830 |= [e=expr env=ienv state=istate head=iresult]

80868831 ^- iresult

@@ -8107,7 +8852,17 @@

81078852 =/ fit=ifit

81088853 ?^ t.args.e (itype-fit-inner typ.p.arg sample.ht sub.st next.st & |)

81098854 (itype-fit typ.p.arg sample.ht sub.st next.st)

8110− ?: ?=(%unknown -.fit) [%| ["call constraint is not supported by partial inference" ~]]

8855+ =/ direct=(unit ifit)

8856+ ?: ?=(%ok -.fit) ~

8857+ (direct-gate-call-fit e typ.p.arg sample.ht env st)

8858+ =. fit ?~(direct fit u.direct)

8859+ ?: ?=(%unknown -.fit)

8860+ ?~ defer.st [%| ["call constraint is not supported by partial inference" ~]]

8861+ =/ edge=(unit dgo) (dg-eligible-ctor e typ.p.head typ.p.arg sample.ht st)

8862+ ?~ edge [%| ["call constraint is not supported by partial inference" ~]]

8863+ ?: (gth (lent obligations.st) 63) [%| ["call constraint is not supported by partial inference" ~]]

8864+ [%& product.ht st(obligations [u.edge obligations.st])]

8865+

81118866 ?: ?=(%bad -.fit)

81128867 ?~ t.args.e

81138868 =/ missing=(unit idiag) (missing-union-tag i.args.e sample.ht sub.st (span-of head.e))

@@ -8122,7 +8877,10 @@

81228877 =/ arg-at=span ?~(bad whole-args at.u.bad)

81238878 =/ arg-type=itype ?~(bad typ.p.arg typ.u.bad)

81248879 [%| ["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)]]]]

8880+ ?: &(?=(^ defer.st) !(dg-stable-call-fit typ.p.arg sample.ht product.ht sub.fit ?=(^ t.args.e)))

8881+ [%| ["deferred call fit needs stable inference" ~]]

81258882 =/ face-asym=?

8883+ ?^ direct |

81268884 ?^ t.args.e (itype-positional-face-asym args.e typ.p.arg sample.ht sub.fit)

81278885 (itype-face-asym typ.p.arg sample.ht sub.fit)

81288886 ?: &((itype-has-face typ.p.arg sub.fit) face-asym (itype-output-may-be-cell product.ht sub.fit))

@@ -8189,9 +8947,10 @@

81898947 [%| ["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)]]]]

81908948 [%& expected state.p.value(sub sub.fit, next next.fit)]

81918949::

8192−:: A known gate whose result is still an inference variable can receive

8193−:: an enclosing target before its argument is inferred. Other products

8194−:: and unresolved calls use the existing directional path unchanged.

8950+:: A known gate may receive an enclosing target before its argument is

8951+:: inferred when its result is open or a direct, matching named generic

8952+:: union. Opaque, recursive, tag-constrained and variable-bound union

8953+:: results keep the existing directional path.

81958954++ infer-contextual-call

81968955 |= [e=expr expected=itype env=ienv state=istate]

81978956 ^- iresult

@@ -8202,7 +8961,31 @@

82028961 =/ ht=itype (itype-walk typ.p.head sub.state.p.head)

82038962 ?. ?=(%fn -.ht) (infer-call-with-head e env state head)

82048963 =/ result=itype (itype-walk product.ht sub.state.p.head)

8205− ?. ?=(%var -.result) (infer-call-with-head e env state head)

8964+ =/ eligible=?

8965+ ?: ?=(%var -.result) &

8966+ :: A direct known generic union may receive the same nominal result

8967+ :: context before its arguments are checked. Variable-bound origins,

8968+ :: pending tags, recursive identities and unknown atoms stay open.

8969+ ?. &(?=(%union -.product.ht) ?=(%union -.result) ?=(%union -.expected)) |

8970+ ?~ origin.result |

8971+ ?. =(origin.result origin.expected) |

8972+ ?~ args.result |

8973+ ?. =((lent args.result) (lent args.expected)) |

8974+ ?: |((itype-has-tag (itype-normalize result sub.state.p.head)) (itype-has-tag (itype-normalize expected sub.state.p.head))) |

8975+ =/ result-recursive=? (itype-has-recursive (itype-normalize result sub.state.p.head))

8976+ =/ expected-recursive=? (itype-has-recursive (itype-normalize expected sub.state.p.head))

8977+ =/ result-ok=?

8978+ ?. result-recursive &

8979+ ?~ prelude.state |

8980+ &(=(at.u.prelude.state /lib/jibb/prelude/jibb) =(origin.result `[at.u.prelude.state %element]))

8981+ =/ expected-ok=?

8982+ ?. expected-recursive &

8983+ ?~ prelude.state |

8984+ &(=(at.u.prelude.state /lib/jibb/prelude/jibb) =(origin.expected `[at.u.prelude.state %element]))

8985+ ?. &(result-ok expected-ok) |

8986+ ?: |((itype-has-any-atom result sub.state.p.head) (itype-has-any-atom expected sub.state.p.head)) |

8987+ &

8988+ ?. eligible (infer-call-with-head e env state head)

82068989 ?: |(?=(%var -.expected) ?=(%avar -.expected) ?=(%rvar -.expected) |(?=(%nvar -.expected) ?=(%rnvar -.expected)) (itype-has-tag (itype-normalize expected sub.state.p.head)))

82078990 (infer-call-with-head e env state head)

82088991 =/ sub=(unit isub) (itype-unify result expected sub.state.p.head)

@@ -8290,9 +9073,199 @@

82909073 =/ st=istate state.p.value(sub sub.u.project, next next.u.project)

82919074 [%& expected st(projections [[at.e e typ.p.value expected steps.u.project] projections.st])]

82929075::

9076+:: A known literal singleton in a direct union can contextualize a

9077+:: loobean literal of the same noun. Only explicit singleton and cell

9078+:: competitors are considered; opaque or variable cases stay unknown.

9079+++ explicit-singleton-in-union

9080+ |= [t=itype noun=@]

9081+ ^- ?

9082+ ?. ?=(%union -.t) |

9083+ =/ cases=(list itype) cases.t

9084+ =/ found=? |

9085+ |-

9086+ ?~ cases found

9087+ =/ c=itype i.cases

9088+ ?: ?=(%cell -.c) $(cases t.cases)

9089+ ?. ?=(%const -.c) |

9090+ ?: =(noun val.literal.c)

9091+ ?: found |

9092+ $(cases t.cases, found &)

9093+ $(cases t.cases)

9094+::

9095+:: Select a written literal-headed case only when every competing case is

9096+:: also an explicit singleton-headed cell and exactly one matches. Opaque,

9097+:: variable-bound and differently shaped cases keep inference unchanged.

9098+:: This first slice supplies context to a directly called payload. Plain

9099+:: literal data and other expressions retain their existing inference path.

9100+++ contextual-atomic-arguments

9101+ |= args=(list expr)

9102+ ^- ?

9103+ ?~ args &

9104+ ?. ?=(?(%lit %wing %ctor) -.i.args) |

9105+ $(args t.args)

9106+++ contextual-direct-payload-call

9107+ |= e=expr

9108+ ^- ?

9109+ ?: ?=(%group -.e) $(e inner.e)

9110+ ?. ?=(%call -.e) |

9111+ ?. ?=(%wing -.head.e) |

9112+ ?~ args.e |

9113+ (contextual-atomic-arguments args.e)

9114+::

9115+:: A walked variable may have concealed a union inside a substituted

9116+:: structure before this arm was called. Decline in that case rather than

9117+:: deriving provenance from the already-walked type.

9118+++ contextual-simple-sub

9119+ |= sub=isub

9120+ ^- ?

9121+ ?~ sub &

9122+ ?: ?=(?(%cell %face %fn %union %collection) -.val.i.sub) |

9123+ $(sub t.sub)

9124+::

9125+:: Check the syntactic root before scanning; scan substitutions once.

9126+++ grec-direct-context

9127+ |= [expected=itype sub=isub]

9128+ ^- ?

9129+ =/ left=@ud 4.096

9130+ |-

9131+ ?: ?=(%face -.expected)

9132+ ?: =(0 left) |

9133+ $(expected body.expected, left (dec left))

9134+ ?. ?=(%grec -.expected) |

9135+ ?~ sub &

9136+ ?: =(0 left) |

9137+ ?: ?=(?(%cell %face %fn %union %collection %grec) -.val.i.sub) |

9138+ $(sub t.sub, left (dec left))

9139+++ contextual-direct-union

9140+ |= target=itype

9141+ ^- ?

9142+ ?: ?=(%face -.target) $(target body.target)

9143+ ?=(%union -.target)

9144+++ contextual-tagged-case

9145+ |= [target=itype tag=@ sub=isub]

9146+ ^- (unit itype)

9147+ ?. ?=(%union -.target) ~

9148+ =/ remaining=(list itype) cases.target

9149+ =/ found=(unit itype) ~

9150+ =/ seen=(set @) *(set @)

9151+ |-

9152+ ?~ remaining found

9153+ =/ c=itype i.remaining

9154+ ?. ?=(%cell -.c) ~

9155+ =/ head=itype hed.c

9156+ ?. ?=(%const -.head) ~

9157+ ?: (~(has in:..zuse seen) val.literal.head) ~

9158+ =. seen (~(put in:..zuse seen) val.literal.head)

9159+ ?: =(tag val.literal.head)

9160+ $(remaining t.remaining, found `c)

9161+ $(remaining t.remaining)

9162+::

9163+:: A bounded syntactic screen: no nested branch, cast, gate or local body

9164+:: can re-enter cell-branch retry during either inference attempt.

9165+++ closed-cell-retry-safe

9166+ |= [todo=(list expr) fuel=@ud]

9167+ ^- ?

9168+ ?~ todo &

9169+ ?: =(0 fuel) |

9170+ =/ e=expr i.todo

9171+ =. fuel (dec fuel)

9172+ ?+ -.e |

9173+ %lit $(todo t.todo)

9174+ %wing $(todo t.todo)

9175+ %ctor $(todo t.todo)

9176+ %path $(todo t.todo)

9177+ %crash $(todo t.todo)

9178+ %str

9179+ ?. (levy pieces.e |=(p=piece ?=(%text -.p))) |

9180+ $(todo t.todo)

9181+ %group $(todo [inner.e t.todo])

9182+ %pair $(todo [val.e t.todo])

9183+ %unit $(todo [val.e t.todo])

9184+ %list $(todo (weld items.e t.todo))

9185+ %tuple $(todo (weld (turn items.e |=(i=item val.i)) t.todo))

9186+ %change $(todo (weld (turn edits.e |=(ed=edit val.ed)) t.todo))

9187+ %call $(todo [head.e (weld args.e t.todo)])

9188+ %trace $(todo [val.e then.e t.todo])

9189+ ==

9190+::

9191+++ closed-cell-sub-safe

9192+ |= [sub=isub fuel=@ud]

9193+ ^- ?

9194+ ?~ sub &

9195+ ?: =(0 fuel) |

9196+ ?: ?=(?(%cell %face %fn %union %collection %grec %jrec %recursive) -.val.i.sub) |

9197+ $(sub t.sub, fuel (dec fuel))

9198+::

9199+++ closed-cell-branch-eligible

9200+ |= [e=expr expected=itype sub=isub]

9201+ ^- ?

9202+ ?. &(?=(%branch -.e) ?=(%cell -.expected) (closed-cell-sub-safe sub 512)) |

9203+ ?~ arms.e |

9204+ ?~ t.arms.e |

9205+ ?^ t.t.arms.e |

9206+ =/ x=arm i.arms.e

9207+ =/ y=arm i.t.arms.e

9208+ ?. &(?=(%lit -.pat.x) ?=(%lit -.pat.y)) |

9209+ ?. &(=(%loobean form.lit.pat.x) =(%loobean form.lit.pat.y)) |

9210+ ?: =(val.lit.pat.x val.lit.pat.y) |

9211+ (closed-cell-retry-safe ~[subject.e val.x val.y] 512)

9212+::

9213+:: Attempt ordinary inference first; retry from the same state only for

9214+:: the bounded non-reentrant syntax above. Preserve original value faces.

9215+++ infer-closed-cell-branch

9216+ |= [e=expr expected=itype env=ienv state=istate context=span]

9217+ ^- iresult

9218+ ?> (closed-cell-branch-eligible e expected sub.state)

9219+ ?> ?=(%branch -.e)

9220+ ?> ?=(^ arms.e)

9221+ ?> ?=(^ t.arms.e)

9222+ =/ ordinary=iresult (infer-fragment e env state)

9223+ =/ ordinary-good=?

9224+ ?: ?=(%| -.ordinary) |

9225+ =/ fit=ifit (itype-fit typ.p.ordinary expected sub.state.p.ordinary next.state.p.ordinary)

9226+ ?=(%ok -.fit)

9227+ ?: ordinary-good ordinary

9228+ =/ attempt=(unit iresult)

9229+ =/ x=arm i.arms.e

9230+ =/ y=arm i.t.arms.e

9231+ =/ subject=iresult (infer-fragment subject.e env state)

9232+ ?: ?=(%| -.subject) ~

9233+ =/ subject-type=itype (itype-normalize typ.p.subject sub.state.p.subject)

9234+ ?: ?=(%union -.subject-type) ~

9235+ =/ su=(unit isub) (itype-unify typ.p.subject [%flag ~] sub.state.p.subject)

9236+ ?~ su ~

9237+ =/ left=iresult (infer-call-context-arg val.x expected env state.p.subject(sub u.su) context)

9238+ ?: ?=(%| -.left) ~

9239+ =/ lf=ifit (itype-fit typ.p.left expected sub.state.p.left next.state.p.left)

9240+ ?. ?=(%ok -.lf) ~

9241+ =/ right=iresult (infer-call-context-arg val.y expected env state.p.left(sub sub.lf, next next.lf) context)

9242+ ?: ?=(%| -.right) ~

9243+ =/ rf=ifit (itype-fit typ.p.right expected sub.state.p.right next.state.p.right)

9244+ ?. ?=(%ok -.rf) ~

9245+ =/ sub=isub sub.rf

9246+ =/ next=@ud next.rf

9247+ =/ lt=itype (itype-normalize typ.p.left sub)

9248+ =/ rt=itype (itype-normalize typ.p.right sub)

9249+ =/ et=itype (itype-normalize expected sub)

9250+ ?. =(lt rt) ~

9251+ ?: |(?=(^ (itype-vars lt)) ?=(^ (itype-vars rt)) ?=(^ (itype-vars et))) ~

9252+ ?: |((itype-has-tag lt) (itype-has-tag rt) (itype-has-tag et)) ~

9253+ =/ lcheck=ifit (itype-fit typ.p.left expected sub next)

9254+ ?. ?=(%ok -.lcheck) ~

9255+ ?. &(=(sub.lcheck sub) =(next.lcheck next)) ~

9256+ =/ rcheck=ifit (itype-fit typ.p.right expected sub next)

9257+ ?. ?=(%ok -.rcheck) ~

9258+ ?. &(=(sub.rcheck sub) =(next.rcheck next)) ~

9259+ `[%& typ.p.left state.p.right(sub sub, next next)]

9260+ ?~ attempt ordinary

9261+ u.attempt

9262+::

82939263++ infer-call-context-arg

82949264 |= [e=expr expected=itype env=ienv state=istate context=span]

82959265 ^- iresult

9266+ ?: &(?=(^ defer.state) ?=(%branch -.e)) (infer-fragment e env state)

9267+ ?: &(?=(^ defer.state) ?=(^ prelude.state) ?=(%tuple -.e))

9268+ (infer-fragment e env state)

82969269 ?: ?=(%pair -.e) $(e (pair-as-cell e))

82979270 ?: ?=(%group -.e) $(e inner.e)

82989271 ?: &(?=(%body -.e) ?=(~ defs.e)) $(e final.e)

@@ -8305,6 +9278,23 @@

83059278 ?: ?=(%face -.target) $(target (itype-walk body.target sub.state))

83069279 ?: (explicit-proj-call e env state)

83079280 (infer-proj-context e expected env state context)

9281+ :: Experimental construction only for a source-proven direct target.

9282+ :: Decline any walked structural binding to retain raw-variable provenance.

9283+ ?: &(?=(%grec -.target) ?=(%tuple -.e) (grec-direct-context expected sub.state))

9284+ =/ unfolded=(unit [view=itype left=@ud]) (grec-unfold-view target jrec-fuel.state)

9285+ ?~ unfolded [%| ["recursive mold unfolding needs unsupported inference" ~]]

9286+ ?~ items.e [%| ["recursive mold constructor needs unsupported inference" ~]]

9287+ =/ first=item i.items.e

9288+ ?. &(?=(~ face.first) ?=(%lit -.val.first) =(%term form.lit.val.first))

9289+ [%| ["recursive mold constructor needs unsupported inference" ~]]

9290+ =/ chosen=(unit itype) (contextual-tagged-case view.u.unfolded val.lit.val.first sub.state)

9291+ ?~ chosen [%| ["recursive mold constructor has no matching case" ~]]

9292+ =/ value=iresult (infer-call-context-items items.e u.chosen env state(jrec-fuel left.u.unfolded) context)

9293+ ?: ?=(%| -.value) value

9294+ =/ fit=ifit (itype-fit typ.p.value u.chosen sub.state.p.value next.state.p.value)

9295+ ?: ?=(%unknown -.fit) [%| ["recursive mold case needs unsupported inference" ~]]

9296+ ?: ?=(%bad -.fit) [%| ["recursive mold case does not fit its source shape" ~]]

9297+ [%& target state.p.value(sub sub.fit, next next.fit)]

83089298 :: Only the source-proven one-layer cell is exposed. Each recursive

83099299 :: descent consumes one written tuple; named values use ordinary fit.

83109300 ?: &(?=(%jrec -.target) ?=(%lit -.e) =(%null form.lit.e))

@@ -8322,17 +9312,23 @@

83229312 ?: ?=(%bad -.fit) [%| ["recursive mold cell does not fit its source shape" ~]]

83239313 [%& target state.p.value(sub sub.fit, next next.fit)]

83249314 ?: ?=(%call -.e) (infer-contextual-call e target env state)

9315+ =/ empty-list=(unit iresult) (empty-list-null-branch e env state `[target context])

9316+ ?^ empty-list u.empty-list

83259317 ?: (single-structured-pattern e)

9318+ ?> ?=(%branch -.e)

9319+ =/ empty-union=(unit iresult) (known-empty-union-wing subject.e env state)

9320+ ?^ empty-union (infer-known-union-context-subject e target env u.empty-union context)

9321+ =/ single=(unit iresult) (grec-single-wing-subject subject.e env state)

9322+ ?^ single (infer-known-union-context-subject e target env u.single context)

83269323 (infer-single-case-branch e env state `[target context])

83279324 ?: (cell-binder-pattern e)

83289325 (infer-cell-branch e env state `[target context])

8329− :: In a loobean-singleton context retain the written loobean noun;

8330− :: the usual final fit decides whether that value is permitted.

9326+ :: In an explicit singleton context retain the written loobean noun;

9327+ :: the ordinary singleton fit compares its noun, not its spelling.

83319328 =/ singleton=(unit itype)

83329329 ?. ?=(%lit -.e) ~

83339330 ?. =(%loobean form.lit.e) ~

8334− ?. ?=(%const -.target) ~

8335− ?. =(%loobean form.literal.target) ~

9331+ ?. |(?=(%const -.target) &(?=(%union -.expected) (explicit-singleton-in-union expected val.lit.e))) ~

83369332 `[%const lit.e]

83379333 ?^ singleton [%& u.singleton state]

83389334 =/ known=(unit iresult)

@@ -8343,6 +9339,8 @@

83439339 (infer-known-union-context-subject e target env u.known context)

83449340 ?: &(?=(%union -.target) ?=(%unit -.e))

83459341 (infer-unit-context e target env state context)

9342+ ?: (closed-cell-branch-eligible e expected sub.state)

9343+ (infer-closed-cell-branch e expected env state context)

83469344 ?: &(?=(%flag -.target) (context-union-branch e))

83479345 (infer-union-context e target env state context)

83489346 ?: &(?=(%union -.target) (context-union-branch e))

@@ -8351,6 +9349,34 @@

83519349 (infer-union-context e target env state context)

83529350 ?: &(?=(%collection -.target) =(%list name.target) (context-list-expression e))

83539351 (infer-list-context e target env state context)

9352+ :: A literal-headed tuple can receive the unique case's payload

9353+ :: context. The ordinary final fit still checks the complete union.

9354+ =/ selected=(unit itype)

9355+ ?. &((contextual-simple-sub sub.state) (contextual-direct-union expected) ?=(%union -.target) ?=(%tuple -.e) ?=(^ items.e)) ~

9356+ ?~ t.items.e ~

9357+ ?^ t.t.items.e ~

9358+ ?. (contextual-direct-payload-call val.i.t.items.e) ~

9359+ =/ first=item i.items.e

9360+ ?. &(?=(~ face.first) ?=(%lit -.val.first) |(=(%term form.lit.val.first) =(%null form.lit.val.first) =(%loobean form.lit.val.first))) ~

9361+ (contextual-tagged-case target val.lit.val.first sub.state)

9362+ ?^ selected

9363+ ?> ?=(%tuple -.e)

9364+ :: On this bounded shallow-call shape, preserve any inference that

9365+ :: already fits before trying the new contextual path. Neither pass

9366+ :: can recursively select a nested tuple from the atomic arguments.

9367+ =/ ordinary=(unit iresult)

9368+ =/ initial=iresult (infer-fragment e env state)

9369+ ?: ?=(%| -.initial) ~

9370+ =/ fit=ifit (itype-fit typ.p.initial target sub.state.p.initial next.state.p.initial)

9371+ ?. ?=(%ok -.fit) ~

9372+ `initial

9373+ ?^ ordinary u.ordinary

9374+ =/ value=iresult (infer-call-context-items items.e u.selected env state context)

9375+ ?: ?=(%| -.value) value

9376+ =/ fit=ifit (itype-fit typ.p.value u.selected sub.state.p.value next.state.p.value)

9377+ ?: ?=(%unknown -.fit) [%| ["tagged case needs unsupported inference" ~]]

9378+ ?: ?=(%bad -.fit) [%| ["tagged case does not fit its expected type" ~[[context "expected union case"] [(span-of e) "value"]]]]

9379+ [%& typ.p.value state.p.value(sub sub.fit, next next.fit)]

83549380 ?: &(?=(%cell -.target) ?=(%tuple -.e))

83559381 (infer-call-context-items items.e target env state context)

83569382 (infer-fragment e env state)

@@ -8453,7 +9479,7 @@

84539479 ?~ t.names |

84549480 =. typ (itype-walk typ sub)

84559481 ?: ?=(%cell -.typ) $(typ tal.typ, names t.names)

8456− |(?=(%union -.typ) ?=(%collection -.typ) ?=(%recursive -.typ) ?=(%jrec -.typ) ?=(%noun -.typ) ?=(%fn -.typ) ?=(%tag -.typ))

9482+ |(?=(%union -.typ) ?=(%collection -.typ) ?=(%recursive -.typ) ?=(%jrec -.typ) ?=(%grec -.typ) ?=(%noun -.typ) ?=(%fn -.typ) ?=(%tag -.typ))

84579483::

84589484++ cell-binder-pattern

84599485 |= e=expr

@@ -8524,6 +9550,7 @@

85249550 %any-atom "@"

85259551 %flag "?"

85269552 %noun "*"

9553+ %empty "!!"

85279554 %tag (trip txt.literal.t)

85289555 %const (trip txt.literal.t)

85299556 %union

@@ -8532,6 +9559,7 @@

85329559 "({(trip u.label.t)} {(show-itype-cases args.t sub)})"

85339560 %recursive ?~(label.t "recursive mold" (trip u.label.t))

85349561 %jrec ?~(label.t "recursive mold" (trip u.label.t))

9562+ %grec ?~(label.t "recursive mold" "({(trip u.label.t)} {(show-itype-cases args.t sub)})")

85359563 %collection "({(trip name.t)} {(show-itype-cases args.t sub)})"

85369564 %face "[{(trip name.t)}={(show-itype-context body.t sub)}]"

85379565 %fn "$-({(show-itype-context sample.t sub)} {(show-itype-context product.t sub)})"

@@ -8575,11 +9603,13 @@

85759603 %any-atom |

85769604 %flag |

85779605 %noun |

9606+ %empty |

85789607 %tag |

85799608 %const |

85809609 %union |((lien cases.typ |=(c=itype (itype-has-nvar c))) (lien args.typ |=(c=itype (itype-has-nvar c))))

85819610 %recursive |

85829611 %jrec |

9612+ %grec (lien args.typ |=(c=itype (itype-has-nvar c)))

85839613 %collection (lien args.typ |=(c=itype (itype-has-nvar c)))

85849614 %face $(typ body.typ)

85859615 %fn |($(typ sample.typ) $(typ product.typ))

@@ -8691,11 +9721,13 @@

86919721 %any-atom |

86929722 %flag |

86939723 %noun |

9724+ %empty |

86949725 %tag |

86959726 %const |

86969727 %union |((lien cases.t |=(c=itype (has-atom-var n c))) (lien args.t |=(c=itype (has-atom-var n c))))

86979728 %recursive |

86989729 %jrec |

9730+ %grec (lien args.t |=(c=itype (has-atom-var n c)))

86999731 %collection (lien args.t |=(c=itype (has-atom-var n c)))

87009732 %face $(t body.t)

87019733 %fn |($(t sample.t) $(t product.t))

@@ -8839,6 +9871,8 @@

88399871++ infer-recursive-gate

88409872 |= [d=def env=ienv state=istate]

88419873 ^- iresult

9874+ ?^ defer.state [%| ["deferred recursive inference is unsupported" ~]]

9875+ =. gate-defs.state ~

88429876 ?. ?=(%value -.d) [%| ["recursive definition is not a gate" ~]]

88439877 ?. |(?=(%gate -.val.d) ?=(%gate-wide -.val.d))

88449878 [%| ["recursive definition is not a gate" ~]]

@@ -9062,12 +10096,13 @@

906210096++ infer-gate-group

906310097 |= [ds=(list def) env=ienv state=istate]

906410098 ^- ilocal-result

10099+ ?^ defer.state [%| ["deferred recursive inference is unsupported" ~]]

906510100 =/ names=(list term) (global-value-names ds)

906610101 ?. (levy names |=(n=term (unique-value-name n names)))

906710102 [%| ["recursive group contains duplicate names" ~]]

906810103 ?: (lien names |=(n=term ?=(^ (ienv-lookup n env))))

906910104 [%| ["recursive group shadows a name" ~]]

9070− =/ scoped=istate state(globals (weld names globals.state))

10105+ =/ scoped=istate state(globals (weld names globals.state), gate-defs ~)

907110106 =/ seeded=igate-seeds (seed-gate-group ds env scoped)

907210107 ?: ?=(%| -.seeded) seeded

907310108 =/ seeds=ienv (group-seed-env entries.p.seeded ~)

@@ -9101,35 +10136,11 @@

910110136 `[entry u.rest]

910210137::

910310138++ add-supported-defs

9104− |= [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) artifacts=(list iwidth-definition)]

10139+ |= [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)]

910510140 ^- [env=ienv artifacts=(list iwidth-definition)]

9106− ?~ ds [env artifacts]

9107− =/ d=def i.ds

9108− ?: ?=(%mold -.d) $(ds t.ds)

9109− ?. (unique-value-name name.d globals) $(ds t.ds)

9110− ?^ (ienv-lookup name.d env) $(ds t.ds)

9111− =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

9112− =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | at top prelude ~ 256 ~]

9113− =. initial (reserve-def-caps val.d initial)

9114− =/ result=iresult (infer-fragment val.d env initial)

9115− =? result ?=(%| -.result) (infer-recursive-gate d env initial)

9116− ?: ?=(%| -.result) $(ds t.ds)

9117− =. state.p.result (promote-restricted-numbers state.p.result env)

9118− =. 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)))

9119− ?^ (unresolved-hole holes.state.p.result holes.initial state.p.result) $(ds t.ds)

9120− ?: (constrained-capitals caps.state.p.result sub.state.p.result) $(ds t.ds)

9121− =/ typ=itype (default-decimals (itype-normalize typ.p.result sub.state.p.result))

9122− ?: |((pending-tags tags.state.p.result sub.state.p.result) (itype-has-tag typ)) $(ds t.ds)

9123− ?: (unsupported-atom-vars typ caps.state.p.result binders.state.p.result sub.state.p.result) $(ds t.ds)

9124− =/ vars=(list @ud) (unique-type-vars (itype-vars typ))

9125− ?: (gth (lent vars) 26) $(ds t.ds)

9126− =/ finalized=(unit (list iwprojection))

9127− (width-finalize projections.state.p.result sub.state.p.result vars)

9128− ?~ finalized $(ds t.ds)

9129− =? artifacts ?=(^ u.finalized)

9130− [[name.d val.d typ sub.state.p.result (flop u.finalized)] artifacts]

9131− $(ds t.ds, env [[name.d [typ vars]] env])

10141+ (add-supported-defs-core ds all-defs checked heads env molds globals externals surs mark-externals marks jimports reserved-molds at prelude artifacts ~)

913210142::

10143+

913310144+$ iresolved [env=ienv grouped=(list term) artifacts=(list iwidth-definition)]

913410145+$ iadj (map term (list term))

913510146+$ ivisited (map term ?)

@@ -9243,6 +10254,57 @@

924310254++ resolve-groups

924410255 |= [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)]

924510256 ^- iresolved

10257+ (resolve-groups-core ds molds globals externals surs mark-externals marks jimports reserved-molds at prelude ~)

10258+::

10259+

10260++$ iadded-definition

10261+ [env=ienv checked=(map term def) artifacts=(list iwidth-definition)]

10262+++ add-supported-result

10263+ |= [d=def result=iresult initial=istate env=ienv checked=(map term def) artifacts=(list iwidth-definition)]

10264+ ^- (unit iadded-definition)

10265+ ?> ?=(%value -.d)

10266+ ?: ?=(%| -.result) ~

10267+ =. state.p.result (promote-restricted-numbers state.p.result env)

10268+ =. 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)))

10269+ ?^ (unresolved-hole holes.state.p.result holes.initial state.p.result) ~

10270+ ?: (constrained-capitals caps.state.p.result sub.state.p.result) ~

10271+ =/ typ=itype (default-decimals (itype-normalize typ.p.result sub.state.p.result))

10272+ ?: |((pending-tags tags.state.p.result sub.state.p.result) (itype-has-tag typ)) ~

10273+ ?: (unsupported-atom-vars typ caps.state.p.result binders.state.p.result sub.state.p.result) ~

10274+ =/ vars=(list @ud) (unique-type-vars (itype-vars typ))

10275+ ?: (gth (lent vars) 26) ~

10276+ =/ finalized=(unit (list iwprojection))

10277+ (width-finalize projections.state.p.result sub.state.p.result vars)

10278+ ?~ finalized ~

10279+ =? artifacts ?=(^ u.finalized)

10280+ [[name.d val.d typ sub.state.p.result (flop u.finalized)] artifacts]

10281+ =? checked |(?=(%gate -.val.d) ?=(%gate-wide -.val.d)) (~(put by checked) name.d d)

10282+ `[[[name.d [typ vars]] env] checked artifacts]

10283+++ add-supported-defs-core

10284+ |= [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)])]

10285+ ^- [env=ienv artifacts=(list iwidth-definition)]

10286+ ?~ ds [env artifacts]

10287+ =/ d=def i.ds

10288+ ?: ?=(%mold -.d) $(ds t.ds)

10289+ ?: (lien (program-recovery-names all-defs) |=(n=term =(n name.d))) $(ds t.ds)

10290+ ?. (unique-value-name name.d globals) $(ds t.ds)

10291+ ?^ (ienv-lookup name.d env) $(ds t.ds)

10292+ =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

10293+ =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | at top prelude ~ 256 ~ ~ ~ ~ ~ ~]

10294+ =. grec-index.initial index

10295+ =. gate-defs.initial checked

10296+ =. head-evidence.initial heads

10297+ =. initial (reserve-def-caps val.d initial)

10298+ =/ result=iresult (infer-fragment val.d env initial)

10299+ =? result ?=(%| -.result) (infer-recursive-gate d env initial)

10300+ =/ added=(unit iadded-definition)

10301+ (add-supported-result d result initial env checked artifacts)

10302+ ?~ added $(ds t.ds)

10303+ $(ds t.ds, env env.u.added, checked checked.u.added, artifacts artifacts.u.added)

10304+::

10305+++ resolve-groups-core

10306+ |= [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)])]

10307+ ^- iresolved

924610308 =/ env=ienv ~

924710309 =/ grouped=(list term) ~

924810310 =/ artifacts=(list iwidth-definition) ~

@@ -9251,10 +10313,12 @@

925110313 =/ graph=iadj (graph-make-forward ds nameset ~)

925210314 =/ components=icomponents (graph-components ds names)

925310315 =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

10316+ =/ heads=(unit igate-prelude-evidence) (direct-prelude-evidence ds prelude)

925410317 |-

925510318 =/ next=[env=ienv artifacts=(list iwidth-definition)]

9256− (add-supported-defs ds env molds globals externals surs mark-externals marks jimports reserved-molds at prelude artifacts)

9257− =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | at top prelude ~ 256 ~]

10319+ (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)

10320+ =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | at top prelude ~ 256 ~ ~ ~ ~ ~ ~]

10321+ =. grec-index.initial index

925810322 =/ out=iresolved (add-groups ds components graph env.next grouped artifacts.next initial)

925910323 ?: =(env env.out) out

926010324 $(env env.out, grouped grouped.out, artifacts artifacts.out)

@@ -9503,42 +10567,293 @@

950310567 %overlap

950410568 %unknown

950510569::

9506−++ union-pairs

9507− |= [cases=(list shape) molds=imolds]

9508− ^- (list upair)

9509− ?~ cases ~

9510− =/ first=shape i.cases

9511− =/ a=upat (project-union-mold first molds ~)

9512− =/ pairs=(list upair)

9513− %+ turn t.cases

9514− |= second=shape

9515− ^- upair

9516− [at.first at.second (union-relate a (project-union-mold second molds ~))]

9517− (weld pairs $(cases t.cases))

9518−::

9519−:: A closed structural mold supplies no equation to determine a hole.

9520−:: Applications, references, unbound capitals and unions are unproved.

9521−++ simple-mold-hole

9522− |= sh=shape

9523− ^- (unit (unit span))

9524− ?: ?=(%generic -.sh)

9525− ?~ vars.sh ~

9526− ?. (distinct-params vars.sh) ~

9527− (simple-mold-hole-in body.sh vars.sh)

9528− (simple-mold-hole-in sh ~)

9529−++ simple-mold-hole-in

9530− |= [sh=shape vars=(list @t)]

9531− ^- (unit (unit span))

9532− ?- -.sh

9533− %hole ``at.sh

9534− ?(%aura %noun %void %flag %const) `~

9535− %tvar ?:((lien vars |=(v=@t =(v name.sh))) `~ ~)

9536− %cell (simple-mold-field-holes fields.sh vars)

10570+:: A source-only fallback for literal-tagged cells and one-hop local

10571+:: generic applications. It screens all work before ordinary inference.

10572+++ union-simple-shape-budget

10573+ |= [s=shape fuel=@ud vars=(unit (list @t))]

10574+ ^- (unit @ud)

10575+ ?: =(0 fuel) ~

10576+ =. fuel (dec fuel)

10577+ ?- -.s

10578+ ?(%aura %noun %void %flag) `fuel

10579+ %tvar

10580+ ?~ vars `fuel

10581+ ?:((lien u.vars |=(n=@t =(n name.s))) `fuel ~)

10582+ %const

10583+ ?. |(=(%term form.lit.s) =(%null form.lit.s) =(%loobean form.lit.s)) ~

10584+ ?: &(=(%loobean form.lit.s) !|(=(0 val.lit.s) =(1 val.lit.s))) ~

10585+ `fuel

10586+ %cell (union-simple-fields-budget fields.s fuel vars)

953710587 %fn

9538− =/ a=(unit (unit span)) $(sh sample.sh)

9539− ?~ a ~

9540− =/ b=(unit (unit span)) $(sh product.sh)

9541− ?~ b ~

10588+ =/ left=(unit @ud) $(s sample.s, fuel fuel)

10589+ ?~ left ~

10590+ $(s product.s, fuel u.left)

10591+ * ~

10592+ ==

10593+++ union-simple-fields-budget

10594+ |= [fields=(list field) fuel=@ud vars=(unit (list @t))]

10595+ ^- (unit @ud)

10596+ ?~ fields `fuel

10597+ ?: =(0 fuel) ~

10598+ =/ field-shape=shape

10599+ ?- -.i.fields

10600+ %bare shape.i.fields

10601+ %face shape.i.fields

10602+ %pun [%ref at.i.fields ~[name.i.fields]]

10603+ ==

10604+ =/ head=(unit @ud) (union-simple-shape-budget field-shape (dec fuel) vars)

10605+ ?~ head ~

10606+ $(fields t.fields, fuel u.head)

10607+++ union-source-find

10608+ |= [n=term molds=imolds fuel=@ud]

10609+ ^- (unit [body=shape left=@ud])

10610+ =/ found=(unit shape) ~

10611+ |-

10612+ ?~ molds

10613+ ?~ found ~

10614+ `[u.found fuel]

10615+ ?: =(0 fuel) ~

10616+ ?: =(n name.i.molds)

10617+ ?^ found ~

10618+ $(molds t.molds, fuel (dec fuel), found `body.i.molds)

10619+ $(molds t.molds, fuel (dec fuel))

10620+++ union-source-args-budget

10621+ |= [vars=(list @t) args=(list shape) fuel=@ud]

10622+ ^- (unit @ud)

10623+ =/ seen=(set @t) *(set @t)

10624+ |-

10625+ ?~ vars ?~(args `fuel ~)

10626+ ?~ args ~

10627+ ?: =(0 fuel) ~

10628+ ?: (~(has in:..zuse seen) i.vars) ~

10629+ =/ arg=(unit @ud) (union-simple-shape-budget i.args (dec fuel) ~)

10630+ ?~ arg ~

10631+ $(vars t.vars, args t.args, fuel u.arg, seen (~(put in:..zuse seen) i.vars))

10632+++ union-source-cell-tag

10633+ |= s=shape

10634+ ^- (unit @)

10635+ ?. ?=(%cell -.s) ~

10636+ ?~ fields.s ~

10637+ ?~ t.fields.s ~

10638+ ?. ?=(%bare -.i.fields.s) ~

10639+ =/ head=shape shape.i.fields.s

10640+ ?. ?=(%const -.head) ~

10641+ ?. |(=(%term form.lit.head) =(%null form.lit.head) =(%loobean form.lit.head)) ~

10642+ ?: &(=(%loobean form.lit.head) !|(=(0 val.lit.head) =(1 val.lit.head))) ~

10643+ `val.lit.head

10644+++ union-source-case-tag

10645+ |= [s=shape molds=imolds fuel=@ud]

10646+ ^- (unit [tag=@ left=@ud])

10647+ ?: ?=(%cell -.s)

10648+ =/ tag=(unit @) (union-source-cell-tag s)

10649+ ?~ tag ~

10650+ =/ left=(unit @ud) (union-simple-shape-budget s fuel ~)

10651+ ?~ left ~

10652+ `[u.tag u.left]

10653+ ?. ?=(%apply -.s) ~

10654+ ?. ?=([@ ~] ref.s) ~

10655+ ?: =(0 fuel) ~

10656+ =/ found=(unit [body=shape left=@ud]) (union-source-find i.ref.s molds (dec fuel))

10657+ ?~ found ~

10658+ ?. ?=(%generic -.body.u.found) ~

10659+ ?~ vars.body.u.found ~

10660+ =/ tag=(unit @) (union-source-cell-tag body.body.u.found)

10661+ ?~ tag ~

10662+ =/ args=(unit @ud) (union-source-args-budget vars.body.u.found args.s left.u.found)

10663+ ?~ args ~

10664+ =/ left=(unit @ud) (union-simple-shape-budget body.body.u.found u.args `vars.body.u.found)

10665+ ?~ left ~

10666+ `[u.tag u.left]

10667+++ union-source-distinct-tags

10668+ |= [cases=(list shape) molds=imolds fuel=@ud]

10669+ ^- ?

10670+ =/ seen=(set @) *(set @)

10671+ =/ has-application=? |

10672+ |-

10673+ ?~ cases has-application

10674+ ?: =(0 fuel) |

10675+ =/ item=(unit [tag=@ left=@ud]) (union-source-case-tag i.cases molds (dec fuel))

10676+ ?~ item |

10677+ ?: (~(has in:..zuse seen) tag.u.item) |

10678+ $(cases t.cases, fuel left.u.item, seen (~(put in:..zuse seen) tag.u.item), has-application |(has-application ?=(%apply -.i.cases)))

10679+::

10680+:: This inference-only screen bounds inherited work that the small source

10681+:: slice may consult. It does not authenticate a caller-created state.

10682+++ union-state-leaf

10683+ |= t=itype

10684+ ^- ?

10685+ ?=(?(%var %avar %rvar %nvar %rnvar %atom %any-atom %flag %noun %empty %const) -.t)

10686+++ union-state-params-budget

10687+ |= [params=iparams fuel=@ud]

10688+ ^- (unit @ud)

10689+ ?~ params `fuel

10690+ ?: =(0 fuel) ~

10691+ ?. (union-state-leaf typ.i.params) ~

10692+ $(params t.params, fuel (dec fuel))

10693+++ union-state-sub-budget

10694+ |= [sub=isub fuel=@ud]

10695+ ^- (unit @ud)

10696+ ?~ sub `fuel

10697+ ?: =(0 fuel) ~

10698+ ?. (union-state-leaf val.i.sub) ~

10699+ $(sub t.sub, fuel (dec fuel))

10700+++ union-state-caps-budget

10701+ |= [caps=icaps fuel=@ud]

10702+ ^- (unit @ud)

10703+ ?~ caps `fuel

10704+ ?: =(0 fuel) ~

10705+ $(caps t.caps, fuel (dec fuel))

10706+++ union-state-active-budget

10707+ |= [active=(list term) fuel=@ud]

10708+ ^- (unit @ud)

10709+ ?~ active `fuel

10710+ ?: =(0 fuel) ~

10711+ $(active t.active, fuel (dec fuel))

10712+++ union-state-tags-budget

10713+ |= [tags=(list ipending) fuel=@ud]

10714+ ^- (unit @ud)

10715+ ?~ tags `fuel

10716+ ?: =(0 fuel) ~

10717+ $(tags t.tags, fuel (dec fuel))

10718+++ union-source-state-safe

10719+ |= [state=istate fuel=@ud]

10720+ ^- ?

10721+ ?^ grec-index.state |

10722+ ?^ holes.state |

10723+ ?^ defer.state |

10724+ ?^ obligations.state |

10725+ =/ params=(unit @ud) (union-state-params-budget params.state fuel)

10726+ ?~ params |

10727+ =/ sub=(unit @ud) (union-state-sub-budget sub.state u.params)

10728+ ?~ sub |

10729+ =/ caps=(unit @ud) (union-state-caps-budget caps.state u.sub)

10730+ ?~ caps |

10731+ =/ active=(unit @ud) (union-state-active-budget active.state u.caps)

10732+ ?~ active |

10733+ ?=(^ (union-state-tags-budget tags.state u.active))

10734+::

10735+:: Positive overlap witnesses from parsed, one-hop local source only.

10736+:: Unknown or exhausted work returns no witness, never disjointness.

10737++$ uow-case [at=span head=@ payload=upat]

10738+++ union-overlap-primitive

10739+ |= s=shape

10740+ ^- (unit upat)

10741+ ?- -.s

10742+ %aura `[%atom ~]

10743+ %noun `[%all ~]

10744+ %void `[%empty ~]

10745+ %flag `[%flag ~]

10746+ %const

10747+ ?. |(=(%term form.lit.s) =(%null form.lit.s) =(%loobean form.lit.s)) ~

10748+ ?: &(=(%loobean form.lit.s) !|(=(0 val.lit.s) =(1 val.lit.s))) ~

10749+ `[%atom `val.lit.s]

10750+ * ~

10751+ ==

10752+++ union-overlap-case

10753+ |= [s=shape molds=imolds fuel=@ud]

10754+ ^- (unit [item=uow-case left=@ud])

10755+ ?: =(0 fuel) ~

10756+ =. fuel (dec fuel)

10757+ :: Each body has exactly two fields; an application has exactly one

10758+ :: parameter and one concrete primitive argument. The full mold table

10759+ :: is scanned to establish unique ownership.

10760+ =/ expanded=(unit [body=shape param=(unit [name=@t pat=upat]) left=@ud])

10761+ ?: ?=(%cell -.s) `[s ~ fuel]

10762+ ?. ?=(%apply -.s) ~

10763+ ?. ?=([@ ~] ref.s) ~

10764+ ?. ?=([* ~] args.s) ~

10765+ ?: =(0 fuel) ~

10766+ =/ found=(unit [body=shape left=@ud]) (union-source-find i.ref.s molds (dec fuel))

10767+ ?~ found ~

10768+ ?. ?=(%generic -.body.u.found) ~

10769+ ?. ?=([@ ~] vars.body.u.found) ~

10770+ ?: =(0 left.u.found) ~

10771+ =/ argument=(unit upat) (union-overlap-primitive i.args.s)

10772+ ?~ argument ~

10773+ `[body.body.u.found `[i.vars.body.u.found u.argument] (dec left.u.found)]

10774+ ?~ expanded ~

10775+ =/ body=shape body.u.expanded

10776+ ?. ?=(%cell -.body) ~

10777+ ?. ?=([* * ~] fields.body) ~

10778+ :: Charge the cell, two fields, and the head and payload nodes.

10779+ ?: (lth left.u.expanded 5) ~

10780+ =/ head=(unit @) (union-source-cell-tag body)

10781+ ?~ head ~

10782+ =/ field=field i.t.fields.body

10783+ =/ payload=shape

10784+ ?- -.field

10785+ %bare shape.field

10786+ %face shape.field

10787+ %pun [%ref at.field ~[name.field]]

10788+ ==

10789+ =/ pattern=(unit upat)

10790+ ?: ?=(%tvar -.payload)

10791+ ?~ param.u.expanded ~

10792+ ?. =(name.payload name.u.param.u.expanded) ~

10793+ `pat.u.param.u.expanded

10794+ (union-overlap-primitive payload)

10795+ ?~ pattern ~

10796+ `[[at.s u.head u.pattern] (sub left.u.expanded 5)]

10797+++ union-overlap-against

10798+ |= [first=uow-case rest=(list shape) molds=imolds fuel=@ud]

10799+ ^- (unit [witness=(unit upair) left=@ud])

10800+ ?~ rest `[~ fuel]

10801+ ?: =(0 fuel) ~

10802+ =/ other=(unit [item=uow-case left=@ud]) (union-overlap-case i.rest molds (dec fuel))

10803+ ?~ other ~

10804+ ?: &(=(head.first head.item.u.other) =(%overlap (union-relate payload.first payload.item.u.other)))

10805+ `[`[at.first at.item.u.other %overlap] left.u.other]

10806+ $(rest t.rest, fuel left.u.other)

10807+++ union-source-overlap

10808+ |= [cases=(list shape) molds=imolds fuel=@ud]

10809+ ^- (unit upair)

10810+ ?~ cases ~

10811+ ?~ t.cases ~

10812+ ?: =(0 fuel) ~

10813+ =/ first=(unit [item=uow-case left=@ud]) (union-overlap-case i.cases molds (dec fuel))

10814+ ?~ first ~

10815+ =/ found=(unit [witness=(unit upair) left=@ud])

10816+ (union-overlap-against item.u.first t.cases molds left.u.first)

10817+ ?~ found ~

10818+ ?^ witness.u.found witness.u.found

10819+ $(cases t.cases, fuel left.u.found)

10820+::

10821+++ union-pairs

10822+ |= [cases=(list shape) molds=imolds]

10823+ ^- (list upair)

10824+ ?~ cases ~

10825+ =/ first=shape i.cases

10826+ =/ a=upat (project-union-mold first molds ~)

10827+ =/ pairs=(list upair)

10828+ %+ turn t.cases

10829+ |= second=shape

10830+ ^- upair

10831+ [at.first at.second (union-relate a (project-union-mold second molds ~))]

10832+ (weld pairs $(cases t.cases))

10833+::

10834+:: A closed structural mold supplies no equation to determine a hole.

10835+:: Applications, references, unbound capitals and unions are unproved.

10836+++ simple-mold-hole

10837+ |= sh=shape

10838+ ^- (unit (unit span))

10839+ ?: ?=(%generic -.sh)

10840+ ?~ vars.sh ~

10841+ ?. (distinct-params vars.sh) ~

10842+ (simple-mold-hole-in body.sh vars.sh)

10843+ (simple-mold-hole-in sh ~)

10844+++ simple-mold-hole-in

10845+ |= [sh=shape vars=(list @t)]

10846+ ^- (unit (unit span))

10847+ ?- -.sh

10848+ %hole ``at.sh

10849+ ?(%aura %noun %void %flag %const) `~

10850+ %tvar ?:((lien vars |=(v=@t =(v name.sh))) `~ ~)

10851+ %cell (simple-mold-field-holes fields.sh vars)

10852+ %fn

10853+ =/ a=(unit (unit span)) $(sh sample.sh)

10854+ ?~ a ~

10855+ =/ b=(unit (unit span)) $(sh product.sh)

10856+ ?~ b ~

954210857 `?~(u.a u.b u.a)

954310858 %generic ~

954410859 * ~

@@ -9656,6 +10971,11 @@

965610971 ?. ?=(%union -.sh) (crip "+$ {(trip name.d)}: not checked")

965710972 =/ pairs=(list upair) (union-pairs cases.sh molds)

965810973 =/ overlapping=(list upair) (skim pairs |=(p=upair =(%overlap relation.p)))

10974+ =. overlapping

10975+ ?^ overlapping overlapping

10976+ ?. (lien pairs |=(p=upair =(%unknown relation.p))) ~

10977+ =/ witness=(unit upair) (union-source-overlap cases.sh molds 256)

10978+ ?~(witness ~ ~[u.witness])

965910979 ?^ overlapping

966010980 =/ p=upair i.overlapping

966110981 =/ summary=@t (crip "+$ {(trip name.d)}: overlapping cases; mold not checked")

@@ -9663,7 +10983,9 @@

966310983 =/ second=@t (show-error src [file line.beg.second.p col.beg.second.p "overlapping case"])

966410984 (of-wain:format ~[summary first second])

966510985 ?: (lien pairs |=(p=upair =(%unknown relation.p)))

9666− (crip "+$ {(trip name.d)}: case disjointness unresolved; mold not checked")

10986+ ?. (union-source-distinct-tags cases.sh molds 256)

10987+ (crip "+$ {(trip name.d)}: case disjointness unresolved; mold not checked")

10988+ (crip "+$ {(trip name.d)}: cases proven disjoint; mold not checked")

966710989 (crip "+$ {(trip name.d)}: cases proven disjoint; mold not checked")

966810990::

966910991:: +show-inference-diagnostic: a partial report with both source sites

@@ -9720,7 +11042,14 @@

972011042+$ jbundle (list jsource)

972111043+$ jcache (list [at=path iface=ifile])

972211044+$ jfile-result (each [iface=ifile cache=jcache] @t)

11045+:: Overlap evidence retains the exact source that supplied its spans.

11046+:: Ordinary Jibb imports preserve this evidence through the resolver.

11047++$ jfile-overlap [file=path source=@t name=term cases=upair]

11048++$ jfile-failure [message=@t overlap=(unit jfile-overlap)]

11049++$ jfile-detailed-result (each [iface=ifile cache=jcache] jfile-failure)

972311050+$ jimports-result (each [resolved=ijimports cache=jcache] @t)

11051+:: Preserve an imported overlap's original file and source across the graph.

11052++$ jimports-detailed-result (each [resolved=ijimports cache=jcache] jfile-failure)

972411053::

972511054:: Written record fields each have their own lexical record scope.

972611055+$ written-fields (map term span)

@@ -9993,6 +11322,43 @@

999311322 (skim defs.mod |=(d=def !&(?=(%mold -.d) =(%poke name.d))))

999411323 (module-scope-valid mod(defs remaining) prelude-values prelude-molds)

999511324::

11325+:: A detailed failure is attached only to the first mold that actually

11326+:: failed in this check, using that module's checked source mold table.

11327++$ imold-failure [message=@t overlap=(unit [name=term cases=upair])]

11328+:: Validate a generic wrapper without an unbounded duplicate-name pass.

11329+++ module-mold-params-valid

11330+ |= [vars=(list @t) seen=(set @t) fuel=@ud]

11331+ ^- ?

11332+ ?~ vars &

11333+ ?: =(0 fuel) |

11334+ ?: (~(has in:..zuse seen) i.vars) |

11335+ $(vars t.vars, seen (~(put in:..zuse seen) i.vars), fuel (dec fuel))

11336+++ module-mold-overlap

11337+ |= [m=[name=term body=shape] molds=imolds]

11338+ ^- (unit upair)

11339+ =/ sh=shape body.m

11340+ =/ valid=?

11341+ ?. ?=(%generic -.sh) &

11342+ ?~ vars.sh |

11343+ (module-mold-params-valid vars.sh *(set @t) 256)

11344+ ?. valid ~

11345+ =? sh ?=(%generic -.sh) body.sh

11346+ ?. ?=(%union -.sh) ~

11347+ (union-source-overlap cases.sh molds 256)

11348+++ module-mold-types-detail

11349+ |= [molds=imolds state=istate]

11350+ ^- (each imold-types imold-failure)

11351+ ?~ molds [%& ~]

11352+ =/ m=[name=term body=shape] i.molds

11353+ =/ t=(unit [template=ischeme state=istate])

11354+ (infer-mold-template body.m state(active [name.m active.state], in-mold &))

11355+ ?~ t

11356+ =/ overlap=(unit upair) (module-mold-overlap m molds.state)

11357+ [%| ['module mold needs unsupported inference' ?~(overlap ~ `[name.m u.overlap])]]

11358+ =. typ.template.u.t (label-direct-union typ.template.u.t body.m name.m state)

11359+ =/ rest=(each imold-types imold-failure) $(molds t.molds)

11360+ ?: ?=(%| -.rest) rest

11361+ [%& [[name.m template.u.t] p.rest]]

999611362++ module-mold-types

999711363 |= [molds=imolds state=istate]

999811364 ^- (each imold-types @t)

@@ -10054,6 +11420,9 @@

1005411420 |= [typ=itype name=term vars=(list @ud)]

1005511421 ^- itype

1005611422 ?: ?=(%jrec -.typ) typ(label `name)

11423+ ?: ?=(%grec -.typ)

11424+ ?. (identity-union-parameters vars args.typ) typ(label ~)

11425+ typ(label `name)

1005711426 ?. ?=(%union -.typ) typ

1005811427 ?. (identity-union-parameters vars args.typ)

1005911428 ?~ origin.typ typ

@@ -10086,7 +11455,12 @@

1008611455 =/ plus=ischeme [[%fn [%cell b b] b] ~[0]]

1008711456 =/ minus=ischeme [[%fn b b] ~[0]]

1008811457 =/ greater=ischeme [[%fn pair [%flag ~]] ~[0]]

10089− [~[[%raw-add plus] [%raw-dec minus] [%raw-gth greater]] ~ /lib/jibb/primitives/jibb ~ ~ ~ ~]

11458+ =/ utf8=itype [%atom 'tD']

11459+ =/ tape=itype [%collection %list ~[utf8]]

11460+ =/ codepoints=itype [%collection %list ~[[%atom %c]]]

11461+ =/ text-trip=ischeme [[%fn [%atom %t] tape] ~]

11462+ =/ text-tuba=ischeme [[%fn tape codepoints] ~]

11463+ [~[[%raw-add plus] [%raw-dec minus] [%raw-gth greater] [%raw-trip text-trip] [%raw-tuba text-tuba]] ~ /lib/jibb/primitives/jibb ~ ~ ~ ~ ~]

1009011464::

1009111465++ infer-private-internal

1009211466 |= [src=@t public-source=@t]

@@ -10127,9 +11501,9 @@

1012711501 =/ source-unit=(unit ischeme)

1012811502 ?~ unit-decl ~

1012911503 =/ unit-molds=imolds ~[[%unit u.unit-decl]]

10130− =/ unit-state=istate [0 ~ ~ ~ unit-molds ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ | /lib/jibb/prelude/jibb ~[%unit] ~ ~ 256 ~]

11504+ =/ unit-state=istate [0 ~ ~ ~ unit-molds ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ | /lib/jibb/prelude/jibb ~[%unit] ~ ~ 256 ~ ~ ~ ~ ~ ~]

1013111505 =/ unit-types=imold-types (partial-prelude-molds unit-molds unit-state)

10132− =/ unit-iface=ifile [~ unit-types /lib/jibb/prelude/jibb ~ ~ ~ ~]

11506+ =/ unit-iface=ifile [~ unit-types /lib/jibb/prelude/jibb ~ ~ ~ ~ ~]

1013311507 =/ found=(unit ischeme) (find-jibb-mold %unit unit-iface)

1013411508 ?~ found ~

1013511509 ?. (standard-unit-template u.found /lib/jibb/prelude/jibb) ~

@@ -10142,7 +11516,7 @@

1014211516 =/ js=ijimports ~[[face.i.imports.mod primitive]]

1014311517 =/ reserved=(list term) ~[face.i.imports.mod]

1014411518 =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

10145− =/ state=istate [0 ~ ~ ~ molds globals ~ ~ ~ ~ js reserved ~ ~ ~ | at top ~ ~ 256 ~]

11519+ =/ state=istate [0 ~ ~ ~ molds globals ~ ~ ~ ~ js reserved ~ ~ ~ | at top ~ ~ 256 ~ ~ ~ ~ ~ ~]

1014611520 =/ mts=(each imold-types @t) (module-mold-types molds state)

1014711521 =/ usable=(unit imold-types)

1014811522 ?: ?=(%& -.mts) `p.mts

@@ -10165,7 +11539,7 @@

1016511539 =/ resolution=iresolved (resolve-groups defs.mod molds globals ~ ~ ~ ~ js reserved at ~)

1016611540 =/ env=ienv env.resolution

1016711541 ?. (module-values-complete defs.mod env) ~

10168− `[env u.usable at ~ artifacts.resolution ~ `src]

11542+ `[env u.usable at ~ artifacts.resolution ~ `src ~]

1016911543::

1017011544++ partial-prelude-interface-with-internal

1017111545 |= [src=@t internal-source=(unit @t)]

@@ -10198,16 +11572,16 @@

1019811572 =? env-molds declared

1019911573 (skim molds |=(m=[name=term body=shape] !=(%list name.m)))

1020011574 =/ reserved=(list term) ?:(declared ~[%list] ~)

10201− =/ state=istate [0 ~ ~ ~ env-molds globals ~ ~ ~ ~ u.private reserved ~ ~ ~ | at names ~ ~ 256 ~]

11575+ =/ state=istate [0 ~ ~ ~ env-molds globals ~ ~ ~ ~ u.private reserved ~ ~ ~ | at names ~ ~ 256 ~ ~ ~ ~ ~ ~]

1020211576 :: Other prelude molds may use list only after its source has passed

1020311577 :: the standard-list check. The raw declaration remains removed.

1020411578 =/ declared-list=(unit shape) (find-simple-mold %list molds)

1020511579 =/ mold-prelude=(unit ifile)

1020611580 ?~ declared-list ~

1020711581 ?. (standard-prelude-list u.declared-list) ~

10208− `[~ ~[[%list [[%collection %list ~[[%var 0]]] ~[0]]]] at ~ ~ ~ ~]

11582+ `[~ ~[[%list [[%collection %list ~[[%var 0]]] ~[0]]]] at ~ ~ ~ ~ ~]

1020911583 =/ mt=imold-types (partial-prelude-molds molds state(prelude mold-prelude))

10210− =/ partial=ifile [~ mt at ~ ~ ~ ~]

11584+ =/ partial=ifile [~ mt at ~ ~ ~ ~ ~]

1021111585 :: An explicitly qualified re-export must resolve. Other unsupported

1021211586 :: prelude declarations remain reserved but absent from the interface.

1021311587 =/ required=imolds

@@ -10224,7 +11598,7 @@

1022411598 =/ deps=(list iwidth-dependency)

1022511599 ?~ u.private ~

1022611600 ~[[at.interface.i.u.private source.interface.i.u.private elaborations.interface.i.u.private]]

10227− `[env mt at ~ artifacts.resolution deps `src]

11601+ `[env mt at ~ artifacts.resolution deps `src ~]

1022811602::

1022911603++ partial-prelude-interface

1023011604 |= src=@t

@@ -10275,27 +11649,103 @@

1027511649 ?: =(at at.i.cache) `iface.i.cache

1027611650 $(cache t.cache)

1027711651::

11652+:: These certificates retain the complete checked source closure. The

11653+:: trusted host must supply the identical prepared prelude and reader nouns.

11654+:: Exact bundle equality binds all source paths and versions; the set

11655+:: retains transitive paths for active-cycle checks. Request-bearing graphs

11656+:: alone have a size limit; incompatible diamond evidence fails closed.

11657+++ request-graph-requests-add

11658+ |= [pending=(list irequest-evidence) acc=(list irequest-evidence) fuel=@ud]

11659+ ^- (unit (list irequest-evidence))

11660+ ?~ pending `acc

11661+ ?: =(0 fuel) ~

11662+ =/ hit=(list irequest-evidence)

11663+ (skim acc |=(x=irequest-evidence &(=(api-at.x api-at.i.pending) =(name.x name.i.pending))))

11664+ ?^ hit

11665+ ?. ?=([* ~] hit) ~

11666+ ?. =(i.hit i.pending) ~

11667+ $(pending t.pending, fuel (dec fuel))

11668+ $(pending t.pending, acc [i.pending acc], fuel (dec fuel))

11669+++ request-graph-inputs-match

11670+ |= [g=irequest-graph externals=iexternals marks=imark-externals modules=jbundle values=(list term) molds=(list term) prelude=(unit ifile)]

11671+ ^- ?

11672+ ?& =(bundle-input.g modules)

11673+ =(prelude-input.g prelude)

11674+ =(prelude-values.g values)

11675+ =(prelude-molds.g molds)

11676+ =(externals.g externals)

11677+ =(marks.g marks)

11678+ ==

11679+++ request-graph-merge

11680+ |= [imports=ijimports g=irequest-graph fuel=@ud]

11681+ ^- (unit irequest-graph)

11682+ ?~ imports `g

11683+ ?: =(0 fuel) ~

11684+ =/ child=ifile interface.i.imports

11685+ ?~ graph.child ~

11686+ =/ cg=irequest-graph u.graph.child

11687+ ?. ?& =(bundle-input.g bundle-input.cg)

11688+ =(prelude-input.g prelude-input.cg)

11689+ =(prelude-values.g prelude-values.cg)

11690+ =(prelude-molds.g prelude-molds.cg)

11691+ =(externals.g externals.cg)

11692+ =(marks.g marks.cg)

11693+ ==

11694+ ~

11695+ =/ merged=(set path) (~(uni in:..zuse paths.g) paths.cg)

11696+ =/ rs=(unit (list irequest-evidence))

11697+ (request-graph-requests-add requests.cg requests.g (add 1 (lent requests.cg)))

11698+ ?~ rs ~

11699+ ?: &(?=(^ u.rs) |((gth (lent ~(tap in:..zuse merged)) 256) (gth (lent u.rs) 256))) ~

11700+ $(imports t.imports, g g(paths merged, requests u.rs), fuel (dec fuel))

11701+++ request-graph-reusable

11702+ |= [f=ifile src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) values=(list term) molds=(list term) prelude=(unit ifile)]

11703+ ^- ?

11704+ ?~ source.f |

11705+ ?. =(u.source.f src) |

11706+ ?~ graph.f |

11707+ =/ g=irequest-graph u.graph.f

11708+ ?. (request-graph-inputs-match g externals marks modules values molds prelude) |

11709+ ?. (~(has in:..zuse paths.g) at.f) |

11710+ !(lien active |=(p=path (~(has in:..zuse paths.g) p)))

11711+::

1027811712++ resolve-jibb-imports

1027911713 |= [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)]

1028011714 ^- jimports-result

11715+ =/ result=jimports-detailed-result

11716+ (resolve-jibb-imports-detailed imports externals mark-externals modules active prelude-values prelude-molds cache prelude)

11717+ ?: ?=(%| -.result) [%| message.p.result]

11718+ [%& p.result]

11719+++ resolve-jibb-imports-detailed

11720+ |= [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)]

11721+ ^- jimports-detailed-result

1028111722 ?~ imports [%& [~ cache]]

1028211723 ?. ?=(%jibb -.i.imports) $(imports t.imports)

1028311724 =/ at=path (weld path.i.imports `path`~[%jibb])

1028411725 ?: =(at /lib/jibb/internal/jibb)

10285− [%| 'the prelude internal module is private']

11726+ [%| ['the prelude internal module is private' ~]]

1028611727 ?: =(at /lib/jibb/primitives/jibb)

10287− [%| 'the prelude primitive interface is private']

11728+ [%| ['the prelude primitive interface is private' ~]]

1028811729 ?: (lien active |=(p=path =(p at)))

10289− [%| (crip "import cycle at {(spud at)}")]

11730+ [%| [(crip "import cycle at {(spud at)}") ~]]

1029011731 =/ found=jbundle (skim modules |=(m=jsource =(at at.m)))

10291− ?~ found [%| (crip "module source missing: {(spud at)}")]

10292− ?^ t.found [%| (crip "duplicate module sources: {(spud at)}")]

11732+ ?~ found [%| [(crip "module source missing: {(spud at)}") ~]]

11733+ ?^ t.found [%| [(crip "duplicate module sources: {(spud at)}") ~]]

1029311734 =/ cached=(unit ifile) (find-jibb-cache at cache)

10294− =/ iface=jfile-result

10295− ?^ cached [%& [u.cached cache]]

10296− (infer-jibb-file at source.i.found externals mark-externals modules [at active] prelude-values prelude-molds cache prelude)

11735+ =/ iface=jfile-detailed-result

11736+ ?^ cached

11737+ ?. =(at.u.cached at) [%| ['cached module identity needs unsupported inference' ~]]

11738+ ?~ graph.u.cached

11739+ :: A detached legacy interface has unknown evidence. Rebuild it

11740+ :: against the current graph, without retaining any stale entry.

11741+ =/ clean=jcache (skim cache |=(x=[at=path iface=ifile] !=(at.x at)))

11742+ (infer-jibb-file-detailed at source.i.found externals mark-externals modules [at active] prelude-values prelude-molds clean prelude)

11743+ ?. (request-graph-reusable u.cached source.i.found externals mark-externals modules active prelude-values prelude-molds prelude)

11744+ [%| ['cached module evidence needs unsupported inference' ~]]

11745+ [%& [u.cached cache]]

11746+ (infer-jibb-file-detailed at source.i.found externals mark-externals modules [at active] prelude-values prelude-molds cache prelude)

1029711747 ?: ?=(%| -.iface) [%| p.iface]

10298− =/ rest=jimports-result $(imports t.imports, cache cache.p.iface)

11748+ =/ rest=jimports-detailed-result $(imports t.imports, cache cache.p.iface)

1029911749 ?: ?=(%| -.rest) rest

1030011750 [%& [[[face.i.imports iface.p.iface] resolved.p.rest] cache.p.rest]]

1030111751::

@@ -10542,6 +11992,27 @@

1054211992 (api-path-analysis p.parsed marks values.u.prepared molds.u.prepared)

1054311993 ?~ paths [%| 'API path declaration needs unsupported analysis']

1054411994 [%& [file src u.prepared externals marks cache.p.deps u.paths]]

11995+:: Graph-aware variant preserves the caller active stack and cache.

11996+++ api-path-evidence-graph

11997+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) cache=jcache prepared=(unit iprelude)]

11998+ ^- (each iapi-path-evidence @t)

11999+ ?~ active [%| 'API analysis needs an active graph']

12000+ ?. =(i.active file) [%| 'API analysis active graph does not start at the source']

12001+ ?: (lien t.active |=(p=path =(p file))) [%| 'API analysis active graph contains a cycle']

12002+ ?. ?=([%ui %api @ %jibb ~] file) [%| 'API path evidence requires /ui/api/<agent>.jibb']

12003+ =/ parsed (parse file src)

12004+ ?: ?=(%| -.parsed) [%| 'API path evidence source does not parse']

12005+ =/ duplicate=(unit idiag) (duplicate-defs defs.p.parsed)

12006+ ?^ duplicate [%| (show-duplicate-fields file src u.duplicate)]

12007+ ?~ prepared [%| 'API path evidence needs the prepared prelude']

12008+ =/ public=ifile iface.u.prepared

12009+ =/ deps=jimports-result

12010+ (resolve-jibb-imports imports.p.parsed externals marks modules active values.u.prepared molds.u.prepared cache `public)

12011+ ?: ?=(%| -.deps) [%| p.deps]

12012+ =/ paths=(unit (list iapi-path-typed))

12013+ (api-path-analysis p.parsed marks values.u.prepared molds.u.prepared)

12014+ ?~ paths [%| 'API path declaration needs unsupported analysis']

12015+ [%& [file src u.prepared externals marks cache.p.deps u.paths]]

1054512016::

1054612017:: This query classifies a unique path declaration only. Missing evidence

1054712018:: or a nonunique name is unknown; it proves nothing about an ask value.

@@ -10637,13 +12108,206 @@

1063712108 =/ surs=(list term) (collect-sur-imports imports.mod)

1063812109 =/ reserved=(list term) (weld molds.prep (turn resolved.p.deps |=(j=[face=term interface=ifile] face.j)))

1063912110 =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

10640− =/ state=istate [0 ~ ~ ~ molds globals externals surs marks declared resolved.p.deps reserved ~ ~ ~ | file top prelude ~ 256 ~]

12111+ =/ state=istate [0 ~ ~ ~ molds globals externals surs marks declared resolved.p.deps reserved ~ ~ ~ | file top prelude ~ 256 ~ ~ ~ ~ ~ ~]

12112+ =/ mts=(each imold-types @t) (module-mold-types molds state)

12113+ ?: ?=(%| -.mts) [%| p.mts]

12114+ =/ resolution=iresolved (resolve-groups ordinary molds globals externals surs marks declared resolved.p.deps reserved file prelude)

12115+ ?. (module-values-complete ordinary env.resolution) [%| 'API ordinary definitions need unsupported inference']

12116+ [%& [evidence env.resolution p.mts u.mark-types artifacts.resolution]]

12117+:: Preserve the same graph context through supporting definitions.

12118+++ api-support-analysis-graph

12119+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) cache=jcache prepared=(unit iprelude)]

12120+ ^- (each iapi-support-evidence @t)

12121+ =/ path-result (api-path-evidence-graph file src externals marks modules active cache prepared)

12122+ ?: ?=(%| -.path-result) [%| p.path-result]

12123+ =/ evidence=iapi-path-evidence p.path-result

12124+ =/ parsed (parse file src)

12125+ ?: ?=(%| -.parsed) [%| 'API source does not parse']

12126+ =/ mod=module p.parsed

12127+ =/ ordinary=(list def)

12128+ (skim defs.mod |=(d=def !&(?=(%mold -.d) |(=(%paths name.d) =(%poke name.d)))))

12129+ =/ prep=iprelude prepared.evidence

12130+ ?. (module-scope-valid mod(defs ordinary) values.prep molds.prep) [%| 'API ordinary scope needs unsupported inference']

12131+ =/ vals=(list term) (global-value-names ordinary)

12132+ ?: (lien vals |=(n=term =(n %main))) [%| 'API module kind needs unsupported inference']

12133+ =/ declared=(list term) (collect-mark-imports imports.mod)

12134+ =/ mark-types=(unit (list iapi-mark-type)) (api-diff-types declared marks declared)

12135+ ?~ mark-types [%| 'API declared marks need unsupported inference']

12136+ =/ prelude=(unit ifile) `iface.prep

12137+ =/ deps=jimports-result

12138+ (resolve-jibb-imports imports.mod externals marks modules active values.prep molds.prep dependencies.evidence prelude)

12139+ ?: ?=(%| -.deps) [%| p.deps]

12140+ =/ molds=imolds (collect-simple-molds ordinary)

12141+ =/ globals=(list term) (weld values.prep (weld (import-binding-names imports.mod) vals))

12142+ =/ surs=(list term) (collect-sur-imports imports.mod)

12143+ =/ reserved=(list term) (weld molds.prep (turn resolved.p.deps |=(j=[face=term interface=ifile] face.j)))

12144+ =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

12145+ =/ state=istate [0 ~ ~ ~ molds globals externals surs marks declared resolved.p.deps reserved ~ ~ ~ | file top prelude ~ 256 ~ ~ ~ ~ ~ ~]

1064112146 =/ mts=(each imold-types @t) (module-mold-types molds state)

1064212147 ?: ?=(%| -.mts) [%| p.mts]

1064312148 =/ resolution=iresolved (resolve-groups ordinary molds globals externals surs marks declared resolved.p.deps reserved file prelude)

1064412149 ?. (module-values-complete ordinary env.resolution) [%| 'API ordinary definitions need unsupported inference']

1064512150 [%& [evidence env.resolution p.mts u.mark-types artifacts.resolution]]

1064612151::

12152+:: Type-analysis artifact for one plain request. The resolver may publish

12153+:: its interface only together with trusted source and reader evidence.

12154+:: No lowering or runtime validator exists.

12155+:: Value watchability remains unproved even for a watchable declaration.

12156++$ ione-request-interface

12157+ [support=iapi-support-evidence parts=iapi-request-parts iface=ifile]

12158+++ request-compatible-ask

12159+ |= prelude=iprelude

12160+ ^- (unit ischeme)

12161+ =/ public=ifile iface.prelude

12162+ ?. =(at.public /lib/jibb/prelude/jibb) ~

12163+ =/ ask=(unit ischeme) (find-jibb-mold %ask public)

12164+ ?~ ask ~

12165+ ?. ?=([@ ~] vars.u.ask) ~

12166+ ?. ?=(%union -.typ.u.ask) ~

12167+ ?. =(origin.typ.u.ask `[/lib/jibb/internal/jibb %ask]) ~

12168+ ?. (identity-union-parameters vars.u.ask args.typ.u.ask) ~

12169+ =/ m=@ud i.vars.u.ask

12170+ ?: (itype-var-is-atom m typ.u.ask) ~

12171+ ?. (levy (itype-vars typ.u.ask) |=(n=@ud =(n m))) ~

12172+ ?: (itype-has-tag typ.u.ask) ~

12173+ =/ private=(list iwidth-dependency)

12174+ (skim dependencies.public |=(d=iwidth-dependency =(at.d /lib/jibb/internal/jibb)))

12175+ ?. ?=([* ~] private) ~

12176+ ?~ source.i.private ~

12177+ =/ path=(unit ischeme) (find-jibb-mold %path public)

12178+ ?~ path ~

12179+ ?^ vars.u.path ~

12180+ =/ path-type=itype [%collection %list ~[[%atom %ta]]]

12181+ ?. =(typ.u.path path-type) ~

12182+ =/ unit-template=(unit ischeme) (find-jibb-mold %unit public)

12183+ ?~ unit-template ~

12184+ ?. (standard-unit-template u.unit-template /lib/jibb/prelude/jibb) ~

12185+ =/ state-unit=(unit itype) (template-apply u.unit-template ~[[%noun ~]])

12186+ ?~ state-unit ~

12187+ =/ path-unit=(unit itype) (template-apply u.unit-template ~[path-type])

12188+ ?~ path-unit ~

12189+ =/ output=itype [%cell [%face %state [%noun ~]] [%face %message [%var m]]]

12190+ =/ agent-input=itype [%cell [%face %mark [%atom %tas]] [%cell [%face %state u.state-unit] [%face %fact [%noun ~]]]]

12191+ =/ store-input=itype [%cell [%face %state u.state-unit] [%face %fact [%noun ~]]]

12192+ =/ pure-case=itype [%cell [%const [%term %tas %pure '%pure']] [%face %value [%var m]]]

12193+ =/ agent-case=itype

12194+ [%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]]]]]]]]

12195+ =/ store-case=itype

12196+ [%cell [%const [%term %tas %store '%store']] [%cell [%face %module [%atom %t]] [%cell [%face %name [%atom %tas]] [%face %receive [%fn store-input output]]]]]

12197+ ?. =(cases.typ.u.ask ~[pure-case agent-case store-case]) ~

12198+ ask

12199+::

12200+:: The first supported standalone API has exactly one mark import and one

12201+:: plain path declaration, with no other definitions or imports. No partial

12202+:: success is published when source, schema, or a required mold is unknown.

12203+++ one-request-interface-source

12204+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle prepared=(unit iprelude)]

12205+ ^- (each ione-request-interface @t)

12206+ =/ out (api-support-analysis-source file src externals marks modules prepared)

12207+ ?: ?=(%| -.out) [%| p.out]

12208+ =/ support=iapi-support-evidence p.out

12209+ =/ ev=iapi-path-evidence paths.support

12210+ =/ parsed (parse file src)

12211+ ?: ?=(%| -.parsed) [%| 'request source does not parse']

12212+ =/ mod=module p.parsed

12213+ ?. ?=(?([[%mark *] ~] [[%mark *] [%mark *] ~]) imports.mod) [%| 'request imports need unsupported inference']

12214+ ?. ?=([[%mold *] ~] defs.mod) [%| 'request definitions need unsupported inference']

12215+ ?. =(%paths name.i.defs.mod) [%| 'request declaration needs unsupported inference']

12216+ ?. ?=([* ~] paths.ev) [%| 'request count needs unsupported inference']

12217+ =/ p=iapi-path-typed i.paths.ev

12218+ =/ parts=(unit iapi-request-parts) (api-request-parts `ev name.path.p)

12219+ ?~ parts [%| 'request components need unsupported inference']

12220+ ?. ?=(?(~ [* ~]) parameters.u.parts) [%| 'request parameters need unsupported inference']

12221+ ?: &(?=(^ fold.u.parts) ?=(^ parameters.u.parts)) [%| 'request parameter and fold need unsupported inference']

12222+ ?^ scry.path.p [%| 'request scry needs unsupported inference']

12223+ =/ valid-marks=?

12224+ ?~ fold.u.parts ?=([* ~] marks.support)

12225+ ?=([* [* ~]] marks.support)

12226+ ?. valid-marks [%| 'request marks need unsupported inference']

12227+ =/ fold-open=?

12228+ ?~ fold.u.parts |

12229+ |(?=(^ (itype-vars u.fold.u.parts)) (itype-has-tag u.fold.u.parts))

12230+ ?: fold-open [%| 'request fold needs unsupported inference']

12231+ ?^ (itype-vars reply-sample.u.parts) [%| 'request payload needs unsupported inference']

12232+ ?: (itype-has-tag reply-sample.u.parts) [%| 'request payload needs unsupported inference']

12233+ =/ ask=(unit ischeme) (request-compatible-ask prepared.ev)

12234+ ?~ ask [%| 'request ask needs unsupported inference']

12235+ =/ result=(unit itype) (template-apply u.ask ~[[%var 0]])

12236+ ?~ result [%| 'request ask needs unsupported inference']

12237+ =/ callback=itype [%fn reply-sample.u.parts [%var 0]]

12238+ =/ sample=itype

12239+ ?^ fold.u.parts [%cell callback u.fold.u.parts]

12240+ ?~ parameters.u.parts callback

12241+ [%cell typ.i.parameters.u.parts callback]

12242+ =/ scheme=ischeme [[%fn sample u.result] ~[0]]

12243+ =/ exports=imold-types

12244+ (turn marks.support |=(m=iapi-mark-type [name.m [typ.m ~]]))

12245+ =/ prelude=iprelude prepared.ev

12246+ =/ public=ifile iface.prelude

12247+ ?~ source.public [%| 'request prelude source needs unsupported inference']

12248+ =/ private=(list iwidth-dependency)

12249+ (skim dependencies.public |=(d=iwidth-dependency =(at.d /lib/jibb/internal/jibb)))

12250+ ?. ?=([* ~] private) [%| 'request internal source needs unsupported inference']

12251+ ?~ source.i.private [%| 'request internal source needs unsupported inference']

12252+ =/ req=irequest-evidence

12253+ [file name.path.p p src u.source.public u.source.i.private values.prelude molds.prelude externals marks]

12254+ =/ interface=ifile [~[[name.path.p scheme]] exports file ~ ~ ~ `src `[(silt `(list path)`~[file]) ~[req] modules `public values.prelude molds.prelude externals marks]]

12255+ [%& [support u.parts interface]]

12256+:: Graph-aware request artifact; resolver use remains type-only.

12257+++ one-request-interface-graph

12258+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) cache=jcache prepared=(unit iprelude)]

12259+ ^- (each ione-request-interface @t)

12260+ =/ out (api-support-analysis-graph file src externals marks modules active cache prepared)

12261+ ?: ?=(%| -.out) [%| p.out]

12262+ =/ support=iapi-support-evidence p.out

12263+ =/ ev=iapi-path-evidence paths.support

12264+ =/ parsed (parse file src)

12265+ ?: ?=(%| -.parsed) [%| 'request source does not parse']

12266+ =/ mod=module p.parsed

12267+ ?. ?=(?([[%mark *] ~] [[%mark *] [%mark *] ~]) imports.mod) [%| 'request imports need unsupported inference']

12268+ ?. ?=([[%mold *] ~] defs.mod) [%| 'request definitions need unsupported inference']

12269+ ?. =(%paths name.i.defs.mod) [%| 'request declaration needs unsupported inference']

12270+ ?. ?=([* ~] paths.ev) [%| 'request count needs unsupported inference']

12271+ =/ p=iapi-path-typed i.paths.ev

12272+ =/ parts=(unit iapi-request-parts) (api-request-parts `ev name.path.p)

12273+ ?~ parts [%| 'request components need unsupported inference']

12274+ ?. ?=(?(~ [* ~]) parameters.u.parts) [%| 'request parameters need unsupported inference']

12275+ ?: &(?=(^ fold.u.parts) ?=(^ parameters.u.parts)) [%| 'request parameter and fold need unsupported inference']

12276+ ?^ scry.path.p [%| 'request scry needs unsupported inference']

12277+ =/ valid-marks=?

12278+ ?~ fold.u.parts ?=([* ~] marks.support)

12279+ ?=([* [* ~]] marks.support)

12280+ ?. valid-marks [%| 'request marks need unsupported inference']

12281+ =/ fold-open=?

12282+ ?~ fold.u.parts |

12283+ |(?=(^ (itype-vars u.fold.u.parts)) (itype-has-tag u.fold.u.parts))

12284+ ?: fold-open [%| 'request fold needs unsupported inference']

12285+ ?^ (itype-vars reply-sample.u.parts) [%| 'request payload needs unsupported inference']

12286+ ?: (itype-has-tag reply-sample.u.parts) [%| 'request payload needs unsupported inference']

12287+ =/ ask=(unit ischeme) (request-compatible-ask prepared.ev)

12288+ ?~ ask [%| 'request ask needs unsupported inference']

12289+ =/ result=(unit itype) (template-apply u.ask ~[[%var 0]])

12290+ ?~ result [%| 'request ask needs unsupported inference']

12291+ =/ callback=itype [%fn reply-sample.u.parts [%var 0]]

12292+ =/ sample=itype

12293+ ?^ fold.u.parts [%cell callback u.fold.u.parts]

12294+ ?~ parameters.u.parts callback

12295+ [%cell typ.i.parameters.u.parts callback]

12296+ =/ scheme=ischeme [[%fn sample u.result] ~[0]]

12297+ =/ exports=imold-types

12298+ (turn marks.support |=(m=iapi-mark-type [name.m [typ.m ~]]))

12299+ =/ prelude=iprelude prepared.ev

12300+ =/ public=ifile iface.prelude

12301+ ?~ source.public [%| 'request prelude source needs unsupported inference']

12302+ =/ private=(list iwidth-dependency)

12303+ (skim dependencies.public |=(d=iwidth-dependency =(at.d /lib/jibb/internal/jibb)))

12304+ ?. ?=([* ~] private) [%| 'request internal source needs unsupported inference']

12305+ ?~ source.i.private [%| 'request internal source needs unsupported inference']

12306+ =/ req=irequest-evidence

12307+ [file name.path.p p src u.source.public u.source.i.private values.prelude molds.prelude externals marks]

12308+ =/ interface=ifile [~[[name.path.p scheme]] exports file ~ ~ ~ `src `[(silt `(list path)`~[file]) ~[req] modules `public values.prelude molds.prelude externals marks]]

12309+ [%& [support u.parts interface]]

12310+::

1064712311++ api-mark-exports

1064812312 |= [marks=(list term) all=(list term) externals=imark-externals]

1064912313 ^- imold-types

@@ -10687,46 +12351,1404 @@

1068712351 =/ mark=(unit itype) (find-imported-mark n mark-externals marks)

1068812352 ?~ mark ~

1068912353 =/ sc=ischeme [[%fn u.mark typ.u.poke] ~]

10690− `[~[[n sc]] (api-mark-exports marks marks mark-externals) at ~[[n i.t.t.at n]] ~ ~ ~]

12354+ `[~[[n sc]] (api-mark-exports marks marks mark-externals) at ~[[n i.t.t.at n]] ~ ~ ~ ~]

12355+::

12356+:: Source-proven ordinary helpers validate each selected /sur dependency.

12357+:: Unused or less direct cores remain unsupported by this first interface.

12358+++ api-sur-covered

12359+ |= [surs=(list term) defs=(list def) externals=iexternals all=(list term)]

12360+ ^- ?

12361+ ?~ surs &

12362+ =/ found=(list def)

12363+ %+ skim defs

12364+ |= d=def

12365+ ?. ?=(%mold -.d) |

12366+ ?. ?=(%ref -.shape.d) |

12367+ ?. ?=([@ [@ ~]] names.shape.d) |

12368+ =(i.t.names.shape.d i.surs)

12369+ ?~ found |

12370+ =/ selected=def i.found

12371+ ?. ?=(%mold -.selected) |

12372+ =/ sh=shape shape.selected

12373+ ?. ?=(%ref -.sh) |

12374+ ?. ?=([@ [@ ~]] names.sh) |

12375+ =/ checked=(unit itype) (find-imported-mold i.surs i.names.sh externals all)

12376+ ?~ checked |

12377+ $(surs t.surs)

12378+::

12379++$ imulti-request-gates [values=ienv requests=(list irequest-evidence)]

12380+++ api-request-gates

12381+ |= [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]

12382+ ^- (unit imulti-request-gates)

12383+ ?~ paths `[~ ~]

12384+ ?: =(0 fuel) ~

12385+ =/ p=iapi-path-typed i.paths

12386+ =/ parts=(unit iapi-request-parts) (api-request-parts `ev name.path.p)

12387+ ?~ parts ~

12388+ ?. ?=(?(~ [* ~]) parameters.u.parts) ~

12389+ ?: &(?=(^ fold.u.parts) ?=(^ parameters.u.parts)) ~

12390+ ?^ scry.path.p ~

12391+ ?^ (itype-vars reply-sample.u.parts) ~

12392+ ?: (itype-has-tag reply-sample.u.parts) ~

12393+ =/ open-fold=?

12394+ ?~ fold.u.parts |

12395+ |(?=(^ (itype-vars u.fold.u.parts)) (itype-has-tag u.fold.u.parts))

12396+ ?: open-fold ~

12397+ =/ result=(unit itype) (template-apply ask ~[[%var 0]])

12398+ ?~ result ~

12399+ =/ callback=itype [%fn reply-sample.u.parts [%var 0]]

12400+ =/ sample=itype

12401+ ?^ fold.u.parts [%cell callback u.fold.u.parts]

12402+ ?~ parameters.u.parts callback

12403+ [%cell typ.i.parameters.u.parts callback]

12404+ =/ scheme=ischeme [[%fn sample u.result] ~[0]]

12405+ =/ prep=iprelude prepared.ev

12406+ =/ req=irequest-evidence

12407+ [file name.path.p p src public internal values.prep molds.prep externals marks]

12408+ =/ rest=(unit imulti-request-gates)

12409+ $(paths t.paths, fuel (dec fuel))

12410+ ?~ rest ~

12411+ `[[[name.path.p scheme] values.u.rest] [req requests.u.rest]]

12412+::

12413+++ api-poke-from-checked

12414+ |= [file=path mod=module marks=imark-externals values=(list term) molds=(list term) prelude=(unit ifile)]

12415+ ^- (unit [values=ienv derived=(list iderived)])

12416+ =/ pokes=(list def)

12417+ (skim defs.mod |=(d=def &(?=(%mold -.d) =(%poke name.d))))

12418+ ?~ pokes `[~ ~]

12419+ ?. ?=([* ~] pokes) ~

12420+ =/ declared=(list term) (collect-mark-imports imports.mod)

12421+ =/ ns=(unit (list term)) (api-poke-mark-names pokes declared)

12422+ ?~ ns ~

12423+ ?. ?=([@ ~] u.ns) ~

12424+ =/ matching=(list import)

12425+ %+ skim imports.mod

12426+ |= i=import

12427+ ?. ?=(%mark -.i) |

12428+ =(mark.i i.u.ns)

12429+ ?. ?=([* ~] matching) ~

12430+ =/ checked=(unit ifile)

12431+ (api-poke-interface file mod(defs pokes, imports matching) marks values molds prelude)

12432+ ?~ checked ~

12433+ `[values.u.checked derived.u.checked]

12434+::

12435+:: The partial interface is published atomically: all paths, ordinary

12436+:: source definitions, declared marks and the poke must check. Unselected

12437+:: /sur bindings, runtime validation and value watchability remain unproved.

12438+++ multi-request-interface-graph

12439+ |= [file=path src=@t externals=iexternals marks=imark-externals modules=jbundle active=(list path) cache=jcache prepared=(unit iprelude)]

12440+ ^- (each [iface=ifile cache=jcache] @t)

12441+ =/ out (api-support-analysis-graph file src externals marks modules active cache prepared)

12442+ ?: ?=(%| -.out) [%| p.out]

12443+ =/ support=iapi-support-evidence p.out

12444+ =/ ev=iapi-path-evidence paths.support

12445+ =/ parsed (parse file src)

12446+ ?: ?=(%| -.parsed) [%| 'request source does not parse']

12447+ =/ mod=module p.parsed

12448+ ?. (levy imports.mod |=(i=import ?=(?(%mark %sur) -.i)))

12449+ [%| 'request imports need unsupported inference']

12450+ =/ surs=(list term) (collect-sur-imports imports.mod)

12451+ ?. (api-sur-covered surs defs.mod externals surs)

12452+ [%| 'API source dependency needs unsupported inference']

12453+ ?~ paths.ev [%| 'request count needs unsupported inference']

12454+ =/ ask=(unit ischeme) (request-compatible-ask prepared.ev)

12455+ ?~ ask [%| 'request ask needs unsupported inference']

12456+ =/ prep=iprelude prepared.ev

12457+ =/ public=ifile iface.prep

12458+ ?~ source.public [%| 'request prelude source needs unsupported inference']

12459+ =/ private=(list iwidth-dependency)

12460+ (skim dependencies.public |=(d=iwidth-dependency =(at.d /lib/jibb/internal/jibb)))

12461+ ?. ?=([* ~] private) [%| 'request internal source needs unsupported inference']

12462+ ?~ source.i.private [%| 'request internal source needs unsupported inference']

12463+ =/ gates=(unit imulti-request-gates)

12464+ (api-request-gates paths.ev ev u.ask file src u.source.public u.source.i.private externals marks 256)

12465+ ?~ gates [%| 'request paths need unsupported inference']

12466+ =/ poke=(unit [values=ienv derived=(list iderived)])

12467+ (api-poke-from-checked file mod marks values.prep molds.prep `public)

12468+ ?~ poke [%| 'API poke needs unsupported inference']

12469+ =/ mark-molds=imold-types

12470+ (turn marks.support |=(m=iapi-mark-type [name.m [typ.m ~]]))

12471+ =/ exports=imold-types (weld mark-molds molds.support)

12472+ =/ names=(list term) (turn exports |=(m=[name=term template=ischeme] name.m))

12473+ ?. (levy names |=(n=term (unique-value-name n names)))

12474+ [%| 'API exported molds need unsupported inference']

12475+ =/ env=ienv (weld values.u.gates (weld values.u.poke values.support))

12476+ =/ graph=irequest-graph

12477+ [(silt `(list path)`~[file]) requests.u.gates modules `public values.prep molds.prep externals marks]

12478+ =/ iface=ifile

12479+ [env exports file derived.u.poke elaborations.support ~ `src `graph]

12480+ [%& [iface dependencies.ev]]

12481+::

12482+:: A checked program main is only the direct four-component source call.

12483+:: Grouping is transparent, but aliases, qualified wings and other module

12484+:: kinds remain outside this slice.

12485+++ program-main-def

12486+ |= ds=(list def)

12487+ ^- (unit def)

12488+ ?~ ds ~

12489+ ?: &(?=(%value -.i.ds) =(%main name.i.ds)) `i.ds

12490+ $(ds t.ds)

12491+::

12492+++ program-main-wing

12493+ |= e=expr

12494+ ^- (unit term)

12495+ ?: ?=(%group -.e) $(e inner.e)

12496+ ?. ?=(%wing -.e) ~

12497+ ?. ?=([@ ~] names.e) ~

12498+ `i.names.e

12499+::

12500+++ program-main-args

12501+ |= d=def

12502+ ^- (unit (list expr))

12503+ ?. ?=(%value -.d) ~

12504+ |-

12505+ ?: ?=(%group -.val.d) $(val.d inner.val.d)

12506+ ?. ?=(%call -.val.d) ~

12507+ =/ head=(unit term) (program-main-wing head.val.d)

12508+ ?~ head ~

12509+ ?. =(%program u.head) ~

12510+ ?. ?=([* * * * ~] args.val.d) ~

12511+ `args.val.d

12512+::

12513+++ program-main-parts

12514+ |= d=def

12515+ ^- (unit [init=term update=term view=term subs=term])

12516+ ?. ?=(%value -.d) ~

12517+ |-

12518+ ?: ?=(%group -.val.d) $(val.d inner.val.d)

12519+ ?. ?=(%call -.val.d) ~

12520+ =/ head=(unit term) (program-main-wing head.val.d)

12521+ ?~ head ~

12522+ ?. =(%program u.head) ~

12523+ ?. ?=([* * * * ~] args.val.d) ~

12524+ =/ args=(list expr) args.val.d

12525+ ?> ?=([* * * * ~] args)

12526+ =/ init=(unit term) (program-main-wing i.args)

12527+ =/ update=(unit term) (program-main-wing i.t.args)

12528+ =/ view=(unit term) (program-main-wing i.t.t.args)

12529+ =/ subs=(unit term) (program-main-wing i.t.t.t.args)

12530+ ?~ init ~

12531+ ?~ update ~

12532+ ?~ view ~

12533+ ?~ subs ~

12534+ `[u.init u.update u.view u.subs]

12535+::

12536+++ program-empty-null

12537+ |= e=expr

12538+ ^- ?

12539+ ?- -.e

12540+ %lit =(%null form.lit.e)

12541+ %cast $(e val.e)

12542+ %group $(e inner.e)

12543+ %body ?~(defs.e $(e final.e) |)

12544+ * |

12545+ ==

12546+::

12547+++ program-subs-empty

12548+ |= d=def

12549+ ^- ?

12550+ ?. ?=(%value -.d) |

12551+ ?- -.val.d

12552+ %gate (program-empty-null body.val.d)

12553+ %gate-wide (program-empty-null body.val.d)

12554+ * |

12555+ ==

12556+::

12557+++ program-transparent

12558+ |= e=expr

12559+ ^- expr

12560+ ?- -.e

12561+ %group $(e inner.e)

12562+ %cast $(e val.e)

12563+ %body ?~(defs.e $(e final.e) e)

12564+ * e

12565+ ==

12566+++ program-init-tuple-null

12567+ |= d=def

12568+ ^- ?

12569+ ?. ?=(%value -.d) |

12570+ ?. |(?=(%gate -.val.d) ?=(%gate-wide -.val.d)) |

12571+ =/ body=expr

12572+ ?- -.val.d

12573+ %gate body.val.d

12574+ %gate-wide body.val.d

12575+ * !!

12576+ ==

12577+ =. body (program-transparent body)

12578+ ?. ?=(%tuple -.body) |

12579+ ?~ items.body |

12580+ (program-empty-null val:(rear items.body))

12581+::

12582+:: Recover only the update of an already recognized direct program main.

12583+:: Its written sample determines the message/model relationship; the canonical

12584+:: cmd, unit and update slot determine the result context. Publication is

12585+:: component-local so later subscription/view/initializer retries can accumulate.

12586+++ program-update-context

12587+ |= [main=def parts=[init=term update=term view=term subs=term] ds=(list def) resolution=iresolved initial=istate]

12588+ ^- (unit iresolved)

12589+ =/ env=ienv env.resolution

12590+ ?^ (ienv-lookup %main env) ~

12591+ ?^ (ienv-lookup update.parts env) ~

12592+ =/ updates=(list def)

12593+ (skim ds |=(d=def &(?=(%value -.d) =(update.parts name.d))))

12594+ ?. ?=([* ~] updates) ~

12595+ =/ update-def=def i.updates

12596+ ?> ?=(%value -.update-def)

12597+ =/ written-update=(unit sample) (direct-gate-sample update-def)

12598+ ?~ written-update ~

12599+ ?. ?=(%cell -.u.written-update) ~

12600+ ?. ?=([* * ~] items.u.written-update) ~

12601+ ?~ prelude.initial ~

12602+ =/ program=(unit ischeme) (ienv-lookup %program values.u.prelude.initial)

12603+ ?~ program ~

12604+ =/ command=(unit ischeme) (find-jibb-mold %cmd u.prelude.initial)

12605+ =/ list-template=(unit ischeme) (find-jibb-mold %list u.prelude.initial)

12606+ ?~ command ~

12607+ ?~ list-template ~

12608+ =/ heads=(unit igate-prelude-evidence) (direct-prelude-evidence ds prelude.initial)

12609+ ?~ heads ~

12610+ =/ written=(unit def) (~(get by gates.u.heads) %program)

12611+ ?~ written ~

12612+ =/ written-sample=(unit sample) (direct-gate-sample u.written)

12613+ ?~ written-sample ~

12614+ ?. ?=(%cell -.u.written-sample) ~

12615+ ?. ?=([* * * * ~] items.u.written-sample) ~

12616+ =/ checked=(map term def)

12617+ (~(put by (direct-checked-gates ds env)) update.parts update-def)

12618+ =/ templates=ienv

12619+ (turn molds.u.prelude.initial |=(x=[name=term template=ischeme] [name.x template.x]))

12620+ =/ scanned=(unit dgscan)

12621+ (dg-all-env-ids (weld env (weld values.u.prelude.initial templates)) 32.768 ~)

12622+ ?~ scanned ~

12623+ =. next.initial (dg-next-id ids.u.scanned 0)

12624+ =/ update-state=istate (reserve-def-caps val.update-def initial)

12625+ =/ sam=isample-result (infer-sample u.written-update env update-state)

12626+ ?: ?=(%| -.sam) ~

12627+ =/ actual-sample=itype (itype-normalize typ.p.sam sub.state.p.sam)

12628+ ?. ?=(%cell -.actual-sample) ~

12629+ =/ message=(unit itype)

12630+ (direct-slot-body hed.actual-sample (direct-sample-name i.items.u.written-update))

12631+ =/ model=(unit itype)

12632+ (direct-slot-body tal.actual-sample (direct-sample-name i.t.items.u.written-update))

12633+ ?~ message ~

12634+ ?~ model ~

12635+ =/ cmd=(unit itype) (template-apply u.command ~[u.message])

12636+ ?~ cmd ~

12637+ =/ command-result=(unit itype) (template-apply u.list-template ~[u.cmd])

12638+ ?~ command-result ~

12639+ =/ product=itype [%cell u.model u.command-result]

12640+ =/ instance=[typ=itype state=istate] (instantiate-scheme u.program state.p.sam)

12641+ ?. ?=(%fn -.typ.instance) ~

12642+ ?. ?=(%cell -.sample.typ.instance) ~

12643+ ?. ?=(%cell -.tal.sample.typ.instance) ~

12644+ =/ expected-update=(unit itype)

12645+ (direct-slot-body hed.tal.sample.typ.instance (direct-sample-name i.t.items.u.written-sample))

12646+ ?~ expected-update ~

12647+ ?. ?=(%fn -.u.expected-update) ~

12648+ :: Sample binders are not value faces. Strip only those two slot faces

12649+ :: for the invariant canonical-gate proof; the source-faced gate is still

12650+ :: used by the complete positional call and final ordinary result cast.

12651+ =/ canonical-candidate=itype [%fn [%cell u.message u.model] product]

12652+ =/ gate-fit=ifit

12653+ (direct-invariant canonical-candidate u.expected-update sub.state.instance next.state.instance)

12654+ ?. ?=(%ok -.gate-fit) ~

12655+ =/ closed=itype

12656+ (itype-normalize [%fn typ.p.sam product] sub.gate-fit)

12657+ ?. ?=(%fn -.closed) ~

12658+ :: The closed product no longer needs the canonical slot substitutions.

12659+ :: Start the body at its ordinary sample state so existing branch retries

12660+ :: keep their substitution guards, but retain the shared fresh-ID high water.

12661+ =/ st=istate state.p.sam(next next.gate-fit, gate-defs checked, head-evidence heads)

12662+ =/ body=expr

12663+ ?- -.val.update-def

12664+ %gate body.val.update-def

12665+ %gate-wide body.val.update-def

12666+ * !!

12667+ ==

12668+ =/ inferred=iresult

12669+ (infer-call-context-arg body product.closed env.p.sam st (span-of body))

12670+ ?: ?=(%| -.inferred) ~

12671+ =/ product-fit=ifit

12672+ (itype-fit typ.p.inferred product.closed sub.state.p.inferred next.state.p.inferred)

12673+ ?. ?=(%ok -.product-fit) ~

12674+ =/ merged-product=itype

12675+ (itype-merge-faces typ.p.inferred product.closed sub.product-fit)

12676+ =/ actual-cast=itype [%fn typ.p.sam merged-product]

12677+ =/ cast=ifit

12678+ (itype-fit actual-cast closed sub.product-fit next.product-fit)

12679+ ?. ?=(%ok -.cast) ~

12680+ =/ merged=itype (itype-merge-faces actual-cast closed sub.cast)

12681+ =/ adjusted=iresult

12682+ [%& merged state.p.inferred(sub sub.cast, next next.cast)]

12683+ =/ added=(unit iadded-definition)

12684+ (add-supported-result update-def adjusted update-state env checked artifacts.resolution)

12685+ ?~ added ~

12686+ =/ recovered=(unit ischeme) (ienv-lookup update.parts env.u.added)

12687+ ?~ recovered ~

12688+ ?. ?=(~ vars.u.recovered) ~

12689+ ?. ?=(~ (itype-vars typ.u.recovered)) ~

12690+ `[env.u.added grouped.resolution artifacts.u.added]

12691+::

12692+++ program-inferred-slot

12693+ |= [typ=itype name=(unit term)]

12694+ ^- itype

12695+ ?~ name typ

12696+ ?: &(?=(%face -.typ) =(name.typ u.name)) body.typ

12697+ typ

12698+::

12699+++ program-inferred-sample

12700+ |= [typ=itype sam=sample]

12701+ ^- itype

12702+ (program-inferred-slot typ (direct-sample-name sam))

12703+::

12704+++ program-two-slot-names

12705+ |= sam=sample

12706+ ^- (unit [first=(unit term) second=(unit term)])

12707+ ?- -.sam

12708+ %cell

12709+ ?. ?=([* * ~] items.sam) ~

12710+ `[(direct-sample-name i.items.sam) (direct-sample-name i.t.items.sam)]

12711+ %face

12712+ ?. ?=(%cell -.shape.sam) ~

12713+ ?. ?=([* * ~] fields.shape.sam) ~

12714+ `[(direct-field-name i.fields.shape.sam) (direct-field-name i.t.fields.shape.sam)]

12715+ * ~

12716+ ==

12717+::

12718+:: Read message/model from the checked update and its written source layout.

12719+:: The source names strip only top-level sample binder faces; nested value

12720+:: faces remain part of the canonical message and model.

12721+++ program-update-relation

12722+ |= [name=term ds=(list def) env=ienv]

12723+ ^- (unit [message=itype model=itype])

12724+ =/ update=(unit ischeme) (ienv-lookup name env)

12725+ ?~ update ~

12726+ ?. ?=(~ vars.u.update) ~

12727+ ?. ?=(~ (itype-vars typ.u.update)) ~

12728+ ?. ?=(%fn -.typ.u.update) ~

12729+ ?. ?=(%cell -.sample.typ.u.update) ~

12730+ =/ defs=(list def)

12731+ (skim ds |=(d=def &(?=(%value -.d) =(name name.d))))

12732+ ?. ?=([* ~] defs) ~

12733+ =/ written=(unit sample) (direct-gate-sample i.defs)

12734+ ?~ written ~

12735+ ?. ?=(%cell -.u.written) ~

12736+ ?. ?=([* * ~] items.u.written) ~

12737+ =/ message=(unit itype)

12738+ (direct-slot-body hed.sample.typ.u.update (direct-sample-name i.items.u.written))

12739+ =/ model=(unit itype)

12740+ (direct-slot-body tal.sample.typ.u.update (direct-sample-name i.t.items.u.written))

12741+ ?~ message ~

12742+ ?~ model ~

12743+ `[u.message u.model]

12744+::

12745+:: Recover an unannotated direct subscription component from the checked

12746+:: update relation and canonical fourth program slot. This establishes only

12747+:: the value type; the final program watch proof remains separate.

12748+++ program-subs-context

12749+ |= [parts=[init=term update=term view=term subs=term] ds=(list def) resolution=iresolved initial=istate]

12750+ ^- (unit iresolved)

12751+ =/ env=ienv env.resolution

12752+ ?^ (ienv-lookup %main env) ~

12753+ ?^ (ienv-lookup subs.parts env) ~

12754+ =/ relation=(unit [message=itype model=itype])

12755+ (program-update-relation update.parts ds env)

12756+ ?~ relation ~

12757+ =/ subs=(list def)

12758+ (skim ds |=(d=def &(?=(%value -.d) =(subs.parts name.d))))

12759+ ?. ?=([* ~] subs) ~

12760+ =/ subs-def=def i.subs

12761+ ?> ?=(%value -.subs-def)

12762+ =/ written-subs=(unit sample) (direct-gate-sample subs-def)

12763+ ?~ written-subs ~

12764+ ?~ prelude.initial ~

12765+ =/ program=(unit ischeme) (ienv-lookup %program values.u.prelude.initial)

12766+ =/ sub=(unit ischeme) (find-jibb-mold %sub u.prelude.initial)

12767+ =/ list-template=(unit ischeme) (find-jibb-mold %list u.prelude.initial)

12768+ ?~ program ~

12769+ ?~ sub ~

12770+ ?~ list-template ~

12771+ =/ heads=(unit igate-prelude-evidence) (direct-prelude-evidence ds prelude.initial)

12772+ ?~ heads ~

12773+ =/ written=(unit def) (~(get by gates.u.heads) %program)

12774+ ?~ written ~

12775+ =/ written-sample=(unit sample) (direct-gate-sample u.written)

12776+ ?~ written-sample ~

12777+ ?. ?=(%cell -.u.written-sample) ~

12778+ ?. ?=([* * * * ~] items.u.written-sample) ~

12779+ =/ checked=(map term def) (direct-checked-gates ds env)

12780+ =/ templates=ienv

12781+ (turn molds.u.prelude.initial |=(x=[name=term template=ischeme] [name.x template.x]))

12782+ =/ scanned=(unit dgscan)

12783+ (dg-all-env-ids (weld env (weld values.u.prelude.initial templates)) 32.768 ~)

12784+ ?~ scanned ~

12785+ =. next.initial (dg-next-id ids.u.scanned 0)

12786+ =/ subs-state=istate (reserve-def-caps val.subs-def initial)

12787+ =/ sam=isample-result (infer-sample u.written-subs env subs-state)

12788+ ?: ?=(%| -.sam) ~

12789+ =/ actual-model=itype (program-inferred-sample typ.p.sam u.written-subs)

12790+ ?. ?=(~ (itype-vars actual-model)) ~

12791+ ?: (itype-has-tag actual-model) ~

12792+ =/ model-fit=ifit

12793+ (direct-invariant actual-model model.u.relation sub.state.p.sam next.state.p.sam)

12794+ ?. ?=(%ok -.model-fit) ~

12795+ =/ message-sub=(unit itype) (template-apply u.sub ~[message.u.relation])

12796+ ?~ message-sub ~

12797+ =/ product=(unit itype) (template-apply u.list-template ~[u.message-sub])

12798+ ?~ product ~

12799+ =/ instance=[typ=itype state=istate]

12800+ (instantiate-scheme u.program state.p.sam(sub sub.model-fit, next next.model-fit))

12801+ ?. ?=(%fn -.typ.instance) ~

12802+ ?. ?=(%cell -.sample.typ.instance) ~

12803+ ?. ?=(%cell -.tal.sample.typ.instance) ~

12804+ ?. ?=(%cell -.tal.tal.sample.typ.instance) ~

12805+ =/ expected-subs=(unit itype)

12806+ (direct-slot-body tal.tal.tal.sample.typ.instance (direct-sample-name i.t.t.t.items.u.written-sample))

12807+ ?~ expected-subs ~

12808+ ?. ?=(%fn -.u.expected-subs) ~

12809+ =/ canonical=itype [%fn model.u.relation u.product]

12810+ =/ gate-fit=ifit

12811+ (direct-invariant canonical u.expected-subs sub.state.instance next.state.instance)

12812+ ?. ?=(%ok -.gate-fit) ~

12813+ =/ closed=itype

12814+ (itype-normalize [%fn typ.p.sam u.product] sub.gate-fit)

12815+ ?. ?=(%fn -.closed) ~

12816+ =/ body=expr

12817+ ?- -.val.subs-def

12818+ %gate body.val.subs-def

12819+ %gate-wide body.val.subs-def

12820+ * !!

12821+ ==

12822+ =/ st=istate

12823+ state.p.sam(next next.gate-fit, gate-defs checked, head-evidence heads)

12824+ =/ inferred=iresult

12825+ (infer-call-context-arg body product.closed env.p.sam st (span-of body))

12826+ ?: ?=(%| -.inferred) ~

12827+ =/ product-fit=ifit

12828+ (itype-fit typ.p.inferred product.closed sub.state.p.inferred next.state.p.inferred)

12829+ ?. ?=(%ok -.product-fit) ~

12830+ =/ merged-product=itype

12831+ (itype-merge-faces typ.p.inferred product.closed sub.product-fit)

12832+ =/ actual-cast=itype [%fn typ.p.sam merged-product]

12833+ =/ cast=ifit

12834+ (itype-fit actual-cast closed sub.product-fit next.product-fit)

12835+ ?. ?=(%ok -.cast) ~

12836+ =/ merged=itype (itype-merge-faces actual-cast closed sub.cast)

12837+ =/ adjusted=iresult

12838+ [%& merged state.p.inferred(sub sub.cast, next next.cast)]

12839+ =/ added=(unit iadded-definition)

12840+ (add-supported-result subs-def adjusted subs-state env checked artifacts.resolution)

12841+ ?~ added ~

12842+ =/ recovered=(unit ischeme) (ienv-lookup subs.parts env.u.added)

12843+ ?~ recovered ~

12844+ ?. ?=(~ vars.u.recovered) ~

12845+ ?. ?=(~ (itype-vars typ.u.recovered)) ~

12846+ `[env.u.added grouped.resolution artifacts.u.added]

12847+::

12848++$ iview-site [xs=expr mapper=term]

12849+++ program-view-site

12850+ |= e=expr

12851+ ^- (unit iview-site)

12852+ =. e (program-transparent e)

12853+ ?. ?=(%call -.e) ~

12854+ ?. ?=([* ~] args.e) ~

12855+ =/ each=expr (program-transparent head.e)

12856+ ?. ?=(%wing -.each) ~

12857+ ?. ?=([%each ~] names.each) ~

12858+ =/ turned=expr (program-transparent i.args.e)

12859+ ?. ?=(%call -.turned) ~

12860+ ?. ?=([* * ~] args.turned) ~

12861+ =/ turn=expr (program-transparent head.turned)

12862+ ?. ?=(%wing -.turn) ~

12863+ ?. ?=([%turn ~] names.turn) ~

12864+ =/ xs=expr (program-transparent i.args.turned)

12865+ ?. ?=(%wing -.xs) ~

12866+ ?~ names.xs ~

12867+ =/ mapper=(unit term) (program-main-wing i.t.args.turned)

12868+ ?~ mapper ~

12869+ `[xs u.mapper]

12870+::

12871+++ program-recovery-names

12872+ |= ds=(list def)

12873+ ^- (list term)

12874+ =/ main=(unit def) (program-main-def ds)

12875+ ?~ main ~

12876+ =/ parts=(unit [init=term update=term view=term subs=term])

12877+ (program-main-parts u.main)

12878+ ?~ parts ~

12879+ =/ views=(list def)

12880+ (skim ds |=(d=def &(?=(%value -.d) =(view.u.parts name.d))))

12881+ ?. ?=([* ~] views) ~

12882+ =/ view-def=def i.views

12883+ ?> ?=(%value -.view-def)

12884+ =/ written=(unit sample) (direct-gate-sample view-def)

12885+ ?~ written ~

12886+ =/ body=expr

12887+ ?- -.val.view-def

12888+ %gate body.val.view-def

12889+ %gate-wide body.val.view-def

12890+ * !!

12891+ ==

12892+ =/ sites=(unit (list iview-site)) (program-view-sites body ~)

12893+ ?~ sites ~

12894+ ?. ?=([* ~] u.sites) ~

12895+ =/ mapper=term mapper.i.u.sites

12896+ =/ components=(list term)

12897+ :~ init.u.parts

12898+ update.u.parts

12899+ view.u.parts

12900+ subs.u.parts

12901+ ==

12902+ ?: (lien components |=(n=term =(n mapper))) ~

12903+ =/ mappers=(list def)

12904+ (skim ds |=(d=def &(?=(%value -.d) =(mapper name.d))))

12905+ ?. ?=([* ~] mappers) ~

12906+ :~ init.u.parts

12907+ update.u.parts

12908+ view.u.parts

12909+ subs.u.parts

12910+ mapper

12911+ ==

12912+::

12913+++ program-sample-binders

12914+ |= sam=sample

12915+ ^- (list term)

12916+ ?- -.sam

12917+ %bind ~[name.sam]

12918+ %face ~[name.sam]

12919+ %pun ~[name.sam]

12920+ %cell (zing (turn items.sam |=(s=sample (program-sample-binders s))))

12921+ * ~

12922+ ==

12923+::

12924+++ program-pattern-binders

12925+ |= pat=pattern

12926+ ^- (list term)

12927+ ?- -.pat

12928+ %bind ~[name.pat]

12929+ %cell (zing (turn items.pat |=(p=pattern (program-pattern-binders p))))

12930+ * ~

12931+ ==

12932+::

12933+++ program-view-sites-merge

12934+ |= [a=(unit (list iview-site)) b=(unit (list iview-site))]

12935+ ^- (unit (list iview-site))

12936+ ?~ a ~

12937+ ?~ b ~

12938+ `(weld u.a u.b)

12939+::

12940+++ program-view-sites-exprs

12941+ |= [xs=(list expr) locals=(list term)]

12942+ ^- (unit (list iview-site))

12943+ ?~ xs `~

12944+ (program-view-sites-merge (program-view-sites i.xs locals) $(xs t.xs))

12945+::

12946+++ program-view-sites-items

12947+ |= [xs=(list item) locals=(list term)]

12948+ ^- (unit (list iview-site))

12949+ ?~ xs `~

12950+ (program-view-sites-merge (program-view-sites val.i.xs locals) $(xs t.xs))

12951+::

12952+++ program-view-sites-pieces

12953+ |= [xs=(list piece) locals=(list term)]

12954+ ^- (unit (list iview-site))

12955+ ?~ xs `~

12956+ =/ here=(unit (list iview-site))

12957+ ?- -.i.xs

12958+ %expr (program-view-sites p.i.xs locals)

12959+ %text `~

12960+ ==

12961+ (program-view-sites-merge here $(xs t.xs))

12962+::

12963+++ program-view-sites-qsegs

12964+ |= [xs=(list qseg) locals=(list term)]

12965+ ^- (unit (list iview-site))

12966+ ?~ xs `~

12967+ =/ here=(unit (list iview-site))

12968+ ?- -.i.xs

12969+ %expr (program-view-sites p.i.xs locals)

12970+ %knot `~

12971+ ==

12972+ (program-view-sites-merge here $(xs t.xs))

12973+::

12974+++ program-view-sites-edits

12975+ |= [xs=(list edit) locals=(list term)]

12976+ ^- (unit (list iview-site))

12977+ ?~ xs `~

12978+ (program-view-sites-merge (program-view-sites val.i.xs locals) $(xs t.xs))

12979+::

12980+++ program-view-sites-defs

12981+ |= [xs=(list def) locals=(list term)]

12982+ ^- (unit (list iview-site))

12983+ ?~ xs `~

12984+ =/ here=(unit (list iview-site))

12985+ ?: ?=(%mold -.i.xs) `~

12986+ (program-view-sites val.i.xs locals)

12987+ (program-view-sites-merge here $(xs t.xs))

12988+::

12989+++ program-view-sites-arms

12990+ |= [xs=(list arm) locals=(list term)]

12991+ ^- (unit (list iview-site))

12992+ ?~ xs `~

12993+ =/ nested=(list term) (weld (program-pattern-binders pat.i.xs) locals)

12994+ (program-view-sites-merge (program-view-sites val.i.xs nested) $(xs t.xs))

12995+::

12996+++ program-view-sites

12997+ |= [e=expr locals=(list term)]

12998+ ^- (unit (list iview-site))

12999+ =/ site=(unit iview-site) (program-view-site e)

13000+ ?^ site

13001+ =/ names=(list term) ~[%each %turn mapper.u.site]

13002+ ?> ?=(%wing -.xs.u.site)

13003+ =/ root=term (rear names.xs.u.site)

13004+ ?: |((lien names |=(n=term (lien locals |=(x=term =(n x))))) (lien locals |=(x=term =(root x))))

13005+ ~

13006+ `~[u.site]

13007+ ?- -.e

13008+ %str (program-view-sites-pieces pieces.e locals)

13009+ %qath (program-view-sites-qsegs segs.e locals)

13010+ %change (program-view-sites-edits edits.e locals)

13011+ %pair (program-view-sites val.e locals)

13012+ %unit (program-view-sites val.e locals)

13013+ %group (program-view-sites inner.e locals)

13014+ %list (program-view-sites-exprs items.e locals)

13015+ %tuple (program-view-sites-items items.e locals)

13016+ %gate

13017+ (program-view-sites body.e (weld (program-sample-binders sample.e) locals))

13018+ %gate-wide

13019+ (program-view-sites body.e (weld (program-sample-binders sample.e) locals))

13020+ %call

13021+ (program-view-sites-merge (program-view-sites head.e locals) (program-view-sites-exprs args.e locals))

13022+ %cast (program-view-sites val.e locals)

13023+ %trace

13024+ (program-view-sites-merge (program-view-sites val.e locals) (program-view-sites then.e locals))

13025+ %branch

13026+ (program-view-sites-merge (program-view-sites subject.e locals) (program-view-sites-arms arms.e locals))

13027+ %body

13028+ =/ nested=(list term) (weld (global-value-names defs.e) locals)

13029+ (program-view-sites-merge (program-view-sites-defs defs.e nested) (program-view-sites final.e nested))

13030+ * `~

13031+ ==

13032+::

13033+++ program-union-tag-case

13034+ |= [expected=itype tag=@]

13035+ ^- (unit itype)

13036+ ?. ?=(%union -.expected) ~

13037+ =/ remaining=(list itype) cases.expected

13038+ =/ found=(unit itype) ~

13039+ =/ seen=(set @) *(set @)

13040+ |-

13041+ ?~ remaining found

13042+ =/ case=itype i.remaining

13043+ =/ head=(unit @)

13044+ ?: ?=(%const -.case) `val.literal.case

13045+ ?. ?=(%cell -.case) ~

13046+ ?. ?=(%const -.hed.case) ~

13047+ `val.literal.hed.case

13048+ ?~ head ~

13049+ ?: (~(has in:..zuse seen) u.head) ~

13050+ =. seen (~(put in:..zuse seen) u.head)

13051+ =? found =(tag u.head)

13052+ ?^(found ~ `case)

13053+ $(remaining t.remaining)

13054+::

13055+++ program-single-case-fit

13056+ |= [actual=itype expected=itype sub=isub next=@ud]

13057+ ^- ifit

13058+ =. actual (itype-normalize actual sub)

13059+ =. expected (itype-normalize expected sub)

13060+ ?. ?=(%union -.expected) [%unknown ~]

13061+ =/ found=(unit itype)

13062+ ?: ?=(%const -.actual) `actual

13063+ ?: ?=(%tag -.actual) `actual

13064+ ?: ?=(%cell -.actual) `actual

13065+ ?. ?=(%union -.actual) ~

13066+ ?. ?=([* ~] cases.actual) ~

13067+ `i.cases.actual

13068+ ?~ found [%unknown ~]

13069+ =/ case=itype u.found

13070+ =/ tag=(unit lit)

13071+ ?: ?=(%const -.case) `literal.case

13072+ ?: ?=(%tag -.case) `literal.case

13073+ ?. ?=(%cell -.case) ~

13074+ =/ head=itype (projection-field-target hed.case)

13075+ ?: ?=(%const -.head) `literal.head

13076+ ?: ?=(%tag -.head) `literal.head

13077+ ~

13078+ ?~ tag [%unknown ~]

13079+ =/ chosen=(unit itype) (program-union-tag-case expected val.u.tag)

13080+ ?~ chosen [%unknown ~]

13081+ ?: |(?=(%const -.case) ?=(%tag -.case))

13082+ ?. ?=(%const -.u.chosen) [%unknown ~]

13083+ (itype-fit case u.chosen sub next)

13084+ ?. ?=(%cell -.case) [%unknown ~]

13085+ ?. ?=(%cell -.u.chosen) [%unknown ~]

13086+ =/ head-fit=ifit (itype-fit hed.case hed.u.chosen sub next)

13087+ ?. ?=(%ok -.head-fit) head-fit

13088+ (itype-fit tal.case tal.u.chosen sub.head-fit next.head-fit)

13089+::

13090+++ program-single-generic-fit

13091+ |= [actual=itype expected=itype sub=isub next=@ud]

13092+ ^- ifit

13093+ =. actual (itype-normalize actual sub)

13094+ =. expected (itype-normalize expected sub)

13095+ ?. &(?=(%union -.actual) ?=(%union -.expected)) [%unknown ~]

13096+ ?~ origin.actual [%unknown ~]

13097+ ?. =(origin.actual origin.expected) [%unknown ~]

13098+ ?. ?=([* ~] args.actual) [%unknown ~]

13099+ ?. ?=([* ~] args.expected) [%unknown ~]

13100+ =/ argument-fit=ifit (direct-invariant i.args.actual i.args.expected sub next)

13101+ ?: ?=(%ok -.argument-fit) argument-fit

13102+ (program-single-case-fit i.args.actual i.args.expected sub next)

13103+::

13104+++ program-keyed-product-fit

13105+ |= [actual=itype expected=itype element=ischeme sub=isub next=@ud]

13106+ ^- ifit

13107+ =. actual (itype-normalize actual sub)

13108+ =. expected (itype-normalize expected sub)

13109+ ?. &(?=(%cell -.actual) ?=(%cell -.expected)) [%unknown ~]

13110+ =/ key-fit=ifit

13111+ (itype-fit (projection-field-target hed.actual) (projection-field-target hed.expected) sub next)

13112+ ?. ?=(%ok -.key-fit) key-fit

13113+ =/ actual-el=itype

13114+ (itype-normalize (projection-field-target tal.actual) sub.key-fit)

13115+ =/ expected-el=itype

13116+ (itype-normalize (projection-field-target tal.expected) sub.key-fit)

13117+ ?. &(?=(%union -.actual-el) ?=(%union -.expected-el)) [%unknown ~]

13118+ ?. =(origin.actual-el origin.expected-el) [%unknown ~]

13119+ ?. ?=([* ~] args.actual-el) [%unknown ~]

13120+ ?. ?=([* ~] args.expected-el) [%unknown ~]

13121+ =/ canonical-actual=(unit itype)

13122+ (template-apply element ~[i.args.actual-el])

13123+ =/ canonical-expected=(unit itype)

13124+ (template-apply element ~[i.args.expected-el])

13125+ ?~ canonical-actual [%unknown ~]

13126+ ?~ canonical-expected [%unknown ~]

13127+ =/ actual-check=ifit

13128+ (direct-invariant actual-el u.canonical-actual sub.key-fit next.key-fit)

13129+ ?. ?=(%ok -.actual-check) actual-check

13130+ =/ expected-check=ifit

13131+ (direct-invariant expected-el u.canonical-expected sub.actual-check next.actual-check)

13132+ ?. ?=(%ok -.expected-check) expected-check

13133+ =/ case-fit=ifit

13134+ (program-single-case-fit i.args.actual-el i.args.expected-el sub.expected-check next.expected-check)

13135+ case-fit

13136+::

13137+:: Recover exactly one direct keyed each/turn row mapper, then its view.

13138+:: The prelude's own each and turn schemes determine the mapper gate: the

13139+:: key is inferred from the mapper body, never selected by this recovery.

13140+++ program-view-context

13141+ |= [parts=[init=term update=term view=term subs=term] ds=(list def) resolution=iresolved initial=istate]

13142+ ^- (unit iresolved)

13143+ =/ env=ienv env.resolution

13144+ ?^ (ienv-lookup %main env) ~

13145+ ?^ (ienv-lookup view.parts env) ~

13146+ =/ relation=(unit [message=itype model=itype])

13147+ (program-update-relation update.parts ds env)

13148+ ?~ relation ~

13149+ =/ views=(list def)

13150+ (skim ds |=(d=def &(?=(%value -.d) =(view.parts name.d))))

13151+ ?. ?=([* ~] views) ~

13152+ =/ view-def=def i.views

13153+ ?> ?=(%value -.view-def)

13154+ =/ written-view=(unit sample) (direct-gate-sample view-def)

13155+ ?~ written-view ~

13156+ =/ view-body=expr

13157+ ?- -.val.view-def

13158+ %gate body.val.view-def

13159+ %gate-wide body.val.view-def

13160+ * !!

13161+ ==

13162+ =/ sites=(unit (list iview-site)) (program-view-sites view-body ~)

13163+ ?~ sites ~

13164+ ?. ?=([* ~] u.sites) ~

13165+ =/ site=iview-site i.u.sites

13166+ =/ component-names=(list term) ~[init.parts update.parts view.parts subs.parts]

13167+ ?: (lien component-names |=(n=term =(n mapper.site))) ~

13168+ ?^ (ienv-lookup mapper.site env) ~

13169+ =/ mappers=(list def)

13170+ (skim ds |=(d=def &(?=(%value -.d) =(mapper.site name.d))))

13171+ ?. ?=([* ~] mappers) ~

13172+ =/ mapper-def=def i.mappers

13173+ ?> ?=(%value -.mapper-def)

13174+ =/ written-mapper=(unit sample) (direct-gate-sample mapper-def)

13175+ ?~ written-mapper ~

13176+ ?~ prelude.initial ~

13177+ =/ program=(unit ischeme) (ienv-lookup %program values.u.prelude.initial)

13178+ =/ each-scheme=(unit ischeme) (ienv-lookup %each values.u.prelude.initial)

13179+ =/ turn-scheme=(unit ischeme) (ienv-lookup %turn values.u.prelude.initial)

13180+ =/ element=(unit ischeme) (find-jibb-mold %element u.prelude.initial)

13181+ =/ list-template=(unit ischeme) (find-jibb-mold %list u.prelude.initial)

13182+ ?~ program ~

13183+ ?~ each-scheme ~

13184+ ?~ turn-scheme ~

13185+ ?~ element ~

13186+ ?~ list-template ~

13187+ =/ heads=(unit igate-prelude-evidence) (direct-prelude-evidence ds prelude.initial)

13188+ ?~ heads ~

13189+ =/ written-program=(unit def) (~(get by gates.u.heads) %program)

13190+ =/ written-each=(unit def) (~(get by gates.u.heads) %each)

13191+ =/ written-turn=(unit def) (~(get by gates.u.heads) %turn)

13192+ ?~ written-program ~

13193+ ?~ written-each ~

13194+ ?~ written-turn ~

13195+ =/ program-sample=(unit sample) (direct-gate-sample u.written-program)

13196+ =/ each-sample=(unit sample) (direct-gate-sample u.written-each)

13197+ =/ turn-sample=(unit sample) (direct-gate-sample u.written-turn)

13198+ ?~ program-sample ~

13199+ ?~ each-sample ~

13200+ ?~ turn-sample ~

13201+ ?. ?=(%cell -.u.program-sample) ~

13202+ ?. ?=([* * * * ~] items.u.program-sample) ~

13203+ =/ turn-names=(unit [first=(unit term) second=(unit term)])

13204+ (program-two-slot-names u.turn-sample)

13205+ ?~ turn-names ~

13206+ =/ checked=(map term def) (direct-checked-gates ds env)

13207+ =/ templates=ienv

13208+ (turn molds.u.prelude.initial |=(x=[name=term template=ischeme] [name.x template.x]))

13209+ =/ scanned=(unit dgscan)

13210+ (dg-all-env-ids (weld env (weld values.u.prelude.initial templates)) 32.768 ~)

13211+ ?~ scanned ~

13212+ =. next.initial (dg-next-id ids.u.scanned 0)

13213+ =/ view-state=istate (reserve-def-caps val.view-def initial)

13214+ =/ sam=isample-result (infer-sample u.written-view env view-state)

13215+ ?: ?=(%| -.sam) ~

13216+ =/ actual-model=itype (program-inferred-sample typ.p.sam u.written-view)

13217+ =/ model-fit=ifit

13218+ (direct-invariant actual-model model.u.relation sub.state.p.sam next.state.p.sam)

13219+ ?. ?=(%ok -.model-fit) ~

13220+ =/ xs-result=iresult

13221+ (infer-fragment xs.site env.p.sam state.p.sam(sub sub.model-fit, next next.model-fit))

13222+ ?: ?=(%| -.xs-result) ~

13223+ =/ element-var=itype [%var next.state.p.xs-result]

13224+ =/ list-a=(unit itype) (template-apply u.list-template ~[element-var])

13225+ ?~ list-a ~

13226+ =/ xs-fit=ifit

13227+ (itype-fit typ.p.xs-result u.list-a sub.state.p.xs-result +(next.state.p.xs-result))

13228+ ?. ?=(%ok -.xs-fit) ~

13229+ =/ closed-xs=itype (itype-normalize u.list-a sub.xs-fit)

13230+ ?^ (itype-vars closed-xs) ~

13231+ ?: (itype-has-tag closed-xs) ~

13232+ =/ each-instance=[typ=itype state=istate]

13233+ (instantiate-scheme u.each-scheme state.p.xs-result(sub sub.xs-fit, next next.xs-fit))

13234+ ?. ?=(%fn -.typ.each-instance) ~

13235+ =/ turn-instance=[typ=itype state=istate]

13236+ (instantiate-scheme u.turn-scheme state.each-instance)

13237+ ?. ?=(%fn -.typ.turn-instance) ~

13238+ ?. ?=(%cell -.sample.typ.turn-instance) ~

13239+ =/ element-message=(unit itype)

13240+ (template-apply u.element ~[message.u.relation])

13241+ ?~ element-message ~

13242+ =/ each-fit=ifit

13243+ (itype-fit product.typ.each-instance u.element-message sub.state.turn-instance next.state.turn-instance)

13244+ ?. ?=(%ok -.each-fit) ~

13245+ =/ each-input=itype

13246+ (program-inferred-sample sample.typ.each-instance u.each-sample)

13247+ =/ turn-fit=ifit

13248+ (itype-fit product.typ.turn-instance each-input sub.each-fit next.each-fit)

13249+ ?. ?=(%ok -.turn-fit) ~

13250+ =/ turn-list=itype

13251+ (program-inferred-slot hed.sample.typ.turn-instance first.u.turn-names)

13252+ =/ list-fit=ifit

13253+ (itype-fit closed-xs turn-list sub.turn-fit next.turn-fit)

13254+ ?. ?=(%ok -.list-fit) ~

13255+ =/ mapper-type=itype

13256+ (program-inferred-slot tal.sample.typ.turn-instance second.u.turn-names)

13257+ =/ expected-mapper=itype (itype-normalize mapper-type sub.list-fit)

13258+ ?. ?=(%fn -.expected-mapper) ~

13259+ ?^ (itype-vars sample.expected-mapper) ~

13260+ ?: (itype-has-tag sample.expected-mapper) ~

13261+ :: These faces come from the source-backed each sample. Keeping them in

13262+ :: the expected mapper product lets ordinary tuple inference supply key/el.

13263+ ?. ?=(%cell -.product.expected-mapper) ~

13264+ ?. ?=(%face -.hed.product.expected-mapper) ~

13265+ ?. =(%key name.hed.product.expected-mapper) ~

13266+ ?. ?=(%face -.tal.product.expected-mapper) ~

13267+ ?. =(%el name.tal.product.expected-mapper) ~

13268+ =/ mapper-state=istate

13269+ (reserve-def-caps val.mapper-def initial(next next.list-fit))

13270+ =/ mapper-sam=isample-result (infer-sample u.written-mapper env mapper-state)

13271+ ?: ?=(%| -.mapper-sam) ~

13272+ =/ mapper-input=itype (program-inferred-sample typ.p.mapper-sam u.written-mapper)

13273+ =/ mapper-sample-fit=ifit

13274+ (direct-invariant mapper-input sample.expected-mapper sub.state.p.mapper-sam next.state.p.mapper-sam)

13275+ ?. ?=(%ok -.mapper-sample-fit) ~

13276+ =/ mapper-product=itype

13277+ (itype-normalize product.expected-mapper sub.mapper-sample-fit)

13278+ =/ mapper-body=expr

13279+ ?- -.val.mapper-def

13280+ %gate body.val.mapper-def

13281+ %gate-wide body.val.mapper-def

13282+ * !!

13283+ ==

13284+ =/ mapper-inferred=iresult

13285+ (infer-call-context-arg mapper-body mapper-product env.p.mapper-sam state.p.mapper-sam(sub sub.mapper-sample-fit, next next.mapper-sample-fit) (span-of mapper-body))

13286+ ?: ?=(%| -.mapper-inferred) ~

13287+ =/ ordinary-product-fit=ifit

13288+ (itype-fit typ.p.mapper-inferred mapper-product sub.state.p.mapper-inferred next.state.p.mapper-inferred)

13289+ =/ mapper-product-fit=ifit

13290+ ?: ?=(%ok -.ordinary-product-fit) ordinary-product-fit

13291+ (program-keyed-product-fit typ.p.mapper-inferred mapper-product u.element sub.state.p.mapper-inferred next.state.p.mapper-inferred)

13292+ ?. ?=(%ok -.mapper-product-fit) ~

13293+ =/ closed-mapper-product=itype

13294+ (itype-normalize mapper-product sub.mapper-product-fit)

13295+ ?^ (itype-vars closed-mapper-product) ~

13296+ ?: (itype-has-tag closed-mapper-product) ~

13297+ =/ merged-mapper-product=itype

13298+ (itype-merge-faces typ.p.mapper-inferred closed-mapper-product sub.mapper-product-fit)

13299+ =/ mapper-cast=itype [%fn typ.p.mapper-sam merged-mapper-product]

13300+ =/ closed-mapper=itype [%fn typ.p.mapper-sam closed-mapper-product]

13301+ =/ mapper-cast-fit=ifit

13302+ (itype-fit mapper-cast closed-mapper sub.mapper-product-fit next.mapper-product-fit)

13303+ ?. ?=(%ok -.mapper-cast-fit) ~

13304+ =/ merged-mapper=itype

13305+ (itype-merge-faces mapper-cast closed-mapper sub.mapper-cast-fit)

13306+ =/ mapper-adjusted=iresult

13307+ [%& merged-mapper state.p.mapper-inferred(sub sub.mapper-cast-fit, next next.mapper-cast-fit)]

13308+ =/ mapper-added=(unit iadded-definition)

13309+ (add-supported-result mapper-def mapper-adjusted mapper-state env checked artifacts.resolution)

13310+ ?~ mapper-added ~

13311+ =/ mapper-scheme=(unit ischeme) (ienv-lookup mapper.site env.u.mapper-added)

13312+ ?~ mapper-scheme ~

13313+ ?. ?=(~ vars.u.mapper-scheme) ~

13314+ ?. ?=(~ (itype-vars typ.u.mapper-scheme)) ~

13315+ =/ program-instance=[typ=itype state=istate]

13316+ (instantiate-scheme u.program state.p.sam(next next.mapper-cast-fit))

13317+ ?. ?=(%fn -.typ.program-instance) ~

13318+ ?. ?=(%cell -.sample.typ.program-instance) ~

13319+ ?. ?=(%cell -.tal.sample.typ.program-instance) ~

13320+ ?. ?=(%cell -.tal.tal.sample.typ.program-instance) ~

13321+ =/ expected-view=(unit itype)

13322+ (direct-slot-body hed.tal.tal.sample.typ.program-instance (direct-sample-name i.t.t.items.u.program-sample))

13323+ ?~ expected-view ~

13324+ ?. ?=(%fn -.u.expected-view) ~

13325+ =/ canonical-view=itype [%fn model.u.relation u.element-message]

13326+ =/ view-fit=ifit

13327+ (direct-invariant canonical-view u.expected-view sub.state.program-instance next.state.program-instance)

13328+ ?. ?=(%ok -.view-fit) ~

13329+ =/ closed-view=itype

13330+ (itype-normalize [%fn typ.p.sam u.element-message] sub.view-fit)

13331+ ?. ?=(%fn -.closed-view) ~

13332+ =/ view-env=ienv [[mapper.site u.mapper-scheme] env.p.sam]

13333+ =/ final-view-state=istate

13334+ (reserve-def-caps val.view-def state.p.sam(next next.view-fit, gate-defs checked.u.mapper-added, head-evidence heads))

13335+ =/ inferred=iresult

13336+ (infer-call-context-arg view-body product.closed-view view-env final-view-state (span-of view-body))

13337+ ?: ?=(%| -.inferred) ~

13338+ =/ product-fit=ifit

13339+ (itype-fit typ.p.inferred product.closed-view sub.state.p.inferred next.state.p.inferred)

13340+ ?. ?=(%ok -.product-fit) ~

13341+ =/ merged-product=itype

13342+ (itype-merge-faces typ.p.inferred product.closed-view sub.product-fit)

13343+ =/ actual-cast=itype [%fn typ.p.sam merged-product]

13344+ =/ cast=ifit

13345+ (itype-fit actual-cast closed-view sub.product-fit next.product-fit)

13346+ ?. ?=(%ok -.cast) ~

13347+ =/ merged=itype (itype-merge-faces actual-cast closed-view sub.cast)

13348+ =/ adjusted=iresult

13349+ [%& merged state.p.inferred(sub sub.cast, next next.cast)]

13350+ =/ added=(unit iadded-definition)

13351+ (add-supported-result view-def adjusted final-view-state env.u.mapper-added checked.u.mapper-added artifacts.u.mapper-added)

13352+ ?~ added ~

13353+ =/ recovered=(unit ischeme) (ienv-lookup view.parts env.u.added)

13354+ ?~ recovered ~

13355+ ?. ?=(~ vars.u.recovered) ~

13356+ ?. ?=(~ (itype-vars typ.u.recovered)) ~

13357+ `[env.u.added grouped.resolution artifacts.u.added]

13358+::

13359+:: Recover only the initializer of an already recognized direct program main.

13360+:: The derived call is evidence for an ordinary init/main retry, never an

13361+:: interface to publish on its own. Any failure returns the original resolution.

13362+++ program-init-context

13363+ |= [main=def parts=[init=term update=term view=term subs=term] ds=(list def) resolution=iresolved initial=istate]

13364+ ^- (unit iresolved)

13365+ =/ env=ienv env.resolution

13366+ ?^ (ienv-lookup %main env) ~

13367+ ?^ (ienv-lookup init.parts env) ~

13368+ =/ update=(unit ischeme) (ienv-lookup update.parts env)

13369+ =/ view=(unit ischeme) (ienv-lookup view.parts env)

13370+ =/ subs=(unit ischeme) (ienv-lookup subs.parts env)

13371+ ?~ update ~

13372+ ?~ view ~

13373+ ?~ subs ~

13374+ =/ inits=(list def)

13375+ (skim ds |=(d=def &(?=(%value -.d) =(init.parts name.d))))

13376+ ?. ?=([* ~] inits) ~

13377+ =/ init-def=def i.inits

13378+ ?> ?=(%value -.init-def)

13379+ ?. (program-init-tuple-null init-def) ~

13380+ =/ args=(unit (list expr)) (program-main-args main)

13381+ ?~ args ~

13382+ ?~ prelude.initial ~

13383+ =/ program=(unit ischeme) (ienv-lookup %program values.u.prelude.initial)

13384+ ?~ program ~

13385+ =/ heads=(unit igate-prelude-evidence) (direct-prelude-evidence ds prelude.initial)

13386+ ?~ heads ~

13387+ =/ written=(unit def) (~(get by gates.u.heads) %program)

13388+ ?~ written ~

13389+ =/ written-sample=(unit sample) (direct-gate-sample u.written)

13390+ ?~ written-sample ~

13391+ ?. ?=(%cell -.u.written-sample) ~

13392+ ?~ items.u.written-sample ~

13393+ =/ checked=(map term def) (direct-checked-gates ds env)

13394+ =/ templates=ienv

13395+ (turn molds.u.prelude.initial |=(x=[name=term template=ischeme] [name.x template.x]))

13396+ =/ scanned=(unit dgscan)

13397+ (dg-all-env-ids (weld env (weld values.u.prelude.initial templates)) 32.768 ~)

13398+ ?~ scanned ~

13399+ =. next.initial (dg-next-id ids.u.scanned 0)

13400+ =/ instance=[typ=itype state=istate] (instantiate-scheme u.program initial)

13401+ ?. ?=(%fn -.typ.instance) ~

13402+ ?. ?=(%cell -.sample.typ.instance) ~

13403+ =/ expected-init=(unit itype)

13404+ (direct-slot-body hed.sample.typ.instance (direct-sample-name i.items.u.written-sample))

13405+ ?~ expected-init ~

13406+ ?. ?=(%fn -.u.expected-init) ~

13407+ ?. ?=(%var -.sample.u.expected-init) ~

13408+ =/ data=@ud id.sample.u.expected-init

13409+ =/ init-var=itype [%var next.state.instance]

13410+ =/ st=istate state.instance(next +(next.state.instance))

13411+ =/ up=[typ=itype state=istate] (instantiate-scheme u.update st)

13412+ =/ vw=[typ=itype state=istate] (instantiate-scheme u.view state.up)

13413+ =/ sb=[typ=itype state=istate] (instantiate-scheme u.subs state.vw)

13414+ =. st state.sb(gate-defs checked, head-evidence heads)

13415+ =/ actual=itype [%cell init-var [%cell typ.up [%cell typ.vw typ.sb]]]

13416+ =/ fit=ifit

13417+ (direct-positional-fit u.args items.u.written-sample actual sample.typ.instance env st sub.st next.st)

13418+ ?. ?=(%ok -.fit) ~

13419+ =/ actual-final=itype (itype-normalize actual sub.fit)

13420+ =/ expected-final=itype (itype-normalize sample.typ.instance sub.fit)

13421+ =/ open=(list @ud)

13422+ (unique-type-vars (weld (itype-vars actual-final) (itype-vars expected-final)))

13423+ ?. (levy open |=(n=@ud =(data n))) ~

13424+ ?: |((itype-has-tag actual-final) (itype-has-tag expected-final)) ~

13425+ =/ replay=ifit

13426+ (direct-positional-fit u.args items.u.written-sample actual sample.typ.instance env st sub.fit next.fit)

13427+ ?. ?=(%ok -.replay) ~

13428+ ?. &(=(sub.fit sub.replay) =(next.fit next.replay)) ~

13429+ =/ expected=itype (itype-normalize u.expected-init sub.fit)

13430+ ?. ?=(%fn -.expected) ~

13431+ =. st st(sub sub.fit, next next.fit)

13432+ =/ init-state=istate (reserve-def-caps val.init-def st)

13433+ =/ inferred=iresult (infer-fragment val.init-def env init-state)

13434+ =? inferred ?=(%| -.inferred) (infer-recursive-gate init-def env init-state)

13435+ ?: ?=(%| -.inferred) ~

13436+ ?. ?=(%fn -.typ.p.inferred) ~

13437+ =/ data-fit=ifit

13438+ (itype-fit sample.typ.p.inferred sample.expected sub.state.p.inferred next.state.p.inferred)

13439+ ?. ?=(%ok -.data-fit) ~

13440+ =/ closed=itype (itype-normalize expected sub.data-fit)

13441+ ?. ?=(%fn -.closed) ~

13442+ :: Resolve the ordinary tuple cast first, then check the complete gate.

13443+ :: General function fit remains unchanged; only this recovered candidate

13444+ :: receives the derived result context before its whole-type cast fit.

13445+ =/ product-fit=ifit

13446+ (itype-fit product.typ.p.inferred product.closed sub.data-fit next.data-fit)

13447+ ?. ?=(%ok -.product-fit) ~

13448+ =/ product=itype

13449+ (itype-merge-faces product.typ.p.inferred product.closed sub.product-fit)

13450+ =/ actual-cast=itype [%fn sample.typ.p.inferred product]

13451+ =/ cast=ifit

13452+ (itype-fit actual-cast closed sub.product-fit next.product-fit)

13453+ ?. ?=(%ok -.cast) ~

13454+ =/ merged=itype (itype-merge-faces actual-cast closed sub.cast)

13455+ =/ adjusted=iresult

13456+ [%& merged state.p.inferred(sub sub.cast, next next.cast)]

13457+ =/ added=(unit iadded-definition)

13458+ (add-supported-result init-def adjusted init-state env checked artifacts.resolution)

13459+ ?~ added ~

13460+ =/ recovered=(unit ischeme) (ienv-lookup init.parts env.u.added)

13461+ ?~ recovered ~

13462+ ?. ?=(~ vars.u.recovered) ~

13463+ ?. ?=(~ (itype-vars typ.u.recovered)) ~

13464+ `[env.u.added grouped.resolution artifacts.u.added]

13465+::

13466+++ program-subs-watch

13467+ |= [d=def imports=ijimports graph=irequest-graph prelude=ifile]

13468+ ^- ?

13469+ ?. ?=(%value -.d) |

13470+ ?. |(?=(%gate -.val.d) ?=(%gate-wide -.val.d)) |

13471+ =/ body=expr

13472+ ?- -.val.d

13473+ %gate body.val.d

13474+ %gate-wide body.val.d

13475+ * val.d

13476+ ==

13477+ =. body (program-transparent body)

13478+ ?. ?=(%list -.body) |

13479+ ?. ?=([* ~] items.body) |

13480+ =/ watch=expr (program-transparent i.items.body)

13481+ ?. ?=(%tuple -.watch) |

13482+ ?. ?=([* * ~] items.watch) |

13483+ =/ tag=item i.items.watch

13484+ =/ payload=item i.t.items.watch

13485+ ?. &(?=(~ face.tag) ?=(~ face.payload)) |

13486+ =/ tag-expr=expr (program-transparent val.tag)

13487+ ?. ?=(%lit -.tag-expr) |

13488+ ?. &(?=(%term form.lit.tag-expr) =(%watch val.lit.tag-expr)) |

13489+ =/ request=expr (program-transparent val.payload)

13490+ ?. ?=(%call -.request) |

13491+ ?. ?=([* ~] args.request) |

13492+ =/ head=expr (program-transparent head.request)

13493+ ?. ?=(%wing -.head) |

13494+ ?. ?=([@ @ ~] names.head) |

13495+ =/ case=term i.names.head

13496+ =/ face=term i.t.names.head

13497+ =/ callback=expr (program-transparent i.args.request)

13498+ ?. ?=(%ctor -.callback) |

13499+ ?. ?=(%term form.tag.callback) |

13500+ =/ selected=(list [face=term interface=ifile])

13501+ (skim imports |=(j=[face=term interface=ifile] =(face face.j)))

13502+ ?. ?=([* ~] selected) |

13503+ =/ iface=ifile interface.i.selected

13504+ =/ member=(unit ischeme) (ienv-lookup case values.iface)

13505+ ?~ member |

13506+ ?~ source.iface |

13507+ =/ evidence=(list irequest-evidence)

13508+ (skim requests.graph |=(r=irequest-evidence &(=(api-at.r at.iface) =(name.r case))))

13509+ ?. ?=([* ~] evidence) |

13510+ =/ request-evidence=irequest-evidence i.evidence

13511+ ?. =(u.source.iface api-source.request-evidence) |

13512+ ?. =(name.path.path.request-evidence case) |

13513+ ?~ graph.iface |

13514+ ?. (lien requests.u.graph.iface |=(r=irequest-evidence =(r request-evidence))) |

13515+ ?. ?=(~ scry.path.path.request-evidence) |

13516+ ?. &(?=(~ diffs.path.request-evidence) ?=(~ diffs.path.path.request-evidence)) |

13517+ ?: (lien segments.path.path.request-evidence |=(p=pseg !?=(%knot -.p))) |

13518+ ?. ?=([@ ~] vars.u.member) |

13519+ =/ message=@ud i.vars.u.member

13520+ ?. ?=(%fn -.typ.u.member) |

13521+ ?. ?=(%fn -.sample.typ.u.member) |

13522+ ?. =(sample.sample.typ.u.member full.path.request-evidence) |

13523+ ?. =(product.sample.typ.u.member [%var message]) |

13524+ =/ prep=iprelude [prelude prelude-values.graph prelude-molds.graph]

13525+ =/ ask=(unit ischeme) (request-compatible-ask prep)

13526+ ?~ ask |

13527+ =/ result=(unit itype) (template-apply u.ask ~[[%var message]])

13528+ ?~ result |

13529+ =(product.typ.u.member u.result)

13530+::

13531+++ program-main-context

13532+ |= [main=def ds=(list def) resolution=iresolved initial=istate]

13533+ ^- iresolved

13534+ ?^ (ienv-lookup %main env.resolution) resolution

13535+ =/ heads=(unit igate-prelude-evidence)

13536+ (direct-prelude-evidence ds prelude.initial)

13537+ ?~ heads resolution

13538+ =/ checked=(map term def) (direct-checked-gates ds env.resolution)

13539+ =/ completed=[env=ienv artifacts=(list iwidth-definition)]

13540+ (add-supported-defs-core ~[main] ds checked heads env.resolution molds.initial globals.initial externals.initial surs.initial mark-externals.initial marks.initial jimports.initial reserved-molds.initial at.initial prelude.initial artifacts.resolution grec-index.initial)

13541+ [env.completed grouped.resolution artifacts.completed]

13542+::

13543+++ program-main-closed

13544+ |= [parts=[init=term update=term view=term subs=term] ds=(list def) env=ienv prelude=(unit ifile) imports=ijimports graph=irequest-graph]

13545+ ^- ?

13546+ ?~ prelude |

13547+ ?~ (ienv-lookup %program values.u.prelude) |

13548+ =/ program=(unit ischeme) (find-jibb-mold %program u.prelude)

13549+ ?~ program |

13550+ =/ main=(unit ischeme) (ienv-lookup %main env)

13551+ ?~ main |

13552+ ?. ?=(~ vars.u.main) |

13553+ ?. ?=(~ (itype-vars typ.u.main)) |

13554+ =/ instance=[typ=itype state=istate] (instantiate-scheme u.program *istate)

13555+ =/ main-fit=ifit (direct-invariant typ.u.main typ.instance ~ next.state.instance)

13556+ ?. ?=(%ok -.main-fit) |

13557+ =/ init=(unit ischeme) (ienv-lookup init.parts env)

13558+ ?~ init |

13559+ ?. ?=(~ vars.u.init) |

13560+ ?. ?=(%fn -.typ.u.init) |

13561+ ?. ?=(~ (itype-vars sample.typ.u.init)) |

13562+ ?. ?=(~ (itype-vars product.typ.u.init)) |

13563+ =/ data=igate-free (gate-free-type sample.typ.u.init 256 ~)

13564+ ?. =(%yes verdict.data) |

13565+ =/ model=igate-free (gate-free-type product.typ.u.init left.data ~)

13566+ ?. =(%yes verdict.model) |

13567+ =/ subs=(list def)

13568+ (skim ds |=(d=def &(?=(%value -.d) =(subs.parts name.d))))

13569+ ?. ?=([* ~] subs) |

13570+ |((program-subs-empty i.subs) (program-subs-watch i.subs imports graph u.prelude))

1069113571::

1069213572++ infer-jibb-file

1069313573 |= [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)]

1069413574 ^- jfile-result

13575+ =/ out=jfile-detailed-result

13576+ (infer-jibb-file-detailed at src externals mark-externals modules active prelude-values prelude-molds cache prelude)

13577+ ?: ?=(%| -.out) [%| message.p.out]

13578+ [%& p.out]

13579+:: Returns structured root-source overlap evidence after the same full check.

13580+++ infer-jibb-file-detailed

13581+ |= [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)]

13582+ ^- jfile-detailed-result

1069513583 =/ parsed (parse at src)

10696− ?: ?=(%| -.parsed) [%| (crip "module source does not parse: {(spud at)}")]

13584+ ?: ?=(%| -.parsed) [%| [(crip "module source does not parse: {(spud at)}") ~]]

1069713585 =/ mod=module p.parsed

1069813586 =/ duplicate=(unit idiag) (duplicate-defs defs.mod)

10699− ?^ duplicate [%| (show-duplicate-fields at src u.duplicate)]

13587+ ?^ duplicate [%| [(show-duplicate-fields at src u.duplicate) ~]]

13588+ ?: &(?=([%ui %api *] at) ?=(^ (program-main-def defs.mod)))

13589+ [%| [(crip "module kind needs unsupported inference: {(spud at)}") ~]]

1070013590 ?: ?=([%ui %api *] at)

1070113591 =/ iface=(unit ifile) (api-poke-interface at mod mark-externals prelude-values prelude-molds prelude)

10702− ?~ iface [%| (crip "API module needs unsupported inference: {(spud at)}")]

10703− =/ checked=ifile u.iface(source `src)

10704− [%& [checked [[at checked] cache]]]

13592+ ?^ iface

13593+ =/ checked=ifile u.iface(source `src, graph `[(silt `(list path)`~[at]) ~ modules prelude prelude-values prelude-molds externals mark-externals])

13594+ [%& [checked [[at checked] cache]]]

13595+ ?~ prelude [%| [(crip "API module needs unsupported inference: {(spud at)}") ~]]

13596+ =/ prepared=iprelude [u.prelude prelude-values prelude-molds]

13597+ =/ narrow=?

13598+ ?. ?=([[%mark *] ~] imports.mod) |

13599+ ?. ?=([[%mold *] ~] defs.mod) |

13600+ ?. =(%paths name.i.defs.mod) |

13601+ !?=(%union -.shape.i.defs.mod)

13602+ ?: narrow

13603+ =/ request=(each ione-request-interface @t)

13604+ (one-request-interface-graph at src externals mark-externals modules active cache `prepared)

13605+ ?: ?=(%| -.request) [%| [(crip "API module needs unsupported inference: {(spud at)}") ~]]

13606+ =/ checked=ifile iface.p.request

13607+ [%& [checked [[at checked] dependencies.paths.support.p.request]]]

13608+ =/ multi=(each [iface=ifile cache=jcache] @t)

13609+ (multi-request-interface-graph at src externals mark-externals modules active cache `prepared)

13610+ ?: ?=(%| -.multi) [%| [(crip "API module needs unsupported inference: {(spud at)}") ~]]

13611+ [%& [iface.p.multi [[at iface.p.multi] cache.p.multi]]]

1070513612 ?. (module-scope-valid mod prelude-values prelude-molds)

1070613613 ?: (pending-declared-poke at mod prelude-values prelude-molds)

10707− [%| (crip "module kind or scope needs unsupported inference: {(spud at)}")]

10708− [%| (crip "module has conflicting names: {(spud at)}")]

13614+ [%| [(crip "module kind or scope needs unsupported inference: {(spud at)}") ~]]

13615+ [%| [(crip "module has conflicting names: {(spud at)}") ~]]

1070913616 =/ vals=(list term) (global-value-names defs.mod)

10710− ?: (lien vals |=(n=term =(n %main)))

10711− [%| (crip "module kind needs unsupported inference: {(spud at)}")]

10712− =/ js=jimports-result (resolve-jibb-imports imports.mod externals mark-externals modules active prelude-values prelude-molds cache prelude)

13617+ =/ main=(unit def) (program-main-def defs.mod)

13618+ =/ main-parts=(unit [init=term update=term view=term subs=term])

13619+ ?~(main ~ (program-main-parts u.main))

13620+ ?. ?~(main & &(!?=([%ui %stores *] at) ?=(^ main-parts)))

13621+ [%| [(crip "module kind needs unsupported inference: {(spud at)}") ~]]

13622+ =/ js=jimports-detailed-result (resolve-jibb-imports-detailed imports.mod externals mark-externals modules active prelude-values prelude-molds cache prelude)

1071313623 ?: ?=(%| -.js) [%| p.js]

10714− =/ molds=imolds (collect-simple-molds defs.mod)

13624+ =/ collected=grec-collected

13625+ ?^ imports.mod [(collect-simple-molds defs.mod) *(map term shape)]

13626+ (grec-collect-molds defs.mod)

13627+ =/ molds=imolds molds.collected

1071513628 =/ globals=(list term) (weld prelude-values (weld (import-binding-names imports.mod) vals))

1071613629 =/ surs=(list term) (collect-sur-imports imports.mod)

1071713630 =/ marks=(list term) (collect-mark-imports imports.mod)

1071813631 =/ reserved=(list term) (weld prelude-molds (turn resolved.p.js |=(j=[face=term interface=ifile] face.j)))

1071913632 =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

10720− =/ state=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks resolved.p.js reserved ~ ~ ~ | at top prelude ~ 256 ~]

10721− =/ mts=(each imold-types @t) (module-mold-types molds state)

10722− ?: ?=(%| -.mts) [%| (crip "{(trip p.mts)}: {(spud at)}")]

10723− =/ resolution=iresolved (resolve-groups defs.mod molds globals externals surs mark-externals marks resolved.p.js reserved at prelude)

13633+ =/ state=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks resolved.p.js reserved ~ ~ ~ | at top prelude ~ 256 ~ ~ ~ ~ ~ ~]

13634+ :: Source and scope were checked above; preserve that exact root and prelude.

13635+ :: This first integration only indexes import-free library sources.

13636+ =/ index=(unit [at=path source=@t prelude=ifile shapes=(map term shape)])

13637+ ?^ imports.mod ~

13638+ ?~ prelude ~

13639+ =/ standard=(unit ischeme) (find-jibb-mold %list u.prelude)

13640+ ?~ standard ~

13641+ ?. =(u.standard [[%collection %list ~[[%var 0]]] ~[0]]) ~

13642+ =/ index=(map term shape) proofs.collected

13643+ ?. !=(index *(map term shape)) ~

13644+ ?: (lien molds |=(m=[name=term body=shape] =(%list name.m))) ~

13645+ `[at src u.prelude index]

13646+ =. grec-index.state index

13647+ =/ mts=(each imold-types imold-failure) (module-mold-types-detail molds state)

13648+ ?: ?=(%| -.mts)

13649+ ?~ overlap.p.mts [%| [(crip "{(trip message.p.mts)}: {(spud at)}") ~]]

13650+ =/ witness=[name=term cases=upair] u.overlap.p.mts

13651+ =/ first=@t (show-error src [at line.beg.first.cases.witness col.beg.first.cases.witness "first union case"])

13652+ =/ second=@t (show-error src [at line.beg.second.cases.witness col.beg.second.cases.witness "overlapping case"])

13653+ =/ msg=@t (of-wain:format ~[(crip "module mold {(trip name.witness)} has overlapping cases") first second])

13654+ [%| [msg `[at src name.witness cases.witness]]]

13655+ =/ resolution=iresolved

13656+ ?~ index

13657+ (resolve-groups defs.mod molds globals externals surs mark-externals marks resolved.p.js reserved at prelude)

13658+ (resolve-groups-core defs.mod molds globals externals surs mark-externals marks resolved.p.js reserved at prelude index)

1072413659 =/ env=ienv env.resolution

13660+ =/ recovered=iresolved

13661+ ?~ main resolution

13662+ ?~ main-parts resolution

13663+ =/ updated=(unit iresolved)

13664+ (program-update-context u.main u.main-parts defs.mod resolution state)

13665+ =/ with-update=iresolved ?~(updated resolution u.updated)

13666+ =/ subscribed=(unit iresolved)

13667+ (program-subs-context u.main-parts defs.mod with-update state)

13668+ =/ with-subs=iresolved ?~(subscribed with-update u.subscribed)

13669+ =/ viewed=(unit iresolved)

13670+ (program-view-context u.main-parts defs.mod with-subs state)

13671+ =/ with-view=iresolved ?~(viewed with-subs u.viewed)

13672+ =/ initialized=(unit iresolved)

13673+ (program-init-context u.main u.main-parts defs.mod with-view state)

13674+ =/ components=iresolved ?~(initialized with-view u.initialized)

13675+ (program-main-context u.main defs.mod components state)

13676+ =. env env.recovered

13677+ =. artifacts.resolution artifacts.recovered

13678+ =. env

13679+ ?: (module-values-complete defs.mod env) env

13680+ ?: |(?=([%ui %stores *] at) ?=(^ imports.mod) ?=(^ prelude) ?=(^ prelude-values) ?=(^ prelude-molds)) env

13681+ ?: (gth (met 3 src) 65.536) env

13682+ ?: (gth (lent defs.mod) 64) env

13683+ ?. (dg-source-candidate defs.mod 64) env

13684+ =/ transaction=(unit dgcommit) (dg-root-source at src)

13685+ ?~ transaction env

13686+ ?: (dg-interface-safe env.u.transaction) env.u.transaction

13687+ env

1072513688 ?. (module-values-complete defs.mod env)

10726− [%| (crip "module definitions need unsupported inference: {(spud at)}")]

10727− =/ iface=ifile [env p.mts at ~ artifacts.resolution ~ `src]

13689+ [%| [(crip "module definitions need unsupported inference: {(spud at)}") ~]]

13690+ =/ initial=irequest-graph [(silt `(list path)`~[at]) ~ modules prelude prelude-values prelude-molds externals mark-externals]

13691+ =/ graph=(unit irequest-graph) (request-graph-merge resolved.p.js initial (add 1 (lent resolved.p.js)))

13692+ ?~ graph [%| ['module request evidence needs unsupported inference' ~]]

13693+ ?. ?~(main & ?~(main-parts | (program-main-closed u.main-parts defs.mod env prelude resolved.p.js u.graph)))

13694+ [%| [(crip "module kind needs unsupported inference: {(spud at)}") ~]]

13695+ =/ iface=ifile [env p.mts at ~ artifacts.resolution ~ `src graph]

1072813696 [%& [iface [[at iface] cache.p.js]]]

1072913697::

13698+:: A source-bound analysis of one named mold, not a module, island,

13699+:: request, watchability or runtime check. The host owns the trusted

13700+:: prepared prelude, canonical paths and reader/source version identities.

13701+:: The 256-node cap covers only classification, not source/graph work.

13702++$ igate-free-mold

13703+ [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]

13704+++ gate-free-mold-source

13705+ |= [file=path src=@t name=term externals=iexternals marks=imark-externals modules=jbundle prepared=(unit iprelude) fuel=@ud]

13706+ ^- (each igate-free-mold @t)

13707+ ?~ file [%| 'mold analysis needs a path ending in jibb']

13708+ ?. =(%jibb (rear file)) [%| 'mold analysis needs a path ending in jibb']

13709+ ?: |(=(file /lib/jibb/internal/jibb) =(file /lib/jibb/primitives/jibb))

13710+ [%| 'the prelude internal modules are private']

13711+ ?: ?=([%ui %api *] file) [%| 'API declarations need unsupported mold analysis']

13712+ ?: ?=([%ui %stores *] file) [%| 'store declarations need unsupported mold analysis']

13713+ =/ entries=jbundle (skim modules |=(m=jsource =(file at.m)))

13714+ ?: (gth (lent entries) 1) [%| 'duplicate root module sources']

13715+ =/ wrong-root=? ?~(entries | !=(source.i.entries src))

13716+ ?: wrong-root [%| 'root module source does not match bundle']

13717+ =/ parsed (parse file src)

13718+ ?: ?=(%| -.parsed) [%| 'mold source does not parse']

13719+ =/ mod=module p.parsed

13720+ =/ duplicate=(unit idiag) (duplicate-defs defs.mod)

13721+ ?^ duplicate [%| (show-duplicate-fields file src u.duplicate)]

13722+ ?~ prepared [%| 'mold analysis needs the prepared prelude']

13723+ ?. (module-scope-valid mod values.u.prepared molds.u.prepared)

13724+ [%| 'mold source has conflicting or unsupported scope']

13725+ =/ selected=(list def)

13726+ (skim defs.mod |=(d=def &(?=(%mold -.d) =(name.d name))))

13727+ ?~ selected [%| 'selected mold is not declared']

13728+ ?^ t.selected [%| 'selected mold is not unique']

13729+ ?> ?=(%mold -.i.selected)

13730+ =/ public=ifile iface.u.prepared

13731+ =/ js=jimports-result

13732+ (resolve-jibb-imports imports.mod externals marks modules ~[file] values.u.prepared molds.u.prepared ~ `public)

13733+ ?: ?=(%| -.js) [%| p.js]

13734+ =/ ms=imolds (collect-simple-molds defs.mod)

13735+ =/ vals=(list term) (global-value-names defs.mod)

13736+ =/ globals=(list term) (weld values.u.prepared (weld (import-binding-names imports.mod) vals))

13737+ =/ surs=(list term) (collect-sur-imports imports.mod)

13738+ =/ declared=(list term) (collect-mark-imports imports.mod)

13739+ =/ reserved=(list term) (weld molds.u.prepared (turn resolved.p.js |=(j=[face=term interface=ifile] face.j)))

13740+ =/ top=(list term) (turn ms |=(m=[name=term body=shape] name.m))

13741+ =/ state=istate [0 ~ ~ ~ ms globals externals surs marks declared resolved.p.js reserved ~ ~ ~ | file top `public ~ 256 ~ ~ ~ ~ ~ ~]

13742+ =/ inferred=(unit [template=ischeme state=istate])

13743+ (infer-mold-template shape.i.selected state(active ~[name], in-mold &))

13744+ ?~ inferred [%| 'selected mold needs unsupported inference']

13745+ =/ template=ischeme template.u.inferred

13746+ =. typ.template (label-direct-union typ.template shape.i.selected name state)

13747+ =. typ.template (itype-normalize typ.template sub.state.u.inferred)

13748+ =/ cap=@ud (min fuel 256)

13749+ =/ analysis=igate-free (gate-free-type typ.template cap ~)

13750+ [%& [file src name u.prepared externals marks modules cache.p.js template fuel cap analysis]]

13751+::

1073013752:: +golden-types-with-modules fails closed for imports without prelude

1073113753:: scope. +golden-types-with-prelude resolves supported library graphs;

1073213754:: its report remains partial and unreachable sources are not examined.

@@ -10787,7 +13809,7 @@

1078713809 ?: ?=(%| -.js) (of-wain:format ~['partial inference; module not checked' p.js])

1078813810 =/ scope-values=(list term)

1078913811 (weld prelude-values (weld (collect-sur-imports imports.p.parsed) (collect-mark-imports imports.p.parsed)))

10790− (golden-types-in-context file src externals mark-externals resolved.p.js scope-values prelude-molds iface)

13812+ (golden-types-in-context-core file src externals mark-externals resolved.p.js scope-values prelude-molds iface prepared)

1079113813::

1079213814:: +golden-types-with-marks: supply declared mark types separately from /sur

1079313815:: entries, as [mark result] with the result from +read-mark:jibb-import.

@@ -10818,6 +13840,10 @@

1081813840++ golden-types-in-context

1081913841 |= [file=path src=@t externals=iexternals mark-externals=imark-externals jimports=ijimports prelude-values=(list term) reserved-molds=(list term) prelude=(unit ifile)]

1082013842 ^- @t

13843+ (golden-types-in-context-core file src externals mark-externals jimports prelude-values reserved-molds prelude ~)

13844+++ golden-types-in-context-core

13845+ |= [file=path src=@t externals=iexternals mark-externals=imark-externals jimports=ijimports prelude-values=(list term) reserved-molds=(list term) prelude=(unit ifile) prepared=(unit iprelude)]

13846+ ^- @t

1082113847 =. reserved-molds (weld reserved-molds (turn jimports |=(j=[face=term interface=ifile] face.j)))

1082213848 =/ parsed (parse file src)

1082313849 ?: ?=(%| -.parsed) (show-error src p.parsed)

@@ -10833,6 +13859,41 @@

1083313859 =/ resolution=iresolved (resolve-groups ds molds globals externals surs mark-externals marks jimports reserved-molds file prelude)

1083413860 =/ cycles=(list icycle) (definite-value-cycles ds globals)

1083513861 =/ env=ienv env.resolution

13862+ =/ recovered=(list term) ~

13863+ =/ eligible=?

13864+ ?& ?=(~ imports.p.parsed)

13865+ ?=(~ jimports)

13866+ !?=([%ui %api *] file)

13867+ !?=([%ui %stores *] file)

13868+ !(lien (global-value-names ds) |=(n=term =(n %main)))

13869+ !(module-values-complete ds env)

13870+ (lte (met 3 src) 65.536)

13871+ (lte (lent ds) 64)

13872+ ?| &(?=(~ prepared) ?=(~ prelude) ?=(~ prelude-values) ?=(~ reserved-molds) (module-scope-valid p.parsed ~ ~) (dg-source-candidate ds 64))

13873+ ?& ?=(^ prepared)

13874+ ?=(^ prelude)

13875+ =(u.prelude iface.u.prepared)

13876+ =(prelude-values values.u.prepared)

13877+ =(reserved-molds molds.u.prepared)

13878+ (module-scope-valid p.parsed values.u.prepared molds.u.prepared)

13879+ (dg-prepared-candidate ds 64)

13880+ ==

13881+ ==

13882+ ==

13883+ =/ transaction=(unit dgcommit)

13884+ ?. eligible ~

13885+ ?~ prepared (dg-root-source file src)

13886+ (dg-root-prepared file src u.prepared)

13887+ =. recovered

13888+ ?~ transaction ~

13889+ ?. &((module-values-complete ds env.u.transaction) (dg-interface-safe env.u.transaction)) ~

13890+ (turn (skim env.u.transaction |=(entry=[name=term scheme=ischeme] ?=(~ (ienv-lookup name.entry env)))) |=(entry=[name=term scheme=ischeme] name.entry))

13891+ =. env

13892+ ?~ transaction env

13893+ ?: &((module-values-complete ds env.u.transaction) (dg-interface-safe env.u.transaction)) env.u.transaction

13894+ env

13895+ =/ source-defs=(map term def) (direct-checked-gates ds env)

13896+ =/ heads=(unit igate-prelude-evidence) (direct-prelude-evidence ds prelude)

1083613897 =/ lines=(list @t) ~

1083713898 |-

1083813899 ?~ ds (of-wain:format ['partial inference; module not checked' (flop lines)])

@@ -10845,6 +13906,16 @@

1084513906 ?^ cycle

1084613907 =/ diag=idiag ["non-gate value depends on itself through a cycle" ~[[first.i.cycle "value in cycle"] [next.i.cycle "dependency in cycle"]]]

1084713908 $(ds t.ds, lines [(show-inference-diagnostic file src name.d diag) lines])

13909+ ?: (lien recovered |=(n=term =(n name.d)))

13910+ =/ found=(unit ischeme) (ienv-lookup name.d env)

13911+ ?~ found $(ds t.ds, lines [(crip "++ {(trip name.d)}: committed definition unavailable") lines])

13912+ ?: (itype-has-hidden-recursive typ.u.found)

13913+ $(ds t.ds, lines [(crip "++ {(trip name.d)}: recursive mold name is not available in this scope") lines])

13914+ ?: (itype-has-hidden-generic typ.u.found)

13915+ $(ds t.ds, lines [(crip "++ {(trip name.d)}: generic union name is not available in this scope") lines])

13916+ =/ typ=itype (canonical-itype typ.u.found vars.u.found)

13917+ =/ line=@t (crip "++ {(trip name.d)}: {(show-itype typ ~)}{(show-atom-constraint typ)}")

13918+ $(ds t.ds, lines [line lines])

1084813919 ?: (lien grouped.resolution |=(n=term =(n name.d)))

1084913920 =/ found=(unit ischeme) (ienv-lookup name.d env)

1085013921 ?~ found $(ds t.ds, lines [(crip "++ {(trip name.d)}: recursive group unavailable") lines])

@@ -10852,7 +13923,9 @@

1085213923 =/ line=@t (crip "++ {(trip name.d)}: {(show-itype typ ~)}{(show-atom-constraint typ)}")

1085313924 $(ds t.ds, lines [line lines])

1085413925 =/ top=(list term) (turn molds |=(m=[name=term body=shape] name.m))

10855− =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | file top prelude ~ 256 ~]

13926+ =/ initial=istate [0 ~ ~ ~ molds globals externals surs mark-externals marks jimports reserved-molds ~ ~ ~ | file top prelude ~ 256 ~ ~ ~ ~ ~ ~]

13927+ =. gate-defs.initial source-defs

13928+ =. head-evidence.initial heads

1085613929 =. initial (reserve-def-caps val.d initial)

1085713930 =/ result=iresult

1085813931 ?: |(?=(%gate -.val.d) ?=(%gate-wide -.val.d))

@@ -10892,4 +13965,667 @@

1089213965 =/ printable=itype (canonical-itype typ vars)

1089313966 =/ line=@t (crip "++ {(trip name.d)}: {(show-itype printable ~)}{(show-atom-constraint printable)}")

1089413967 $(ds t.ds, lines [line lines])

13968+:: Experimental module-owned pending-constraint generalization only.

13969+:: Inputs, IDs and substitution come from one checker-owned transaction.

13970++$ dgscan [ids=(list @ud) fuel=@ud]

13971+++ dg-scan

13972+ |= [todo=(list itype) sub=isub fuel=@ud ids=(list @ud)]

13973+ ^- (unit dgscan)

13974+ ?~ todo `[ids fuel]

13975+ ?: =(0 fuel) ~

13976+ =. fuel (dec fuel)

13977+ =/ t=itype i.todo

13978+ ?: ?=(?(%var %avar %rvar %nvar %rnvar %tag) -.t)

13979+ =/ node-id=@ud ?:(?=(%tag -.t) id.t +.t)

13980+ =/ found=(unit itype) (itype-lookup node-id sub)

13981+ ?~ found $(todo t.todo, ids [node-id ids])

13982+ ?: &(?=(?(%rvar %rnvar) -.u.found) =(node-id +.u.found))

13983+ $(todo t.todo, ids [node-id ids])

13984+ $(todo [u.found t.todo])

13985+ ?: ?=(%jrec -.t) $(todo t.todo)

13986+ ?+ -.t ~

13987+ %collection $(todo (weld args.t t.todo))

13988+ %union $(todo (weld args.t (weld cases.t t.todo)))

13989+ %face $(todo [body.t t.todo])

13990+ %fn $(todo [sample.t product.t t.todo])

13991+ %cell $(todo [hed.t tal.t t.todo])

13992+ %atom $(todo t.todo)

13993+ %any-atom $(todo t.todo)

13994+ %flag $(todo t.todo)

13995+ %noun $(todo t.todo)

13996+ %empty $(todo t.todo)

13997+ %const $(todo t.todo)

13998+ ==

13999+::

14000+++ dg-scan-ids

14001+ |= [ids=(list @ud) sub=isub fuel=@ud blocked=(list @ud)]

14002+ ^- (unit dgscan)

14003+ ?~ ids `[blocked fuel]

14004+ =/ one=(unit dgscan) (dg-scan ~[[%var i.ids]] sub fuel blocked)

14005+ ?~ one ~

14006+ $(ids t.ids, fuel fuel.u.one, blocked ids.u.one)

14007+::

14008+++ dg-env

14009+ |= [env=ienv sub=isub fuel=@ud blocked=(list @ud)]

14010+ ^- (unit dgscan)

14011+ ?~ env `[blocked fuel]

14012+ =/ sc=ischeme scheme.i.env

14013+ :: Quantifiers are local to the scheme: first find raw free IDs, then

14014+ :: follow those IDs in the module substitution without capturing them.

14015+ =/ raw=(unit dgscan) (dg-scan ~[typ.sc] ~ fuel ~)

14016+ ?~ raw ~

14017+ =/ free=(list @ud) (skim ids.u.raw |=(n=@ud !(lien vars.sc |=(q=@ud =(q n)))))

14018+ =/ resolved=(unit dgscan) (dg-scan-ids free sub fuel.u.raw blocked)

14019+ ?~ resolved ~

14020+ $(env t.env, fuel fuel.u.resolved, blocked ids.u.resolved)

14021+::

14022+++ dg-obligations

14023+ |= [pending=(list dgo) sub=isub fuel=@ud blocked=(list @ud)]

14024+ ^- (unit dgscan)

14025+ ?~ pending `[blocked fuel]

14026+ =/ found=(unit dgscan) (dg-scan ~[left.i.pending right.i.pending] sub fuel blocked)

14027+ ?~ found ~

14028+ $(pending t.pending, fuel fuel.u.found, blocked ids.u.found)

14029+::

14030+++ dg-tags

14031+ |= [tags=(list ipending) sub=isub fuel=@ud blocked=(list @ud)]

14032+ ^- (unit dgscan)

14033+ ?~ tags `[blocked fuel]

14034+ ?: =(0 fuel) ~

14035+ =/ found=(unit itype) (itype-lookup id.i.tags sub)

14036+ ?~ found $(tags t.tags, fuel (dec fuel), blocked [id.i.tags blocked])

14037+ :: Until this entry is explicitly discharged, retain variables reachable

14038+ :: through its binding; mere existence of a substitution is not proof.

14039+ =/ reached=(unit dgscan) (dg-scan ~[u.found] sub (dec fuel) blocked)

14040+ ?~ reached ~

14041+ $(tags t.tags, fuel fuel.u.reached, blocked ids.u.reached)

14042+::

14043+++ dg-generalize

14044+ |= [typ=itype env=ienv pending=(list dgo) tags=(list ipending) captured=(list @ud) state=istate fuel=@ud]

14045+ ^- (unit ischeme)

14046+ :: Bound the obligation list and all graph/substitution walks. The

14047+ :: substitution is assumed checker-owned and occurs-checked.

14048+ ?: (gth (lent pending) 64) ~

14049+ =/ capt=(unit dgscan) (dg-scan-ids captured sub.state fuel ~)

14050+ ?~ capt ~

14051+ =/ env-free=(unit dgscan) (dg-env env sub.state fuel.u.capt ids.u.capt)

14052+ ?~ env-free ~

14053+ =/ obligations=(unit dgscan) (dg-obligations pending sub.state fuel.u.env-free ids.u.env-free)

14054+ ?~ obligations ~

14055+ =/ tagged=(unit dgscan) (dg-tags tags sub.state fuel.u.obligations ids.u.obligations)

14056+ ?~ tagged ~

14057+ =/ bounded=(unit dgscan) (dg-scan ~[typ] sub.state fuel.u.tagged ~)

14058+ ?~ bounded ~

14059+ =/ normalized=itype (itype-normalize typ sub.state)

14060+ =/ vars=(list @ud) (unique-type-vars (itype-vars normalized))

14061+ =/ quantified=(list @ud) (skim vars |=(n=@ud !(lien ids.u.tagged |=(b=@ud =(b n)))))

14062+ `[[normalized quantified]]

14063+::

14064++$ dgcommit [env=ienv state=istate]

14065+:: A branch literal must not acquire a value face through replay.

14066+++ dg-literal-target-safe

14067+ |= target=itype

14068+ ^- ?

14069+ ?: ?=(%union -.target)

14070+ (levy cases.target |=(c=itype ?=(?(%const %cell) -.c)))

14071+ ?=(?(%const %atom %any-atom %flag %noun) -.target)

14072+::

14073+++ dg-replay-edges

14074+ |= [edges=(list dgo) state=istate fuel=@ud]

14075+ ^- (unit istate)

14076+ ?~ edges `state

14077+ ?: =(0 fuel) ~

14078+ =/ trial=ifit (itype-fit left.i.edges right.i.edges sub.state next.state)

14079+ ?. ?=(%ok -.trial) ~

14080+ =/ valid=?

14081+ ?: ?=(%tag -.left.i.edges)

14082+ ?. constructor.left.i.edges

14083+ =/ closed=(unit dgscan) (dg-scan ~[right.i.edges] sub.trial 512 ~)

14084+ ?~ closed |

14085+ ?^ ids.u.closed |

14086+ (dg-literal-target-safe (itype-normalize right.i.edges sub.trial))

14087+ =((itype-walk left.i.edges sub.trial) (itype-walk right.i.edges sub.trial))

14088+ =((itype-walk left.i.edges sub.trial) (itype-walk right.i.edges sub.trial))

14089+ ?. valid ~

14090+ $(edges t.edges, state state(sub sub.trial, next next.trial), fuel (dec fuel))

14091+::

14092+++ dg-close-env

14093+ |= [env=ienv sub=isub fuel=@ud]

14094+ ^- (unit ienv)

14095+ ?~ env `~

14096+ ?: =(0 fuel) ~

14097+ =/ s=ischeme scheme.i.env

14098+ :: Quantified IDs are scheme-local and cannot be rewritten on publication.

14099+ ?. (levy vars.s |=(n=@ud ?=(~ (itype-lookup n sub)))) ~

14100+ =/ bounded=(unit dgscan) (dg-scan ~[typ.s] sub (dec fuel) ~)

14101+ ?~ bounded ~

14102+ =/ normalized=itype (itype-normalize typ.s sub)

14103+ ?: (itype-has-tag normalized) ~

14104+ =/ vars=(list @ud) (unique-type-vars (itype-vars normalized))

14105+ ?. (levy vars |=(n=@ud (lien vars.s |=(v=@ud =(v n))))) ~

14106+ =/ rest=(unit ienv) (dg-close-env t.env sub fuel.u.bounded)

14107+ ?~ rest ~

14108+ `[[name.i.env [normalized vars.s]] u.rest]

14109+::

14110+:: A deferred boolean branch has exactly the two literal flag patterns.

14111+:: Arms are inferred in order. Equal types are retained; two direct pending

14112+:: literals may instead retain source-owned obligations for later context.

14113+++ dg-boolean-patterns

14114+ |= e=expr

14115+ ^- ?

14116+ ?. ?=(%branch -.e) |

14117+ ?~ arms.e |

14118+ ?~ t.arms.e |

14119+ ?^ t.t.arms.e |

14120+ =/ x=arm i.arms.e

14121+ =/ y=arm i.t.arms.e

14122+ ?. &(?=(%lit -.pat.x) ?=(%lit -.pat.y)) |

14123+ ?. &(=(%loobean form.lit.pat.x) =(%loobean form.lit.pat.y)) |

14124+ !=(val.lit.pat.x val.lit.pat.y)

14125+:: Only a direct source literal which created its own unbound pending tag

14126+:: may create a branch edge. The caller must retain the exact source and state.

14127+++ dg-owned-arm-literal

14128+ |= [e=expr t=itype tags=(list ipending) sub=isub initial=@ud]

14129+ ^- ?

14130+ ?. ?=(%lit -.e) |

14131+ ?. ?=(%tag -.t) |

14132+ ?: constructor.t |

14133+ ?. =(lit.e literal.t) |

14134+ ?: (lth id.t initial) |

14135+ ?^ (itype-lookup id.t sub) |

14136+ (lien tags |=(x=ipending &(=(id.x id.t) =(literal.x literal.t))))

14137+++ dg-boolean-branch

14138+ |= [e=expr env=ienv state=istate]

14139+ ^- iresult

14140+ ?. (dg-boolean-patterns e) [%| ["deferred branch patterns need unsupported inference" ~]]

14141+ ?> ?=(%branch -.e)

14142+ ?> ?=(^ arms.e)

14143+ ?> ?=(^ t.arms.e)

14144+ =/ x=arm i.arms.e

14145+ =/ y=arm i.t.arms.e

14146+ =/ subject=iresult (infer-fragment subject.e env state)

14147+ ?: ?=(%| -.subject) subject

14148+ =/ su=(unit isub) (itype-unify typ.p.subject [%flag ~] sub.state.p.subject)

14149+ ?~ su [%| ["deferred branch subject does not unify with ?" ~]]

14150+ =/ left=iresult (infer-fragment val.x env state.p.subject(sub u.su))

14151+ ?: ?=(%| -.left) left

14152+ =/ right=iresult (infer-fragment val.y env state.p.left)

14153+ ?: ?=(%| -.right) right

14154+ ?. (dg-stable-fit typ.p.left typ.p.right sub.state.p.right)

14155+ =/ st=istate state.p.right

14156+ ?. (dg-owned-arm-literal val.x typ.p.left tags.st sub.st next.state)

14157+ [%| ["deferred branch arm context needs unsupported inference" ~]]

14158+ ?. (dg-owned-arm-literal val.y typ.p.right tags.st sub.st next.state)

14159+ [%| ["deferred branch arm context needs unsupported inference" ~]]

14160+ ?> ?=(%tag -.typ.p.left)

14161+ ?> ?=(%tag -.typ.p.right)

14162+ ?: =(id.typ.p.left id.typ.p.right)

14163+ [%| ["deferred branch arm context needs unsupported inference" ~]]

14164+ ?: (gth (lent obligations.st) 62)

14165+ [%| ["deferred branch arm context needs unsupported inference" ~]]

14166+ =/ result=itype [%var next.st]

14167+ =/ ex=dgo [typ.p.left result (span-of val.x) (span-of e)]

14168+ =/ ey=dgo [typ.p.right result (span-of val.y) (span-of e)]

14169+ [%& result st(next +(next.st), obligations [ex ey obligations.st])]

14170+ [%& typ.p.left state.p.right]

14171+::

14172+:: A direct tuple literal may wait for a later exact result context.

14173+:: Each pending literal retains its source tag and its own fit obligation.

14174+++ dg-infer-tuple-items

14175+ |= [items=(list item) env=ienv state=istate]

14176+ ^- iresult

14177+ ?~ items [%| ["empty cell is not supported by partial inference" ~]]

14178+ =/ head=iresult (infer-fragment val.i.items env state)

14179+ ?: ?=(%| -.head) head

14180+ =/ typ=itype typ.p.head

14181+ =/ st=istate state.p.head

14182+ =/ adjusted=(unit [typ=itype state=istate])

14183+ ?. (dg-owned-arm-literal val.i.items typ tags.st sub.st next.state) `[typ st]

14184+ ?: (gth (lent obligations.st) 63) ~

14185+ =/ pending=itype [%var next.st]

14186+ =/ edge=dgo [typ pending (span-of val.i.items) at.i.items]

14187+ `[pending st(next +(next.st), obligations [edge obligations.st])]

14188+ ?~ adjusted [%| ["deferred tuple context needs unsupported inference" ~]]

14189+ =. typ typ.u.adjusted

14190+ =. st state.u.adjusted

14191+ =. typ ?~(face.i.items typ [%face u.face.i.items typ])

14192+ ?~ t.items [%& typ st]

14193+ =/ tail=iresult $(items t.items, state st)

14194+ ?: ?=(%| -.tail) tail

14195+ [%& [%cell typ typ.p.tail] state.p.tail]

14196+::

14197+:: Deferred inference uses only source forms whose successful fit sites are

14198+:: guarded below; a shared source-node budget bounds this screen.

14199+++ dg-safe-expressions

14200+ |= [todo=(list expr) fuel=@ud]

14201+ ^- (unit @ud)

14202+ ?~ todo `fuel

14203+ =/ first=(unit @ud) (dg-safe-expression i.todo fuel)

14204+ ?~ first ~

14205+ $(todo t.todo, fuel u.first)

14206+++ dg-safe-items

14207+ |= [items=(list item) fuel=@ud]

14208+ ^- (unit @ud)

14209+ ?~ items `fuel

14210+ =/ first=(unit @ud) (dg-safe-expression val.i.items fuel)

14211+ ?~ first ~

14212+ $(items t.items, fuel u.first)

14213+++ dg-safe-expression

14214+ |= [e=expr fuel=@ud]

14215+ ^- (unit @ud)

14216+ ?: =(0 fuel) ~

14217+ =. fuel (dec fuel)

14218+ ?+ -.e ~

14219+ ?(%lit %ctor) `fuel

14220+ %wing ?:(?=([@ ~] names.e) `fuel ~)

14221+ %str

14222+ ?. (levy pieces.e |=(p=piece ?=(%text -.p))) ~

14223+ `fuel

14224+ %group $(e inner.e, fuel fuel)

14225+ %body

14226+ ?^ defs.e ~

14227+ $(e final.e, fuel fuel)

14228+ %gate $(e body.e, fuel fuel)

14229+ %gate-wide $(e body.e, fuel fuel)

14230+ %tuple (dg-safe-items items.e fuel)

14231+ %branch

14232+ ?. (dg-boolean-patterns e) ~

14233+ ?> ?=(^ arms.e)

14234+ ?> ?=(^ t.arms.e)

14235+ =/ subject=(unit @ud) $(e subject.e, fuel fuel)

14236+ ?~ subject ~

14237+ (dg-safe-expressions ~[val.i.arms.e val.i.t.arms.e] u.subject)

14238+ %cast $(e val.e, fuel fuel)

14239+ %call

14240+ =/ head=(unit @ud) $(e head.e, fuel fuel)

14241+ ?~ head ~

14242+ (dg-safe-expressions args.e u.head)

14243+ ==

14244+:: Exact normalized equality is preserved by all later substitutions.

14245+:: The bounded scan declines opaque types and oversized inputs.

14246+++ dg-stable-fit

14247+ |= [actual=itype expected=itype sub=isub]

14248+ ^- ?

14249+ ?~ (dg-scan ~[actual expected] sub 512 ~) |

14250+ =((itype-normalize actual sub) (itype-normalize expected sub))

14251+::

14252+:: A positional call peels sample-slot faces during its separate face check.

14253+:: Require its argument, sample and result closed so that check stays valid.

14254+++ dg-stable-call-fit

14255+ |= [actual=itype expected=itype product=itype sub=isub positional=?]

14256+ ^- ?

14257+ =/ checked=(unit dgscan) (dg-scan ~[actual expected product] sub 512 ~)

14258+ ?~ checked |

14259+ ?: &(positional ?=(^ ids.u.checked)) |

14260+ =((itype-normalize actual sub) (itype-normalize expected sub))

14261+::

14262+:: One definition attempt retains state only when inference succeeds.

14263++$ dg-step [env=ienv state=istate pending=(list dgo)]

14264+++ dg-stage-one

14265+ |= [d=def env=ienv state=istate]

14266+ ^- (unit dg-step)

14267+ ?> ?=(%value -.d)

14268+ ?~ (dg-safe-expression val.d 512) ~

14269+ =/ local=istate (reserve-def-caps val.d state)

14270+ :: This first slice declines all written capitals and holes/projections.

14271+ ?^ caps.local ~

14272+ =/ ordinary=iresult (infer-fragment val.d env local)

14273+ ?: ?=(%| -.ordinary) ~

14274+ =/ typ=itype typ.p.ordinary

14275+ =/ after=istate state.p.ordinary

14276+ =/ edges=(list dgo) obligations.after

14277+ ?. =(binders.after binders.state) ~

14278+ ?. =(molds.after molds.state) ~

14279+ ?. =(globals.after globals.state) ~

14280+ ?. =(externals.after externals.state) ~

14281+ ?. =(surs.after surs.state) ~

14282+ ?. =(mark-externals.after mark-externals.state) ~

14283+ ?. =(marks.after marks.state) ~

14284+ ?. =(jimports.after jimports.state) ~

14285+ ?. =(reserved-molds.after reserved-molds.state) ~

14286+ ?. =(params.after params.state) ~

14287+ ?. =(active.after active.state) ~

14288+ ?. =(in-mold.after in-mold.state) ~

14289+ ?. =(at.after at.state) ~

14290+ ?. =(top-molds.after top-molds.state) ~

14291+ ?. =(prelude.after prelude.state) ~

14292+ ?. =(gate-defs.after gate-defs.state) ~

14293+ ?. =(head-evidence.after head-evidence.state) ~

14294+ ?. =(grec-index.after grec-index.state) ~

14295+ ?. =(defer.after defer.state) ~

14296+ ?. =(holes.after holes.state) ~

14297+ ?. =(caps.after caps.state) ~

14298+ ?. =(projections.after projections.state) ~

14299+ ?: (unsupported-atom-vars (itype-normalize typ sub.after) caps.after binders.after sub.after) ~

14300+ ?: (itype-has-nvar (itype-normalize typ sub.after)) ~

14301+ =/ scheme=(unit ischeme) (dg-generalize typ env edges tags.after ~ after 32.768)

14302+ ?~ scheme ~

14303+ `[[[name.d u.scheme] env] after edges]

14304+:: Retry only definitions that did not infer. Successful definitions are

14305+:: committed into the local transaction, never published until all close.

14306+++ dg-stage

14307+ |= [ds=(list def) base=ienv env=ienv state=istate pending=(list dgo) fuel=@ud]

14308+ ^- (unit dgcommit)

14309+ ?: (gth fuel 64) ~

14310+ ?: (gth (lent ds) fuel) ~

14311+ =/ remaining=(list def) ds

14312+ =/ waiting=(list def) ~

14313+ =/ progress=? |

14314+ =/ attempts=@ud (mul fuel fuel)

14315+ |-

14316+ ?~ remaining

14317+ ?^ waiting

14318+ ?. progress ~

14319+ $(remaining (flop waiting), waiting ~, progress |)

14320+ =/ replayed=(unit istate) (dg-replay-edges pending state 64)

14321+ ?~ replayed ~

14322+ ?: (pending-tags tags.u.replayed sub.u.replayed) ~

14323+ =/ closed-edges=(unit dgscan) (dg-obligations pending sub.u.replayed 32.768 ~)

14324+ ?~ closed-edges ~

14325+ ?^ ids.u.closed-edges ~

14326+ =/ rechecked=(unit istate) (dg-replay-edges pending u.replayed 64)

14327+ ?~ rechecked ~

14328+ ?. =(sub.u.rechecked sub.u.replayed) ~

14329+ ?. =(next.u.rechecked next.u.replayed) ~

14330+ =/ closed=(unit ienv) (dg-close-env env sub.u.replayed 32.768)

14331+ ?~ closed ~

14332+ `[[u.closed u.replayed(defer ~, obligations ~)]]

14333+ ?: =(0 attempts) ~

14334+ =. attempts (dec attempts)

14335+ =/ d=def i.remaining

14336+ ?: ?=(%mold -.d) $(remaining t.remaining)

14337+ ?^ (ienv-lookup name.d base) $(remaining t.remaining)

14338+ ?^ (ienv-lookup name.d env) ~

14339+ =/ done=(unit dg-step) (dg-stage-one d env state)

14340+ ?~ done $(remaining t.remaining, waiting [d waiting])

14341+ $(remaining t.remaining, env env.u.done, state state.u.done, pending pending.u.done, progress &)

14342+::

14343+:: Cheap bounded eligibility check on the already parsed source. This

14344+:: deliberately covers only direct constructor calls beneath transparent

14345+:: groups, gates, casts and definition-free bodies. Other shapes decline

14346+:: this fallback without a second parse or resolution pass.

14347+++ dg-direct-source

14348+ |= [e=expr fuel=@ud]

14349+ ^- ?

14350+ ?: =(0 fuel) |

14351+ ?+ -.e |

14352+ %group $(e inner.e, fuel (dec fuel))

14353+ %gate $(e body.e, fuel (dec fuel))

14354+ %gate-wide $(e body.e, fuel (dec fuel))

14355+ %cast $(e val.e, fuel (dec fuel))

14356+ %body ?~(defs.e $(e final.e, fuel (dec fuel)) |)

14357+ %call

14358+ ?. ?=([* ~] args.e) |

14359+ ?=(%ctor -.i.args.e)

14360+ ==

14361+++ dg-source-candidate

14362+ |= [ds=(list def) fuel=@ud]

14363+ ^- ?

14364+ ?~ ds |

14365+ ?: =(0 fuel) |

14366+ ?. ?=(%value -.i.ds) $(ds t.ds, fuel (dec fuel))

14367+ ?: (dg-direct-source val.i.ds 64) &

14368+ $(ds t.ds, fuel (dec fuel))

14369+::

14370+++ dg-prepared-source

14371+ |= [e=expr fuel=@ud]

14372+ ^- ?

14373+ ?: (dg-direct-source e fuel) &

14374+ ?: =(0 fuel) |

14375+ ?+ -.e |

14376+ %group $(e inner.e, fuel (dec fuel))

14377+ %gate $(e body.e, fuel (dec fuel))

14378+ %gate-wide $(e body.e, fuel (dec fuel))

14379+ %cast $(e val.e, fuel (dec fuel))

14380+ %body ?~(defs.e $(e final.e, fuel (dec fuel)) |)

14381+ %tuple &

14382+ ==

14383+++ dg-prepared-candidate

14384+ |= [ds=(list def) fuel=@ud]

14385+ ^- ?

14386+ ?~ ds |

14387+ ?: =(0 fuel) |

14388+ ?. ?=(%value -.i.ds) $(ds t.ds, fuel (dec fuel))

14389+ ?: (dg-prepared-source val.i.ds 64) &

14390+ $(ds t.ds, fuel (dec fuel))

14391+::

14392+++ dg-interface-safe

14393+ |= [env=ienv]

14394+ ^- ?

14395+ ?~ env &

14396+ =/ sc=ischeme scheme.i.env

14397+ ?: |((itype-has-hidden-recursive typ.sc) (itype-has-hidden-generic typ.sc)) |

14398+ ?: (gth (lent vars.sc) 26) |

14399+ $(env t.env)

14400+:: Parse status and the transaction result come from the same source parse.

14401++$ dgparse [parsed=? result=(unit dgcommit)]

14402+++ dg-root-source

14403+ |= [at=path src=@t]

14404+ ^- (unit dgcommit)

14405+ result:(dg-root-detail at src)

14406+++ dg-root-detail

14407+ |= [at=path src=@t]

14408+ ^- dgparse

14409+ =/ parsed (parse at src)

14410+ ?: ?=(%| -.parsed) [| ~]

14411+ =/ transact

14412+ |.

14413+ ?^ imports.p.parsed ~

14414+ ?. (module-scope-valid p.parsed ~ ~) ~

14415+ ?^ (duplicate-defs defs.p.parsed) ~

14416+ =/ defs=(list def) defs.p.parsed

14417+ ?: (gth (lent defs) 64) ~

14418+ =/ molds=imolds (collect-simple-molds defs)

14419+ =/ globals=(list term) (global-value-names defs)

14420+ =/ resolution=iresolved (resolve-groups defs molds globals ~ ~ ~ ~ ~ ~ at ~)

14421+ ?^ grouped.resolution ~

14422+ ?^ artifacts.resolution ~

14423+ =/ base=ienv env.resolution

14424+ =/ free=(unit dgscan) (dg-env base ~ 32.768 ~)

14425+ ?~ free ~

14426+ ?^ ids.u.free ~

14427+ =/ all=(unit dgscan) (dg-all-env-ids base 32.768 ~)

14428+ ?~ all ~

14429+ =/ fresh=@ud (dg-next-id ids.u.all 0)

14430+ =/ st=istate *istate

14431+ =. 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)

14432+ =/ checked-molds=(each imold-types @t) (module-mold-types molds st)

14433+ ?: ?=(%| -.checked-molds) ~

14434+ (dg-stage defs base base st ~ 64)

14435+ ::

14436+ [& (transact)]

14437+:: The caller supplies the trusted prepared prelude. This transaction is

14438+:: only report evidence; the ordinary module resolver does not publish it.

14439+++ dg-root-prepared

14440+ |= [at=path src=@t prepared=iprelude]

14441+ ^- (unit dgcommit)

14442+ ?: ?=([%ui %api *] at) ~

14443+ ?: ?=([%ui %stores *] at) ~

14444+ ?: (gth (met 3 src) 65.536) ~

14445+ =/ parsed (parse at src)

14446+ ?: ?=(%| -.parsed) ~

14447+ ?^ imports.p.parsed ~

14448+ ?. (module-scope-valid p.parsed values.prepared molds.prepared) ~

14449+ ?^ (duplicate-defs defs.p.parsed) ~

14450+ =/ defs=(list def) defs.p.parsed

14451+ ?: (gth (lent defs) 64) ~

14452+ ?: (lien (global-value-names defs) |=(n=term =(n %main))) ~

14453+ ?. (dg-prepared-candidate defs 64) ~

14454+ =/ local-molds=imolds (collect-simple-molds defs)

14455+ =/ globals=(list term) (weld values.prepared (global-value-names defs))

14456+ =/ iface=ifile iface.prepared

14457+ =/ prelude=(unit ifile) `iface

14458+ =/ resolution=iresolved

14459+ (resolve-groups defs local-molds globals ~ ~ ~ ~ ~ molds.prepared at prelude)

14460+ ?^ grouped.resolution ~

14461+ ?^ artifacts.resolution ~

14462+ =/ base=ienv env.resolution

14463+ =/ templates=ienv

14464+ (turn molds.iface |=(x=[name=term template=ischeme] [name.x template.x]))

14465+ =/ all-env=ienv (weld base (weld values.iface templates))

14466+ =/ free=(unit dgscan) (dg-env all-env ~ 32.768 ~)

14467+ ?~ free ~

14468+ ?^ ids.u.free ~

14469+ =/ all=(unit dgscan) (dg-all-env-ids all-env 32.768 ~)

14470+ ?~ all ~

14471+ =/ fresh=@ud (dg-next-id ids.u.all 0)

14472+ =/ st=istate *istate

14473+ =. st st(next fresh, defer `~, molds local-molds, globals globals, at at, reserved-molds molds.prepared, prelude prelude, top-molds (turn local-molds |=(m=[name=term body=shape] name.m)), in-mold |, jrec-fuel 256)

14474+ =/ checked-molds=(each imold-types @t) (module-mold-types local-molds st)

14475+ ?: ?=(%| -.checked-molds) ~

14476+ (dg-stage defs base base st ~ 64)

14477+::

14478+++ dg-all-env-ids

14479+ |= [env=ienv fuel=@ud ids=(list @ud)]

14480+ ^- (unit dgscan)

14481+ ?~ env `[ids fuel]

14482+ ?: =(0 fuel) ~

14483+ =/ sc=ischeme scheme.i.env

14484+ ?: (itype-has-tag typ.sc) ~

14485+ =/ raw=(unit dgscan) (dg-scan ~[typ.sc] ~ (dec fuel) ids)

14486+ ?~ raw ~

14487+ =/ quant=(unit dgscan) (dg-scan-ids vars.sc ~ fuel.u.raw ids.u.raw)

14488+ ?~ quant ~

14489+ $(env t.env, fuel fuel.u.quant, ids ids.u.quant)

14490+::

14491+++ dg-next-id

14492+ |= [ids=(list @ud) largest=@ud]

14493+ ^- @ud

14494+ ?~ ids +(largest)

14495+ $(ids t.ids, largest (max largest i.ids))

14496+::

14497+++ dg-eligible-ctor

14498+ |= [e=expr head=itype actual=itype expected=itype state=istate]

14499+ ^- (unit dgo)

14500+ ?. ?=(%call -.e) ~

14501+ ?. ?=([* ~] args.e) ~

14502+ ?. ?=(%ctor -.i.args.e) ~

14503+ ?. ?=(%fn -.head) ~

14504+ ?. ?=(%fn -.expected) ~

14505+ ?. ?=(%tag -.actual) ~

14506+ ?. constructor.actual ~

14507+ ?. ?=(%var -.product.expected) ~

14508+ ?^ (itype-lookup id.product.expected sub.state) ~

14509+ =/ bounded=(unit dgscan) (dg-scan ~[sample.expected] sub.state 256 ~)

14510+ ?~ bounded ~

14511+ ?^ ids.u.bounded ~

14512+ `[[actual expected (span-of i.args.e) (span-of head.e)]]

14513+::

14514+:: Experimental per-module, source-derived recursive tree index.

14515+:: The two tags and the exact children/list/self layout are fixed-shape

14516+:: checks, so ordinary definitions incur no type-tree or source scans.

14517+++ grec-tagged-fields

14518+ |= sh=shape

14519+ ^- (unit [tag=@ fields=(list field)])

14520+ ?. ?=(%cell -.sh) ~

14521+ ?~ fields.sh ~

14522+ =/ head=field i.fields.sh

14523+ ?. ?=(%bare -.head) ~

14524+ ?. ?=(%const -.shape.head) ~

14525+ ?. &(?=(%term form.lit.shape.head) =(%tas aura.lit.shape.head)) ~

14526+ `[val.lit.shape.head t.fields.sh]

14527+++ grec-tree-children

14528+ |= [fs=(list field) param=@t]

14529+ ^- (unit field)

14530+ ?~ fs ~

14531+ ?~ t.fs `i.fs

14532+ ?^ t.t.fs ~

14533+ =/ event=field i.fs

14534+ =/ kids=field i.t.fs

14535+ ?. &(?=(%face -.event) ?=(%face -.kids)) ~

14536+ ?. !=(name.event name.kids) ~

14537+ ?. ?=(%fn -.shape.event) ~

14538+ ?. ?=(%aura -.sample.shape.event) ~

14539+ ?. =(%t aura.sample.shape.event) ~

14540+ ?. ?=(%tvar -.product.shape.event) ~

14541+ ?. =(param name.product.shape.event) ~

14542+ `kids

14543+::

14544+++ grec-tree-proof

14545+ |= [name=term sh=shape]

14546+ ^- ?

14547+ ?. ?=(%generic -.sh) |

14548+ ?. ?=([@ ~] vars.sh) |

14549+ =/ param=@t i.vars.sh

14550+ ?. ?=(%union -.body.sh) |

14551+ ?. ?=([* [* ~]] cases.body.sh) |

14552+ =/ a=(unit [tag=@ fields=(list field)]) (grec-tagged-fields i.cases.body.sh)

14553+ =/ b=(unit [tag=@ fields=(list field)]) (grec-tagged-fields i.t.cases.body.sh)

14554+ ?~ a |

14555+ ?~ b |

14556+ ?. !=(tag.u.a tag.u.b) |

14557+ ?. ?=([* ~] fields.u.a) |

14558+ =/ value=field i.fields.u.a

14559+ ?. ?=(%face -.value) |

14560+ ?. ?=(%aura -.shape.value) |

14561+ ?. =(%t aura.shape.value) |

14562+ =/ selected=(unit field) (grec-tree-children fields.u.b param)

14563+ ?~ selected |

14564+ =/ kids=field u.selected

14565+ ?. ?=(%face -.kids) |

14566+ ?. ?=(%apply -.shape.kids) |

14567+ ?. =(ref.shape.kids ~[%list]) |

14568+ ?. ?=([* ~] args.shape.kids) |

14569+ =/ self=shape i.args.shape.kids

14570+ ?. ?=(%apply -.self) |

14571+ ?. =(ref.self ~[name]) |

14572+ ?. ?=([* ~] args.self) |

14573+ ?. ?=(%tvar -.i.args.self) |

14574+ =(name.i.args.self param)

14575++$ grec-collected [molds=imolds proofs=(map term shape)]

14576+:: Experimental one-layer analysis view, never an exported mold identity.

14577+++ grec-unfold-view

14578+ |= [typ=itype fuel=@ud]

14579+ ^- (unit [view=itype left=@ud])

14580+ ?. ?=(%grec -.typ) ~

14581+ ?: =(fuel 0) ~

14582+ ?. ?=([* ~] args.typ) ~

14583+ =/ sh=shape proof.typ

14584+ ?. (grec-tree-proof name.typ sh) ~

14585+ ?> ?=(%generic -.sh)

14586+ ?> ?=([@ ~] vars.sh)

14587+ ?> ?=(%union -.body.sh)

14588+ ?> ?=([* [* ~]] cases.body.sh)

14589+ =/ ca=shape i.cases.body.sh

14590+ =/ cb=shape i.t.cases.body.sh

14591+ ?> ?=(%cell -.ca)

14592+ ?> ?=(%cell -.cb)

14593+ ?> ?=([* [* ~]] fields.ca)

14594+ ?> ?=([* *] fields.cb)

14595+ =/ tag-a=field i.fields.ca

14596+ =/ tag-b=field i.fields.cb

14597+ ?> ?=(%bare -.tag-a)

14598+ ?> ?=(%bare -.tag-b)

14599+ ?> ?=(%const -.shape.tag-a)

14600+ ?> ?=(%const -.shape.tag-b)

14601+ =/ text-field=field i.t.fields.ca

14602+ ?> ?=(%face -.text-field)

14603+ =/ branch=(list field) t.fields.cb

14604+ =/ kids=(unit field) (grec-tree-children branch i.vars.sh)

14605+ ?~ kids ~

14606+ ?> ?=(%face -.u.kids)

14607+ =/ children=itype [%face name.u.kids [%collection %list ~[typ]]]

14608+ ?> ?=(^ branch)

14609+ =/ payload=itype

14610+ ?~ t.branch children

14611+ =/ event=field i.branch

14612+ ?> ?=(%face -.event)

14613+ [%cell [%face name.event [%fn [%atom %t] i.args.typ]] children]

14614+ =/ leaf=itype [%cell [%const lit.shape.tag-a] [%face name.text-field [%atom %t]]]

14615+ =/ node=itype [%cell [%const lit.shape.tag-b] payload]

14616+ `[[%union ~[leaf node] ~ ~ ~] (dec fuel)]

14617+::

14618+++ grec-collect-molds

14619+ |= ds=(list def)

14620+ ^- grec-collected

14621+ ?~ ds [~ *(map term shape)]

14622+ =/ rest=grec-collected $(ds t.ds)

14623+ ?. ?=(%mold -.i.ds) rest

14624+ =/ name=term name.i.ds

14625+ =/ body=shape shape.i.ds

14626+ =/ proofs=(map term shape) proofs.rest

14627+ =? proofs (grec-tree-proof name body) (~(put by proofs) name body)

14628+ [[[name body] molds.rest] proofs]

14629+::

14630+

1089514631--

jibb-dev/lib/jibb/internal.jibb+2

@@ -18,6 +18,8 @@

1818:: Private compiler primitive wrappers; execution is a later milestone.

1919++ add-atom |= args=[A A] (raw-add.core args)

2020++ 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)

2123

2224:: Transparent request data. Identity and path fields are writable and do not

2325:: prove a schema or watchability. A future executor must bind them to checked

jibb-dev/lib/jibb/prelude.jibb+168

@@ -337,3 +337,171 @@

337337

338338+$ ask |$ [M] (ask.internal M)

339339++ 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)

379+

380+:: UI values are source-level descriptions only. Nested element payloads are

381+:: erased in the nonrecursive union; the public constructors below retain the

382+:: typed composition boundaries. Raw-constructor encapsulation, rendering and

383+:: execution are not established by this slice.

384++$ length

385+ [%chars n=@ud]

386+ [%fill n=@ud]

387+ %shrink

388+

389++$ align

390+ %start

391+ %center

392+ %end

393+

394++$ role

395+ %body

396+ %caption

397+ %label

398+

399++$ tone

400+ %normal

401+ %muted

402+ %accent

403+ %danger

404+

405++$ attr

406+ [%pad %s0]

407+ [%pad %s1]

408+ [%pad %s2]

409+ [%pad %s3]

410+ [%gap %s0]

411+ [%gap %s1]

412+ [%gap %s2]

413+ [%gap %s3]

414+ [%width width=length]

415+ [%align align=align]

416+ [%role role=role]

417+ [%tone tone=tone]

418+

419++$ element |$ [M]

420+ [%row attrs=(list attr) kids=*]

421+ [%column attrs=(list attr) kids=*]

422+ [%wrap attrs=(list attr) kids=*]

423+ [%stack attrs=(list attr) kids=*]

424+ [%el attrs=(list attr) kid=*]

425+ [%para kids=*]

426+ [%text words=@t]

427+ [%heading level=@ud words=@t]

428+ [%each items=*]

429+ [%table columns=* rows=*]

430+ [%image source=qath description=@t]

431+ [%image-unsafe source=[url=@t width=@ud height=@ud] description=@t]

432+ [%link target=qath label=@t]

433+ [%link-unsafe target=@t label=@t]

434+ [%button label=@t message=M]

435+ [%toggle on=? label=@t message=M]

436+ [%field label=@t value=@t reply=$-(@t M)]

437+ [%form message=M kids=*]

438+ [%island payload=*]

439+

440+++ row |= [attrs=(list attr) kids=(list (element M))]

441+ ^- (element M) [%row attrs kids]

442+

443+++ column |= [attrs=(list attr) kids=(list (element M))]

444+ ^- (element M) [%column attrs kids]

445+

446+++ wrap |= [attrs=(list attr) kids=(list (element M))]

447+ ^- (element M) [%wrap attrs kids]

448+

449+++ stack |= [attrs=(list attr) kids=(list (element M))]

450+ ^- (element M) [%stack attrs kids]

451+

452+++ el |= [attrs=(list attr) kid=(element M)]

453+ ^- (element M) [%el attrs kid]

454+

455+++ para |= kids=(list (element M))

456+ ^- (element M) [%para kids]

457+

458+++ text |= words=@t

459+ ^- (element M) [%text words]

460+

461+++ heading |= [level=@ud words=@t]

462+ ^- (element M) [%heading level words]

463+

464+++ each |= items=(list [key=K el=(element M)])

465+ ^- (element M) [%each items]

466+

467+++ table |= [columns=(list [header=@t width=length align=align]) rows=(list [key=K cells=(list (element M))])]

468+ ^- (element M) [%table columns rows]

469+

470+++ image |= [source=qath description=@t]

471+ ^- (element M) [%image source description]

472+

473+++ image-unsafe |= [source=[url=@t width=@ud height=@ud] description=@t]

474+ ^- (element M) [%image-unsafe source description]

475+

476+++ link |= [target=qath label=@t]

477+ ^- (element M) [%link target label]

478+

479+++ link-unsafe |= [target=@t label=@t]

480+ ^- (element M) [%link-unsafe target label]

481+

482+++ button |= [label=@t message=M]

483+ ^- (element M) [%button label message]

484+

485+++ toggle |= [on=? label=@t message=M]

486+ ^- (element M) [%toggle on label message]

487+

488+++ field |= [label=@t value=@t reply=$-(@t M)]

489+ ^- (element M) [%field label value reply]

490+

491+++ form |= [message=M kids=(list (element M))]

492+ ^- (element M) [%form message kids]

493+

494++$ program |$ [D X M]

495+ [init=$-(D X) update=$-([M X] [X (list (cmd M))]) view=$-(X (element M)) subs=$-(X (list (sub M)))]

496+

497+++ program |= [init=$-(D X) update=$-([M X] [X (list (cmd M))]) view=$-(X (element M)) subs=$-(X (list (sub M)))]

498+ ^- (program D X M) [init update view subs]

499+

500+++ island |= [p=(program D X M) data=D]

501+ ^- (element !!) [%island [p data]]

502+

503++$ page |$ [R D]

504+ [load=$-(R (ask D)) view=$-(D (element !!))]

505+

506+++ page |= [load=$-(R (ask D)) view=$-(D (element !!))]

507+ ^- (page R D) [load view]

tests/golden/module-import-cycle/source.jibb+1−1

@@ -1,2 +1,2 @@

11/= a /ui/a

2−++ text (identity.a "hi")

2+++ text-value (identity.a "hi")

tests/golden/module-import-cycle/tokens.txt+6−6

@@ -6,9 +6,9 @@

661:11 tight knot a

772:1 NEWLINE

882:1 glyph ++

9−2:4 name text

10−2:9 glyph (

11−2:10 tight wing identity.a

12−2:21 str "hi"

13−2:25 tight glyph )

14−2:26 NEWLINE

9+2:4 name text-value

10+2:15 glyph (

11+2:16 tight wing identity.a

12+2:27 str "hi"

13+2:31 tight glyph )

14+2:32 NEWLINE

tests/golden/module-import-cycle/tree.txt+3−3

@@ -1,5 +1,5 @@

11(module

22 (jibb 1:1 a /ui/a)

3− (value 2:1 text

4− (group 2:9

5− (call 2:10 (wing 2:10 identity.a) (str 2:21 "hi")))))

3+ (value 2:1 text-value

4+ (group 2:15

5+ (call 2:16 (wing 2:16 identity.a) (str 2:27 "hi")))))

tests/golden/module-import-identity/source.jibb+1−1

@@ -1,3 +1,3 @@

11/= lib /ui/lib

2−++ text (identity.lib "hi")

2+++ text-value (identity.lib "hi")

33++ ship (identity.lib ~zod)

tests/golden/module-import-identity/tokens.txt+5−5

@@ -6,11 +6,11 @@

661:13 tight knot lib

772:1 NEWLINE

882:1 glyph ++

9−2:4 name text

10−2:9 glyph (

11−2:10 tight wing identity.lib

12−2:23 str "hi"

13−2:27 tight glyph )

9+2:4 name text-value

10+2:15 glyph (

11+2:16 tight wing identity.lib

12+2:29 str "hi"

13+2:33 tight glyph )

14143:1 NEWLINE

15153:1 glyph ++

16163:4 name ship

tests/golden/module-import-identity/tree.txt+3−3

@@ -1,8 +1,8 @@

11(module

22 (jibb 1:1 lib /ui/lib)

3− (value 2:1 text

4− (group 2:9

5− (call 2:10 (wing 2:10 identity.lib) (str 2:23 "hi"))))

3+ (value 2:1 text-value

4+ (group 2:15

5+ (call 2:16 (wing 2:16 identity.lib) (str 2:29 "hi"))))

66 (value 3:1 ship

77 (group 3:9

88 (call 3:10 (wing 3:10 identity.lib) (lit 3:23 ~zod)))))

tests/golden/module-import-identity/types.txt+1−1

@@ -1,3 +1,3 @@

11partial inference; module not checked

2−++ text: @t

2+++ text-value: @t

33++ ship: @p

tests/golden/module-import-transitive/source.jibb+1−1

@@ -1,2 +1,2 @@

11/= a /ui/a

2−++ text (identity.a "hi")

2+++ text-value (identity.a "hi")

tests/golden/module-import-transitive/tokens.txt+6−6

@@ -6,9 +6,9 @@

661:11 tight knot a

772:1 NEWLINE

882:1 glyph ++

9−2:4 name text

10−2:9 glyph (

11−2:10 tight wing identity.a

12−2:21 str "hi"

13−2:25 tight glyph )

14−2:26 NEWLINE

9+2:4 name text-value

10+2:15 glyph (

11+2:16 tight wing identity.a

12+2:27 str "hi"

13+2:31 tight glyph )

14+2:32 NEWLINE

tests/golden/module-import-transitive/tree.txt+3−3

@@ -1,5 +1,5 @@

11(module

22 (jibb 1:1 a /ui/a)

3− (value 2:1 text

4− (group 2:9

5− (call 2:10 (wing 2:10 identity.a) (str 2:21 "hi")))))

3+ (value 2:1 text-value

4+ (group 2:15

5+ (call 2:16 (wing 2:16 identity.a) (str 2:27 "hi")))))

tests/golden/module-import-transitive/types.txt+1−1

@@ -1,2 +1,2 @@

11partial inference; module not checked

2−++ text: @t

2+++ text-value: @t

tests/golden/module-import-unused-invalid/source.jibb+1−1

@@ -1,2 +1,2 @@

11/= good /ui/good

2−++ text (identity.good "hi")

2+++ text-value (identity.good "hi")

tests/golden/module-import-unused-invalid/tokens.txt+6−6

@@ -6,9 +6,9 @@

661:14 tight knot good

772:1 NEWLINE

882:1 glyph ++

9−2:4 name text

10−2:9 glyph (

11−2:10 tight wing identity.good

12−2:24 str "hi"

13−2:28 tight glyph )

14−2:29 NEWLINE

9+2:4 name text-value

10+2:15 glyph (

11+2:16 tight wing identity.good

12+2:30 str "hi"

13+2:34 tight glyph )

14+2:35 NEWLINE

tests/golden/module-import-unused-invalid/tree.txt+3−3

@@ -1,5 +1,5 @@

11(module

22 (jibb 1:1 good /ui/good)

3− (value 2:1 text

4− (group 2:9

5− (call 2:10 (wing 2:10 identity.good) (str 2:24 "hi")))))

3+ (value 2:1 text-value

4+ (group 2:15

5+ (call 2:16 (wing 2:16 identity.good) (str 2:30 "hi")))))

tests/golden/module-import-unused-invalid/types.txt+1−1

@@ -1,2 +1,2 @@

11partial inference; module not checked

2−++ text: @t

2+++ text-value: @t

tests/golden/types-arithmetic-module/source.jibb+1−1

@@ -1,7 +1,7 @@

11/= math /ui/math

22++ decimal ^- @ud (sum.math 1 2)

33++ hex ^- @ux (sum.math 0x1 0x2)

4−++ text ^- @t (alias.math "a" "b")

4+++ text-value ^- @t (alias.math "a" "b")

55++ ship ^- @p (down.math ~zod)

66++ reject-bool (sum.math %.y %.n)

77++ reject-down (down.math %.y)

tests/golden/types-arithmetic-module/tokens.txt+8−8

@@ -26,14 +26,14 @@

26263:32 tight glyph )

27274:1 NEWLINE

28284: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 )

29+4:4 name text-value

30+4:15 glyph ^-

31+4:18 aura @t

32+4:21 glyph (

33+4:22 tight wing alias.math

34+4:33 str "a"

35+4:37 str "b"

36+4:40 tight glyph )

37375:1 NEWLINE

38385:1 glyph ++

39395:4 name ship

tests/golden/types-arithmetic-module/tree.txt+5−5

@@ -10,11 +10,11 @@

1010 (aura 3:11 @ux)

1111 (group 3:15

1212 (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")))))

13+ (value 4:1 text-value

14+ (cast 4:15

15+ (aura 4:18 @t)

16+ (group 4:21

17+ (call 4:22 (wing 4:22 alias.math) (str 4:33 "a") (str 4:37 "b")))))

1818 (value 5:1 ship

1919 (cast 5:9

2020 (aura 5:12 @p)

tests/golden/types-arithmetic-module/types.txt+1−1

@@ -1,7 +1,7 @@

11partial inference; module not checked

22++ decimal: @ud

33++ hex: @ux

4−++ text: @t

4+++ text-value: @t

55++ ship: @p

66++ reject-bool: call's sample and argument types do not unify

77/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 ?

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-schemes/source.jibb+1−1

@@ -10,7 +10,7 @@

1010++ identity |= x

1111 ?- x

1212 [a b c] [a b c]

13−++ text (identity "hi" ~zod %.y)

13+++ text-value (identity "hi" ~zod %.y)

1414++ ship (identity ~zod "hi" %.n)

1515++ shared |= x=[A A A]

1616 ?- x

tests/golden/types-cell-pattern-schemes/tokens.txt+7−7

@@ -73,13 +73,13 @@

737313:1 DEDENT

747413:1 NEWLINE

757513:1 glyph ++

76−13:4 name text

77−13:9 glyph (

78−13:10 tight name identity

79−13:19 str "hi"

80−13:24 lit ~zod

81−13:29 lit %.y

82−13:32 tight glyph )

76+13:4 name text-value

77+13:15 glyph (

78+13:16 tight name identity

79+13:25 str "hi"

80+13:30 lit ~zod

81+13:35 lit %.y

82+13:38 tight glyph )

838314:1 NEWLINE

848414:1 glyph ++

858514:4 name ship

tests/golden/types-cell-pattern-schemes/tree.txt+3−3

@@ -31,9 +31,9 @@

3131 (arm 12:5

3232 (cell 12:5 (bind 12:6 a) (bind 12:8 b) (bind 12:10 c))

3333 (tuple 12:13 (wing 12:14 a) (wing 12:16 b) (wing 12:18 c)))))))

34− (value 13:1 text

35− (group 13:9

36− (call 13:10 (wing 13:10 identity) (str 13:19 "hi") (lit 13:24 ~zod) (lit 13:29 %.y))))

34+ (value 13:1 text-value

35+ (group 13:15

36+ (call 13:16 (wing 13:16 identity) (str 13:25 "hi") (lit 13:30 ~zod) (lit 13:35 %.y))))

3737 (value 14:1 ship

3838 (group 14:9

3939 (call 14:10 (wing 14:10 identity) (lit 14:19 ~zod) (str 14:24 "hi") (lit 14:29 %.n))))

tests/golden/types-cell-pattern-schemes/types.txt+1−1

@@ -3,7 +3,7 @@ partial inference; module not checked

33++ maybe-union: cell pattern subject is not supported by partial inference

44++ maybe-list: cell pattern subject is not supported by partial inference

55++ identity: $-([A [B C]] [A [B C]])

6−++ text: [@t [@p ?]]

6+++ text-value: [@t [@p ?]]

77++ ship: [@p [@t ?]]

88++ shared: $-([A [A A]] [A [A A]])

99++ wrong: call's sample and argument types do not unify

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-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

@@ -0,0 +1,75 @@

1+(module

2+ (mold 1:1 split

3+ (union 2:3

4+ (cell 2:3

5+ (const 2:4 %one)

6+ (face 2:9 value (aura 2:15 @t)))

7+ (cell 3:3

8+ (const 3:4 %one)

9+ (face 3:9 value (aura 3:15 @p)))))

10+ (mold 4:1 split-zero

11+ (union 5:3

12+ (cell 5:3

13+ (const 5:4 ~)

14+ (face 5:6 value (aura 5:12 @t)))

15+ (cell 6:3

16+ (const 6:4 %.y)

17+ (face 6:8 value (aura 6:14 @p)))))

18+ (mold 7:1 nullable

19+ (union 8:3

20+ (const 8:3 ~)

21+ (cell 9:3

22+ (const 9:4 ~)

23+ (face 9:6 value (aura 9:12 @t)))))

24+ (value 10:1 cord

25+ (cast 10:9

26+ (fn 10:12 (aura 10:15 @t) (ref 10:18 split))

27+ (ctor 10:25 %one)))

28+ (value 11:1 ship

29+ (cast 11:9

30+ (fn 11:12 (aura 11:15 @p) (ref 11:18 split))

31+ (ctor 11:25 %one)))

32+ (value 12:1 neither

33+ (cast 12:12

34+ (fn 12:15 (aura 12:18 @ud) (ref 12:22 split))

35+ (ctor 12:29 %one)))

36+ (value 13:1 zero-cord

37+ (cast 13:14

38+ (fn 13:17 (aura 13:20 @t) (ref 13:23 split-zero))

39+ (ctor 13:35 %$)))

40+ (value 14:1 zero-ship

41+ (cast 14:14

42+ (fn 14:17 (aura 14:20 @p) (ref 14:23 split-zero))

43+ (ctor 14:35 %$)))

44+ (value 15:1 zero-neither

45+ (cast 15:17

46+ (fn 15:20 (aura 15:23 @ud) (ref 15:27 split-zero))

47+ (ctor 15:39 %$)))

48+ (value 16:1 contextual

49+ (cast 16:15

50+ (fn 16:18 (aura 16:21 @t) (ref 16:24 nullable))

51+ (ctor 16:34 %$)))

52+ (value 17:1 pending

53+ (body 18:3

54+ (trace 18:3

55+ (lit 18:6 %orphan)

56+ (body 19:5

57+ (cast 19:5

58+ (fn 19:8 (aura 19:11 @t) (ref 19:14 split))

59+ (ctor 19:21 %one))))))

60+ (mold 20:1 exact

61+ (union 21:3

62+ (cell 21:3 (const 21:4 %same) (const 21:10 %alpha))

63+ (cell 22:3 (const 22:4 %same) (const 22:10 %beta))))

64+ (value 23:1 first

65+ (cast 23:10

66+ (fn 23:13 (const 23:16 %alpha) (ref 23:23 exact))

67+ (ctor 23:30 %same)))

68+ (value 24:1 second

69+ (cast 24:11

70+ (fn 24:14 (const 24:17 %beta) (ref 24:23 exact))

71+ (ctor 24:30 %same)))

72+ (value 25:1 no-case

73+ (cast 25:12

74+ (fn 25:15 (const 25:18 %other) (ref 25:25 exact))

75+ (ctor 25:32 %same))))

tests/golden/types-equal-head-disjoint/types.txtnew file+34

@@ -0,0 +1,34 @@

1+partial inference; module not checked

2++$ split: overlapping cases; mold not checked

3+/tests/golden/types-equal-head-disjoint/source.jibb:2:3: first union case

4+ [%one value=@t]

5+ ^

6+/tests/golden/types-equal-head-disjoint/source.jibb:3:3: overlapping case

7+ [%one value=@p]

8+ ^

9++$ split-zero: overlapping cases; mold not checked

10+/tests/golden/types-equal-head-disjoint/source.jibb:5:3: first union case

11+ [~ value=@t]

12+ ^

13+/tests/golden/types-equal-head-disjoint/source.jibb:6:3: overlapping case

14+ [%.y value=@p]

15+ ^

16++$ nullable: cases proven disjoint; mold not checked

17+++ cord: cast mold is not supported by partial inference

18+++ ship: cast mold is not supported by partial inference

19+++ neither: cast mold is not supported by partial inference

20+++ zero-cord: cast mold is not supported by partial inference

21+++ zero-ship: cast mold is not supported by partial inference

22+++ zero-neither: cast mold is not supported by partial inference

23+++ contextual: $-(@t nullable)

24+++ pending: cast mold is not supported by partial inference

25++$ exact: cases proven disjoint; mold not checked

26+++ first: $-(%alpha exact)

27+++ second: $-(%beta exact)

28+++ no-case: cast mold and expression type do not unify

29+/tests/golden/types-equal-head-disjoint/source.jibb:25:15: cast mold

30+++ no-case ^- $-(%other exact) |=%same

31+ ^

32+/tests/golden/types-equal-head-disjoint/source.jibb:25:32: expression

33+++ no-case ^- $-(%other exact) |=%same

34+ ^

tests/golden/types-generic-result-context/about.txtnew file+1

@@ -0,0 +1 @@

1+Context can reach a directly known generic union result, including reordered and repeated aliases, distinct nominal arguments, independent uses, pending tags and a missing case. These are partial inference reports.

tests/golden/types-generic-result-context/source.jibbnew file+24

@@ -0,0 +1,24 @@

1++$ msg

2+ %idle

3+ %busy

4++$ other

5+ %idle

6+ %busy

7++$ choice |$ [A B]

8+ [%one value=A]

9+ [%two value=B]

10++$ swap |$ [A B] (choice B A)

11++$ repeated |$ [A] (choice A A)

12++$ phantom |$ [A B] (choice A @p)

13+++ wrap-value |= x=A ^- (choice A @p) [%one x]

14+++ wrap-value-repeat |= x=A ^- (repeated A) [%one x]

15+++ use-msg ^- (choice msg @p) (wrap-value %idle)

16+++ use-alias ^- (swap @p msg) (wrap-value %idle)

17+++ use-repeated ^- (repeated msg) (wrap-value-repeat %idle)

18+++ use-distinct ^- (choice other @p) (wrap-value %idle)

19+++ independent |= [m=msg n=other]

20+ [(^- (choice msg @p) (wrap-value m)) (^- (choice other @p) (wrap-value n))]

21+++ pending

22+ ~& %orphan

23+ ^- (choice msg @p) (wrap-value %idle)

24+++ wrong-case ^- (choice msg @p) (wrap-value %absent)

tests/golden/types-generic-result-context/tokens.txtnew file+233

@@ -0,0 +1,233 @@

1+1:1 glyph +$

2+1:4 name msg

3+2:3 INDENT

4+2:3 lit %idle

5+3:3 NEWLINE

6+3:3 lit %busy

7+4:1 DEDENT

8+4:1 NEWLINE

9+4:1 glyph +$

10+4:4 name other

11+5:3 INDENT

12+5:3 lit %idle

13+6:3 NEWLINE

14+6:3 lit %busy

15+7:1 DEDENT

16+7:1 NEWLINE

17+7:1 glyph +$

18+7:4 name choice

19+7:11 glyph |$

20+7:14 glyph [

21+7:15 tight tvar A

22+7:17 tvar B

23+7:18 tight glyph ]

24+8:3 INDENT

25+8:3 glyph [

26+8:4 tight lit %one

27+8:9 name value

28+8:14 tight glyph =

29+8:15 tight tvar A

30+8:16 tight glyph ]

31+9:3 NEWLINE

32+9:3 glyph [

33+9:4 tight lit %two

34+9:9 name value

35+9:14 tight glyph =

36+9:15 tight tvar B

37+9:16 tight glyph ]

38+10:1 DEDENT

39+10:1 NEWLINE

40+10:1 glyph +$

41+10:4 name swap

42+10:9 glyph |$

43+10:12 glyph [

44+10:13 tight tvar A

45+10:15 tvar B

46+10:16 tight glyph ]

47+10:18 glyph (

48+10:19 tight name choice

49+10:26 tvar B

50+10:28 tvar A

51+10:29 tight glyph )

52+11:1 NEWLINE

53+11:1 glyph +$

54+11:4 name repeated

55+11:13 glyph |$

56+11:16 glyph [

57+11:17 tight tvar A

58+11:18 tight glyph ]

59+11:20 glyph (

60+11:21 tight name choice

61+11:28 tvar A

62+11:30 tvar A

63+11:31 tight glyph )

64+12:1 NEWLINE

65+12:1 glyph +$

66+12:4 name phantom

67+12:12 glyph |$

68+12:15 glyph [

69+12:16 tight tvar A

70+12:18 tvar B

71+12:19 tight glyph ]

72+12:21 glyph (

73+12:22 tight name choice

74+12:29 tvar A

75+12:31 aura @p

76+12:33 tight glyph )

77+13:1 NEWLINE

78+13:1 glyph ++

79+13:4 name wrap-value

80+13:15 glyph |=

81+13:18 name x

82+13:19 tight glyph =

83+13:20 tight tvar A

84+13:22 glyph ^-

85+13:25 glyph (

86+13:26 tight name choice

87+13:33 tvar A

88+13:35 aura @p

89+13:37 tight glyph )

90+13:39 glyph [

91+13:40 tight lit %one

92+13:45 name x

93+13:46 tight glyph ]

94+14:1 NEWLINE

95+14:1 glyph ++

96+14:4 name wrap-value-repeat

97+14:22 glyph |=

98+14:25 name x

99+14:26 tight glyph =

100+14:27 tight tvar A

101+14:29 glyph ^-

102+14:32 glyph (

103+14:33 tight name repeated

104+14:42 tvar A

105+14:43 tight glyph )

106+14:45 glyph [

107+14:46 tight lit %one

108+14:51 name x

109+14:52 tight glyph ]

110+15:1 NEWLINE

111+15:1 glyph ++

112+15:4 name use-msg

113+15:12 glyph ^-

114+15:15 glyph (

115+15:16 tight name choice

116+15:23 name msg

117+15:27 aura @p

118+15:29 tight glyph )

119+15:31 glyph (

120+15:32 tight name wrap-value

121+15:43 lit %idle

122+15:48 tight glyph )

123+16:1 NEWLINE

124+16:1 glyph ++

125+16:4 name use-alias

126+16:14 glyph ^-

127+16:17 glyph (

128+16:18 tight name swap

129+16:23 aura @p

130+16:26 name msg

131+16:29 tight glyph )

132+16:31 glyph (

133+16:32 tight name wrap-value

134+16:43 lit %idle

135+16:48 tight glyph )

136+17:1 NEWLINE

137+17:1 glyph ++

138+17:4 name use-repeated

139+17:17 glyph ^-

140+17:20 glyph (

141+17:21 tight name repeated

142+17:30 name msg

143+17:33 tight glyph )

144+17:35 glyph (

145+17:36 tight name wrap-value-repeat

146+17:54 lit %idle

147+17:59 tight glyph )

148+18:1 NEWLINE

149+18:1 glyph ++

150+18:4 name use-distinct

151+18:17 glyph ^-

152+18:20 glyph (

153+18:21 tight name choice

154+18:28 name other

155+18:34 aura @p

156+18:36 tight glyph )

157+18:38 glyph (

158+18:39 tight name wrap-value

159+18:50 lit %idle

160+18:55 tight glyph )

161+19:1 NEWLINE

162+19:1 glyph ++

163+19:4 name independent

164+19:16 glyph |=

165+19:19 glyph [

166+19:20 tight name m

167+19:21 tight glyph =

168+19:22 tight name msg

169+19:26 name n

170+19:27 tight glyph =

171+19:28 tight name other

172+19:33 tight glyph ]

173+20:3 INDENT

174+20:3 glyph [

175+20:4 tight glyph (

176+20:5 tight glyph ^-

177+20:8 glyph (

178+20:9 tight name choice

179+20:16 name msg

180+20:20 aura @p

181+20:22 tight glyph )

182+20:24 glyph (

183+20:25 tight name wrap-value

184+20:36 name m

185+20:37 tight glyph )

186+20:38 tight glyph )

187+20:40 glyph (

188+20:41 tight glyph ^-

189+20:44 glyph (

190+20:45 tight name choice

191+20:52 name other

192+20:58 aura @p

193+20:60 tight glyph )

194+20:62 glyph (

195+20:63 tight name wrap-value

196+20:74 name n

197+20:75 tight glyph )

198+20:76 tight glyph )

199+20:77 tight glyph ]

200+21:1 DEDENT

201+21:1 NEWLINE

202+21:1 glyph ++

203+21:4 name pending

204+22:3 INDENT

205+22:3 glyph ~&

206+22:6 lit %orphan

207+23:5 INDENT

208+23:5 glyph ^-

209+23:8 glyph (

210+23:9 tight name choice

211+23:16 name msg

212+23:20 aura @p

213+23:22 tight glyph )

214+23:24 glyph (

215+23:25 tight name wrap-value

216+23:36 lit %idle

217+23:41 tight glyph )

218+24:1 DEDENT

219+24:1 DEDENT

220+24:1 NEWLINE

221+24:1 glyph ++

222+24:4 name wrong-case

223+24:15 glyph ^-

224+24:18 glyph (

225+24:19 tight name choice

226+24:26 name msg

227+24:30 aura @p

228+24:32 tight glyph )

229+24:34 glyph (

230+24:35 tight name wrap-value

231+24:46 lit %absent

232+24:53 tight glyph )

233+24:54 NEWLINE

tests/golden/types-generic-result-context/tree.txtnew file+86

@@ -0,0 +1,86 @@

1+(module

2+ (mold 1:1 msg

3+ (union 2:3 (const 2:3 %idle) (const 3:3 %busy)))

4+ (mold 4:1 other

5+ (union 5:3 (const 5:3 %idle) (const 6:3 %busy)))

6+ (mold 7:1 choice

7+ (generic 7:11 A B

8+ (union 8:3

9+ (cell 8:3

10+ (const 8:4 %one)

11+ (face 8:9 value (tvar 8:15 A)))

12+ (cell 9:3

13+ (const 9:4 %two)

14+ (face 9:9 value (tvar 9:15 B))))))

15+ (mold 10:1 swap

16+ (generic 10:9 A B

17+ (apply 10:18 choice (tvar 10:26 B) (tvar 10:28 A))))

18+ (mold 11:1 repeated

19+ (generic 11:13 A

20+ (apply 11:20 choice (tvar 11:28 A) (tvar 11:30 A))))

21+ (mold 12:1 phantom

22+ (generic 12:12 A B

23+ (apply 12:21 choice (tvar 12:29 A) (aura 12:31 @p))))

24+ (value 13:1 wrap-value

25+ (gate 13:15

26+ (face 13:18 x (tvar 13:20 A))

27+ (cast 13:22

28+ (apply 13:25 choice (tvar 13:33 A) (aura 13:35 @p))

29+ (tuple 13:39 (lit 13:40 %one) (wing 13:45 x)))))

30+ (value 14:1 wrap-value-repeat

31+ (gate 14:22

32+ (face 14:25 x (tvar 14:27 A))

33+ (cast 14:29

34+ (apply 14:32 repeated (tvar 14:42 A))

35+ (tuple 14:45 (lit 14:46 %one) (wing 14:51 x)))))

36+ (value 15:1 use-msg

37+ (cast 15:12

38+ (apply 15:15 choice (ref 15:23 msg) (aura 15:27 @p))

39+ (group 15:31

40+ (call 15:32 (wing 15:32 wrap-value) (lit 15:43 %idle)))))

41+ (value 16:1 use-alias

42+ (cast 16:14

43+ (apply 16:17 swap (aura 16:23 @p) (ref 16:26 msg))

44+ (group 16:31

45+ (call 16:32 (wing 16:32 wrap-value) (lit 16:43 %idle)))))

46+ (value 17:1 use-repeated

47+ (cast 17:17

48+ (apply 17:20 repeated (ref 17:30 msg))

49+ (group 17:35

50+ (call 17:36 (wing 17:36 wrap-value-repeat) (lit 17:54 %idle)))))

51+ (value 18:1 use-distinct

52+ (cast 18:17

53+ (apply 18:20 choice (ref 18:28 other) (aura 18:34 @p))

54+ (group 18:38

55+ (call 18:39 (wing 18:39 wrap-value) (lit 18:50 %idle)))))

56+ (value 19:1 independent

57+ (gate 19:16

58+ (cell 19:19

59+ (face 19:20 m (ref 19:22 msg))

60+ (face 19:26 n (ref 19:28 other)))

61+ (body 20:3

62+ (tuple 20:3

63+ (group 20:4

64+ (cast 20:5

65+ (apply 20:8 choice (ref 20:16 msg) (aura 20:20 @p))

66+ (group 20:24

67+ (call 20:25 (wing 20:25 wrap-value) (wing 20:36 m)))))

68+ (group 20:40

69+ (cast 20:41

70+ (apply 20:44 choice (ref 20:52 other) (aura 20:58 @p))

71+ (group 20:62

72+ (call 20:63 (wing 20:63 wrap-value) (wing 20:74 n)))))))))

73+ (value 21:1 pending

74+ (body 22:3

75+ (trace 22:3

76+ (lit 22:6 %orphan)

77+ (body 23:5

78+ (cast 23:5

79+ (apply 23:8 choice (ref 23:16 msg) (aura 23:20 @p))

80+ (group 23:24

81+ (call 23:25 (wing 23:25 wrap-value) (lit 23:36 %idle))))))))

82+ (value 24:1 wrong-case

83+ (cast 24:15

84+ (apply 24:18 choice (ref 24:26 msg) (aura 24:30 @p))

85+ (group 24:34

86+ (call 24:35 (wing 24:35 wrap-value) (lit 24:46 %absent))))))

tests/golden/types-generic-result-context/types.txtnew file+22

@@ -0,0 +1,22 @@

1+partial inference; module not checked

2++$ msg: cases proven disjoint; mold not checked

3++$ other: cases proven disjoint; mold not checked

4++$ choice: cases proven disjoint; mold not checked

5++$ swap: not checked

6++$ repeated: not checked

7++$ phantom: not checked

8+++ wrap-value: $-(A (choice A @p))

9+++ wrap-value-repeat: $-(A (choice A A))

10+++ use-msg: (choice msg @p)

11+++ use-alias: (choice msg @p)

12+++ use-repeated: (choice msg msg)

13+++ use-distinct: (choice other @p)

14+++ independent: $-([m=msg n=other] [(choice msg @p) (choice other @p)])

15+++ pending: tag needs context in partial inference

16+++ wrong-case: msg has no case `%absent`

17+/tests/golden/types-generic-result-context/source.jibb:24:35: expected union

18+++ wrong-case ^- (choice msg @p) (wrap-value %absent)

19+ ^

20+/tests/golden/types-generic-result-context/source.jibb:24:46: tag

21+++ wrong-case ^- (choice msg @p) (wrap-value %absent)

22+ ^

tests/golden/types-generic-union-escaping/module-trees.txt+4−4

@@ -6,10 +6,10 @@

66/ui/mid.jibb

77(module

88 (jibb 1:1 base /ui/base)

9− (value 2:1 text

10− (cast 2:9

11− (apply 2:12 phantom.base (aura 2:26 @t))

12− (lit 2:30 %yes)))

9+ (value 2:1 text-value

10+ (cast 2:15

11+ (apply 2:18 phantom.base (aura 2:32 @t))

12+ (lit 2:36 %yes)))

1313 (value 3:1 ship

1414 (cast 3:9

1515 (apply 3:12 phantom.base (aura 3:26 @p))

tests/golden/types-generic-union-escaping/modules/ui/mid.jibb+1−1

@@ -1,3 +1,3 @@

11/= base /ui/base

2−++ text ^- (phantom.base @t) %yes

2+++ text-value ^- (phantom.base @t) %yes

33++ ship ^- (phantom.base @p) %yes

tests/golden/types-generic-union-escaping/source.jibb+1−1

@@ -1,3 +1,3 @@

11/= mid /ui/mid

2−++ text-value text.mid

2+++ text-value text-value.mid

33++ ship-value ship.mid

tests/golden/types-generic-union-escaping/tokens.txt+1−1

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

772:1 NEWLINE

882:1 glyph ++

992:4 name text-value

10−2:15 wing text.mid

10+2:15 wing text-value.mid

11113:1 NEWLINE

12123:1 glyph ++

13133:4 name ship-value

tests/golden/types-generic-union-escaping/tree.txt+1−1

@@ -1,4 +1,4 @@

11(module

22 (jibb 1:1 mid /ui/mid)

3− (value 2:1 text-value (wing 2:15 text.mid))

3+ (value 2:1 text-value (wing 2:15 text-value.mid))

44 (value 3:1 ship-value (wing 3:15 ship.mid)))

tests/golden/types-list-patterns/about.txt+1−1

@@ -1,4 +1,4 @@

11source: Grammar, Patterns: "Every case needs an arm or a catch-all"; "A name in a pattern always binds anew". Modules: no name may shadow an in-scope name.

2−tests: Both orders of an exhaustive list branch bind the head and tail with their respective types; unsupported subjects or patterns, conflicting binders, and unrelated unresolved tags fail closed.

2+tests: Both orders of an exhaustive list branch bind the head and tail with their respective types; unsupported subjects or patterns, conflicting binders, and unrelated unresolved tags fail closed; a nonempty arm of `(list !!)` is unreachable.

33expect: parses

44expect-types: a partial inference report

tests/golden/types-list-patterns/types.txt+1−1

@@ -12,6 +12,6 @@ partial inference; module not checked

1212++ unresolved: list branch results need unsupported inference

1313++ duplicate-arm: branch is not supported by partial inference

1414++ unrelated: tag needs context in partial inference

15−++ empty-elements: sample mold is not supported by partial inference

15+++ empty-elements: list nonempty pattern is unreachable

1616+$ maybe: cases proven disjoint; mold not checked

1717++ unit-shape: unit branch pattern is not supported by partial inference

tests/golden/types-literal-constructor-nouns/about.txtnew file+2

@@ -0,0 +1,2 @@

1+source: equality of literal molds is based on their runtime nouns.

2+tests: The `%$` constructor matches null-, loobean-zero- and term-zero-headed cells. Overlapping same-noun cases are rejected. Wrong payload, absent tags and unrelated pending constraints remain checked. This is a partial inference report.

tests/golden/types-literal-constructor-nouns/source.jibbnew file+25

@@ -0,0 +1,25 @@

1++$ null-head [~ value=@t]

2++$ flag-head [%.y value=@t]

3++$ dollar-head [%$ value=@t]

4++$ pair-null

5+ ~

6+ [~ value=@t]

7++$ overlap-null

8+ [~ value=@t]

9+ [%$ value=@t]

10++$ overlap-flag

11+ [%.y value=@t]

12+ [%$ value=@t]

13++$ overlap-three

14+ [~ value=@t]

15+ [%.y value=@t]

16+ [%$ value=@t]

17+++ null-ctor ^- $-(@t null-head) |=%$

18+++ flag-ctor ^- $-(@t flag-head) |=%$

19+++ dollar-ctor ^- $-(@t dollar-head) |=%$

20+++ unit-like-ctor ^- $-(@t pair-null) |=%$

21+++ wrong-payload ^- $-(@p null-head) |=%$

22+++ missing-tag ^- $-(@t null-head) |=%missing

23+++ pending

24+ ~& %unrelated

25+ ^- $-(@t null-head) |=%$

tests/golden/types-literal-constructor-nouns/tokens.txtnew file+177

@@ -0,0 +1,177 @@

1+1:1 glyph +$

2+1:4 name null-head

3+1:14 glyph [

4+1:15 tight lit ~

5+1:17 name value

6+1:22 tight glyph =

7+1:23 tight aura @t

8+1:25 tight glyph ]

9+2:1 NEWLINE

10+2:1 glyph +$

11+2:4 name flag-head

12+2:14 glyph [

13+2:15 tight lit %.y

14+2:19 name value

15+2:24 tight glyph =

16+2:25 tight aura @t

17+2:27 tight glyph ]

18+3:1 NEWLINE

19+3:1 glyph +$

20+3:4 name dollar-head

21+3:16 glyph [

22+3:17 tight lit %$

23+3:20 name value

24+3:25 tight glyph =

25+3:26 tight aura @t

26+3:28 tight glyph ]

27+4:1 NEWLINE

28+4:1 glyph +$

29+4:4 name pair-null

30+5:3 INDENT

31+5:3 lit ~

32+6:3 NEWLINE

33+6:3 glyph [

34+6:4 tight lit ~

35+6:6 name value

36+6:11 tight glyph =

37+6:12 tight aura @t

38+6:14 tight glyph ]

39+7:1 DEDENT

40+7:1 NEWLINE

41+7:1 glyph +$

42+7:4 name overlap-null

43+8:3 INDENT

44+8:3 glyph [

45+8:4 tight lit ~

46+8:6 name value

47+8:11 tight glyph =

48+8:12 tight aura @t

49+8:14 tight glyph ]

50+9:3 NEWLINE

51+9:3 glyph [

52+9:4 tight lit %$

53+9:7 name value

54+9:12 tight glyph =

55+9:13 tight aura @t

56+9:15 tight glyph ]

57+10:1 DEDENT

58+10:1 NEWLINE

59+10:1 glyph +$

60+10:4 name overlap-flag

61+11:3 INDENT

62+11:3 glyph [

63+11:4 tight lit %.y

64+11:8 name value

65+11:13 tight glyph =

66+11:14 tight aura @t

67+11:16 tight glyph ]

68+12:3 NEWLINE

69+12:3 glyph [

70+12:4 tight lit %$

71+12:7 name value

72+12:12 tight glyph =

73+12:13 tight aura @t

74+12:15 tight glyph ]

75+13:1 DEDENT

76+13:1 NEWLINE

77+13:1 glyph +$

78+13:4 name overlap-three

79+14:3 INDENT

80+14:3 glyph [

81+14:4 tight lit ~

82+14:6 name value

83+14:11 tight glyph =

84+14:12 tight aura @t

85+14:14 tight glyph ]

86+15:3 NEWLINE

87+15:3 glyph [

88+15:4 tight lit %.y

89+15:8 name value

90+15:13 tight glyph =

91+15:14 tight aura @t

92+15:16 tight glyph ]

93+16:3 NEWLINE

94+16:3 glyph [

95+16:4 tight lit %$

96+16:7 name value

97+16:12 tight glyph =

98+16:13 tight aura @t

99+16:15 tight glyph ]

100+17:1 DEDENT

101+17:1 NEWLINE

102+17:1 glyph ++

103+17:4 name null-ctor

104+17:14 glyph ^-

105+17:17 glyph $-(

106+17:20 tight aura @t

107+17:23 name null-head

108+17:32 tight glyph )

109+17:34 glyph |=

110+17:36 tight lit %$

111+18:1 NEWLINE

112+18:1 glyph ++

113+18:4 name flag-ctor

114+18:14 glyph ^-

115+18:17 glyph $-(

116+18:20 tight aura @t

117+18:23 name flag-head

118+18:32 tight glyph )

119+18:34 glyph |=

120+18:36 tight lit %$

121+19:1 NEWLINE

122+19:1 glyph ++

123+19:4 name dollar-ctor

124+19:16 glyph ^-

125+19:19 glyph $-(

126+19:22 tight aura @t

127+19:25 name dollar-head

128+19:36 tight glyph )

129+19:38 glyph |=

130+19:40 tight lit %$

131+20:1 NEWLINE

132+20:1 glyph ++

133+20:4 name unit-like-ctor

134+20:19 glyph ^-

135+20:22 glyph $-(

136+20:25 tight aura @t

137+20:28 name pair-null

138+20:37 tight glyph )

139+20:39 glyph |=

140+20:41 tight lit %$

141+21:1 NEWLINE

142+21:1 glyph ++

143+21:4 name wrong-payload

144+21:18 glyph ^-

145+21:21 glyph $-(

146+21:24 tight aura @p

147+21:27 name null-head

148+21:36 tight glyph )

149+21:38 glyph |=

150+21:40 tight lit %$

151+22:1 NEWLINE

152+22:1 glyph ++

153+22:4 name missing-tag

154+22:16 glyph ^-

155+22:19 glyph $-(

156+22:22 tight aura @t

157+22:25 name null-head

158+22:34 tight glyph )

159+22:36 glyph |=

160+22:38 tight lit %missing

161+23:1 NEWLINE

162+23:1 glyph ++

163+23:4 name pending

164+24:3 INDENT

165+24:3 glyph ~&

166+24:6 lit %unrelated

167+25:5 INDENT

168+25:5 glyph ^-

169+25:8 glyph $-(

170+25:11 tight aura @t

171+25:14 name null-head

172+25:23 tight glyph )

173+25:25 glyph |=

174+25:27 tight lit %$

175+25:29 DEDENT

176+25:29 DEDENT

177+25:29 NEWLINE

tests/golden/types-literal-constructor-nouns/tree.txtnew file+78

@@ -0,0 +1,78 @@

1+(module

2+ (mold 1:1 null-head

3+ (cell 1:14

4+ (const 1:15 ~)

5+ (face 1:17 value (aura 1:23 @t))))

6+ (mold 2:1 flag-head

7+ (cell 2:14

8+ (const 2:15 %.y)

9+ (face 2:19 value (aura 2:25 @t))))

10+ (mold 3:1 dollar-head

11+ (cell 3:16

12+ (const 3:17 %$)

13+ (face 3:20 value (aura 3:26 @t))))

14+ (mold 4:1 pair-null

15+ (union 5:3

16+ (const 5:3 ~)

17+ (cell 6:3

18+ (const 6:4 ~)

19+ (face 6:6 value (aura 6:12 @t)))))

20+ (mold 7:1 overlap-null

21+ (union 8:3

22+ (cell 8:3

23+ (const 8:4 ~)

24+ (face 8:6 value (aura 8:12 @t)))

25+ (cell 9:3

26+ (const 9:4 %$)

27+ (face 9:7 value (aura 9:13 @t)))))

28+ (mold 10:1 overlap-flag

29+ (union 11:3

30+ (cell 11:3

31+ (const 11:4 %.y)

32+ (face 11:8 value (aura 11:14 @t)))

33+ (cell 12:3

34+ (const 12:4 %$)

35+ (face 12:7 value (aura 12:13 @t)))))

36+ (mold 13:1 overlap-three

37+ (union 14:3

38+ (cell 14:3

39+ (const 14:4 ~)

40+ (face 14:6 value (aura 14:12 @t)))

41+ (cell 15:3

42+ (const 15:4 %.y)

43+ (face 15:8 value (aura 15:14 @t)))

44+ (cell 16:3

45+ (const 16:4 %$)

46+ (face 16:7 value (aura 16:13 @t)))))

47+ (value 17:1 null-ctor

48+ (cast 17:14

49+ (fn 17:17 (aura 17:20 @t) (ref 17:23 null-head))

50+ (ctor 17:34 %$)))

51+ (value 18:1 flag-ctor

52+ (cast 18:14

53+ (fn 18:17 (aura 18:20 @t) (ref 18:23 flag-head))

54+ (ctor 18:34 %$)))

55+ (value 19:1 dollar-ctor

56+ (cast 19:16

57+ (fn 19:19 (aura 19:22 @t) (ref 19:25 dollar-head))

58+ (ctor 19:38 %$)))

59+ (value 20:1 unit-like-ctor

60+ (cast 20:19

61+ (fn 20:22 (aura 20:25 @t) (ref 20:28 pair-null))

62+ (ctor 20:39 %$)))

63+ (value 21:1 wrong-payload

64+ (cast 21:18

65+ (fn 21:21 (aura 21:24 @p) (ref 21:27 null-head))

66+ (ctor 21:38 %$)))

67+ (value 22:1 missing-tag

68+ (cast 22:16

69+ (fn 22:19 (aura 22:22 @t) (ref 22:25 null-head))

70+ (ctor 22:36 %missing)))

71+ (value 23:1 pending

72+ (body 24:3

73+ (trace 24:3

74+ (lit 24:6 %unrelated)

75+ (body 25:5

76+ (cast 25:5

77+ (fn 25:8 (aura 25:11 @t) (ref 25:14 null-head))

78+ (ctor 25:25 %$)))))))

tests/golden/types-literal-constructor-nouns/types.txtnew file+45

@@ -0,0 +1,45 @@

1+partial inference; module not checked

2++$ null-head: not checked

3++$ flag-head: not checked

4++$ dollar-head: not checked

5++$ pair-null: cases proven disjoint; mold not checked

6++$ overlap-null: overlapping cases; mold not checked

7+/tests/golden/types-literal-constructor-nouns/source.jibb:8:3: first union case

8+ [~ value=@t]

9+ ^

10+/tests/golden/types-literal-constructor-nouns/source.jibb:9:3: overlapping case

11+ [%$ value=@t]

12+ ^

13++$ overlap-flag: overlapping cases; mold not checked

14+/tests/golden/types-literal-constructor-nouns/source.jibb:11:3: first union case

15+ [%.y value=@t]

16+ ^

17+/tests/golden/types-literal-constructor-nouns/source.jibb:12:3: overlapping case

18+ [%$ value=@t]

19+ ^

20++$ overlap-three: overlapping cases; mold not checked

21+/tests/golden/types-literal-constructor-nouns/source.jibb:14:3: first union case

22+ [~ value=@t]

23+ ^

24+/tests/golden/types-literal-constructor-nouns/source.jibb:15:3: overlapping case

25+ [%.y value=@t]

26+ ^

27+++ null-ctor: $-(@t [~ value=@t])

28+++ flag-ctor: $-(@t [%.y value=@t])

29+++ dollar-ctor: $-(@t [%$ value=@t])

30+++ unit-like-ctor: $-(@t pair-null)

31+++ wrong-payload: cast mold and expression type do not unify

32+/tests/golden/types-literal-constructor-nouns/source.jibb:21:21: cast mold has type $-(@p [~ value=@t])

33+++ wrong-payload ^- $-(@p null-head) |=%$

34+ ^

35+/tests/golden/types-literal-constructor-nouns/source.jibb:21:38: expression

36+++ wrong-payload ^- $-(@p null-head) |=%$

37+ ^

38+++ missing-tag: cast mold and expression type do not unify

39+/tests/golden/types-literal-constructor-nouns/source.jibb:22:19: cast mold has type $-(@t [~ value=@t])

40+++ missing-tag ^- $-(@t null-head) |=%missing

41+ ^

42+/tests/golden/types-literal-constructor-nouns/source.jibb:22:36: expression

43+++ missing-tag ^- $-(@t null-head) |=%missing

44+ ^

45+++ pending: tag needs context in partial inference

tests/golden/types-loobean-singleton-source/about.txtnew file+2

@@ -0,0 +1,2 @@

1+source: literal equality uses runtime nouns while typed aura constraints remain directional.

2+tests: Loobean singleton molds and equal-noun terms, wrong singleton, ordinary loobean widening to ? and @, invalid widening to typed auras, and constructor matching a loobean-headed case. This is a partial inference report.

tests/golden/types-loobean-singleton-source/source.jibbnew file+22

@@ -0,0 +1,22 @@

1++$ yes %.y

2++$ no %.n

3++$ flag-headed [%.y value=@t]

4+++ yes-flag ^- yes %.y

5+++ yes-term ^- yes %$

6+++ wrong-flag ^- yes %.n

7+++ normal-flag ^- ? %.y

8+++ normal-any ^- @ %.y

9+++ wrong-tas ^- @tas %.y

10+++ wrong-ta ^- @ta %.y

11+++ wrong-ud ^- @ud %.y

12+++ named-value ^- yes %.y

13+++ named-as-flag ^- ? named-value

14+++ named-as-any ^- @ named-value

15+++ named-as-tas ^- @tas named-value

16+++ named-as-ta ^- @ta named-value

17+++ named-as-ud ^- @ud named-value

18+++ loobean-constructor ^- $-(@t flag-headed) |=%$

19+++ literal-f ^- @f %.y

20+++ flag-f |= b=? ^- @f b

21+++ named-f ^- @f named-value

22+++ explicit-tag ^- @tas (^- %$ %.y)

tests/golden/types-loobean-singleton-source/tokens.txtnew file+143

@@ -0,0 +1,143 @@

1+1:1 glyph +$

2+1:4 name yes

3+1:8 lit %.y

4+2:1 NEWLINE

5+2:1 glyph +$

6+2:4 name no

7+2:7 lit %.n

8+3:1 NEWLINE

9+3:1 glyph +$

10+3:4 name flag-headed

11+3:16 glyph [

12+3:17 tight lit %.y

13+3:21 name value

14+3:26 tight glyph =

15+3:27 tight aura @t

16+3:29 tight glyph ]

17+4:1 NEWLINE

18+4:1 glyph ++

19+4:4 name yes-flag

20+4:13 glyph ^-

21+4:16 name yes

22+4:20 lit %.y

23+5:1 NEWLINE

24+5:1 glyph ++

25+5:4 name yes-term

26+5:13 glyph ^-

27+5:16 name yes

28+5:20 lit %$

29+6:1 NEWLINE

30+6:1 glyph ++

31+6:4 name wrong-flag

32+6:15 glyph ^-

33+6:18 name yes

34+6:22 lit %.n

35+7:1 NEWLINE

36+7:1 glyph ++

37+7:4 name normal-flag

38+7:16 glyph ^-

39+7:19 glyph ?

40+7:21 lit %.y

41+8:1 NEWLINE

42+8:1 glyph ++

43+8:4 name normal-any

44+8:15 glyph ^-

45+8:18 aura @

46+8:20 lit %.y

47+9:1 NEWLINE

48+9:1 glyph ++

49+9:4 name wrong-tas

50+9:14 glyph ^-

51+9:17 aura @tas

52+9:22 lit %.y

53+10:1 NEWLINE

54+10:1 glyph ++

55+10:4 name wrong-ta

56+10:13 glyph ^-

57+10:16 aura @ta

58+10:20 lit %.y

59+11:1 NEWLINE

60+11:1 glyph ++

61+11:4 name wrong-ud

62+11:13 glyph ^-

63+11:16 aura @ud

64+11:20 lit %.y

65+12:1 NEWLINE

66+12:1 glyph ++

67+12:4 name named-value

68+12:16 glyph ^-

69+12:19 name yes

70+12:23 lit %.y

71+13:1 NEWLINE

72+13:1 glyph ++

73+13:4 name named-as-flag

74+13:18 glyph ^-

75+13:21 glyph ?

76+13:23 name named-value

77+14:1 NEWLINE

78+14:1 glyph ++

79+14:4 name named-as-any

80+14:17 glyph ^-

81+14:20 aura @

82+14:22 name named-value

83+15:1 NEWLINE

84+15:1 glyph ++

85+15:4 name named-as-tas

86+15:17 glyph ^-

87+15:20 aura @tas

88+15:25 name named-value

89+16:1 NEWLINE

90+16:1 glyph ++

91+16:4 name named-as-ta

92+16:16 glyph ^-

93+16:19 aura @ta

94+16:23 name named-value

95+17:1 NEWLINE

96+17:1 glyph ++

97+17:4 name named-as-ud

98+17:16 glyph ^-

99+17:19 aura @ud

100+17:23 name named-value

101+18:1 NEWLINE

102+18:1 glyph ++

103+18:4 name loobean-constructor

104+18:24 glyph ^-

105+18:27 glyph $-(

106+18:30 tight aura @t

107+18:33 name flag-headed

108+18:44 tight glyph )

109+18:46 glyph |=

110+18:48 tight lit %$

111+19:1 NEWLINE

112+19:1 glyph ++

113+19:4 name literal-f

114+19:14 glyph ^-

115+19:17 aura @f

116+19:20 lit %.y

117+20:1 NEWLINE

118+20:1 glyph ++

119+20:4 name flag-f

120+20:11 glyph |=

121+20:14 name b

122+20:15 tight glyph =

123+20:16 tight glyph ?

124+20:18 glyph ^-

125+20:21 aura @f

126+20:24 name b

127+21:1 NEWLINE

128+21:1 glyph ++

129+21:4 name named-f

130+21:12 glyph ^-

131+21:15 aura @f

132+21:18 name named-value

133+22:1 NEWLINE

134+22:1 glyph ++

135+22:4 name explicit-tag

136+22:17 glyph ^-

137+22:20 aura @tas

138+22:25 glyph (

139+22:26 tight glyph ^-

140+22:29 lit %$

141+22:32 lit %.y

142+22:35 tight glyph )

143+22:36 NEWLINE

tests/golden/types-loobean-singleton-source/tree.txtnew file+52

@@ -0,0 +1,52 @@

1+(module

2+ (mold 1:1 yes (const 1:8 %.y))

3+ (mold 2:1 no (const 2:7 %.n))

4+ (mold 3:1 flag-headed

5+ (cell 3:16

6+ (const 3:17 %.y)

7+ (face 3:21 value (aura 3:27 @t))))

8+ (value 4:1 yes-flag

9+ (cast 4:13 (ref 4:16 yes) (lit 4:20 %.y)))

10+ (value 5:1 yes-term

11+ (cast 5:13 (ref 5:16 yes) (lit 5:20 %$)))

12+ (value 6:1 wrong-flag

13+ (cast 6:15 (ref 6:18 yes) (lit 6:22 %.n)))

14+ (value 7:1 normal-flag

15+ (cast 7:16 (flag 7:19) (lit 7:21 %.y)))

16+ (value 8:1 normal-any

17+ (cast 8:15 (aura 8:18 @) (lit 8:20 %.y)))

18+ (value 9:1 wrong-tas

19+ (cast 9:14 (aura 9:17 @tas) (lit 9:22 %.y)))

20+ (value 10:1 wrong-ta

21+ (cast 10:13 (aura 10:16 @ta) (lit 10:20 %.y)))

22+ (value 11:1 wrong-ud

23+ (cast 11:13 (aura 11:16 @ud) (lit 11:20 %.y)))

24+ (value 12:1 named-value

25+ (cast 12:16 (ref 12:19 yes) (lit 12:23 %.y)))

26+ (value 13:1 named-as-flag

27+ (cast 13:18 (flag 13:21) (wing 13:23 named-value)))

28+ (value 14:1 named-as-any

29+ (cast 14:17 (aura 14:20 @) (wing 14:22 named-value)))

30+ (value 15:1 named-as-tas

31+ (cast 15:17 (aura 15:20 @tas) (wing 15:25 named-value)))

32+ (value 16:1 named-as-ta

33+ (cast 16:16 (aura 16:19 @ta) (wing 16:23 named-value)))

34+ (value 17:1 named-as-ud

35+ (cast 17:16 (aura 17:19 @ud) (wing 17:23 named-value)))

36+ (value 18:1 loobean-constructor

37+ (cast 18:24

38+ (fn 18:27 (aura 18:30 @t) (ref 18:33 flag-headed))

39+ (ctor 18:46 %$)))

40+ (value 19:1 literal-f

41+ (cast 19:14 (aura 19:17 @f) (lit 19:20 %.y)))

42+ (value 20:1 flag-f

43+ (gate 20:11

44+ (face 20:14 b (flag 20:16))

45+ (cast 20:18 (aura 20:21 @f) (wing 20:24 b))))

46+ (value 21:1 named-f

47+ (cast 21:12 (aura 21:15 @f) (wing 21:18 named-value)))

48+ (value 22:1 explicit-tag

49+ (cast 22:17

50+ (aura 22:20 @tas)

51+ (group 22:25

52+ (cast 22:26 (const 22:29 %$) (lit 22:32 %.y))))))

tests/golden/types-loobean-singleton-source/types.txtnew file+65

@@ -0,0 +1,65 @@

1+partial inference; module not checked

2++$ yes: not checked

3++$ no: not checked

4++$ flag-headed: not checked

5+++ yes-flag: %.y

6+++ yes-term: %.y

7+++ wrong-flag: cast mold and expression type do not unify

8+/tests/golden/types-loobean-singleton-source/source.jibb:6:18: cast mold has type %.y

9+++ wrong-flag ^- yes %.n

10+ ^

11+/tests/golden/types-loobean-singleton-source/source.jibb:6:22: expression has type %.n

12+++ wrong-flag ^- yes %.n

13+ ^

14+++ normal-flag: ?

15+++ normal-any: @

16+++ wrong-tas: cast mold and expression type do not unify

17+/tests/golden/types-loobean-singleton-source/source.jibb:9:17: cast mold has type @tas

18+++ wrong-tas ^- @tas %.y

19+ ^

20+/tests/golden/types-loobean-singleton-source/source.jibb:9:22: expression has type ?

21+++ wrong-tas ^- @tas %.y

22+ ^

23+++ wrong-ta: cast mold and expression type do not unify

24+/tests/golden/types-loobean-singleton-source/source.jibb:10:16: cast mold has type @ta

25+++ wrong-ta ^- @ta %.y

26+ ^

27+/tests/golden/types-loobean-singleton-source/source.jibb:10:20: expression has type ?

28+++ wrong-ta ^- @ta %.y

29+ ^

30+++ wrong-ud: cast mold and expression type do not unify

31+/tests/golden/types-loobean-singleton-source/source.jibb:11:16: cast mold has type @ud

32+++ wrong-ud ^- @ud %.y

33+ ^

34+/tests/golden/types-loobean-singleton-source/source.jibb:11:20: expression has type ?

35+++ wrong-ud ^- @ud %.y

36+ ^

37+++ named-value: %.y

38+++ named-as-flag: ?

39+++ named-as-any: @

40+++ named-as-tas: cast mold and expression type do not unify

41+/tests/golden/types-loobean-singleton-source/source.jibb:15:20: cast mold has type @tas

42+++ named-as-tas ^- @tas named-value

43+ ^

44+/tests/golden/types-loobean-singleton-source/source.jibb:15:25: expression has type %.y

45+++ named-as-tas ^- @tas named-value

46+ ^

47+++ named-as-ta: cast mold and expression type do not unify

48+/tests/golden/types-loobean-singleton-source/source.jibb:16:19: cast mold has type @ta

49+++ named-as-ta ^- @ta named-value

50+ ^

51+/tests/golden/types-loobean-singleton-source/source.jibb:16:23: expression has type %.y

52+++ named-as-ta ^- @ta named-value

53+ ^

54+++ named-as-ud: cast mold and expression type do not unify

55+/tests/golden/types-loobean-singleton-source/source.jibb:17:19: cast mold has type @ud

56+++ named-as-ud ^- @ud named-value

57+ ^

58+/tests/golden/types-loobean-singleton-source/source.jibb:17:23: expression has type %.y

59+++ named-as-ud ^- @ud named-value

60+ ^

61+++ loobean-constructor: $-(@t [%.y value=@t])

62+++ literal-f: cast constraint is not supported by partial inference

63+++ flag-f: cast constraint is not supported by partial inference

64+++ named-f: cast constraint is not supported by partial inference

65+++ explicit-tag: @tas

tests/golden/types-loobean-union-context/about.txtnew file+2

@@ -0,0 +1,2 @@

1+source: literal singleton cases compare by runtime noun.

2+tests: Null, term-zero and loobean singleton contexts across direct unions; unequal values, overlapping singleton cases, unknown targets and pending constraints.

tests/golden/types-loobean-union-context/source.jibbnew file+28

@@ -0,0 +1,28 @@

1++$ maybe

2+ ~

3+ [~ value=@t]

4++$ term-zero

5+ %$

6+ [%some value=@t]

7++$ flag-zero

8+ %.y

9+ [%some value=@t]

10++$ repeated

11+ ~

12+ %.y

13++$ number-one

14+ %.n

15+ [%some value=@t]

16+++ as-null ^- maybe %.y

17+++ bad-null ^- maybe %.n

18+++ null-as-term ^- term-zero ~

19+++ flag-as-term ^- term-zero %.y

20+++ term-as-flag ^- flag-zero %$

21+++ null-as-flag ^- flag-zero ~

22+++ yes-as-flag ^- flag-zero %.y

23+++ no-as-one ^- number-one %.n

24+++ no-as-zero ^- flag-zero %.n

25+++ pending

26+ ~& %unrelated

27+ ^- maybe %.y

28+++ unknown |= x=A ^- A %.y

tests/golden/types-loobean-union-context/tokens.txtnew file+136

@@ -0,0 +1,136 @@

1+1:1 glyph +$

2+1:4 name maybe

3+2:3 INDENT

4+2:3 lit ~

5+3:3 NEWLINE

6+3:3 glyph [

7+3:4 tight lit ~

8+3:6 name value

9+3:11 tight glyph =

10+3:12 tight aura @t

11+3:14 tight glyph ]

12+4:1 DEDENT

13+4:1 NEWLINE

14+4:1 glyph +$

15+4:4 name term-zero

16+5:3 INDENT

17+5:3 lit %$

18+6:3 NEWLINE

19+6:3 glyph [

20+6:4 tight lit %some

21+6:10 name value

22+6:15 tight glyph =

23+6:16 tight aura @t

24+6:18 tight glyph ]

25+7:1 DEDENT

26+7:1 NEWLINE

27+7:1 glyph +$

28+7:4 name flag-zero

29+8:3 INDENT

30+8:3 lit %.y

31+9:3 NEWLINE

32+9:3 glyph [

33+9:4 tight lit %some

34+9:10 name value

35+9:15 tight glyph =

36+9:16 tight aura @t

37+9:18 tight glyph ]

38+10:1 DEDENT

39+10:1 NEWLINE

40+10:1 glyph +$

41+10:4 name repeated

42+11:3 INDENT

43+11:3 lit ~

44+12:3 NEWLINE

45+12:3 lit %.y

46+13:1 DEDENT

47+13:1 NEWLINE

48+13:1 glyph +$

49+13:4 name number-one

50+14:3 INDENT

51+14:3 lit %.n

52+15:3 NEWLINE

53+15:3 glyph [

54+15:4 tight lit %some

55+15:10 name value

56+15:15 tight glyph =

57+15:16 tight aura @t

58+15:18 tight glyph ]

59+16:1 DEDENT

60+16:1 NEWLINE

61+16:1 glyph ++

62+16:4 name as-null

63+16:12 glyph ^-

64+16:15 name maybe

65+16:21 lit %.y

66+17:1 NEWLINE

67+17:1 glyph ++

68+17:4 name bad-null

69+17:13 glyph ^-

70+17:16 name maybe

71+17:22 lit %.n

72+18:1 NEWLINE

73+18:1 glyph ++

74+18:4 name null-as-term

75+18:17 glyph ^-

76+18:20 name term-zero

77+18:30 lit ~

78+19:1 NEWLINE

79+19:1 glyph ++

80+19:4 name flag-as-term

81+19:17 glyph ^-

82+19:20 name term-zero

83+19:30 lit %.y

84+20:1 NEWLINE

85+20:1 glyph ++

86+20:4 name term-as-flag

87+20:17 glyph ^-

88+20:20 name flag-zero

89+20:30 lit %$

90+21:1 NEWLINE

91+21:1 glyph ++

92+21:4 name null-as-flag

93+21:17 glyph ^-

94+21:20 name flag-zero

95+21:30 lit ~

96+22:1 NEWLINE

97+22:1 glyph ++

98+22:4 name yes-as-flag

99+22:16 glyph ^-

100+22:19 name flag-zero

101+22:29 lit %.y

102+23:1 NEWLINE

103+23:1 glyph ++

104+23:4 name no-as-one

105+23:14 glyph ^-

106+23:17 name number-one

107+23:28 lit %.n

108+24:1 NEWLINE

109+24:1 glyph ++

110+24:4 name no-as-zero

111+24:15 glyph ^-

112+24:18 name flag-zero

113+24:28 lit %.n

114+25:1 NEWLINE

115+25:1 glyph ++

116+25:4 name pending

117+26:3 INDENT

118+26:3 glyph ~&

119+26:6 lit %unrelated

120+27:5 INDENT

121+27:5 glyph ^-

122+27:8 name maybe

123+27:14 lit %.y

124+28:1 DEDENT

125+28:1 DEDENT

126+28:1 NEWLINE

127+28:1 glyph ++

128+28:4 name unknown

129+28:12 glyph |=

130+28:15 name x

131+28:16 tight glyph =

132+28:17 tight tvar A

133+28:19 glyph ^-

134+28:22 tvar A

135+28:24 lit %.y

136+28:27 NEWLINE

tests/golden/types-loobean-union-context/tree.txtnew file+55

@@ -0,0 +1,55 @@

1+(module

2+ (mold 1:1 maybe

3+ (union 2:3

4+ (const 2:3 ~)

5+ (cell 3:3

6+ (const 3:4 ~)

7+ (face 3:6 value (aura 3:12 @t)))))

8+ (mold 4:1 term-zero

9+ (union 5:3

10+ (const 5:3 %$)

11+ (cell 6:3

12+ (const 6:4 %some)

13+ (face 6:10 value (aura 6:16 @t)))))

14+ (mold 7:1 flag-zero

15+ (union 8:3

16+ (const 8:3 %.y)

17+ (cell 9:3

18+ (const 9:4 %some)

19+ (face 9:10 value (aura 9:16 @t)))))

20+ (mold 10:1 repeated

21+ (union 11:3 (const 11:3 ~) (const 12:3 %.y)))

22+ (mold 13:1 number-one

23+ (union 14:3

24+ (const 14:3 %.n)

25+ (cell 15:3

26+ (const 15:4 %some)

27+ (face 15:10 value (aura 15:16 @t)))))

28+ (value 16:1 as-null

29+ (cast 16:12 (ref 16:15 maybe) (lit 16:21 %.y)))

30+ (value 17:1 bad-null

31+ (cast 17:13 (ref 17:16 maybe) (lit 17:22 %.n)))

32+ (value 18:1 null-as-term

33+ (cast 18:17 (ref 18:20 term-zero) (lit 18:30 ~)))

34+ (value 19:1 flag-as-term

35+ (cast 19:17 (ref 19:20 term-zero) (lit 19:30 %.y)))

36+ (value 20:1 term-as-flag

37+ (cast 20:17 (ref 20:20 flag-zero) (lit 20:30 %$)))

38+ (value 21:1 null-as-flag

39+ (cast 21:17 (ref 21:20 flag-zero) (lit 21:30 ~)))

40+ (value 22:1 yes-as-flag

41+ (cast 22:16 (ref 22:19 flag-zero) (lit 22:29 %.y)))

42+ (value 23:1 no-as-one

43+ (cast 23:14 (ref 23:17 number-one) (lit 23:28 %.n)))

44+ (value 24:1 no-as-zero

45+ (cast 24:15 (ref 24:18 flag-zero) (lit 24:28 %.n)))

46+ (value 25:1 pending

47+ (body 26:3

48+ (trace 26:3

49+ (lit 26:6 %unrelated)

50+ (body 27:5

51+ (cast 27:5 (ref 27:8 maybe) (lit 27:14 %.y))))))

52+ (value 28:1 unknown

53+ (gate 28:12

54+ (face 28:15 x (tvar 28:17 A))

55+ (cast 28:19 (tvar 28:22 A) (lit 28:24 %.y)))))

tests/golden/types-loobean-union-context/types.txtnew file+35

@@ -0,0 +1,35 @@

1+partial inference; module not checked

2++$ maybe: cases proven disjoint; mold not checked

3++$ term-zero: cases proven disjoint; mold not checked

4++$ flag-zero: cases proven disjoint; mold not checked

5++$ repeated: overlapping cases; mold not checked

6+/tests/golden/types-loobean-union-context/source.jibb:11:3: first union case

7+ ~

8+ ^

9+/tests/golden/types-loobean-union-context/source.jibb:12:3: overlapping case

10+ %.y

11+ ^

12++$ number-one: cases proven disjoint; mold not checked

13+++ as-null: maybe

14+++ bad-null: cast mold and expression type do not unify

15+/tests/golden/types-loobean-union-context/source.jibb:17:16: cast mold

16+++ bad-null ^- maybe %.n

17+ ^

18+/tests/golden/types-loobean-union-context/source.jibb:17:22: expression has type ?

19+++ bad-null ^- maybe %.n

20+ ^

21+++ null-as-term: term-zero

22+++ flag-as-term: term-zero

23+++ term-as-flag: flag-zero

24+++ null-as-flag: flag-zero

25+++ yes-as-flag: flag-zero

26+++ no-as-one: number-one

27+++ no-as-zero: cast mold and expression type do not unify

28+/tests/golden/types-loobean-union-context/source.jibb:24:18: cast mold

29+++ no-as-zero ^- flag-zero %.n

30+ ^

31+/tests/golden/types-loobean-union-context/source.jibb:24:28: expression has type ?

32+++ no-as-zero ^- flag-zero %.n

33+ ^

34+++ pending: tag needs context in partial inference

35+++ unknown: explicit capital constraints are not supported by partial inference

tests/golden/types-nested-noun-context/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: Grammar, Tag resolution: "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 `~`.

2+tests: Null, loobean-zero and term-zero input/head combinations with nested generic payloads; missing, mismatched, ambiguous and unknown contexts remain conservative.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-nested-noun-context/source.jibbnew file+35

@@ -0,0 +1,35 @@

1++$ msg

2+ %ready

3+ %idle

4++$ inner |$ [A]

5+ [%one item=A]

6+ [%two item=A]

7++$ null-out |$ [A]

8+ [~ item=(inner A)]

9+ [%other value=@ud]

10++$ flag-out |$ [A]

11+ [%.y item=(inner A)]

12+ [%other value=@ud]

13++$ term-out |$ [A]

14+ [%$ item=(inner A)]

15+ [%other value=@ud]

16++$ competitors |$ [A]

17+ [~ item=(inner A)]

18+ [%.y value=@p]

19+++ inner |= x=A ^- (inner A) [%one x]

20+++ null-null ^- (null-out msg) [~ (inner %ready)]

21+++ flag-null ^- (null-out msg) [%.y (inner %ready)]

22+++ term-null ^- (null-out msg) [%$ (inner %ready)]

23+++ null-flag ^- (flag-out msg) [~ (inner %ready)]

24+++ flag-flag ^- (flag-out msg) [%.y (inner %ready)]

25+++ term-flag ^- (flag-out msg) [%$ (inner %ready)]

26+++ null-term ^- (term-out msg) [~ (inner %ready)]

27+++ flag-term ^- (term-out msg) [%.y (inner %ready)]

28+++ term-term ^- (term-out msg) [%$ (inner %ready)]

29+++ wrong-inner ^- (null-out msg) [%$ (inner %missing)]

30+++ wrong-payload ^- (flag-out @t) [~ (inner ~zod)]

31+++ pending

32+ ~& %orphan

33+ ^- (term-out msg) [%.y (inner %ready)]

34+++ unknown-target |= x=A ^- A [~ (inner %ready)]

35+++ ambiguous ^- (competitors msg) [~ (inner %ready)]

tests/golden/types-nested-noun-context/tokens.txtnew file+363

@@ -0,0 +1,363 @@

1+1:1 glyph +$

2+1:4 name msg

3+2:3 INDENT

4+2:3 lit %ready

5+3:3 NEWLINE

6+3:3 lit %idle

7+4:1 DEDENT

8+4:1 NEWLINE

9+4:1 glyph +$

10+4:4 name inner

11+4:10 glyph |$

12+4:13 glyph [

13+4:14 tight tvar A

14+4:15 tight glyph ]

15+5:3 INDENT

16+5:3 glyph [

17+5:4 tight lit %one

18+5:9 name item

19+5:13 tight glyph =

20+5:14 tight tvar A

21+5:15 tight glyph ]

22+6:3 NEWLINE

23+6:3 glyph [

24+6:4 tight lit %two

25+6:9 name item

26+6:13 tight glyph =

27+6:14 tight tvar A

28+6:15 tight glyph ]

29+7:1 DEDENT

30+7:1 NEWLINE

31+7:1 glyph +$

32+7:4 name null-out

33+7:13 glyph |$

34+7:16 glyph [

35+7:17 tight tvar A

36+7:18 tight glyph ]

37+8:3 INDENT

38+8:3 glyph [

39+8:4 tight lit ~

40+8:6 name item

41+8:10 tight glyph =

42+8:11 tight glyph (

43+8:12 tight name inner

44+8:18 tvar A

45+8:19 tight glyph )

46+8:20 tight glyph ]

47+9:3 NEWLINE

48+9:3 glyph [

49+9:4 tight lit %other

50+9:11 name value

51+9:16 tight glyph =

52+9:17 tight aura @ud

53+9:20 tight glyph ]

54+10:1 DEDENT

55+10:1 NEWLINE

56+10:1 glyph +$

57+10:4 name flag-out

58+10:13 glyph |$

59+10:16 glyph [

60+10:17 tight tvar A

61+10:18 tight glyph ]

62+11:3 INDENT

63+11:3 glyph [

64+11:4 tight lit %.y

65+11:8 name item

66+11:12 tight glyph =

67+11:13 tight glyph (

68+11:14 tight name inner

69+11:20 tvar A

70+11:21 tight glyph )

71+11:22 tight glyph ]

72+12:3 NEWLINE

73+12:3 glyph [

74+12:4 tight lit %other

75+12:11 name value

76+12:16 tight glyph =

77+12:17 tight aura @ud

78+12:20 tight glyph ]

79+13:1 DEDENT

80+13:1 NEWLINE

81+13:1 glyph +$

82+13:4 name term-out

83+13:13 glyph |$

84+13:16 glyph [

85+13:17 tight tvar A

86+13:18 tight glyph ]

87+14:3 INDENT

88+14:3 glyph [

89+14:4 tight lit %$

90+14:7 name item

91+14:11 tight glyph =

92+14:12 tight glyph (

93+14:13 tight name inner

94+14:19 tvar A

95+14:20 tight glyph )

96+14:21 tight glyph ]

97+15:3 NEWLINE

98+15:3 glyph [

99+15:4 tight lit %other

100+15:11 name value

101+15:16 tight glyph =

102+15:17 tight aura @ud

103+15:20 tight glyph ]

104+16:1 DEDENT

105+16:1 NEWLINE

106+16:1 glyph +$

107+16:4 name competitors

108+16:16 glyph |$

109+16:19 glyph [

110+16:20 tight tvar A

111+16:21 tight glyph ]

112+17:3 INDENT

113+17:3 glyph [

114+17:4 tight lit ~

115+17:6 name item

116+17:10 tight glyph =

117+17:11 tight glyph (

118+17:12 tight name inner

119+17:18 tvar A

120+17:19 tight glyph )

121+17:20 tight glyph ]

122+18:3 NEWLINE

123+18:3 glyph [

124+18:4 tight lit %.y

125+18:8 name value

126+18:13 tight glyph =

127+18:14 tight aura @p

128+18:16 tight glyph ]

129+19:1 DEDENT

130+19:1 NEWLINE

131+19:1 glyph ++

132+19:4 name inner

133+19:10 glyph |=

134+19:13 name x

135+19:14 tight glyph =

136+19:15 tight tvar A

137+19:17 glyph ^-

138+19:20 glyph (

139+19:21 tight name inner

140+19:27 tvar A

141+19:28 tight glyph )

142+19:30 glyph [

143+19:31 tight lit %one

144+19:36 name x

145+19:37 tight glyph ]

146+20:1 NEWLINE

147+20:1 glyph ++

148+20:4 name null-null

149+20:14 glyph ^-

150+20:17 glyph (

151+20:18 tight name null-out

152+20:27 name msg

153+20:30 tight glyph )

154+20:32 glyph [

155+20:33 tight lit ~

156+20:35 glyph (

157+20:36 tight name inner

158+20:42 lit %ready

159+20:48 tight glyph )

160+20:49 tight glyph ]

161+21:1 NEWLINE

162+21:1 glyph ++

163+21:4 name flag-null

164+21:14 glyph ^-

165+21:17 glyph (

166+21:18 tight name null-out

167+21:27 name msg

168+21:30 tight glyph )

169+21:32 glyph [

170+21:33 tight lit %.y

171+21:37 glyph (

172+21:38 tight name inner

173+21:44 lit %ready

174+21:50 tight glyph )

175+21:51 tight glyph ]

176+22:1 NEWLINE

177+22:1 glyph ++

178+22:4 name term-null

179+22:14 glyph ^-

180+22:17 glyph (

181+22:18 tight name null-out

182+22:27 name msg

183+22:30 tight glyph )

184+22:32 glyph [

185+22:33 tight lit %$

186+22:36 glyph (

187+22:37 tight name inner

188+22:43 lit %ready

189+22:49 tight glyph )

190+22:50 tight glyph ]

191+23:1 NEWLINE

192+23:1 glyph ++

193+23:4 name null-flag

194+23:14 glyph ^-

195+23:17 glyph (

196+23:18 tight name flag-out

197+23:27 name msg

198+23:30 tight glyph )

199+23:32 glyph [

200+23:33 tight lit ~

201+23:35 glyph (

202+23:36 tight name inner

203+23:42 lit %ready

204+23:48 tight glyph )

205+23:49 tight glyph ]

206+24:1 NEWLINE

207+24:1 glyph ++

208+24:4 name flag-flag

209+24:14 glyph ^-

210+24:17 glyph (

211+24:18 tight name flag-out

212+24:27 name msg

213+24:30 tight glyph )

214+24:32 glyph [

215+24:33 tight lit %.y

216+24:37 glyph (

217+24:38 tight name inner

218+24:44 lit %ready

219+24:50 tight glyph )

220+24:51 tight glyph ]

221+25:1 NEWLINE

222+25:1 glyph ++

223+25:4 name term-flag

224+25:14 glyph ^-

225+25:17 glyph (

226+25:18 tight name flag-out

227+25:27 name msg

228+25:30 tight glyph )

229+25:32 glyph [

230+25:33 tight lit %$

231+25:36 glyph (

232+25:37 tight name inner

233+25:43 lit %ready

234+25:49 tight glyph )

235+25:50 tight glyph ]

236+26:1 NEWLINE

237+26:1 glyph ++

238+26:4 name null-term

239+26:14 glyph ^-

240+26:17 glyph (

241+26:18 tight name term-out

242+26:27 name msg

243+26:30 tight glyph )

244+26:32 glyph [

245+26:33 tight lit ~

246+26:35 glyph (

247+26:36 tight name inner

248+26:42 lit %ready

249+26:48 tight glyph )

250+26:49 tight glyph ]

251+27:1 NEWLINE

252+27:1 glyph ++

253+27:4 name flag-term

254+27:14 glyph ^-

255+27:17 glyph (

256+27:18 tight name term-out

257+27:27 name msg

258+27:30 tight glyph )

259+27:32 glyph [

260+27:33 tight lit %.y

261+27:37 glyph (

262+27:38 tight name inner

263+27:44 lit %ready

264+27:50 tight glyph )

265+27:51 tight glyph ]

266+28:1 NEWLINE

267+28:1 glyph ++

268+28:4 name term-term

269+28:14 glyph ^-

270+28:17 glyph (

271+28:18 tight name term-out

272+28:27 name msg

273+28:30 tight glyph )

274+28:32 glyph [

275+28:33 tight lit %$

276+28:36 glyph (

277+28:37 tight name inner

278+28:43 lit %ready

279+28:49 tight glyph )

280+28:50 tight glyph ]

281+29:1 NEWLINE

282+29:1 glyph ++

283+29:4 name wrong-inner

284+29:16 glyph ^-

285+29:19 glyph (

286+29:20 tight name null-out

287+29:29 name msg

288+29:32 tight glyph )

289+29:34 glyph [

290+29:35 tight lit %$

291+29:38 glyph (

292+29:39 tight name inner

293+29:45 lit %missing

294+29:53 tight glyph )

295+29:54 tight glyph ]

296+30:1 NEWLINE

297+30:1 glyph ++

298+30:4 name wrong-payload

299+30:18 glyph ^-

300+30:21 glyph (

301+30:22 tight name flag-out

302+30:31 aura @t

303+30:33 tight glyph )

304+30:35 glyph [

305+30:36 tight lit ~

306+30:38 glyph (

307+30:39 tight name inner

308+30:45 lit ~zod

309+30:49 tight glyph )

310+30:50 tight glyph ]

311+31:1 NEWLINE

312+31:1 glyph ++

313+31:4 name pending

314+32:3 INDENT

315+32:3 glyph ~&

316+32:6 lit %orphan

317+33:5 INDENT

318+33:5 glyph ^-

319+33:8 glyph (

320+33:9 tight name term-out

321+33:18 name msg

322+33:21 tight glyph )

323+33:23 glyph [

324+33:24 tight lit %.y

325+33:28 glyph (

326+33:29 tight name inner

327+33:35 lit %ready

328+33:41 tight glyph )

329+33:42 tight glyph ]

330+34:1 DEDENT

331+34:1 DEDENT

332+34:1 NEWLINE

333+34:1 glyph ++

334+34:4 name unknown-target

335+34:19 glyph |=

336+34:22 name x

337+34:23 tight glyph =

338+34:24 tight tvar A

339+34:26 glyph ^-

340+34:29 tvar A

341+34:31 glyph [

342+34:32 tight lit ~

343+34:34 glyph (

344+34:35 tight name inner

345+34:41 lit %ready

346+34:47 tight glyph )

347+34:48 tight glyph ]

348+35:1 NEWLINE

349+35:1 glyph ++

350+35:4 name ambiguous

351+35:14 glyph ^-

352+35:17 glyph (

353+35:18 tight name competitors

354+35:30 name msg

355+35:33 tight glyph )

356+35:35 glyph [

357+35:36 tight lit ~

358+35:38 glyph (

359+35:39 tight name inner

360+35:45 lit %ready

361+35:51 tight glyph )

362+35:52 tight glyph ]

363+35:53 NEWLINE

tests/golden/types-nested-noun-context/tree.txtnew file+162

@@ -0,0 +1,162 @@

1+(module

2+ (mold 1:1 msg

3+ (union 2:3 (const 2:3 %ready) (const 3:3 %idle)))

4+ (mold 4:1 inner

5+ (generic 4:10 A

6+ (union 5:3

7+ (cell 5:3

8+ (const 5:4 %one)

9+ (face 5:9 item (tvar 5:14 A)))

10+ (cell 6:3

11+ (const 6:4 %two)

12+ (face 6:9 item (tvar 6:14 A))))))

13+ (mold 7:1 null-out

14+ (generic 7:13 A

15+ (union 8:3

16+ (cell 8:3

17+ (const 8:4 ~)

18+ (face 8:6 item

19+ (apply 8:11 inner (tvar 8:18 A))))

20+ (cell 9:3

21+ (const 9:4 %other)

22+ (face 9:11 value (aura 9:17 @ud))))))

23+ (mold 10:1 flag-out

24+ (generic 10:13 A

25+ (union 11:3

26+ (cell 11:3

27+ (const 11:4 %.y)

28+ (face 11:8 item

29+ (apply 11:13 inner (tvar 11:20 A))))

30+ (cell 12:3

31+ (const 12:4 %other)

32+ (face 12:11 value (aura 12:17 @ud))))))

33+ (mold 13:1 term-out

34+ (generic 13:13 A

35+ (union 14:3

36+ (cell 14:3

37+ (const 14:4 %$)

38+ (face 14:7 item

39+ (apply 14:12 inner (tvar 14:19 A))))

40+ (cell 15:3

41+ (const 15:4 %other)

42+ (face 15:11 value (aura 15:17 @ud))))))

43+ (mold 16:1 competitors

44+ (generic 16:16 A

45+ (union 17:3

46+ (cell 17:3

47+ (const 17:4 ~)

48+ (face 17:6 item

49+ (apply 17:11 inner (tvar 17:18 A))))

50+ (cell 18:3

51+ (const 18:4 %.y)

52+ (face 18:8 value (aura 18:14 @p))))))

53+ (value 19:1 inner

54+ (gate 19:10

55+ (face 19:13 x (tvar 19:15 A))

56+ (cast 19:17

57+ (apply 19:20 inner (tvar 19:27 A))

58+ (tuple 19:30 (lit 19:31 %one) (wing 19:36 x)))))

59+ (value 20:1 null-null

60+ (cast 20:14

61+ (apply 20:17 null-out (ref 20:27 msg))

62+ (tuple 20:32

63+ (lit 20:33 ~)

64+ (group 20:35

65+ (call 20:36 (wing 20:36 inner) (lit 20:42 %ready))))))

66+ (value 21:1 flag-null

67+ (cast 21:14

68+ (apply 21:17 null-out (ref 21:27 msg))

69+ (tuple 21:32

70+ (lit 21:33 %.y)

71+ (group 21:37

72+ (call 21:38 (wing 21:38 inner) (lit 21:44 %ready))))))

73+ (value 22:1 term-null

74+ (cast 22:14

75+ (apply 22:17 null-out (ref 22:27 msg))

76+ (tuple 22:32

77+ (lit 22:33 %$)

78+ (group 22:36

79+ (call 22:37 (wing 22:37 inner) (lit 22:43 %ready))))))

80+ (value 23:1 null-flag

81+ (cast 23:14

82+ (apply 23:17 flag-out (ref 23:27 msg))

83+ (tuple 23:32

84+ (lit 23:33 ~)

85+ (group 23:35

86+ (call 23:36 (wing 23:36 inner) (lit 23:42 %ready))))))

87+ (value 24:1 flag-flag

88+ (cast 24:14

89+ (apply 24:17 flag-out (ref 24:27 msg))

90+ (tuple 24:32

91+ (lit 24:33 %.y)

92+ (group 24:37

93+ (call 24:38 (wing 24:38 inner) (lit 24:44 %ready))))))

94+ (value 25:1 term-flag

95+ (cast 25:14

96+ (apply 25:17 flag-out (ref 25:27 msg))

97+ (tuple 25:32

98+ (lit 25:33 %$)

99+ (group 25:36

100+ (call 25:37 (wing 25:37 inner) (lit 25:43 %ready))))))

101+ (value 26:1 null-term

102+ (cast 26:14

103+ (apply 26:17 term-out (ref 26:27 msg))

104+ (tuple 26:32

105+ (lit 26:33 ~)

106+ (group 26:35

107+ (call 26:36 (wing 26:36 inner) (lit 26:42 %ready))))))

108+ (value 27:1 flag-term

109+ (cast 27:14

110+ (apply 27:17 term-out (ref 27:27 msg))

111+ (tuple 27:32

112+ (lit 27:33 %.y)

113+ (group 27:37

114+ (call 27:38 (wing 27:38 inner) (lit 27:44 %ready))))))

115+ (value 28:1 term-term

116+ (cast 28:14

117+ (apply 28:17 term-out (ref 28:27 msg))

118+ (tuple 28:32

119+ (lit 28:33 %$)

120+ (group 28:36

121+ (call 28:37 (wing 28:37 inner) (lit 28:43 %ready))))))

122+ (value 29:1 wrong-inner

123+ (cast 29:16

124+ (apply 29:19 null-out (ref 29:29 msg))

125+ (tuple 29:34

126+ (lit 29:35 %$)

127+ (group 29:38

128+ (call 29:39 (wing 29:39 inner) (lit 29:45 %missing))))))

129+ (value 30:1 wrong-payload

130+ (cast 30:18

131+ (apply 30:21 flag-out (aura 30:31 @t))

132+ (tuple 30:35

133+ (lit 30:36 ~)

134+ (group 30:38

135+ (call 30:39 (wing 30:39 inner) (lit 30:45 ~zod))))))

136+ (value 31:1 pending

137+ (body 32:3

138+ (trace 32:3

139+ (lit 32:6 %orphan)

140+ (body 33:5

141+ (cast 33:5

142+ (apply 33:8 term-out (ref 33:18 msg))

143+ (tuple 33:23

144+ (lit 33:24 %.y)

145+ (group 33:28

146+ (call 33:29 (wing 33:29 inner) (lit 33:35 %ready)))))))))

147+ (value 34:1 unknown-target

148+ (gate 34:19

149+ (face 34:22 x (tvar 34:24 A))

150+ (cast 34:26

151+ (tvar 34:29 A)

152+ (tuple 34:31

153+ (lit 34:32 ~)

154+ (group 34:34

155+ (call 34:35 (wing 34:35 inner) (lit 34:41 %ready)))))))

156+ (value 35:1 ambiguous

157+ (cast 35:14

158+ (apply 35:17 competitors (ref 35:30 msg))

159+ (tuple 35:35

160+ (lit 35:36 ~)

161+ (group 35:38

162+ (call 35:39 (wing 35:39 inner) (lit 35:45 %ready)))))))

tests/golden/types-nested-noun-context/types.txtnew file+34

@@ -0,0 +1,34 @@

1+partial inference; module not checked

2++$ msg: cases proven disjoint; mold not checked

3++$ inner: cases proven disjoint; mold not checked

4++$ null-out: cases proven disjoint; mold not checked

5++$ flag-out: cases proven disjoint; mold not checked

6++$ term-out: cases proven disjoint; mold not checked

7++$ competitors: case disjointness unresolved; mold not checked

8+++ inner: $-(A (inner A))

9+++ null-null: (null-out msg)

10+++ flag-null: (null-out msg)

11+++ term-null: (null-out msg)

12+++ null-flag: (flag-out msg)

13+++ flag-flag: (flag-out msg)

14+++ term-flag: (flag-out msg)

15+++ null-term: (term-out msg)

16+++ flag-term: (term-out msg)

17+++ term-term: (term-out msg)

18+++ wrong-inner: msg has no case `%missing`

19+/tests/golden/types-nested-noun-context/source.jibb:29:39: expected union

20+++ wrong-inner ^- (null-out msg) [%$ (inner %missing)]

21+ ^

22+/tests/golden/types-nested-noun-context/source.jibb:29:45: tag

23+++ wrong-inner ^- (null-out msg) [%$ (inner %missing)]

24+ ^

25+++ wrong-payload: call's sample and argument types do not unify

26+/tests/golden/types-nested-noun-context/source.jibb:30:39: called gate

27+++ wrong-payload ^- (flag-out @t) [~ (inner ~zod)]

28+ ^

29+/tests/golden/types-nested-noun-context/source.jibb:30:45: argument has type @p

30+++ wrong-payload ^- (flag-out @t) [~ (inner ~zod)]

31+ ^

32+++ pending: tag needs context in partial inference

33+++ unknown-target: explicit capital constraints are not supported by partial inference

34+++ ambiguous: cast mold is not supported by partial inference

tests/golden/types-nested-shallow-preserve/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: Grammar, Literals by context: "Number and cell literals resolve like tags: each waits for its context"; Literals: `gap+%s2` is `[%gap %s2]`.

2+tests: Previously supported nested pair and direct-cell contexts stay inferred through lists and calls; calls, groups, casts and constructors preserve errors and pending constraints. Unknown targets fail closed.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-nested-shallow-preserve/modules.txtnew file+1

@@ -0,0 +1 @@

1+# Use the source-backed prelude.

tests/golden/types-nested-shallow-preserve/source.jibbnew file+30

@@ -0,0 +1,30 @@

1++$ extent

2+ [%fill n=@ud]

3+ %shrink

4++$ attribute

5+ [%width extent]

6+ [%gap @tas]

7+++ number-id |= x=@ud x

8+++ plain ^- attribute width+[%fill 1]

9+++ direct ^- attribute [%width [%fill 1]]

10+++ list ^- (list attribute) ~[width+[%fill 1]]

11+++ accept |= value=attribute value

12+++ call (accept width+[%fill 1])

13+++ simple-call ^- attribute width+[%fill (number-id 1)]

14+++ grouped-call ^- attribute width+[%fill ((number-id 1))]

15+++ cast-call ^- attribute width+[%fill (^- @ud (number-id 1))]

16+++ nested-call ^- attribute width+[%fill (number-id (number-id 1))]

17+++ bad-tag ^- attribute width+[%missing 1]

18+++ bad-number ^- attribute width+[%fill "bad"]

19+++ pending

20+ ~& %unrelated

21+ ^- attribute width+[%fill (number-id 1)]

22+++ singleton ^- attribute width+%shrink

23++$ event

24+ [%got value=@t]

25+ %idle

26++$ envelope

27+ [%handler callback=$-(@t event)]

28+ [%empty value=@ud]

29+++ constructor ^- envelope [%handler |=%got]

30+++ unknown-target |= x=A ^- A width+[%fill (number-id 1)]

tests/golden/types-nested-shallow-preserve/tokens.txtnew file+271

@@ -0,0 +1,271 @@

1+1:1 glyph +$

2+1:4 name extent

3+2:3 INDENT

4+2:3 glyph [

5+2:4 tight lit %fill

6+2:10 name n

7+2:11 tight glyph =

8+2:12 tight aura @ud

9+2:15 tight glyph ]

10+3:3 NEWLINE

11+3:3 lit %shrink

12+4:1 DEDENT

13+4:1 NEWLINE

14+4:1 glyph +$

15+4:4 name attribute

16+5:3 INDENT

17+5:3 glyph [

18+5:4 tight lit %width

19+5:11 name extent

20+5:17 tight glyph ]

21+6:3 NEWLINE

22+6:3 glyph [

23+6:4 tight lit %gap

24+6:9 aura @tas

25+6:13 tight glyph ]

26+7:1 DEDENT

27+7:1 NEWLINE

28+7:1 glyph ++

29+7:4 name number-id

30+7:14 glyph |=

31+7:17 name x

32+7:18 tight glyph =

33+7:19 tight aura @ud

34+7:23 name x

35+8:1 NEWLINE

36+8:1 glyph ++

37+8:4 name plain

38+8:10 glyph ^-

39+8:13 name attribute

40+8:23 name width

41+8:28 tight glyph +

42+8:29 tight glyph [

43+8:30 tight lit %fill

44+8:36 lit 1

45+8:37 tight glyph ]

46+9:1 NEWLINE

47+9:1 glyph ++

48+9:4 name direct

49+9:11 glyph ^-

50+9:14 name attribute

51+9:24 glyph [

52+9:25 tight lit %width

53+9:32 glyph [

54+9:33 tight lit %fill

55+9:39 lit 1

56+9:40 tight glyph ]

57+9:41 tight glyph ]

58+10:1 NEWLINE

59+10:1 glyph ++

60+10:4 name list

61+10:9 glyph ^-

62+10:12 glyph (

63+10:13 tight name list

64+10:18 name attribute

65+10:27 tight glyph )

66+10:29 glyph ~[

67+10:31 tight name width

68+10:36 tight glyph +

69+10:37 tight glyph [

70+10:38 tight lit %fill

71+10:44 lit 1

72+10:45 tight glyph ]

73+10:46 tight glyph ]

74+11:1 NEWLINE

75+11:1 glyph ++

76+11:4 name accept

77+11:11 glyph |=

78+11:14 name value

79+11:19 tight glyph =

80+11:20 tight name attribute

81+11:30 name value

82+12:1 NEWLINE

83+12:1 glyph ++

84+12:4 name call

85+12:9 glyph (

86+12:10 tight name accept

87+12:17 name width

88+12:22 tight glyph +

89+12:23 tight glyph [

90+12:24 tight lit %fill

91+12:30 lit 1

92+12:31 tight glyph ]

93+12:32 tight glyph )

94+13:1 NEWLINE

95+13:1 glyph ++

96+13:4 name simple-call

97+13:16 glyph ^-

98+13:19 name attribute

99+13:29 name width

100+13:34 tight glyph +

101+13:35 tight glyph [

102+13:36 tight lit %fill

103+13:42 glyph (

104+13:43 tight name number-id

105+13:53 lit 1

106+13:54 tight glyph )

107+13:55 tight glyph ]

108+14:1 NEWLINE

109+14:1 glyph ++

110+14:4 name grouped-call

111+14:17 glyph ^-

112+14:20 name attribute

113+14:30 name width

114+14:35 tight glyph +

115+14:36 tight glyph [

116+14:37 tight lit %fill

117+14:43 glyph (

118+14:44 tight glyph (

119+14:45 tight name number-id

120+14:55 lit 1

121+14:56 tight glyph )

122+14:57 tight glyph )

123+14:58 tight glyph ]

124+15:1 NEWLINE

125+15:1 glyph ++

126+15:4 name cast-call

127+15:14 glyph ^-

128+15:17 name attribute

129+15:27 name width

130+15:32 tight glyph +

131+15:33 tight glyph [

132+15:34 tight lit %fill

133+15:40 glyph (

134+15:41 tight glyph ^-

135+15:44 aura @ud

136+15:48 glyph (

137+15:49 tight name number-id

138+15:59 lit 1

139+15:60 tight glyph )

140+15:61 tight glyph )

141+15:62 tight glyph ]

142+16:1 NEWLINE

143+16:1 glyph ++

144+16:4 name nested-call

145+16:16 glyph ^-

146+16:19 name attribute

147+16:29 name width

148+16:34 tight glyph +

149+16:35 tight glyph [

150+16:36 tight lit %fill

151+16:42 glyph (

152+16:43 tight name number-id

153+16:53 glyph (

154+16:54 tight name number-id

155+16:64 lit 1

156+16:65 tight glyph )

157+16:66 tight glyph )

158+16:67 tight glyph ]

159+17:1 NEWLINE

160+17:1 glyph ++

161+17:4 name bad-tag

162+17:12 glyph ^-

163+17:15 name attribute

164+17:25 name width

165+17:30 tight glyph +

166+17:31 tight glyph [

167+17:32 tight lit %missing

168+17:41 lit 1

169+17:42 tight glyph ]

170+18:1 NEWLINE

171+18:1 glyph ++

172+18:4 name bad-number

173+18:15 glyph ^-

174+18:18 name attribute

175+18:28 name width

176+18:33 tight glyph +

177+18:34 tight glyph [

178+18:35 tight lit %fill

179+18:41 str "bad"

180+18:46 tight glyph ]

181+19:1 NEWLINE

182+19:1 glyph ++

183+19:4 name pending

184+20:3 INDENT

185+20:3 glyph ~&

186+20:6 lit %unrelated

187+21:5 INDENT

188+21:5 glyph ^-

189+21:8 name attribute

190+21:18 name width

191+21:23 tight glyph +

192+21:24 tight glyph [

193+21:25 tight lit %fill

194+21:31 glyph (

195+21:32 tight name number-id

196+21:42 lit 1

197+21:43 tight glyph )

198+21:44 tight glyph ]

199+22:1 DEDENT

200+22:1 DEDENT

201+22:1 NEWLINE

202+22:1 glyph ++

203+22:4 name singleton

204+22:14 glyph ^-

205+22:17 name attribute

206+22:27 name width

207+22:32 tight glyph +

208+22:33 tight lit %shrink

209+23:1 NEWLINE

210+23:1 glyph +$

211+23:4 name event

212+24:3 INDENT

213+24:3 glyph [

214+24:4 tight lit %got

215+24:9 name value

216+24:14 tight glyph =

217+24:15 tight aura @t

218+24:17 tight glyph ]

219+25:3 NEWLINE

220+25:3 lit %idle

221+26:1 DEDENT

222+26:1 NEWLINE

223+26:1 glyph +$

224+26:4 name envelope

225+27:3 INDENT

226+27:3 glyph [

227+27:4 tight lit %handler

228+27:13 name callback

229+27:21 tight glyph =

230+27:22 tight glyph $-(

231+27:25 tight aura @t

232+27:28 name event

233+27:33 tight glyph )

234+27:34 tight glyph ]

235+28:3 NEWLINE

236+28:3 glyph [

237+28:4 tight lit %empty

238+28:11 name value

239+28:16 tight glyph =

240+28:17 tight aura @ud

241+28:20 tight glyph ]

242+29:1 DEDENT

243+29:1 NEWLINE

244+29:1 glyph ++

245+29:4 name constructor

246+29:16 glyph ^-

247+29:19 name envelope

248+29:28 glyph [

249+29:29 tight lit %handler

250+29:38 glyph |=

251+29:40 tight lit %got

252+29:44 tight glyph ]

253+30:1 NEWLINE

254+30:1 glyph ++

255+30:4 name unknown-target

256+30:19 glyph |=

257+30:22 name x

258+30:23 tight glyph =

259+30:24 tight tvar A

260+30:26 glyph ^-

261+30:29 tvar A

262+30:31 name width

263+30:36 tight glyph +

264+30:37 tight glyph [

265+30:38 tight lit %fill

266+30:44 glyph (

267+30:45 tight name number-id

268+30:55 lit 1

269+30:56 tight glyph )

270+30:57 tight glyph ]

271+30:58 NEWLINE

tests/golden/types-nested-shallow-preserve/tree.txtnew file+136

@@ -0,0 +1,136 @@

1+(module

2+ (mold 1:1 extent

3+ (union 2:3

4+ (cell 2:3

5+ (const 2:4 %fill)

6+ (face 2:10 n (aura 2:12 @ud)))

7+ (const 3:3 %shrink)))

8+ (mold 4:1 attribute

9+ (union 5:3

10+ (cell 5:3 (const 5:4 %width) (ref 5:11 extent))

11+ (cell 6:3 (const 6:4 %gap) (aura 6:9 @tas))))

12+ (value 7:1 number-id

13+ (gate 7:14

14+ (face 7:17 x (aura 7:19 @ud))

15+ (wing 7:23 x)))

16+ (value 8:1 plain

17+ (cast 8:10

18+ (ref 8:13 attribute)

19+ (pair 8:23 width

20+ (tuple 8:29 (lit 8:30 %fill) (lit 8:36 1)))))

21+ (value 9:1 direct

22+ (cast 9:11

23+ (ref 9:14 attribute)

24+ (tuple 9:24

25+ (lit 9:25 %width)

26+ (tuple 9:32 (lit 9:33 %fill) (lit 9:39 1)))))

27+ (value 10:1 list

28+ (cast 10:9

29+ (apply 10:12 list (ref 10:18 attribute))

30+ (list 10:29

31+ (pair 10:31 width

32+ (tuple 10:37 (lit 10:38 %fill) (lit 10:44 1))))))

33+ (value 11:1 accept

34+ (gate 11:11

35+ (face 11:14 value (ref 11:20 attribute))

36+ (wing 11:30 value)))

37+ (value 12:1 call

38+ (group 12:9

39+ (call 12:10

40+ (wing 12:10 accept)

41+ (pair 12:17 width

42+ (tuple 12:23 (lit 12:24 %fill) (lit 12:30 1))))))

43+ (value 13:1 simple-call

44+ (cast 13:16

45+ (ref 13:19 attribute)

46+ (pair 13:29 width

47+ (tuple 13:35

48+ (lit 13:36 %fill)

49+ (group 13:42

50+ (call 13:43 (wing 13:43 number-id) (lit 13:53 1)))))))

51+ (value 14:1 grouped-call

52+ (cast 14:17

53+ (ref 14:20 attribute)

54+ (pair 14:30 width

55+ (tuple 14:36

56+ (lit 14:37 %fill)

57+ (group 14:43

58+ (group 14:44

59+ (call 14:45 (wing 14:45 number-id) (lit 14:55 1))))))))

60+ (value 15:1 cast-call

61+ (cast 15:14

62+ (ref 15:17 attribute)

63+ (pair 15:27 width

64+ (tuple 15:33

65+ (lit 15:34 %fill)

66+ (group 15:40

67+ (cast 15:41

68+ (aura 15:44 @ud)

69+ (group 15:48

70+ (call 15:49 (wing 15:49 number-id) (lit 15:59 1)))))))))

71+ (value 16:1 nested-call

72+ (cast 16:16

73+ (ref 16:19 attribute)

74+ (pair 16:29 width

75+ (tuple 16:35

76+ (lit 16:36 %fill)

77+ (group 16:42

78+ (call 16:43

79+ (wing 16:43 number-id)

80+ (group 16:53

81+ (call 16:54 (wing 16:54 number-id) (lit 16:64 1)))))))))

82+ (value 17:1 bad-tag

83+ (cast 17:12

84+ (ref 17:15 attribute)

85+ (pair 17:25 width

86+ (tuple 17:31 (lit 17:32 %missing) (lit 17:41 1)))))

87+ (value 18:1 bad-number

88+ (cast 18:15

89+ (ref 18:18 attribute)

90+ (pair 18:28 width

91+ (tuple 18:34 (lit 18:35 %fill) (str 18:41 "bad")))))

92+ (value 19:1 pending

93+ (body 20:3

94+ (trace 20:3

95+ (lit 20:6 %unrelated)

96+ (body 21:5

97+ (cast 21:5

98+ (ref 21:8 attribute)

99+ (pair 21:18 width

100+ (tuple 21:24

101+ (lit 21:25 %fill)

102+ (group 21:31

103+ (call 21:32 (wing 21:32 number-id) (lit 21:42 1))))))))))

104+ (value 22:1 singleton

105+ (cast 22:14

106+ (ref 22:17 attribute)

107+ (pair 22:27 width (lit 22:33 %shrink))))

108+ (mold 23:1 event

109+ (union 24:3

110+ (cell 24:3

111+ (const 24:4 %got)

112+ (face 24:9 value (aura 24:15 @t)))

113+ (const 25:3 %idle)))

114+ (mold 26:1 envelope

115+ (union 27:3

116+ (cell 27:3

117+ (const 27:4 %handler)

118+ (face 27:13 callback

119+ (fn 27:22 (aura 27:25 @t) (ref 27:28 event))))

120+ (cell 28:3

121+ (const 28:4 %empty)

122+ (face 28:11 value (aura 28:17 @ud)))))

123+ (value 29:1 constructor

124+ (cast 29:16

125+ (ref 29:19 envelope)

126+ (tuple 29:28 (lit 29:29 %handler) (ctor 29:38 %got))))

127+ (value 30:1 unknown-target

128+ (gate 30:19

129+ (face 30:22 x (tvar 30:24 A))

130+ (cast 30:26

131+ (tvar 30:29 A)

132+ (pair 30:31 width

133+ (tuple 30:37

134+ (lit 30:38 %fill)

135+ (group 30:44

136+ (call 30:45 (wing 30:45 number-id) (lit 30:55 1)))))))))

tests/golden/types-nested-shallow-preserve/types.txtnew file+33

@@ -0,0 +1,33 @@

1+partial inference; module not checked

2++$ extent: cases proven disjoint; mold not checked

3++$ attribute: cases proven disjoint; mold not checked

4+++ number-id: $-(@ud @ud)

5+++ plain: attribute

6+++ direct: attribute

7+++ list: (list attribute)

8+++ accept: $-(attribute attribute)

9+++ call: attribute

10+++ simple-call: attribute

11+++ grouped-call: attribute

12+++ cast-call: attribute

13+++ nested-call: attribute

14+++ bad-tag: cast mold and expression type do not unify

15+/tests/golden/types-nested-shallow-preserve/source.jibb:17:15: cast mold

16+++ bad-tag ^- attribute width+[%missing 1]

17+ ^

18+/tests/golden/types-nested-shallow-preserve/source.jibb:17:25: expression

19+++ bad-tag ^- attribute width+[%missing 1]

20+ ^

21+++ bad-number: cast mold and expression type do not unify

22+/tests/golden/types-nested-shallow-preserve/source.jibb:18:18: cast mold

23+++ bad-number ^- attribute width+[%fill "bad"]

24+ ^

25+/tests/golden/types-nested-shallow-preserve/source.jibb:18:28: expression

26+++ bad-number ^- attribute width+[%fill "bad"]

27+ ^

28+++ pending: tag needs context in partial inference

29+++ singleton: attribute

30++$ event: cases proven disjoint; mold not checked

31++$ envelope: cases proven disjoint; mold not checked

32+++ constructor: envelope

33+++ unknown-target: explicit capital constraints are not supported by partial inference

tests/golden/types-nested-union-context/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: Grammar, Literals by context: "Number and cell literals resolve like tags: each waits for its context"; Molds: "Tags take their union from context".

2+tests: Nested named-union expressions, invalid and unknown contexts, shared and independent generic variables, unresolved tags and nulls. Unproven case coverage remains unsupported. This is a partial inference report.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-nested-union-context/source.jibbnew file+59

@@ -0,0 +1,59 @@

1++$ msg

2+ %go

3+ %stay

4++$ alt

5+ %go

6+ %stay

7++$ payload |$ [A]

8+ [%value item=A]

9+ %empty

10++$ box |$ [A]

11+ [%wrap item=(payload A)]

12+ %none

13++$ reverse |$ [A B]

14+ [%left item=A]

15+ [%right item=B]

16+++ lift |= x=A ^- (payload A) [%value x]

17+++ direct ^- (payload msg) (lift %go)

18+++ nested ^- (box msg) [%wrap (lift %go)]

19+++ nested-alias |= p=(payload msg) ^- (box msg) [%wrap p]

20+++ nested-typed ^- (box msg) [%wrap (lift (^- msg %go))]

21+++ nested-cord ^- (box @t) [%wrap (lift "hi")]

22+++ nested-ship ^- (box @p) [%wrap (lift ~zod)]

23+++ independent |= [t=@t p=@p]

24+ [(^- (box @t) [%wrap (lift t)]) (^- (box @p) [%wrap (lift p)])]

25+++ wrong-payload ^- (box @t) [%wrap (lift ~zod)]

26+++ wrong-tag ^- (box msg) [%wrap (lift %absent)]

27+++ wrong-origin |= x=alt ^- (box msg) [%wrap (lift x)]

28+++ generic |= x=A ^- (box A) [%wrap (lift x)]

29+++ repeated |= x=A ^- [a=(box A) b=(box A)] [a=[%wrap (lift x)] b=[%wrap (lift x)]]

30+++ unrelated-pending

31+ ~& %orphan

32+ ^- (box msg) [%wrap (lift %go)]

33+++ pending-null

34+ ~& ~

35+ ^- (box msg) [%wrap (lift %go)]

36+++ discarded-constructor

37+ ~& |=%orphan

38+ ^- (box msg) [%wrap (lift %go)]

39+++ unknown-output [%wrap (lift %go)]

40+++ unknown-target |= x=A ^- A [%wrap (lift %go)]

41+++ outer-callback |= [p=(payload A) fn=$-((payload A) B)] (fn p)

42+++ ctor-context ^- (box @t) (outer-callback (lift "hi") |=%wrap)

43+++ other-case ^- (box @t) %none

44++$ full-payload |$ [A]

45+ [%value item=A]

46+ [%skip code=@ud]

47++$ full-box |$ [A]

48+ [%wrap item=(full-payload A)]

49+ [%other code=@ud]

50+++ make-full |= x=A ^- (full-payload A) [%value x]

51+++ full-valid ^- (full-box msg) [%wrap (make-full %go)]

52+++ full-cord ^- (full-box @t) [%wrap (make-full "hi")]

53+++ full-ship ^- (full-box @p) [%wrap (make-full ~zod)]

54+++ full-generic |= x=A ^- (full-box A) [%wrap (make-full x)]

55+++ full-wrong ^- (full-box @t) [%wrap (make-full ~zod)]

56+++ full-missing ^- (full-box msg) [%wrap (make-full %missing)]

57+++ full-pending

58+ ~& %orphan

59+ ^- (full-box msg) [%wrap (make-full %go)]

tests/golden/types-nested-union-context/tokens.txtnew file+660

@@ -0,0 +1,660 @@

1+1:1 glyph +$

2+1:4 name msg

3+2:3 INDENT

4+2:3 lit %go

5+3:3 NEWLINE

6+3:3 lit %stay

7+4:1 DEDENT

8+4:1 NEWLINE

9+4:1 glyph +$

10+4:4 name alt

11+5:3 INDENT

12+5:3 lit %go

13+6:3 NEWLINE

14+6:3 lit %stay

15+7:1 DEDENT

16+7:1 NEWLINE

17+7:1 glyph +$

18+7:4 name payload

19+7:12 glyph |$

20+7:15 glyph [

21+7:16 tight tvar A

22+7:17 tight glyph ]

23+8:3 INDENT

24+8:3 glyph [

25+8:4 tight lit %value

26+8:11 name item

27+8:15 tight glyph =

28+8:16 tight tvar A

29+8:17 tight glyph ]

30+9:3 NEWLINE

31+9:3 lit %empty

32+10:1 DEDENT

33+10:1 NEWLINE

34+10:1 glyph +$

35+10:4 name box

36+10:8 glyph |$

37+10:11 glyph [

38+10:12 tight tvar A

39+10:13 tight glyph ]

40+11:3 INDENT

41+11:3 glyph [

42+11:4 tight lit %wrap

43+11:10 name item

44+11:14 tight glyph =

45+11:15 tight glyph (

46+11:16 tight name payload

47+11:24 tvar A

48+11:25 tight glyph )

49+11:26 tight glyph ]

50+12:3 NEWLINE

51+12:3 lit %none

52+13:1 DEDENT

53+13:1 NEWLINE

54+13:1 glyph +$

55+13:4 name reverse

56+13:12 glyph |$

57+13:15 glyph [

58+13:16 tight tvar A

59+13:18 tvar B

60+13:19 tight glyph ]

61+14:3 INDENT

62+14:3 glyph [

63+14:4 tight lit %left

64+14:10 name item

65+14:14 tight glyph =

66+14:15 tight tvar A

67+14:16 tight glyph ]

68+15:3 NEWLINE

69+15:3 glyph [

70+15:4 tight lit %right

71+15:11 name item

72+15:15 tight glyph =

73+15:16 tight tvar B

74+15:17 tight glyph ]

75+16:1 DEDENT

76+16:1 NEWLINE

77+16:1 glyph ++

78+16:4 name lift

79+16:9 glyph |=

80+16:12 name x

81+16:13 tight glyph =

82+16:14 tight tvar A

83+16:16 glyph ^-

84+16:19 glyph (

85+16:20 tight name payload

86+16:28 tvar A

87+16:29 tight glyph )

88+16:31 glyph [

89+16:32 tight lit %value

90+16:39 name x

91+16:40 tight glyph ]

92+17:1 NEWLINE

93+17:1 glyph ++

94+17:4 name direct

95+17:11 glyph ^-

96+17:14 glyph (

97+17:15 tight name payload

98+17:23 name msg

99+17:26 tight glyph )

100+17:28 glyph (

101+17:29 tight name lift

102+17:34 lit %go

103+17:37 tight glyph )

104+18:1 NEWLINE

105+18:1 glyph ++

106+18:4 name nested

107+18:11 glyph ^-

108+18:14 glyph (

109+18:15 tight name box

110+18:19 name msg

111+18:22 tight glyph )

112+18:24 glyph [

113+18:25 tight lit %wrap

114+18:31 glyph (

115+18:32 tight name lift

116+18:37 lit %go

117+18:40 tight glyph )

118+18:41 tight glyph ]

119+19:1 NEWLINE

120+19:1 glyph ++

121+19:4 name nested-alias

122+19:17 glyph |=

123+19:20 name p

124+19:21 tight glyph =

125+19:22 tight glyph (

126+19:23 tight name payload

127+19:31 name msg

128+19:34 tight glyph )

129+19:36 glyph ^-

130+19:39 glyph (

131+19:40 tight name box

132+19:44 name msg

133+19:47 tight glyph )

134+19:49 glyph [

135+19:50 tight lit %wrap

136+19:56 name p

137+19:57 tight glyph ]

138+20:1 NEWLINE

139+20:1 glyph ++

140+20:4 name nested-typed

141+20:17 glyph ^-

142+20:20 glyph (

143+20:21 tight name box

144+20:25 name msg

145+20:28 tight glyph )

146+20:30 glyph [

147+20:31 tight lit %wrap

148+20:37 glyph (

149+20:38 tight name lift

150+20:43 glyph (

151+20:44 tight glyph ^-

152+20:47 name msg

153+20:51 lit %go

154+20:54 tight glyph )

155+20:55 tight glyph )

156+20:56 tight glyph ]

157+21:1 NEWLINE

158+21:1 glyph ++

159+21:4 name nested-cord

160+21:16 glyph ^-

161+21:19 glyph (

162+21:20 tight name box

163+21:24 aura @t

164+21:26 tight glyph )

165+21:28 glyph [

166+21:29 tight lit %wrap

167+21:35 glyph (

168+21:36 tight name lift

169+21:41 str "hi"

170+21:45 tight glyph )

171+21:46 tight glyph ]

172+22:1 NEWLINE

173+22:1 glyph ++

174+22:4 name nested-ship

175+22:16 glyph ^-

176+22:19 glyph (

177+22:20 tight name box

178+22:24 aura @p

179+22:26 tight glyph )

180+22:28 glyph [

181+22:29 tight lit %wrap

182+22:35 glyph (

183+22:36 tight name lift

184+22:41 lit ~zod

185+22:45 tight glyph )

186+22:46 tight glyph ]

187+23:1 NEWLINE

188+23:1 glyph ++

189+23:4 name independent

190+23:16 glyph |=

191+23:19 glyph [

192+23:20 tight name t

193+23:21 tight glyph =

194+23:22 tight aura @t

195+23:25 name p

196+23:26 tight glyph =

197+23:27 tight aura @p

198+23:29 tight glyph ]

199+24:3 INDENT

200+24:3 glyph [

201+24:4 tight glyph (

202+24:5 tight glyph ^-

203+24:8 glyph (

204+24:9 tight name box

205+24:13 aura @t

206+24:15 tight glyph )

207+24:17 glyph [

208+24:18 tight lit %wrap

209+24:24 glyph (

210+24:25 tight name lift

211+24:30 name t

212+24:31 tight glyph )

213+24:32 tight glyph ]

214+24:33 tight glyph )

215+24:35 glyph (

216+24:36 tight glyph ^-

217+24:39 glyph (

218+24:40 tight name box

219+24:44 aura @p

220+24:46 tight glyph )

221+24:48 glyph [

222+24:49 tight lit %wrap

223+24:55 glyph (

224+24:56 tight name lift

225+24:61 name p

226+24:62 tight glyph )

227+24:63 tight glyph ]

228+24:64 tight glyph )

229+24:65 tight glyph ]

230+25:1 DEDENT

231+25:1 NEWLINE

232+25:1 glyph ++

233+25:4 name wrong-payload

234+25:18 glyph ^-

235+25:21 glyph (

236+25:22 tight name box

237+25:26 aura @t

238+25:28 tight glyph )

239+25:30 glyph [

240+25:31 tight lit %wrap

241+25:37 glyph (

242+25:38 tight name lift

243+25:43 lit ~zod

244+25:47 tight glyph )

245+25:48 tight glyph ]

246+26:1 NEWLINE

247+26:1 glyph ++

248+26:4 name wrong-tag

249+26:14 glyph ^-

250+26:17 glyph (

251+26:18 tight name box

252+26:22 name msg

253+26:25 tight glyph )

254+26:27 glyph [

255+26:28 tight lit %wrap

256+26:34 glyph (

257+26:35 tight name lift

258+26:40 lit %absent

259+26:47 tight glyph )

260+26:48 tight glyph ]

261+27:1 NEWLINE

262+27:1 glyph ++

263+27:4 name wrong-origin

264+27:17 glyph |=

265+27:20 name x

266+27:21 tight glyph =

267+27:22 tight name alt

268+27:26 glyph ^-

269+27:29 glyph (

270+27:30 tight name box

271+27:34 name msg

272+27:37 tight glyph )

273+27:39 glyph [

274+27:40 tight lit %wrap

275+27:46 glyph (

276+27:47 tight name lift

277+27:52 name x

278+27:53 tight glyph )

279+27:54 tight glyph ]

280+28:1 NEWLINE

281+28:1 glyph ++

282+28:4 name generic

283+28:12 glyph |=

284+28:15 name x

285+28:16 tight glyph =

286+28:17 tight tvar A

287+28:19 glyph ^-

288+28:22 glyph (

289+28:23 tight name box

290+28:27 tvar A

291+28:28 tight glyph )

292+28:30 glyph [

293+28:31 tight lit %wrap

294+28:37 glyph (

295+28:38 tight name lift

296+28:43 name x

297+28:44 tight glyph )

298+28:45 tight glyph ]

299+29:1 NEWLINE

300+29:1 glyph ++

301+29:4 name repeated

302+29:13 glyph |=

303+29:16 name x

304+29:17 tight glyph =

305+29:18 tight tvar A

306+29:20 glyph ^-

307+29:23 glyph [

308+29:24 tight name a

309+29:25 tight glyph =

310+29:26 tight glyph (

311+29:27 tight name box

312+29:31 tvar A

313+29:32 tight glyph )

314+29:34 name b

315+29:35 tight glyph =

316+29:36 tight glyph (

317+29:37 tight name box

318+29:41 tvar A

319+29:42 tight glyph )

320+29:43 tight glyph ]

321+29:45 glyph [

322+29:46 tight name a

323+29:47 tight glyph =

324+29:48 tight glyph [

325+29:49 tight lit %wrap

326+29:55 glyph (

327+29:56 tight name lift

328+29:61 name x

329+29:62 tight glyph )

330+29:63 tight glyph ]

331+29:65 name b

332+29:66 tight glyph =

333+29:67 tight glyph [

334+29:68 tight lit %wrap

335+29:74 glyph (

336+29:75 tight name lift

337+29:80 name x

338+29:81 tight glyph )

339+29:82 tight glyph ]

340+29:83 tight glyph ]

341+30:1 NEWLINE

342+30:1 glyph ++

343+30:4 name unrelated-pending

344+31:3 INDENT

345+31:3 glyph ~&

346+31:6 lit %orphan

347+32:5 INDENT

348+32:5 glyph ^-

349+32:8 glyph (

350+32:9 tight name box

351+32:13 name msg

352+32:16 tight glyph )

353+32:18 glyph [

354+32:19 tight lit %wrap

355+32:25 glyph (

356+32:26 tight name lift

357+32:31 lit %go

358+32:34 tight glyph )

359+32:35 tight glyph ]

360+33:1 DEDENT

361+33:1 DEDENT

362+33:1 NEWLINE

363+33:1 glyph ++

364+33:4 name pending-null

365+34:3 INDENT

366+34:3 glyph ~&

367+34:6 lit ~

368+35:5 INDENT

369+35:5 glyph ^-

370+35:8 glyph (

371+35:9 tight name box

372+35:13 name msg

373+35:16 tight glyph )

374+35:18 glyph [

375+35:19 tight lit %wrap

376+35:25 glyph (

377+35:26 tight name lift

378+35:31 lit %go

379+35:34 tight glyph )

380+35:35 tight glyph ]

381+36:1 DEDENT

382+36:1 DEDENT

383+36:1 NEWLINE

384+36:1 glyph ++

385+36:4 name discarded-constructor

386+37:3 INDENT

387+37:3 glyph ~&

388+37:6 glyph |=

389+37:8 tight lit %orphan

390+38:5 INDENT

391+38:5 glyph ^-

392+38:8 glyph (

393+38:9 tight name box

394+38:13 name msg

395+38:16 tight glyph )

396+38:18 glyph [

397+38:19 tight lit %wrap

398+38:25 glyph (

399+38:26 tight name lift

400+38:31 lit %go

401+38:34 tight glyph )

402+38:35 tight glyph ]

403+39:1 DEDENT

404+39:1 DEDENT

405+39:1 NEWLINE

406+39:1 glyph ++

407+39:4 name unknown-output

408+39:19 glyph [

409+39:20 tight lit %wrap

410+39:26 glyph (

411+39:27 tight name lift

412+39:32 lit %go

413+39:35 tight glyph )

414+39:36 tight glyph ]

415+40:1 NEWLINE

416+40:1 glyph ++

417+40:4 name unknown-target

418+40:19 glyph |=

419+40:22 name x

420+40:23 tight glyph =

421+40:24 tight tvar A

422+40:26 glyph ^-

423+40:29 tvar A

424+40:31 glyph [

425+40:32 tight lit %wrap

426+40:38 glyph (

427+40:39 tight name lift

428+40:44 lit %go

429+40:47 tight glyph )

430+40:48 tight glyph ]

431+41:1 NEWLINE

432+41:1 glyph ++

433+41:4 name outer-callback

434+41:19 glyph |=

435+41:22 glyph [

436+41:23 tight name p

437+41:24 tight glyph =

438+41:25 tight glyph (

439+41:26 tight name payload

440+41:34 tvar A

441+41:35 tight glyph )

442+41:37 name fn

443+41:39 tight glyph =

444+41:40 tight glyph $-(

445+41:43 tight glyph (

446+41:44 tight name payload

447+41:52 tvar A

448+41:53 tight glyph )

449+41:55 tvar B

450+41:56 tight glyph )

451+41:57 tight glyph ]

452+41:59 glyph (

453+41:60 tight name fn

454+41:63 name p

455+41:64 tight glyph )

456+42:1 NEWLINE

457+42:1 glyph ++

458+42:4 name ctor-context

459+42:17 glyph ^-

460+42:20 glyph (

461+42:21 tight name box

462+42:25 aura @t

463+42:27 tight glyph )

464+42:29 glyph (

465+42:30 tight name outer-callback

466+42:45 glyph (

467+42:46 tight name lift

468+42:51 str "hi"

469+42:55 tight glyph )

470+42:57 glyph |=

471+42:59 tight lit %wrap

472+42:64 tight glyph )

473+43:1 NEWLINE

474+43:1 glyph ++

475+43:4 name other-case

476+43:15 glyph ^-

477+43:18 glyph (

478+43:19 tight name box

479+43:23 aura @t

480+43:25 tight glyph )

481+43:27 lit %none

482+44:1 NEWLINE

483+44:1 glyph +$

484+44:4 name full-payload

485+44:17 glyph |$

486+44:20 glyph [

487+44:21 tight tvar A

488+44:22 tight glyph ]

489+45:3 INDENT

490+45:3 glyph [

491+45:4 tight lit %value

492+45:11 name item

493+45:15 tight glyph =

494+45:16 tight tvar A

495+45:17 tight glyph ]

496+46:3 NEWLINE

497+46:3 glyph [

498+46:4 tight lit %skip

499+46:10 name code

500+46:14 tight glyph =

501+46:15 tight aura @ud

502+46:18 tight glyph ]

503+47:1 DEDENT

504+47:1 NEWLINE

505+47:1 glyph +$

506+47:4 name full-box

507+47:13 glyph |$

508+47:16 glyph [

509+47:17 tight tvar A

510+47:18 tight glyph ]

511+48:3 INDENT

512+48:3 glyph [

513+48:4 tight lit %wrap

514+48:10 name item

515+48:14 tight glyph =

516+48:15 tight glyph (

517+48:16 tight name full-payload

518+48:29 tvar A

519+48:30 tight glyph )

520+48:31 tight glyph ]

521+49:3 NEWLINE

522+49:3 glyph [

523+49:4 tight lit %other

524+49:11 name code

525+49:15 tight glyph =

526+49:16 tight aura @ud

527+49:19 tight glyph ]

528+50:1 DEDENT

529+50:1 NEWLINE

530+50:1 glyph ++

531+50:4 name make-full

532+50:14 glyph |=

533+50:17 name x

534+50:18 tight glyph =

535+50:19 tight tvar A

536+50:21 glyph ^-

537+50:24 glyph (

538+50:25 tight name full-payload

539+50:38 tvar A

540+50:39 tight glyph )

541+50:41 glyph [

542+50:42 tight lit %value

543+50:49 name x

544+50:50 tight glyph ]

545+51:1 NEWLINE

546+51:1 glyph ++

547+51:4 name full-valid

548+51:15 glyph ^-

549+51:18 glyph (

550+51:19 tight name full-box

551+51:28 name msg

552+51:31 tight glyph )

553+51:33 glyph [

554+51:34 tight lit %wrap

555+51:40 glyph (

556+51:41 tight name make-full

557+51:51 lit %go

558+51:54 tight glyph )

559+51:55 tight glyph ]

560+52:1 NEWLINE

561+52:1 glyph ++

562+52:4 name full-cord

563+52:14 glyph ^-

564+52:17 glyph (

565+52:18 tight name full-box

566+52:27 aura @t

567+52:29 tight glyph )

568+52:31 glyph [

569+52:32 tight lit %wrap

570+52:38 glyph (

571+52:39 tight name make-full

572+52:49 str "hi"

573+52:53 tight glyph )

574+52:54 tight glyph ]

575+53:1 NEWLINE

576+53:1 glyph ++

577+53:4 name full-ship

578+53:14 glyph ^-

579+53:17 glyph (

580+53:18 tight name full-box

581+53:27 aura @p

582+53:29 tight glyph )

583+53:31 glyph [

584+53:32 tight lit %wrap

585+53:38 glyph (

586+53:39 tight name make-full

587+53:49 lit ~zod

588+53:53 tight glyph )

589+53:54 tight glyph ]

590+54:1 NEWLINE

591+54:1 glyph ++

592+54:4 name full-generic

593+54:17 glyph |=

594+54:20 name x

595+54:21 tight glyph =

596+54:22 tight tvar A

597+54:24 glyph ^-

598+54:27 glyph (

599+54:28 tight name full-box

600+54:37 tvar A

601+54:38 tight glyph )

602+54:40 glyph [

603+54:41 tight lit %wrap

604+54:47 glyph (

605+54:48 tight name make-full

606+54:58 name x

607+54:59 tight glyph )

608+54:60 tight glyph ]

609+55:1 NEWLINE

610+55:1 glyph ++

611+55:4 name full-wrong

612+55:15 glyph ^-

613+55:18 glyph (

614+55:19 tight name full-box

615+55:28 aura @t

616+55:30 tight glyph )

617+55:32 glyph [

618+55:33 tight lit %wrap

619+55:39 glyph (

620+55:40 tight name make-full

621+55:50 lit ~zod

622+55:54 tight glyph )

623+55:55 tight glyph ]

624+56:1 NEWLINE

625+56:1 glyph ++

626+56:4 name full-missing

627+56:17 glyph ^-

628+56:20 glyph (

629+56:21 tight name full-box

630+56:30 name msg

631+56:33 tight glyph )

632+56:35 glyph [

633+56:36 tight lit %wrap

634+56:42 glyph (

635+56:43 tight name make-full

636+56:53 lit %missing

637+56:61 tight glyph )

638+56:62 tight glyph ]

639+57:1 NEWLINE

640+57:1 glyph ++

641+57:4 name full-pending

642+58:3 INDENT

643+58:3 glyph ~&

644+58:6 lit %orphan

645+59:5 INDENT

646+59:5 glyph ^-

647+59:8 glyph (

648+59:9 tight name full-box

649+59:18 name msg

650+59:21 tight glyph )

651+59:23 glyph [

652+59:24 tight lit %wrap

653+59:30 glyph (

654+59:31 tight name make-full

655+59:41 lit %go

656+59:44 tight glyph )

657+59:45 tight glyph ]

658+59:46 DEDENT

659+59:46 DEDENT

660+59:46 NEWLINE

tests/golden/types-nested-union-context/tree.txtnew file+302

@@ -0,0 +1,302 @@

1+(module

2+ (mold 1:1 msg

3+ (union 2:3 (const 2:3 %go) (const 3:3 %stay)))

4+ (mold 4:1 alt

5+ (union 5:3 (const 5:3 %go) (const 6:3 %stay)))

6+ (mold 7:1 payload

7+ (generic 7:12 A

8+ (union 8:3

9+ (cell 8:3

10+ (const 8:4 %value)

11+ (face 8:11 item (tvar 8:16 A)))

12+ (const 9:3 %empty))))

13+ (mold 10:1 box

14+ (generic 10:8 A

15+ (union 11:3

16+ (cell 11:3

17+ (const 11:4 %wrap)

18+ (face 11:10 item

19+ (apply 11:15 payload (tvar 11:24 A))))

20+ (const 12:3 %none))))

21+ (mold 13:1 reverse

22+ (generic 13:12 A B

23+ (union 14:3

24+ (cell 14:3

25+ (const 14:4 %left)

26+ (face 14:10 item (tvar 14:15 A)))

27+ (cell 15:3

28+ (const 15:4 %right)

29+ (face 15:11 item (tvar 15:16 B))))))

30+ (value 16:1 lift

31+ (gate 16:9

32+ (face 16:12 x (tvar 16:14 A))

33+ (cast 16:16

34+ (apply 16:19 payload (tvar 16:28 A))

35+ (tuple 16:31 (lit 16:32 %value) (wing 16:39 x)))))

36+ (value 17:1 direct

37+ (cast 17:11

38+ (apply 17:14 payload (ref 17:23 msg))

39+ (group 17:28

40+ (call 17:29 (wing 17:29 lift) (lit 17:34 %go)))))

41+ (value 18:1 nested

42+ (cast 18:11

43+ (apply 18:14 box (ref 18:19 msg))

44+ (tuple 18:24

45+ (lit 18:25 %wrap)

46+ (group 18:31

47+ (call 18:32 (wing 18:32 lift) (lit 18:37 %go))))))

48+ (value 19:1 nested-alias

49+ (gate 19:17

50+ (face 19:20 p

51+ (apply 19:22 payload (ref 19:31 msg)))

52+ (cast 19:36

53+ (apply 19:39 box (ref 19:44 msg))

54+ (tuple 19:49 (lit 19:50 %wrap) (wing 19:56 p)))))

55+ (value 20:1 nested-typed

56+ (cast 20:17

57+ (apply 20:20 box (ref 20:25 msg))

58+ (tuple 20:30

59+ (lit 20:31 %wrap)

60+ (group 20:37

61+ (call 20:38

62+ (wing 20:38 lift)

63+ (group 20:43

64+ (cast 20:44 (ref 20:47 msg) (lit 20:51 %go))))))))

65+ (value 21:1 nested-cord

66+ (cast 21:16

67+ (apply 21:19 box (aura 21:24 @t))

68+ (tuple 21:28

69+ (lit 21:29 %wrap)

70+ (group 21:35

71+ (call 21:36 (wing 21:36 lift) (str 21:41 "hi"))))))

72+ (value 22:1 nested-ship

73+ (cast 22:16

74+ (apply 22:19 box (aura 22:24 @p))

75+ (tuple 22:28

76+ (lit 22:29 %wrap)

77+ (group 22:35

78+ (call 22:36 (wing 22:36 lift) (lit 22:41 ~zod))))))

79+ (value 23:1 independent

80+ (gate 23:16

81+ (cell 23:19

82+ (face 23:20 t (aura 23:22 @t))

83+ (face 23:25 p (aura 23:27 @p)))

84+ (body 24:3

85+ (tuple 24:3

86+ (group 24:4

87+ (cast 24:5

88+ (apply 24:8 box (aura 24:13 @t))

89+ (tuple 24:17

90+ (lit 24:18 %wrap)

91+ (group 24:24

92+ (call 24:25 (wing 24:25 lift) (wing 24:30 t))))))

93+ (group 24:35

94+ (cast 24:36

95+ (apply 24:39 box (aura 24:44 @p))

96+ (tuple 24:48

97+ (lit 24:49 %wrap)

98+ (group 24:55

99+ (call 24:56 (wing 24:56 lift) (wing 24:61 p))))))))))

100+ (value 25:1 wrong-payload

101+ (cast 25:18

102+ (apply 25:21 box (aura 25:26 @t))

103+ (tuple 25:30

104+ (lit 25:31 %wrap)

105+ (group 25:37

106+ (call 25:38 (wing 25:38 lift) (lit 25:43 ~zod))))))

107+ (value 26:1 wrong-tag

108+ (cast 26:14

109+ (apply 26:17 box (ref 26:22 msg))

110+ (tuple 26:27

111+ (lit 26:28 %wrap)

112+ (group 26:34

113+ (call 26:35 (wing 26:35 lift) (lit 26:40 %absent))))))

114+ (value 27:1 wrong-origin

115+ (gate 27:17

116+ (face 27:20 x (ref 27:22 alt))

117+ (cast 27:26

118+ (apply 27:29 box (ref 27:34 msg))

119+ (tuple 27:39

120+ (lit 27:40 %wrap)

121+ (group 27:46

122+ (call 27:47 (wing 27:47 lift) (wing 27:52 x)))))))

123+ (value 28:1 generic

124+ (gate 28:12

125+ (face 28:15 x (tvar 28:17 A))

126+ (cast 28:19

127+ (apply 28:22 box (tvar 28:27 A))

128+ (tuple 28:30

129+ (lit 28:31 %wrap)

130+ (group 28:37

131+ (call 28:38 (wing 28:38 lift) (wing 28:43 x)))))))

132+ (value 29:1 repeated

133+ (gate 29:13

134+ (face 29:16 x (tvar 29:18 A))

135+ (cast 29:20

136+ (cell 29:23

137+ (face 29:24 a

138+ (apply 29:26 box (tvar 29:31 A)))

139+ (face 29:34 b

140+ (apply 29:36 box (tvar 29:41 A))))

141+ (tuple 29:45

142+ (face 29:46 a

143+ (tuple 29:48

144+ (lit 29:49 %wrap)

145+ (group 29:55

146+ (call 29:56 (wing 29:56 lift) (wing 29:61 x)))))

147+ (face 29:65 b

148+ (tuple 29:67

149+ (lit 29:68 %wrap)

150+ (group 29:74

151+ (call 29:75 (wing 29:75 lift) (wing 29:80 x)))))))))

152+ (value 30:1 unrelated-pending

153+ (body 31:3

154+ (trace 31:3

155+ (lit 31:6 %orphan)

156+ (body 32:5

157+ (cast 32:5

158+ (apply 32:8 box (ref 32:13 msg))

159+ (tuple 32:18

160+ (lit 32:19 %wrap)

161+ (group 32:25

162+ (call 32:26 (wing 32:26 lift) (lit 32:31 %go)))))))))

163+ (value 33:1 pending-null

164+ (body 34:3

165+ (trace 34:3

166+ (lit 34:6 ~)

167+ (body 35:5

168+ (cast 35:5

169+ (apply 35:8 box (ref 35:13 msg))

170+ (tuple 35:18

171+ (lit 35:19 %wrap)

172+ (group 35:25

173+ (call 35:26 (wing 35:26 lift) (lit 35:31 %go)))))))))

174+ (value 36:1 discarded-constructor

175+ (body 37:3

176+ (trace 37:3

177+ (ctor 37:6 %orphan)

178+ (body 38:5

179+ (cast 38:5

180+ (apply 38:8 box (ref 38:13 msg))

181+ (tuple 38:18

182+ (lit 38:19 %wrap)

183+ (group 38:25

184+ (call 38:26 (wing 38:26 lift) (lit 38:31 %go)))))))))

185+ (value 39:1 unknown-output

186+ (tuple 39:19

187+ (lit 39:20 %wrap)

188+ (group 39:26

189+ (call 39:27 (wing 39:27 lift) (lit 39:32 %go)))))

190+ (value 40:1 unknown-target

191+ (gate 40:19

192+ (face 40:22 x (tvar 40:24 A))

193+ (cast 40:26

194+ (tvar 40:29 A)

195+ (tuple 40:31

196+ (lit 40:32 %wrap)

197+ (group 40:38

198+ (call 40:39 (wing 40:39 lift) (lit 40:44 %go)))))))

199+ (value 41:1 outer-callback

200+ (gate 41:19

201+ (cell 41:22

202+ (face 41:23 p

203+ (apply 41:25 payload (tvar 41:34 A)))

204+ (face 41:37 fn

205+ (fn 41:40

206+ (apply 41:43 payload (tvar 41:52 A))

207+ (tvar 41:55 B))))

208+ (group 41:59

209+ (call 41:60 (wing 41:60 fn) (wing 41:63 p)))))

210+ (value 42:1 ctor-context

211+ (cast 42:17

212+ (apply 42:20 box (aura 42:25 @t))

213+ (group 42:29

214+ (call 42:30

215+ (wing 42:30 outer-callback)

216+ (group 42:45

217+ (call 42:46 (wing 42:46 lift) (str 42:51 "hi")))

218+ (ctor 42:57 %wrap)))))

219+ (value 43:1 other-case

220+ (cast 43:15

221+ (apply 43:18 box (aura 43:23 @t))

222+ (lit 43:27 %none)))

223+ (mold 44:1 full-payload

224+ (generic 44:17 A

225+ (union 45:3

226+ (cell 45:3

227+ (const 45:4 %value)

228+ (face 45:11 item (tvar 45:16 A)))

229+ (cell 46:3

230+ (const 46:4 %skip)

231+ (face 46:10 code (aura 46:15 @ud))))))

232+ (mold 47:1 full-box

233+ (generic 47:13 A

234+ (union 48:3

235+ (cell 48:3

236+ (const 48:4 %wrap)

237+ (face 48:10 item

238+ (apply 48:15 full-payload (tvar 48:29 A))))

239+ (cell 49:3

240+ (const 49:4 %other)

241+ (face 49:11 code (aura 49:16 @ud))))))

242+ (value 50:1 make-full

243+ (gate 50:14

244+ (face 50:17 x (tvar 50:19 A))

245+ (cast 50:21

246+ (apply 50:24 full-payload (tvar 50:38 A))

247+ (tuple 50:41 (lit 50:42 %value) (wing 50:49 x)))))

248+ (value 51:1 full-valid

249+ (cast 51:15

250+ (apply 51:18 full-box (ref 51:28 msg))

251+ (tuple 51:33

252+ (lit 51:34 %wrap)

253+ (group 51:40

254+ (call 51:41 (wing 51:41 make-full) (lit 51:51 %go))))))

255+ (value 52:1 full-cord

256+ (cast 52:14

257+ (apply 52:17 full-box (aura 52:27 @t))

258+ (tuple 52:31

259+ (lit 52:32 %wrap)

260+ (group 52:38

261+ (call 52:39 (wing 52:39 make-full) (str 52:49 "hi"))))))

262+ (value 53:1 full-ship

263+ (cast 53:14

264+ (apply 53:17 full-box (aura 53:27 @p))

265+ (tuple 53:31

266+ (lit 53:32 %wrap)

267+ (group 53:38

268+ (call 53:39 (wing 53:39 make-full) (lit 53:49 ~zod))))))

269+ (value 54:1 full-generic

270+ (gate 54:17

271+ (face 54:20 x (tvar 54:22 A))

272+ (cast 54:24

273+ (apply 54:27 full-box (tvar 54:37 A))

274+ (tuple 54:40

275+ (lit 54:41 %wrap)

276+ (group 54:47

277+ (call 54:48 (wing 54:48 make-full) (wing 54:58 x)))))))

278+ (value 55:1 full-wrong

279+ (cast 55:15

280+ (apply 55:18 full-box (aura 55:28 @t))

281+ (tuple 55:32

282+ (lit 55:33 %wrap)

283+ (group 55:39

284+ (call 55:40 (wing 55:40 make-full) (lit 55:50 ~zod))))))

285+ (value 56:1 full-missing

286+ (cast 56:17

287+ (apply 56:20 full-box (ref 56:30 msg))

288+ (tuple 56:35

289+ (lit 56:36 %wrap)

290+ (group 56:42

291+ (call 56:43 (wing 56:43 make-full) (lit 56:53 %missing))))))

292+ (value 57:1 full-pending

293+ (body 58:3

294+ (trace 58:3

295+ (lit 58:6 %orphan)

296+ (body 59:5

297+ (cast 59:5

298+ (apply 59:8 full-box (ref 59:18 msg))

299+ (tuple 59:23

300+ (lit 59:24 %wrap)

301+ (group 59:30

302+ (call 59:31 (wing 59:31 make-full) (lit 59:41 %go))))))))))

tests/golden/types-nested-union-context/types.txtnew file+49

@@ -0,0 +1,49 @@

1+partial inference; module not checked

2++$ msg: cases proven disjoint; mold not checked

3++$ alt: cases proven disjoint; mold not checked

4++$ payload: cases proven disjoint; mold not checked

5++$ box: cases proven disjoint; mold not checked

6++$ reverse: cases proven disjoint; mold not checked

7+++ lift: $-(A (payload A))

8+++ direct: (payload msg)

9+++ nested: cast constraint is not supported by partial inference

10+++ nested-alias: cast constraint is not supported by partial inference

11+++ nested-typed: cast constraint is not supported by partial inference

12+++ nested-cord: cast constraint is not supported by partial inference

13+++ nested-ship: cast constraint is not supported by partial inference

14+++ independent: cast constraint is not supported by partial inference

15+++ wrong-payload: cast constraint is not supported by partial inference

16+++ wrong-tag: cast constraint is not supported by partial inference

17+++ wrong-origin: cast constraint is not supported by partial inference

18+++ generic: cast constraint is not supported by partial inference

19+++ repeated: cast constraint is not supported by partial inference

20+++ unrelated-pending: cast constraint is not supported by partial inference

21+++ pending-null: cast constraint is not supported by partial inference

22+++ discarded-constructor: cast constraint is not supported by partial inference

23+++ unknown-output: tag needs context in partial inference

24+++ unknown-target: explicit capital constraints are not supported by partial inference

25+++ outer-callback: $-([p=(payload A) fn=$-((payload A) B)] B)

26+++ ctor-context: (box @t)

27+++ other-case: (box @t)

28++$ full-payload: cases proven disjoint; mold not checked

29++$ full-box: cases proven disjoint; mold not checked

30+++ make-full: $-(A (full-payload A))

31+++ full-valid: (full-box msg)

32+++ full-cord: (full-box @t)

33+++ full-ship: (full-box @p)

34+++ full-generic: $-(A (full-box A))

35+++ full-wrong: call's sample and argument types do not unify

36+/tests/golden/types-nested-union-context/source.jibb:55:40: called gate

37+++ full-wrong ^- (full-box @t) [%wrap (make-full ~zod)]

38+ ^

39+/tests/golden/types-nested-union-context/source.jibb:55:50: argument has type @p

40+++ full-wrong ^- (full-box @t) [%wrap (make-full ~zod)]

41+ ^

42+++ full-missing: msg has no case `%missing`

43+/tests/golden/types-nested-union-context/source.jibb:56:43: expected union

44+++ full-missing ^- (full-box msg) [%wrap (make-full %missing)]

45+ ^

46+/tests/golden/types-nested-union-context/source.jibb:56:53: tag

47+++ full-missing ^- (full-box msg) [%wrap (make-full %missing)]

48+ ^

49+++ full-pending: tag needs context in partial inference

tests/golden/types-null-context/about.txt+1−1

@@ -1,4 +1,4 @@

11source: Grammar, Tag resolution: "A tag literal or `~` gets a fresh type variable and a pending constraint"; `|=%typed` "works for cases tagged at their head".

2−tests: Contextual null and a null-headed cell fit their respective cases. A null-headed case is not a `%$` constructor; a term-headed `%$` case is.

2+tests: Contextual null and a null-headed cell fit their respective cases. Null- and term-headed zero cases both accept a `%$` constructor because their literal heads are equal nouns.

33expect: parses

44expect-types: a partial inference report

tests/golden/types-null-context/source.jibb+1−1

@@ -4,5 +4,5 @@

44+$ dollar [%$ value=@t]

55++ empty ^- maybe ~

66++ present ^- maybe [~ "hi"]

7−++ bad-constructor ^- $-(@t maybe) |=%$

7+++ null-constructor ^- $-(@t maybe) |=%$

88++ dollar-constructor ^- $-(@t dollar) |=%$

tests/golden/types-null-context/tokens.txt+8−8

@@ -36,14 +36,14 @@

36366:28 tight glyph ]

37377:1 NEWLINE

38387:1 glyph ++

39−7:4 name bad-constructor

40−7:20 glyph ^-

41−7:23 glyph $-(

42−7:26 tight aura @t

43−7:29 name maybe

44−7:34 tight glyph )

45−7:36 glyph |=

46−7:38 tight lit %$

39+7:4 name null-constructor

40+7:21 glyph ^-

41+7:24 glyph $-(

42+7:27 tight aura @t

43+7:30 name maybe

44+7:35 tight glyph )

45+7:37 glyph |=

46+7:39 tight lit %$

47478:1 NEWLINE

48488:1 glyph ++

49498:4 name dollar-constructor

tests/golden/types-null-context/tree.txt+4−4

@@ -15,10 +15,10 @@

1515 (cast 6:12

1616 (ref 6:15 maybe)

1717 (tuple 6:21 (lit 6:22 ~) (str 6:24 "hi"))))

18− (value 7:1 bad-constructor

19− (cast 7:20

20− (fn 7:23 (aura 7:26 @t) (ref 7:29 maybe))

21− (ctor 7:36 %$)))

18+ (value 7:1 null-constructor

19+ (cast 7:21

20+ (fn 7:24 (aura 7:27 @t) (ref 7:30 maybe))

21+ (ctor 7:37 %$)))

2222 (value 8:1 dollar-constructor

2323 (cast 8:23

2424 (fn 8:26 (aura 8:29 @t) (ref 8:32 dollar))

tests/golden/types-null-context/types.txt+1−7

@@ -3,11 +3,5 @@ partial inference; module not checked

33+$ dollar: not checked

44++ empty: maybe

55++ present: maybe

6−++ bad-constructor: cast mold and expression type do not unify

7−/tests/golden/types-null-context/source.jibb:7:23: cast mold

8−++ bad-constructor ^- $-(@t maybe) |=%$

9− ^

10−/tests/golden/types-null-context/source.jibb:7:36: expression

11−++ bad-constructor ^- $-(@t maybe) |=%$

12− ^

6+++ null-constructor: $-(@t maybe)

137++ dollar-constructor: $-(@t [%$ value=@t])

tests/golden/types-pair-context/source.jibb+14−14

@@ -3,30 +3,30 @@

33 %s1

44 %s2

55 %s3

6−+$ length

6++$ extent

77 [%fill n=@ud]

88 %shrink

9−+$ attr

9++$ attribute

1010 [%gap spacing]

1111 [%pad spacing]

12− [%width length]

13−+$ other-attr

12+ [%width extent]

13++$ other-attribute

1414 [%gap spacing]

1515 [%pad spacing]

16− [%width length]

17−++ one ^- attr gap+%s2

18−++ equiv ^- attr [%gap %s2]

19−++ attrs ^- (list attr) ~[gap+%s2 pad+%s3 width+[%fill 1]]

16+ [%width extent]

17+++ one ^- attribute gap+%s2

18+++ equiv ^- attribute [%gap %s2]

19+++ attributes ^- (list attribute) ~[gap+%s2 pad+%s3 width+[%fill 1]]

2020++ gap-structural ^- [@tas @tas] gap+%s2

21−++ nested ^- attr width+[%fill 1]

22−++ mismatch ^- attr gap+%shrink

23−++ missing ^- attr width+[%oops 1]

21+++ nested ^- attribute width+[%fill 1]

22+++ mismatch ^- attribute gap+%shrink

23+++ missing ^- attribute width+[%oops 1]

2424++ pending gap+%s2

25−++ cross-origin ^- attr ^- other-attr gap+%s2

25+++ cross-origin ^- attribute ^- other-attribute gap+%s2

2626++ noun-pair ^- [* *] gap+%s2

2727++ atom-pair ^- [@ta @tas] gap+%s2

2828++ wrong-head ^- [@ud @tas] gap+%s2

29−++ wrong-number ^- attr width+[%fill "hi"]

29+++ wrong-number ^- attribute width+[%fill "hi"]

3030++ unrelated

3131 ~& %dangling

32− ^- attr gap+%s2

32+ ^- attribute gap+%s2

tests/golden/types-pair-context/tokens.txt+71−71

@@ -11,7 +11,7 @@

11116:1 DEDENT

12126:1 NEWLINE

13136:1 glyph +$

14−6:4 name length

14+6:4 name extent

15157:3 INDENT

16167:3 glyph [

17177:4 tight lit %fill

@@ -24,7 +24,7 @@

24249:1 DEDENT

25259:1 NEWLINE

26269:1 glyph +$

27−9:4 name attr

27+9:4 name attribute

282810:3 INDENT

292910:3 glyph [

303010:4 tight lit %gap

@@ -38,12 +38,12 @@

383812:3 NEWLINE

393912:3 glyph [

404012:4 tight lit %width

41−12:11 name length

41+12:11 name extent

424212:17 tight glyph ]

434313:1 DEDENT

444413:1 NEWLINE

454513:1 glyph +$

46−13:4 name other-attr

46+13:4 name other-attribute

474714:3 INDENT

484814:3 glyph [

494914:4 tight lit %gap

@@ -57,48 +57,48 @@

575716:3 NEWLINE

585816:3 glyph [

595916:4 tight lit %width

60−16:11 name length

60+16:11 name extent

616116:17 tight glyph ]

626217:1 DEDENT

636317:1 NEWLINE

646417:1 glyph ++

656517:4 name one

666617:8 glyph ^-

67−17:11 name attr

68−17:16 name gap

69−17:19 tight glyph +

70−17:20 tight lit %s2

67+17:11 name attribute

68+17:21 name gap

69+17:24 tight glyph +

70+17:25 tight lit %s2

717118:1 NEWLINE

727218:1 glyph ++

737318:4 name equiv

747418:10 glyph ^-

75−18:13 name attr

76−18:18 glyph [

77−18:19 tight lit %gap

78−18:24 lit %s2

79−18:27 tight glyph ]

75+18:13 name attribute

76+18:23 glyph [

77+18:24 tight lit %gap

78+18:29 lit %s2

79+18:32 tight glyph ]

808019:1 NEWLINE

818119:1 glyph ++

82−19:4 name attrs

83−19:10 glyph ^-

84−19:13 glyph (

85−19:14 tight name list

86−19:19 name attr

87−19:23 tight glyph )

88−19:25 glyph ~[

89−19:27 tight name gap

90−19:30 tight glyph +

91−19:31 tight lit %s2

92−19:35 name pad

93−19:38 tight glyph +

94−19:39 tight lit %s3

95−19:43 name width

82+19:4 name attributes

83+19:15 glyph ^-

84+19:18 glyph (

85+19:19 tight name list

86+19:24 name attribute

87+19:33 tight glyph )

88+19:35 glyph ~[

89+19:37 tight name gap

90+19:40 tight glyph +

91+19:41 tight lit %s2

92+19:45 name pad

969319:48 tight glyph +

97−19:49 tight glyph [

98−19:50 tight lit %fill

99−19:56 lit 1

100−19:57 tight glyph ]

101−19:58 tight glyph ]

94+19:49 tight lit %s3

95+19:53 name width

96+19:58 tight glyph +

97+19:59 tight glyph [

98+19:60 tight lit %fill

99+19:66 lit 1

100+19:67 tight glyph ]

101+19:68 tight glyph ]

10210220:1 NEWLINE

10310320:1 glyph ++

10410420:4 name gap-structural

@@ -114,32 +114,32 @@

11411421:1 glyph ++

11511521:4 name nested

11611621:11 glyph ^-

117−21:14 name attr

118−21:19 name width

119−21:24 tight glyph +

120−21:25 tight glyph [

121−21:26 tight lit %fill

122−21:32 lit 1

123−21:33 tight glyph ]

117+21:14 name attribute

118+21:24 name width

119+21:29 tight glyph +

120+21:30 tight glyph [

121+21:31 tight lit %fill

122+21:37 lit 1

123+21:38 tight glyph ]

12412422:1 NEWLINE

12512522:1 glyph ++

12612622:4 name mismatch

12712722:13 glyph ^-

128−22:16 name attr

129−22:21 name gap

130−22:24 tight glyph +

131−22:25 tight lit %shrink

128+22:16 name attribute

129+22:26 name gap

130+22:29 tight glyph +

131+22:30 tight lit %shrink

13213223:1 NEWLINE

13313323:1 glyph ++

13413423:4 name missing

13513523:12 glyph ^-

136−23:15 name attr

137−23:20 name width

138−23:25 tight glyph +

139−23:26 tight glyph [

140−23:27 tight lit %oops

141−23:33 lit 1

142−23:34 tight glyph ]

136+23:15 name attribute

137+23:25 name width

138+23:30 tight glyph +

139+23:31 tight glyph [

140+23:32 tight lit %oops

141+23:38 lit 1

142+23:39 tight glyph ]

14314324:1 NEWLINE

14414424:1 glyph ++

14514524:4 name pending

@@ -150,12 +150,12 @@

15015025:1 glyph ++

15115125:4 name cross-origin

15215225:17 glyph ^-

153−25:20 name attr

154−25:25 glyph ^-

155−25:28 name other-attr

156−25:39 name gap

157−25:42 tight glyph +

158−25:43 tight lit %s2

153+25:20 name attribute

154+25:30 glyph ^-

155+25:33 name other-attribute

156+25:49 name gap

157+25:52 tight glyph +

158+25:53 tight lit %s2

15915926:1 NEWLINE

16016026:1 glyph ++

16116126:4 name noun-pair

@@ -193,13 +193,13 @@

19319329:1 glyph ++

19419429:4 name wrong-number

19519529:17 glyph ^-

196−29:20 name attr

197−29:25 name width

198−29:30 tight glyph +

199−29:31 tight glyph [

200−29:32 tight lit %fill

201−29:38 str "hi"

202−29:42 tight glyph ]

196+29:20 name attribute

197+29:30 name width

198+29:35 tight glyph +

199+29:36 tight glyph [

200+29:37 tight lit %fill

201+29:43 str "hi"

202+29:47 tight glyph ]

20320330:1 NEWLINE

20420430:1 glyph ++

20520530:4 name unrelated

@@ -208,10 +208,10 @@

20820831:6 lit %dangling

20920932:5 INDENT

21021032:5 glyph ^-

211−32:8 name attr

212−32:13 name gap

213−32:16 tight glyph +

214−32:17 tight lit %s2

215−32:20 DEDENT

216−32:20 DEDENT

217−32:20 NEWLINE

211+32:8 name attribute

212+32:18 name gap

213+32:21 tight glyph +

214+32:22 tight lit %s2

215+32:25 DEDENT

216+32:25 DEDENT

217+32:25 NEWLINE

tests/golden/types-pair-context/tree.txt+34−34

@@ -1,64 +1,64 @@

11(module

22 (mold 1:1 spacing

33 (union 2:3 (const 2:3 %s0) (const 3:3 %s1) (const 4:3 %s2) (const 5:3 %s3)))

4− (mold 6:1 length

4+ (mold 6:1 extent

55 (union 7:3

66 (cell 7:3

77 (const 7:4 %fill)

88 (face 7:10 n (aura 7:12 @ud)))

99 (const 8:3 %shrink)))

10− (mold 9:1 attr

10+ (mold 9:1 attribute

1111 (union 10:3

1212 (cell 10:3 (const 10:4 %gap) (ref 10:9 spacing))

1313 (cell 11:3 (const 11:4 %pad) (ref 11:9 spacing))

14− (cell 12:3 (const 12:4 %width) (ref 12:11 length))))

15− (mold 13:1 other-attr

14+ (cell 12:3 (const 12:4 %width) (ref 12:11 extent))))

15+ (mold 13:1 other-attribute

1616 (union 14:3

1717 (cell 14:3 (const 14:4 %gap) (ref 14:9 spacing))

1818 (cell 15:3 (const 15:4 %pad) (ref 15:9 spacing))

19− (cell 16:3 (const 16:4 %width) (ref 16:11 length))))

19+ (cell 16:3 (const 16:4 %width) (ref 16:11 extent))))

2020 (value 17:1 one

2121 (cast 17:8

22− (ref 17:11 attr)

23− (pair 17:16 gap (lit 17:20 %s2))))

22+ (ref 17:11 attribute)

23+ (pair 17:21 gap (lit 17:25 %s2))))

2424 (value 18:1 equiv

2525 (cast 18:10

26− (ref 18:13 attr)

27− (tuple 18:18 (lit 18:19 %gap) (lit 18:24 %s2))))

28− (value 19:1 attrs

29− (cast 19:10

30− (apply 19:13 list (ref 19:19 attr))

31− (list 19:25

32− (pair 19:27 gap (lit 19:31 %s2))

33− (pair 19:35 pad (lit 19:39 %s3))

34− (pair 19:43 width

35− (tuple 19:49 (lit 19:50 %fill) (lit 19:56 1))))))

26+ (ref 18:13 attribute)

27+ (tuple 18:23 (lit 18:24 %gap) (lit 18:29 %s2))))

28+ (value 19:1 attributes

29+ (cast 19:15

30+ (apply 19:18 list (ref 19:24 attribute))

31+ (list 19:35

32+ (pair 19:37 gap (lit 19:41 %s2))

33+ (pair 19:45 pad (lit 19:49 %s3))

34+ (pair 19:53 width

35+ (tuple 19:59 (lit 19:60 %fill) (lit 19:66 1))))))

3636 (value 20:1 gap-structural

3737 (cast 20:19

3838 (cell 20:22 (aura 20:23 @tas) (aura 20:28 @tas))

3939 (pair 20:34 gap (lit 20:38 %s2))))

4040 (value 21:1 nested

4141 (cast 21:11

42− (ref 21:14 attr)

43− (pair 21:19 width

44− (tuple 21:25 (lit 21:26 %fill) (lit 21:32 1)))))

42+ (ref 21:14 attribute)

43+ (pair 21:24 width

44+ (tuple 21:30 (lit 21:31 %fill) (lit 21:37 1)))))

4545 (value 22:1 mismatch

4646 (cast 22:13

47− (ref 22:16 attr)

48− (pair 22:21 gap (lit 22:25 %shrink))))

47+ (ref 22:16 attribute)

48+ (pair 22:26 gap (lit 22:30 %shrink))))

4949 (value 23:1 missing

5050 (cast 23:12

51− (ref 23:15 attr)

52− (pair 23:20 width

53− (tuple 23:26 (lit 23:27 %oops) (lit 23:33 1)))))

51+ (ref 23:15 attribute)

52+ (pair 23:25 width

53+ (tuple 23:31 (lit 23:32 %oops) (lit 23:38 1)))))

5454 (value 24:1 pending

5555 (pair 24:12 gap (lit 24:16 %s2)))

5656 (value 25:1 cross-origin

5757 (cast 25:17

58− (ref 25:20 attr)

59− (cast 25:25

60− (ref 25:28 other-attr)

61− (pair 25:39 gap (lit 25:43 %s2)))))

58+ (ref 25:20 attribute)

59+ (cast 25:30

60+ (ref 25:33 other-attribute)

61+ (pair 25:49 gap (lit 25:53 %s2)))))

6262 (value 26:1 noun-pair

6363 (cast 26:14

6464 (cell 26:17 (noun 26:18) (noun 26:20))

@@ -73,14 +73,14 @@

7373 (pair 28:29 gap (lit 28:33 %s2))))

7474 (value 29:1 wrong-number

7575 (cast 29:17

76− (ref 29:20 attr)

77− (pair 29:25 width

78− (tuple 29:31 (lit 29:32 %fill) (str 29:38 "hi")))))

76+ (ref 29:20 attribute)

77+ (pair 29:30 width

78+ (tuple 29:36 (lit 29:37 %fill) (str 29:43 "hi")))))

7979 (value 30:1 unrelated

8080 (body 31:3

8181 (trace 31:3

8282 (lit 31:6 %dangling)

8383 (body 32:5

8484 (cast 32:5

85− (ref 32:8 attr)

86− (pair 32:13 gap (lit 32:17 %s2))))))))

85+ (ref 32:8 attribute)

86+ (pair 32:18 gap (lit 32:22 %s2))))))))

tests/golden/types-pair-context/types.txt+19−19

@@ -1,27 +1,27 @@

11partial inference; module not checked

22+$ spacing: cases proven disjoint; mold not checked

3−+$ length: cases proven disjoint; mold not checked

4−+$ attr: cases proven disjoint; mold not checked

5−+$ other-attr: cases proven disjoint; mold not checked

6−++ one: attr

7−++ equiv: attr

8−++ attrs: (list attr)

3++$ extent: cases proven disjoint; mold not checked

4++$ attribute: cases proven disjoint; mold not checked

5++$ other-attribute: cases proven disjoint; mold not checked

6+++ one: attribute

7+++ equiv: attribute

8+++ attributes: (list attribute)

99++ gap-structural: [@tas @tas]

10−++ nested: attr

10+++ nested: attribute

1111++ mismatch: cast mold and expression type do not unify

1212/tests/golden/types-pair-context/source.jibb:22:16: cast mold

13−++ mismatch ^- attr gap+%shrink

13+++ mismatch ^- attribute gap+%shrink

1414 ^

15−/tests/golden/types-pair-context/source.jibb:22:21: expression

16−++ mismatch ^- attr gap+%shrink

17− ^

15+/tests/golden/types-pair-context/source.jibb:22:26: expression

16+++ mismatch ^- attribute gap+%shrink

17+ ^

1818++ missing: cast mold and expression type do not unify

1919/tests/golden/types-pair-context/source.jibb:23:15: cast mold

20−++ missing ^- attr width+[%oops 1]

20+++ missing ^- attribute width+[%oops 1]

2121 ^

22−/tests/golden/types-pair-context/source.jibb:23:20: expression

23−++ missing ^- attr width+[%oops 1]

24− ^

22+/tests/golden/types-pair-context/source.jibb:23:25: expression

23+++ missing ^- attribute width+[%oops 1]

24+ ^

2525++ pending: tag needs context in partial inference

2626++ cross-origin: cast constraint is not supported by partial inference

2727++ noun-pair: [* *]

@@ -35,9 +35,9 @@ partial inference; module not checked

3535 ^

3636++ wrong-number: cast mold and expression type do not unify

3737/tests/golden/types-pair-context/source.jibb:29:20: cast mold

38−++ wrong-number ^- attr width+[%fill "hi"]

38+++ wrong-number ^- attribute width+[%fill "hi"]

3939 ^

40−/tests/golden/types-pair-context/source.jibb:29:25: expression

41−++ wrong-number ^- attr width+[%fill "hi"]

42− ^

40+/tests/golden/types-pair-context/source.jibb:29:30: expression

41+++ wrong-number ^- attribute width+[%fill "hi"]

42+ ^

4343++ unrelated: tag needs context in partial inference

tests/golden/types-partial-aura-family/source.jibb+1−1

@@ -1,7 +1,7 @@

11++ decimal |= x=@ud ^- @u x

22++ hex ^- @u 0x1f

33++ base32 |= x=@uv ^- @u x

4−++ text |= x=@tD ^- @t x

4+++ text-value |= x=@tD ^- @t x

55++ narrow |= x=@t ^- @tD x

66++ siblings |= x=@ux ^- @ud x

77++ dup |= p=[A A] p

tests/golden/types-partial-aura-family/tokens.txt+8−8

@@ -25,14 +25,14 @@

25253:26 name x

26264:1 NEWLINE

27274:1 glyph ++

28−4:4 name text

29−4:9 glyph |=

30−4:12 name x

31−4:13 tight glyph =

32−4:14 tight aura @tD

33−4:18 glyph ^-

34−4:21 aura @t

35−4:24 name x

28+4:4 name text-value

29+4:15 glyph |=

30+4:18 name x

31+4:19 tight glyph =

32+4:20 tight aura @tD

33+4:24 glyph ^-

34+4:27 aura @t

35+4:30 name x

36365:1 NEWLINE

37375:1 glyph ++

38385:4 name narrow

tests/golden/types-partial-aura-family/tree.txt+4−4

@@ -9,10 +9,10 @@

99 (gate 3:11

1010 (face 3:14 x (aura 3:16 @uv))

1111 (cast 3:20 (aura 3:23 @u) (wing 3:26 x))))

12− (value 4:1 text

13− (gate 4:9

14− (face 4:12 x (aura 4:14 @tD))

15− (cast 4:18 (aura 4:21 @t) (wing 4:24 x))))

12+ (value 4:1 text-value

13+ (gate 4:15

14+ (face 4:18 x (aura 4:20 @tD))

15+ (cast 4:24 (aura 4:27 @t) (wing 4:30 x))))

1616 (value 5:1 narrow

1717 (gate 5:11

1818 (face 5:14 x (aura 5:16 @t))

tests/golden/types-partial-aura-family/types.txt+1−1

@@ -2,7 +2,7 @@ partial inference; module not checked

22++ decimal: $-(@ud @u)

33++ hex: @u

44++ base32: $-(@uv @u)

5−++ text: $-(@tD @t)

5+++ text-value: $-(@tD @t)

66++ narrow: cast mold and expression type do not unify

77/tests/golden/types-partial-aura-family/source.jibb:5:22: cast mold has type @tD

88++ narrow |= x=@t ^- @tD x

tests/golden/types-partial-locals/source.jibb+2−2

@@ -32,9 +32,9 @@

3232++ local-mold |= x

3333 +$ item @t

3434 x

35−++ wrap |= y |=(z y)

35+++ wrap-value |= y |=(z y)

3636++ through-global |= x

37− ++ local (wrap x)

37+ ++ local (wrap-value x)

3838 ~& ^- @t (local ~zod)

3939 ^- @p (local "hi")

4040++ nested-shadow |= x

tests/golden/types-partial-locals/tokens.txt+10−10

@@ -180,13 +180,13 @@

18018035:1 DEDENT

18118135:1 NEWLINE

18218235:1 glyph ++

183−35:4 name wrap

184−35:9 glyph |=

185−35:12 name y

186−35:14 glyph |=(

187−35:17 tight name z

188−35:19 name y

189−35:20 tight glyph )

183+35:4 name wrap-value

184+35:15 glyph |=

185+35:18 name y

186+35:20 glyph |=(

187+35:23 tight name z

188+35:25 name y

189+35:26 tight glyph )

19019036:1 NEWLINE

19119136:1 glyph ++

19219236:4 name through-global

@@ -196,9 +196,9 @@

19619637:3 glyph ++

19719737:6 name local

19819837:12 glyph (

199−37:13 tight name wrap

200−37:18 name x

201−37:19 tight glyph )

199+37:13 tight name wrap-value

200+37:24 name x

201+37:25 tight glyph )

20220238:3 NEWLINE

20320338:3 glyph ~&

20420438:6 glyph ^-

tests/golden/types-partial-locals/tree.txt+5−5

@@ -88,17 +88,17 @@

8888 (body 33:3

8989 (mold 33:3 item (aura 33:11 @t))

9090 (wing 34:3 x))))

91− (value 35:1 wrap

92− (gate 35:9

93− (bind 35:12 y)

94− (gate-wide 35:14 (bind 35:17 z) (wing 35:19 y))))

91+ (value 35:1 wrap-value

92+ (gate 35:15

93+ (bind 35:18 y)

94+ (gate-wide 35:20 (bind 35:23 z) (wing 35:25 y))))

9595 (value 36:1 through-global

9696 (gate 36:19

9797 (bind 36:22 x)

9898 (body 37:3

9999 (value 37:3 local

100100 (group 37:12

101− (call 37:13 (wing 37:13 wrap) (wing 37:18 x))))

101+ (call 37:13 (wing 37:13 wrap-value) (wing 37:24 x))))

102102 (trace 38:3

103103 (cast 38:6

104104 (aura 38:9 @t)

tests/golden/types-partial-locals/types.txt+1−1

@@ -21,7 +21,7 @@ partial inference; module not checked

2121 ^

2222++ unused-bad: local definitions need unsupported inference

2323++ local-mold: $-(A A)

24−++ wrap: $-(A $-(B A))

24+++ wrap-value: $-(A $-(B A))

2525++ through-global: cast mold and expression type do not unify

2626/tests/golden/types-partial-locals/source.jibb:39:8: cast mold has type @p

2727 ^- @p (local "hi")

tests/golden/types-partial-union-nested-nouns/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/grammar.md, Molds, Unions: "Cases must differ as nouns"; "a cell with an empty position at any depth is itself empty".

2+tests: Nested zero literals compare by noun across spelling, while distinct nested constants are disjoint. An empty field below an unknown gate makes the whole cell empty; without that field, gate inhabitation is unknown. A fully inhabited cell overlaps the noun mold. This reports pairwise partial mold analysis, not checked molds.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-partial-union-nested-nouns/source.jibbnew file+18

@@ -0,0 +1,18 @@

1++$ nested-zero

2+ [%tag [%$ @t]]

3+ [%tag [~ @t]]

4++$ nested-flag-zero

5+ [%tag [%.y @t]]

6+ [%tag [%$ @t]]

7++$ nested-distinct

8+ [%tag [%a @t]]

9+ [%tag [%b @t]]

10++$ empty-beneath-unknown

11+ *

12+ [%tag [$-(@t @t) !!]]

13++$ unknown-inhabitation

14+ *

15+ [%tag [$-(@t @t) @t]]

16++$ known-inhabitation

17+ *

18+ [%tag [@t @p]]

tests/golden/types-partial-union-nested-nouns/tokens.txtnew file+108

@@ -0,0 +1,108 @@

1+1:1 glyph +$

2+1:4 name nested-zero

3+2:3 INDENT

4+2:3 glyph [

5+2:4 tight lit %tag

6+2:9 glyph [

7+2:10 tight lit %$

8+2:13 aura @t

9+2:15 tight glyph ]

10+2:16 tight glyph ]

11+3:3 NEWLINE

12+3:3 glyph [

13+3:4 tight lit %tag

14+3:9 glyph [

15+3:10 tight lit ~

16+3:12 aura @t

17+3:14 tight glyph ]

18+3:15 tight glyph ]

19+4:1 DEDENT

20+4:1 NEWLINE

21+4:1 glyph +$

22+4:4 name nested-flag-zero

23+5:3 INDENT

24+5:3 glyph [

25+5:4 tight lit %tag

26+5:9 glyph [

27+5:10 tight lit %.y

28+5:14 aura @t

29+5:16 tight glyph ]

30+5:17 tight glyph ]

31+6:3 NEWLINE

32+6:3 glyph [

33+6:4 tight lit %tag

34+6:9 glyph [

35+6:10 tight lit %$

36+6:13 aura @t

37+6:15 tight glyph ]

38+6:16 tight glyph ]

39+7:1 DEDENT

40+7:1 NEWLINE

41+7:1 glyph +$

42+7:4 name nested-distinct

43+8:3 INDENT

44+8:3 glyph [

45+8:4 tight lit %tag

46+8:9 glyph [

47+8:10 tight lit %a

48+8:13 aura @t

49+8:15 tight glyph ]

50+8:16 tight glyph ]

51+9:3 NEWLINE

52+9:3 glyph [

53+9:4 tight lit %tag

54+9:9 glyph [

55+9:10 tight lit %b

56+9:13 aura @t

57+9:15 tight glyph ]

58+9:16 tight glyph ]

59+10:1 DEDENT

60+10:1 NEWLINE

61+10:1 glyph +$

62+10:4 name empty-beneath-unknown

63+11:3 INDENT

64+11:3 glyph *

65+12:3 NEWLINE

66+12:3 glyph [

67+12:4 tight lit %tag

68+12:9 glyph [

69+12:10 tight glyph $-(

70+12:13 tight aura @t

71+12:16 aura @t

72+12:18 tight glyph )

73+12:20 glyph !!

74+12:22 tight glyph ]

75+12:23 tight glyph ]

76+13:1 DEDENT

77+13:1 NEWLINE

78+13:1 glyph +$

79+13:4 name unknown-inhabitation

80+14:3 INDENT

81+14:3 glyph *

82+15:3 NEWLINE

83+15:3 glyph [

84+15:4 tight lit %tag

85+15:9 glyph [

86+15:10 tight glyph $-(

87+15:13 tight aura @t

88+15:16 aura @t

89+15:18 tight glyph )

90+15:20 aura @t

91+15:22 tight glyph ]

92+15:23 tight glyph ]

93+16:1 DEDENT

94+16:1 NEWLINE

95+16:1 glyph +$

96+16:4 name known-inhabitation

97+17:3 INDENT

98+17:3 glyph *

99+18:3 NEWLINE

100+18:3 glyph [

101+18:4 tight lit %tag

102+18:9 glyph [

103+18:10 tight aura @t

104+18:13 aura @p

105+18:15 tight glyph ]

106+18:16 tight glyph ]

107+18:17 DEDENT

108+18:17 NEWLINE

tests/golden/types-partial-union-nested-nouns/tree.txtnew file+47

@@ -0,0 +1,47 @@

1+(module

2+ (mold 1:1 nested-zero

3+ (union 2:3

4+ (cell 2:3

5+ (const 2:4 %tag)

6+ (cell 2:9 (const 2:10 %$) (aura 2:13 @t)))

7+ (cell 3:3

8+ (const 3:4 %tag)

9+ (cell 3:9 (const 3:10 ~) (aura 3:12 @t)))))

10+ (mold 4:1 nested-flag-zero

11+ (union 5:3

12+ (cell 5:3

13+ (const 5:4 %tag)

14+ (cell 5:9 (const 5:10 %.y) (aura 5:14 @t)))

15+ (cell 6:3

16+ (const 6:4 %tag)

17+ (cell 6:9 (const 6:10 %$) (aura 6:13 @t)))))

18+ (mold 7:1 nested-distinct

19+ (union 8:3

20+ (cell 8:3

21+ (const 8:4 %tag)

22+ (cell 8:9 (const 8:10 %a) (aura 8:13 @t)))

23+ (cell 9:3

24+ (const 9:4 %tag)

25+ (cell 9:9 (const 9:10 %b) (aura 9:13 @t)))))

26+ (mold 10:1 empty-beneath-unknown

27+ (union 11:3

28+ (noun 11:3)

29+ (cell 12:3

30+ (const 12:4 %tag)

31+ (cell 12:9

32+ (fn 12:10 (aura 12:13 @t) (aura 12:16 @t))

33+ (void 12:20)))))

34+ (mold 13:1 unknown-inhabitation

35+ (union 14:3

36+ (noun 14:3)

37+ (cell 15:3

38+ (const 15:4 %tag)

39+ (cell 15:9

40+ (fn 15:10 (aura 15:13 @t) (aura 15:16 @t))

41+ (aura 15:20 @t)))))

42+ (mold 16:1 known-inhabitation

43+ (union 17:3

44+ (noun 17:3)

45+ (cell 18:3

46+ (const 18:4 %tag)

47+ (cell 18:9 (aura 18:10 @t) (aura 18:13 @p))))))

tests/golden/types-partial-union-nested-nouns/types.txtnew file+25

@@ -0,0 +1,25 @@

1+partial inference; module not checked

2++$ nested-zero: overlapping cases; mold not checked

3+/tests/golden/types-partial-union-nested-nouns/source.jibb:2:3: first union case

4+ [%tag [%$ @t]]

5+ ^

6+/tests/golden/types-partial-union-nested-nouns/source.jibb:3:3: overlapping case

7+ [%tag [~ @t]]

8+ ^

9++$ nested-flag-zero: overlapping cases; mold not checked

10+/tests/golden/types-partial-union-nested-nouns/source.jibb:5:3: first union case

11+ [%tag [%.y @t]]

12+ ^

13+/tests/golden/types-partial-union-nested-nouns/source.jibb:6:3: overlapping case

14+ [%tag [%$ @t]]

15+ ^

16++$ nested-distinct: cases proven disjoint; mold not checked

17++$ empty-beneath-unknown: cases proven disjoint; mold not checked

18++$ unknown-inhabitation: case disjointness unresolved; mold not checked

19++$ known-inhabitation: overlapping cases; mold not checked

20+/tests/golden/types-partial-union-nested-nouns/source.jibb:17:3: first union case

21+ *

22+ ^

23+/tests/golden/types-partial-union-nested-nouns/source.jibb:18:3: overlapping case

24+ [%tag [@t @p]]

25+ ^

tests/golden/types-prelude-arithmetic/about.txt+1−1

@@ -1,4 +1,4 @@

11source: docs/spec/grammar.md, Molds, Atoms: "Arithmetic rejects loobean operands: `?` contains only 0 and 1, while an arithmetic result need not."

2−tests: The source-backed add, dec and gth wrappers preserve numeric auras, constrained generic types, and independent comparison behavior. Loobean operands are rejected by add and dec; lent remains unavailable. Primitive lowering, jet recognition and execution remain unfinished. The module report is partial.

2+tests: The source-backed add, dec and gth wrappers preserve numeric auras, constrained generic types, and independent comparison behavior. Loobean operands are rejected by add and dec; the source-backed lent infers list lengths. Primitive lowering, jet recognition and execution remain unfinished. The module report is partial.

33expect: parses

44expect-types: a partial inference report

tests/golden/types-prelude-arithmetic/source.jibb+1−1

@@ -15,7 +15,7 @@

1515++ add-hex (add 0x1 0x2)

1616++ reject-bool-dec (dec %.n)

1717++ dec-hex (dec 0x2)

18−++ unavailable-length (lent ~["a"])

18+++ list-length (lent ~["a"])

1919++ captured |= x=? (add x x)

2020++ captured-local |= x=?

2121 ++ local |= y=? (add x y)

tests/golden/types-prelude-arithmetic/tokens.txt+7−7

@@ -142,13 +142,13 @@

14214217:20 tight glyph )

14314318:1 NEWLINE

14414418:1 glyph ++

145−18:4 name unavailable-length

146−18:23 glyph (

147−18:24 tight name lent

148−18:29 glyph ~[

149−18:31 tight str "a"

150−18:34 tight glyph ]

151−18:35 tight glyph )

145+18:4 name list-length

146+18:16 glyph (

147+18:17 tight name lent

148+18:22 glyph ~[

149+18:24 tight str "a"

150+18:27 tight glyph ]

151+18:28 tight glyph )

15215219:1 NEWLINE

15315319:1 glyph ++

15415419:4 name captured

tests/golden/types-prelude-arithmetic/tree.txt+5−5

@@ -57,11 +57,11 @@

5757 (value 17:1 dec-hex

5858 (group 17:12

5959 (call 17:13 (wing 17:13 dec) (lit 17:17 0x2))))

60− (value 18:1 unavailable-length

61− (group 18:23

62− (call 18:24

63− (wing 18:24 lent)

64− (list 18:29 (str 18:31 "a")))))

60+ (value 18:1 list-length

61+ (group 18:16

62+ (call 18:17

63+ (wing 18:17 lent)

64+ (list 18:22 (str 18:24 "a")))))

6565 (value 19:1 captured

6666 (gate 19:13

6767 (face 19:16 x (flag 19:18))

tests/golden/types-prelude-arithmetic/types.txt+1−1

@@ -38,7 +38,7 @@ partial inference; module not checked

3838++ reject-bool-dec (dec %.n)

3939 ^

4040++ dec-hex: @ux

41−++ unavailable-length: name is not available to partial inference

41+++ list-length: @ud

4242++ captured: call's sample and argument types do not unify

4343/tests/golden/types-prelude-arithmetic/source.jibb:19:21: called gate has type $-([A A] A) where A is an atom other than ?

4444++ captured |= x=? (add x x)

tests/golden/types-prelude-bond/source.jibb+1−1

@@ -1,6 +1,6 @@

11++ choose (bond |=(~ "default"))

22++ missing (choose ~)

33++ present (choose `"found")

4−++ wrap |= fallback=$-(~ A) (bond fallback)

4+++ wrap-value |= fallback=$-(~ A) (bond fallback)

55++ choose-ship (bond |=(~ ~zod))

66++ present-ship (choose-ship `~zod)

tests/golden/types-prelude-bond/tokens.txt+12−12

@@ -24,18 +24,18 @@

24243:28 tight glyph )

25254:1 NEWLINE

26264:1 glyph ++

27−4:4 name wrap

28−4:9 glyph |=

29−4:12 name fallback

30−4:20 tight glyph =

31−4:21 tight glyph $-(

32−4:24 tight lit ~

33−4:26 tvar A

34−4:27 tight glyph )

35−4:29 glyph (

36−4:30 tight name bond

37−4:35 name fallback

38−4:43 tight glyph )

27+4:4 name wrap-value

28+4:15 glyph |=

29+4:18 name fallback

30+4:26 tight glyph =

31+4:27 tight glyph $-(

32+4:30 tight lit ~

33+4:32 tvar A

34+4:33 tight glyph )

35+4:35 glyph (

36+4:36 tight name bond

37+4:41 name fallback

38+4:49 tight glyph )

39395:1 NEWLINE

40405:1 glyph ++

41415:4 name choose-ship

tests/golden/types-prelude-bond/tree.txt+6−6

@@ -12,12 +12,12 @@

1212 (call 3:13

1313 (wing 3:13 choose)

1414 (unit 3:20 (str 3:21 "found")))))

15− (value 4:1 wrap

16− (gate 4:9

17− (face 4:12 fallback

18− (fn 4:21 (const 4:24 ~) (tvar 4:26 A)))

19− (group 4:29

20− (call 4:30 (wing 4:30 bond) (wing 4:35 fallback)))))

15+ (value 4:1 wrap-value

16+ (gate 4:15

17+ (face 4:18 fallback

18+ (fn 4:27 (const 4:30 ~) (tvar 4:32 A)))

19+ (group 4:35

20+ (call 4:36 (wing 4:36 bond) (wing 4:41 fallback)))))

2121 (value 5:1 choose-ship

2222 (group 5:16

2323 (call 5:17

tests/golden/types-prelude-bond/types.txt+1−1

@@ -2,6 +2,6 @@ partial inference; module not checked

22++ choose: $-((unit @t) @t)

33++ missing: @t

44++ present: @t

5−++ wrap: $-($-(~ A) $-((unit A) A))

5+++ wrap-value: $-($-(~ A) $-((unit A) A))

66++ choose-ship: $-((unit @p) @p)

77++ present-ship: @p

tests/golden/types-prelude-cmd/about.txt+1−1

@@ -1,4 +1,4 @@

11source: Overview, Effects: `cmd` is a generic union with `%poke`, `%go`, `%wait`, `%now` and `%who` cases; a poke carries a reply over `(unit @t)`.

2−tests: The doc-exact source-backed prelude mold and its five cases infer, retain independently instantiated message types, and work in list context. Incorrect URL, message, callback result and list item types report mismatches; an unsupported callback sample or cross-instantiation fails closed. The full module remains unchecked.

2+tests: The doc-exact source-backed prelude mold and its five cases infer, retain independently instantiated message types, and work in list context. Incorrect URL, message, callback result, list item and cross-instantiation types report mismatches; an unsupported callback sample fails closed. The full module remains unchecked.

33expect: parses

44expect-types: a partial inference report

tests/golden/types-prelude-cmd/source.jibb+4−4

@@ -8,9 +8,9 @@

88++ wait ^- (cmd @t) [%wait ~s30 "done"]

99++ who ^- (cmd @t) [%who |=(p=@p "done")]

1010++ wrong-message ^- (cmd @t) [%wait ~s30 ~zod]

11−++ wrap |= x=A ^- (cmd A) [%wait ~s30 x]

12−++ wrap-text (wrap "hello")

13−++ wrap-ship (wrap ~zod)

11+++ wrap-value |= x=A ^- (cmd A) [%wait ~s30 x]

12+++ wrap-value-text (wrap-value "hello")

13+++ wrap-value-ship (wrap-value ~zod)

1414++ wrong-reply ^- (cmd @t) [%who |=(p=@p ~zod)]

1515++ commands ^- (list (cmd @t)) ~[[%go "/home"] [%wait ~s30 "done"]]

1616++ commands-bad ^- (list (cmd @t)) ~[[%go "/home"] [%wait ~s30 ~zod]]

@@ -18,4 +18,4 @@

1818 ^- (cmd @t) [%poke p |=(r=@p "done")]

1919++ wrong-case ^- (cmd @t) %oops

2020++ use-text |= x=(cmd @t) x

21−++ cross (use-text (wrap ~zod))

21+++ cross (use-text (wrap-value ~zod))

tests/golden/types-prelude-cmd/tokens.txt+30−30

@@ -138,35 +138,35 @@

13813810:46 tight glyph ]

13913911:1 NEWLINE

14014011:1 glyph ++

141−11:4 name wrap

142−11:9 glyph |=

143−11:12 name x

144−11:13 tight glyph =

145−11:14 tight tvar A

146−11:16 glyph ^-

147−11:19 glyph (

148−11:20 tight name cmd

149−11:24 tvar A

150−11:25 tight glyph )

151−11:27 glyph [

152−11:28 tight lit %wait

153−11:34 lit ~s30

154−11:39 name x

155−11:40 tight glyph ]

141+11:4 name wrap-value

142+11:15 glyph |=

143+11:18 name x

144+11:19 tight glyph =

145+11:20 tight tvar A

146+11:22 glyph ^-

147+11:25 glyph (

148+11:26 tight name cmd

149+11:30 tvar A

150+11:31 tight glyph )

151+11:33 glyph [

152+11:34 tight lit %wait

153+11:40 lit ~s30

154+11:45 name x

155+11:46 tight glyph ]

15615612:1 NEWLINE

15715712:1 glyph ++

158−12:4 name wrap-text

159−12:14 glyph (

160−12:15 tight name wrap

161−12:20 str "hello"

162−12:27 tight glyph )

158+12:4 name wrap-value-text

159+12:20 glyph (

160+12:21 tight name wrap-value

161+12:32 str "hello"

162+12:39 tight glyph )

16316313:1 NEWLINE

16416413:1 glyph ++

165−13:4 name wrap-ship

166−13:14 glyph (

167−13:15 tight name wrap

168−13:20 lit ~zod

169−13:24 tight glyph )

165+13:4 name wrap-value-ship

166+13:20 glyph (

167+13:21 tight name wrap-value

168+13:32 lit ~zod

169+13:36 tight glyph )

17017014:1 NEWLINE

17117114:1 glyph ++

17217214:4 name wrong-reply

@@ -278,8 +278,8 @@

27827821:10 glyph (

27927921:11 tight name use-text

28028021:20 glyph (

281−21:21 tight name wrap

282−21:26 lit ~zod

283−21:30 tight glyph )

284−21:31 tight glyph )

285−21:32 NEWLINE

281+21:21 tight name wrap-value

282+21:32 lit ~zod

283+21:36 tight glyph )

284+21:37 tight glyph )

285+21:38 NEWLINE

tests/golden/types-prelude-cmd/tree.txt+13−13

@@ -59,18 +59,18 @@

5959 (cast 10:18

6060 (apply 10:21 cmd (aura 10:26 @t))

6161 (tuple 10:30 (lit 10:31 %wait) (lit 10:37 ~s30) (lit 10:42 ~zod))))

62− (value 11:1 wrap

63− (gate 11:9

64− (face 11:12 x (tvar 11:14 A))

65− (cast 11:16

66− (apply 11:19 cmd (tvar 11:24 A))

67− (tuple 11:27 (lit 11:28 %wait) (lit 11:34 ~s30) (wing 11:39 x)))))

68− (value 12:1 wrap-text

69− (group 12:14

70− (call 12:15 (wing 12:15 wrap) (str 12:20 "hello"))))

71− (value 13:1 wrap-ship

72− (group 13:14

73− (call 13:15 (wing 13:15 wrap) (lit 13:20 ~zod))))

62+ (value 11:1 wrap-value

63+ (gate 11:15

64+ (face 11:18 x (tvar 11:20 A))

65+ (cast 11:22

66+ (apply 11:25 cmd (tvar 11:30 A))

67+ (tuple 11:33 (lit 11:34 %wait) (lit 11:40 ~s30) (wing 11:45 x)))))

68+ (value 12:1 wrap-value-text

69+ (group 12:20

70+ (call 12:21 (wing 12:21 wrap-value) (str 12:32 "hello"))))

71+ (value 13:1 wrap-value-ship

72+ (group 13:20

73+ (call 13:21 (wing 13:21 wrap-value) (lit 13:32 ~zod))))

7474 (value 14:1 wrong-reply

7575 (cast 14:16

7676 (apply 14:19 cmd (aura 14:24 @t))

@@ -119,4 +119,4 @@

119119 (call 21:11

120120 (wing 21:11 use-text)

121121 (group 21:20

122− (call 21:21 (wing 21:21 wrap) (lit 21:26 ~zod)))))))

122+ (call 21:21 (wing 21:21 wrap-value) (lit 21:32 ~zod)))))))

tests/golden/types-prelude-cmd/types.txt+10−4

@@ -20,9 +20,9 @@ partial inference; module not checked

2020/tests/golden/types-prelude-cmd/source.jibb:10:30: expression

2121++ wrong-message ^- (cmd @t) [%wait ~s30 ~zod]

2222 ^

23−++ wrap: $-(A (cmd A))

24−++ wrap-text: (cmd @t)

25−++ wrap-ship: (cmd @p)

23+++ wrap-value: $-(A (cmd A))

24+++ wrap-value-text: (cmd @t)

25+++ wrap-value-ship: (cmd @p)

2626++ wrong-reply: cast mold and expression type do not unify

2727/tests/golden/types-prelude-cmd/source.jibb:14:19: cast mold

2828++ wrong-reply ^- (cmd @t) [%who |=(p=@p ~zod)]

@@ -47,4 +47,10 @@ partial inference; module not checked

4747++ wrong-case ^- (cmd @t) %oops

4848 ^

4949++ use-text: $-((cmd @t) (cmd @t))

50−++ cross: call constraint is not supported by partial inference

50+++ cross: call's sample and argument types do not unify

51+/tests/golden/types-prelude-cmd/source.jibb:21:21: called gate

52+++ cross (use-text (wrap-value ~zod))

53+ ^

54+/tests/golden/types-prelude-cmd/source.jibb:21:32: argument has type @p

55+++ cross (use-text (wrap-value ~zod))

56+ ^

tests/golden/types-prelude-comparison/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/grammar.md, Molds, Atoms: "Comparison may take loobeans and returns `?`." The prelude inventory includes `lth`, `gte`, and `lte`.

2+tests: Source-backed comparisons infer for less, greater and equal ordered operands, both loobean orders, a shared generic atom type and matching hex auras. Distinct explicit auras fail closed. The report is partial; backend lowering, execution and jet recognition remain unverified.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-prelude-comparison/modules.txtnew file+1

@@ -0,0 +1 @@

1+# no module fixtures

tests/golden/types-prelude-comparison/source.jibbnew file+18

@@ -0,0 +1,18 @@

1+++ less (lth 1 2)

2+++ greater (lth 2 1)

3+++ equal (lth 1 1)

4+++ gte-less (gte 1 2)

5+++ gte-greater (gte 2 1)

6+++ gte-equal (gte 1 1)

7+++ lte-less (lte 1 2)

8+++ lte-greater (lte 2 1)

9+++ lte-equal (lte 1 1)

10+++ flags-forward (gte %.y %.n)

11+++ flags-reverse (lte %.n %.y)

12+++ flags-equal (lth %.y %.y)

13+++ hex (lth 0x1 0x2)

14+++ generic-lth |= [a=A b=A] (lth a b)

15+++ generic-gte |= [a=A b=A] (gte a b)

16+++ generic-lte |= [a=A b=A] (lte a b)

17+++ bad-aura (lth 0x1 (^- @ud 1))

18+++ bad-kind (gte ~zod "text")

tests/golden/types-prelude-comparison/tokens.txtnew file+175

@@ -0,0 +1,175 @@

1+1:1 glyph ++

2+1:4 name less

3+1:9 glyph (

4+1:10 tight name lth

5+1:14 lit 1

6+1:16 lit 2

7+1:17 tight glyph )

8+2:1 NEWLINE

9+2:1 glyph ++

10+2:4 name greater

11+2:12 glyph (

12+2:13 tight name lth

13+2:17 lit 2

14+2:19 lit 1

15+2:20 tight glyph )

16+3:1 NEWLINE

17+3:1 glyph ++

18+3:4 name equal

19+3:10 glyph (

20+3:11 tight name lth

21+3:15 lit 1

22+3:17 lit 1

23+3:18 tight glyph )

24+4:1 NEWLINE

25+4:1 glyph ++

26+4:4 name gte-less

27+4:13 glyph (

28+4:14 tight name gte

29+4:18 lit 1

30+4:20 lit 2

31+4:21 tight glyph )

32+5:1 NEWLINE

33+5:1 glyph ++

34+5:4 name gte-greater

35+5:16 glyph (

36+5:17 tight name gte

37+5:21 lit 2

38+5:23 lit 1

39+5:24 tight glyph )

40+6:1 NEWLINE

41+6:1 glyph ++

42+6:4 name gte-equal

43+6:14 glyph (

44+6:15 tight name gte

45+6:19 lit 1

46+6:21 lit 1

47+6:22 tight glyph )

48+7:1 NEWLINE

49+7:1 glyph ++

50+7:4 name lte-less

51+7:13 glyph (

52+7:14 tight name lte

53+7:18 lit 1

54+7:20 lit 2

55+7:21 tight glyph )

56+8:1 NEWLINE

57+8:1 glyph ++

58+8:4 name lte-greater

59+8:16 glyph (

60+8:17 tight name lte

61+8:21 lit 2

62+8:23 lit 1

63+8:24 tight glyph )

64+9:1 NEWLINE

65+9:1 glyph ++

66+9:4 name lte-equal

67+9:14 glyph (

68+9:15 tight name lte

69+9:19 lit 1

70+9:21 lit 1

71+9:22 tight glyph )

72+10:1 NEWLINE

73+10:1 glyph ++

74+10:4 name flags-forward

75+10:18 glyph (

76+10:19 tight name gte

77+10:23 lit %.y

78+10:27 lit %.n

79+10:30 tight glyph )

80+11:1 NEWLINE

81+11:1 glyph ++

82+11:4 name flags-reverse

83+11:18 glyph (

84+11:19 tight name lte

85+11:23 lit %.n

86+11:27 lit %.y

87+11:30 tight glyph )

88+12:1 NEWLINE

89+12:1 glyph ++

90+12:4 name flags-equal

91+12:16 glyph (

92+12:17 tight name lth

93+12:21 lit %.y

94+12:25 lit %.y

95+12:28 tight glyph )

96+13:1 NEWLINE

97+13:1 glyph ++

98+13:4 name hex

99+13:8 glyph (

100+13:9 tight name lth

101+13:13 lit 0x1

102+13:17 lit 0x2

103+13:20 tight glyph )

104+14:1 NEWLINE

105+14:1 glyph ++

106+14:4 name generic-lth

107+14:16 glyph |=

108+14:19 glyph [

109+14:20 tight name a

110+14:21 tight glyph =

111+14:22 tight tvar A

112+14:24 name b

113+14:25 tight glyph =

114+14:26 tight tvar A

115+14:27 tight glyph ]

116+14:29 glyph (

117+14:30 tight name lth

118+14:34 name a

119+14:36 name b

120+14:37 tight glyph )

121+15:1 NEWLINE

122+15:1 glyph ++

123+15:4 name generic-gte

124+15:16 glyph |=

125+15:19 glyph [

126+15:20 tight name a

127+15:21 tight glyph =

128+15:22 tight tvar A

129+15:24 name b

130+15:25 tight glyph =

131+15:26 tight tvar A

132+15:27 tight glyph ]

133+15:29 glyph (

134+15:30 tight name gte

135+15:34 name a

136+15:36 name b

137+15:37 tight glyph )

138+16:1 NEWLINE

139+16:1 glyph ++

140+16:4 name generic-lte

141+16:16 glyph |=

142+16:19 glyph [

143+16:20 tight name a

144+16:21 tight glyph =

145+16:22 tight tvar A

146+16:24 name b

147+16:25 tight glyph =

148+16:26 tight tvar A

149+16:27 tight glyph ]

150+16:29 glyph (

151+16:30 tight name lte

152+16:34 name a

153+16:36 name b

154+16:37 tight glyph )

155+17:1 NEWLINE

156+17:1 glyph ++

157+17:4 name bad-aura

158+17:13 glyph (

159+17:14 tight name lth

160+17:18 lit 0x1

161+17:22 glyph (

162+17:23 tight glyph ^-

163+17:26 aura @ud

164+17:30 lit 1

165+17:31 tight glyph )

166+17:32 tight glyph )

167+18:1 NEWLINE

168+18:1 glyph ++

169+18:4 name bad-kind

170+18:13 glyph (

171+18:14 tight name gte

172+18:18 lit ~zod

173+18:23 str "text"

174+18:29 tight glyph )

175+18:30 NEWLINE

tests/golden/types-prelude-comparison/tree.txtnew file+71

@@ -0,0 +1,71 @@

1+(module

2+ (value 1:1 less

3+ (group 1:9

4+ (call 1:10 (wing 1:10 lth) (lit 1:14 1) (lit 1:16 2))))

5+ (value 2:1 greater

6+ (group 2:12

7+ (call 2:13 (wing 2:13 lth) (lit 2:17 2) (lit 2:19 1))))

8+ (value 3:1 equal

9+ (group 3:10

10+ (call 3:11 (wing 3:11 lth) (lit 3:15 1) (lit 3:17 1))))

11+ (value 4:1 gte-less

12+ (group 4:13

13+ (call 4:14 (wing 4:14 gte) (lit 4:18 1) (lit 4:20 2))))

14+ (value 5:1 gte-greater

15+ (group 5:16

16+ (call 5:17 (wing 5:17 gte) (lit 5:21 2) (lit 5:23 1))))

17+ (value 6:1 gte-equal

18+ (group 6:14

19+ (call 6:15 (wing 6:15 gte) (lit 6:19 1) (lit 6:21 1))))

20+ (value 7:1 lte-less

21+ (group 7:13

22+ (call 7:14 (wing 7:14 lte) (lit 7:18 1) (lit 7:20 2))))

23+ (value 8:1 lte-greater

24+ (group 8:16

25+ (call 8:17 (wing 8:17 lte) (lit 8:21 2) (lit 8:23 1))))

26+ (value 9:1 lte-equal

27+ (group 9:14

28+ (call 9:15 (wing 9:15 lte) (lit 9:19 1) (lit 9:21 1))))

29+ (value 10:1 flags-forward

30+ (group 10:18

31+ (call 10:19 (wing 10:19 gte) (lit 10:23 %.y) (lit 10:27 %.n))))

32+ (value 11:1 flags-reverse

33+ (group 11:18

34+ (call 11:19 (wing 11:19 lte) (lit 11:23 %.n) (lit 11:27 %.y))))

35+ (value 12:1 flags-equal

36+ (group 12:16

37+ (call 12:17 (wing 12:17 lth) (lit 12:21 %.y) (lit 12:25 %.y))))

38+ (value 13:1 hex

39+ (group 13:8

40+ (call 13:9 (wing 13:9 lth) (lit 13:13 0x1) (lit 13:17 0x2))))

41+ (value 14:1 generic-lth

42+ (gate 14:16

43+ (cell 14:19

44+ (face 14:20 a (tvar 14:22 A))

45+ (face 14:24 b (tvar 14:26 A)))

46+ (group 14:29

47+ (call 14:30 (wing 14:30 lth) (wing 14:34 a) (wing 14:36 b)))))

48+ (value 15:1 generic-gte

49+ (gate 15:16

50+ (cell 15:19

51+ (face 15:20 a (tvar 15:22 A))

52+ (face 15:24 b (tvar 15:26 A)))

53+ (group 15:29

54+ (call 15:30 (wing 15:30 gte) (wing 15:34 a) (wing 15:36 b)))))

55+ (value 16:1 generic-lte

56+ (gate 16:16

57+ (cell 16:19

58+ (face 16:20 a (tvar 16:22 A))

59+ (face 16:24 b (tvar 16:26 A)))

60+ (group 16:29

61+ (call 16:30 (wing 16:30 lte) (wing 16:34 a) (wing 16:36 b)))))

62+ (value 17:1 bad-aura

63+ (group 17:13

64+ (call 17:14

65+ (wing 17:14 lth)

66+ (lit 17:18 0x1)

67+ (group 17:22

68+ (cast 17:23 (aura 17:26 @ud) (lit 17:30 1))))))

69+ (value 18:1 bad-kind

70+ (group 18:13

71+ (call 18:14 (wing 18:14 gte) (lit 18:18 ~zod) (str 18:23 "text")))))

tests/golden/types-prelude-comparison/types.txtnew file+31

@@ -0,0 +1,31 @@

1+partial inference; module not checked

2+++ less: ?

3+++ greater: ?

4+++ equal: ?

5+++ gte-less: ?

6+++ gte-greater: ?

7+++ gte-equal: ?

8+++ lte-less: ?

9+++ lte-greater: ?

10+++ lte-equal: ?

11+++ flags-forward: ?

12+++ flags-reverse: ?

13+++ flags-equal: ?

14+++ hex: ?

15+++ generic-lth: $-([a=A b=A] ?) where A is an atom

16+++ generic-gte: $-([a=A b=A] ?) where A is an atom

17+++ generic-lte: $-([a=A b=A] ?) where A is an atom

18+++ bad-aura: call's sample and argument types do not unify

19+/tests/golden/types-prelude-comparison/source.jibb:17:14: called gate has type $-([A A] ?) where A is an atom

20+++ bad-aura (lth 0x1 (^- @ud 1))

21+ ^

22+/tests/golden/types-prelude-comparison/source.jibb:17:18: argument has type [@ux @ud]

23+++ bad-aura (lth 0x1 (^- @ud 1))

24+ ^

25+++ bad-kind: call's sample and argument types do not unify

26+/tests/golden/types-prelude-comparison/source.jibb:18:14: called gate has type $-([A A] ?) where A is an atom

27+++ bad-kind (gte ~zod "text")

28+ ^

29+/tests/golden/types-prelude-comparison/source.jibb:18:18: argument has type [@p @t]

30+++ bad-kind (gte ~zod "text")

31+ ^

tests/golden/types-prelude-lead-late/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/overview.md, Prelude: "Hoon's standard library regrouped, written in Jibb"; Function helpers include section 2n.

2+tests: Source-backed curried lead and late infer independent argument types, reverse output positions correctly, and preserve generic gates as ordinary values. Explicit context accepts a null unit; an uncontextualized null remains unsupported and an incompatible annotated result reports its sites. This is a partial inference report; Jibb lowering, execution and jet recognition remain unverified.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-prelude-lead-late/modules.txtnew file+1

@@ -0,0 +1 @@

1+# no module fixtures

tests/golden/types-prelude-lead-late/source.jibbnew file+10

@@ -0,0 +1,10 @@

1+++ text-ship ((lead "hi") ~zod)

2+++ ship-text ((late "hi") ~zod)

3+++ first-fn (lead "hi")

4+++ generic-lead |= [x=A y=B] ((lead x) y)

5+++ generic-late |= [x=A y=B] ((late x) y)

6+++ generic-gate |= [f=$-(A B) x=C] ((lead f) x)

7+++ reversed-gate |= [f=$-(A B) x=C] ((late f) x)

8+++ null-lead ((lead (^- (unit @t) ~)) "tail")

9+++ unresolved ((lead ~) "tail")

10+++ bad ^- [@p @t] ((lead "hi") ~zod)

tests/golden/types-prelude-lead-late/tokens.txtnew file+151

@@ -0,0 +1,151 @@

1+1:1 glyph ++

2+1:4 name text-ship

3+1:14 glyph (

4+1:15 tight glyph (

5+1:16 tight name lead

6+1:21 str "hi"

7+1:25 tight glyph )

8+1:27 lit ~zod

9+1:31 tight glyph )

10+2:1 NEWLINE

11+2:1 glyph ++

12+2:4 name ship-text

13+2:14 glyph (

14+2:15 tight glyph (

15+2:16 tight name late

16+2:21 str "hi"

17+2:25 tight glyph )

18+2:27 lit ~zod

19+2:31 tight glyph )

20+3:1 NEWLINE

21+3:1 glyph ++

22+3:4 name first-fn

23+3:13 glyph (

24+3:14 tight name lead

25+3:19 str "hi"

26+3:23 tight glyph )

27+4:1 NEWLINE

28+4:1 glyph ++

29+4:4 name generic-lead

30+4:17 glyph |=

31+4:20 glyph [

32+4:21 tight name x

33+4:22 tight glyph =

34+4:23 tight tvar A

35+4:25 name y

36+4:26 tight glyph =

37+4:27 tight tvar B

38+4:28 tight glyph ]

39+4:30 glyph (

40+4:31 tight glyph (

41+4:32 tight name lead

42+4:37 name x

43+4:38 tight glyph )

44+4:40 name y

45+4:41 tight glyph )

46+5:1 NEWLINE

47+5:1 glyph ++

48+5:4 name generic-late

49+5:17 glyph |=

50+5:20 glyph [

51+5:21 tight name x

52+5:22 tight glyph =

53+5:23 tight tvar A

54+5:25 name y

55+5:26 tight glyph =

56+5:27 tight tvar B

57+5:28 tight glyph ]

58+5:30 glyph (

59+5:31 tight glyph (

60+5:32 tight name late

61+5:37 name x

62+5:38 tight glyph )

63+5:40 name y

64+5:41 tight glyph )

65+6:1 NEWLINE

66+6:1 glyph ++

67+6:4 name generic-gate

68+6:17 glyph |=

69+6:20 glyph [

70+6:21 tight name f

71+6:22 tight glyph =

72+6:23 tight glyph $-(

73+6:26 tight tvar A

74+6:28 tvar B

75+6:29 tight glyph )

76+6:31 name x

77+6:32 tight glyph =

78+6:33 tight tvar C

79+6:34 tight glyph ]

80+6:36 glyph (

81+6:37 tight glyph (

82+6:38 tight name lead

83+6:43 name f

84+6:44 tight glyph )

85+6:46 name x

86+6:47 tight glyph )

87+7:1 NEWLINE

88+7:1 glyph ++

89+7:4 name reversed-gate

90+7:18 glyph |=

91+7:21 glyph [

92+7:22 tight name f

93+7:23 tight glyph =

94+7:24 tight glyph $-(

95+7:27 tight tvar A

96+7:29 tvar B

97+7:30 tight glyph )

98+7:32 name x

99+7:33 tight glyph =

100+7:34 tight tvar C

101+7:35 tight glyph ]

102+7:37 glyph (

103+7:38 tight glyph (

104+7:39 tight name late

105+7:44 name f

106+7:45 tight glyph )

107+7:47 name x

108+7:48 tight glyph )

109+8:1 NEWLINE

110+8:1 glyph ++

111+8:4 name null-lead

112+8:14 glyph (

113+8:15 tight glyph (

114+8:16 tight name lead

115+8:21 glyph (

116+8:22 tight glyph ^-

117+8:25 glyph (

118+8:26 tight name unit

119+8:31 aura @t

120+8:33 tight glyph )

121+8:35 lit ~

122+8:36 tight glyph )

123+8:37 tight glyph )

124+8:39 str "tail"

125+8:45 tight glyph )

126+9:1 NEWLINE

127+9:1 glyph ++

128+9:4 name unresolved

129+9:15 glyph (

130+9:16 tight glyph (

131+9:17 tight name lead

132+9:22 lit ~

133+9:23 tight glyph )

134+9:25 str "tail"

135+9:31 tight glyph )

136+10:1 NEWLINE

137+10:1 glyph ++

138+10:4 name bad

139+10:8 glyph ^-

140+10:11 glyph [

141+10:12 tight aura @p

142+10:15 aura @t

143+10:17 tight glyph ]

144+10:19 glyph (

145+10:20 tight glyph (

146+10:21 tight name lead

147+10:26 str "hi"

148+10:30 tight glyph )

149+10:32 lit ~zod

150+10:36 tight glyph )

151+10:37 NEWLINE

tests/golden/types-prelude-lead-late/tree.txtnew file+83

@@ -0,0 +1,83 @@

1+(module

2+ (value 1:1 text-ship

3+ (group 1:14

4+ (call 1:15

5+ (group 1:15

6+ (call 1:16 (wing 1:16 lead) (str 1:21 "hi")))

7+ (lit 1:27 ~zod))))

8+ (value 2:1 ship-text

9+ (group 2:14

10+ (call 2:15

11+ (group 2:15

12+ (call 2:16 (wing 2:16 late) (str 2:21 "hi")))

13+ (lit 2:27 ~zod))))

14+ (value 3:1 first-fn

15+ (group 3:13

16+ (call 3:14 (wing 3:14 lead) (str 3:19 "hi"))))

17+ (value 4:1 generic-lead

18+ (gate 4:17

19+ (cell 4:20

20+ (face 4:21 x (tvar 4:23 A))

21+ (face 4:25 y (tvar 4:27 B)))

22+ (group 4:30

23+ (call 4:31

24+ (group 4:31

25+ (call 4:32 (wing 4:32 lead) (wing 4:37 x)))

26+ (wing 4:40 y)))))

27+ (value 5:1 generic-late

28+ (gate 5:17

29+ (cell 5:20

30+ (face 5:21 x (tvar 5:23 A))

31+ (face 5:25 y (tvar 5:27 B)))

32+ (group 5:30

33+ (call 5:31

34+ (group 5:31

35+ (call 5:32 (wing 5:32 late) (wing 5:37 x)))

36+ (wing 5:40 y)))))

37+ (value 6:1 generic-gate

38+ (gate 6:17

39+ (cell 6:20

40+ (face 6:21 f

41+ (fn 6:23 (tvar 6:26 A) (tvar 6:28 B)))

42+ (face 6:31 x (tvar 6:33 C)))

43+ (group 6:36

44+ (call 6:37

45+ (group 6:37

46+ (call 6:38 (wing 6:38 lead) (wing 6:43 f)))

47+ (wing 6:46 x)))))

48+ (value 7:1 reversed-gate

49+ (gate 7:18

50+ (cell 7:21

51+ (face 7:22 f

52+ (fn 7:24 (tvar 7:27 A) (tvar 7:29 B)))

53+ (face 7:32 x (tvar 7:34 C)))

54+ (group 7:37

55+ (call 7:38

56+ (group 7:38

57+ (call 7:39 (wing 7:39 late) (wing 7:44 f)))

58+ (wing 7:47 x)))))

59+ (value 8:1 null-lead

60+ (group 8:14

61+ (call 8:15

62+ (group 8:15

63+ (call 8:16

64+ (wing 8:16 lead)

65+ (group 8:21

66+ (cast 8:22

67+ (apply 8:25 unit (aura 8:31 @t))

68+ (lit 8:35 ~)))))

69+ (str 8:39 "tail"))))

70+ (value 9:1 unresolved

71+ (group 9:15

72+ (call 9:16

73+ (group 9:16

74+ (call 9:17 (wing 9:17 lead) (lit 9:22 ~)))

75+ (str 9:25 "tail"))))

76+ (value 10:1 bad

77+ (cast 10:8

78+ (cell 10:11 (aura 10:12 @p) (aura 10:15 @t))

79+ (group 10:19

80+ (call 10:20

81+ (group 10:20

82+ (call 10:21 (wing 10:21 lead) (str 10:26 "hi")))

83+ (lit 10:32 ~zod))))))

tests/golden/types-prelude-lead-late/types.txtnew file+17

@@ -0,0 +1,17 @@

1+partial inference; module not checked

2+++ text-ship: [@t @p]

3+++ ship-text: [@p @t]

4+++ first-fn: $-(A [@t A])

5+++ generic-lead: $-([x=A y=B] [A B])

6+++ generic-late: $-([x=A y=B] [B A])

7+++ generic-gate: $-([f=$-(A B) x=C] [$-(A B) C])

8+++ reversed-gate: $-([f=$-(A B) x=C] [C $-(A B)])

9+++ null-lead: [(unit @t) @t]

10+++ unresolved: `~` needs context in partial inference

11+++ bad: cast mold and expression type do not unify

12+/tests/golden/types-prelude-lead-late/source.jibb:10:11: cast mold has type [@p @t]

13+++ bad ^- [@p @t] ((lead "hi") ~zod)

14+ ^

15+/tests/golden/types-prelude-lead-late/source.jibb:10:19: expression has type [@t @p]

16+++ bad ^- [@p @t] ((lead "hi") ~zod)

17+ ^

tests/golden/types-prelude-lent/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/overview.md, The prelude: "Lists | 2b | turn, weld, snag, lent, sort, skim"

2+tests: Source-backed lent checks empty and cons lists, values of different element types including gates, and an independently generic list argument; a non-list fails with both sites. The source implements length by recursion and addition. This checks partial inference only; lowering, execution and jet recognition remain unfinished.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-prelude-lent/modules.txtnew file+1

@@ -0,0 +1 @@

1+# no module fixtures

tests/golden/types-prelude-lent/source.jibbnew file+8

@@ -0,0 +1,8 @@

1+++ empty (lent ~)

2+++ singleton (lent ~["a"])

3+++ cons (lent ["a" ~])

4+++ numbers (lent ~[1 2])

5+++ ships (lent ~[~zod ~nec])

6+++ gate-list (lent ~[same])

7+++ generic |= xs=(list A) (lent xs)

8+++ bad (lent "not a list")

tests/golden/types-prelude-lent/tokens.txtnew file+76

@@ -0,0 +1,76 @@

1+1:1 glyph ++

2+1:4 name empty

3+1:10 glyph (

4+1:11 tight name lent

5+1:16 lit ~

6+1:17 tight glyph )

7+2:1 NEWLINE

8+2:1 glyph ++

9+2:4 name singleton

10+2:14 glyph (

11+2:15 tight name lent

12+2:20 glyph ~[

13+2:22 tight str "a"

14+2:25 tight glyph ]

15+2:26 tight glyph )

16+3:1 NEWLINE

17+3:1 glyph ++

18+3:4 name cons

19+3:9 glyph (

20+3:10 tight name lent

21+3:15 glyph [

22+3:16 tight str "a"

23+3:20 lit ~

24+3:21 tight glyph ]

25+3:22 tight glyph )

26+4:1 NEWLINE

27+4:1 glyph ++

28+4:4 name numbers

29+4:12 glyph (

30+4:13 tight name lent

31+4:18 glyph ~[

32+4:20 tight lit 1

33+4:22 lit 2

34+4:23 tight glyph ]

35+4:24 tight glyph )

36+5:1 NEWLINE

37+5:1 glyph ++

38+5:4 name ships

39+5:10 glyph (

40+5:11 tight name lent

41+5:16 glyph ~[

42+5:18 tight lit ~zod

43+5:23 lit ~nec

44+5:27 tight glyph ]

45+5:28 tight glyph )

46+6:1 NEWLINE

47+6:1 glyph ++

48+6:4 name gate-list

49+6:14 glyph (

50+6:15 tight name lent

51+6:20 glyph ~[

52+6:22 tight name same

53+6:26 tight glyph ]

54+6:27 tight glyph )

55+7:1 NEWLINE

56+7:1 glyph ++

57+7:4 name generic

58+7:12 glyph |=

59+7:15 name xs

60+7:17 tight glyph =

61+7:18 tight glyph (

62+7:19 tight name list

63+7:24 tvar A

64+7:25 tight glyph )

65+7:27 glyph (

66+7:28 tight name lent

67+7:33 name xs

68+7:35 tight glyph )

69+8:1 NEWLINE

70+8:1 glyph ++

71+8:4 name bad

72+8:8 glyph (

73+8:9 tight name lent

74+8:14 str "not a list"

75+8:26 tight glyph )

76+8:27 NEWLINE

tests/golden/types-prelude-lent/tree.txtnew file+38

@@ -0,0 +1,38 @@

1+(module

2+ (value 1:1 empty

3+ (group 1:10

4+ (call 1:11 (wing 1:11 lent) (lit 1:16 ~))))

5+ (value 2:1 singleton

6+ (group 2:14

7+ (call 2:15

8+ (wing 2:15 lent)

9+ (list 2:20 (str 2:22 "a")))))

10+ (value 3:1 cons

11+ (group 3:9

12+ (call 3:10

13+ (wing 3:10 lent)

14+ (tuple 3:15 (str 3:16 "a") (lit 3:20 ~)))))

15+ (value 4:1 numbers

16+ (group 4:12

17+ (call 4:13

18+ (wing 4:13 lent)

19+ (list 4:18 (lit 4:20 1) (lit 4:22 2)))))

20+ (value 5:1 ships

21+ (group 5:10

22+ (call 5:11

23+ (wing 5:11 lent)

24+ (list 5:16 (lit 5:18 ~zod) (lit 5:23 ~nec)))))

25+ (value 6:1 gate-list

26+ (group 6:14

27+ (call 6:15

28+ (wing 6:15 lent)

29+ (list 6:20 (wing 6:22 same)))))

30+ (value 7:1 generic

31+ (gate 7:12

32+ (face 7:15 xs

33+ (apply 7:18 list (tvar 7:24 A)))

34+ (group 7:27

35+ (call 7:28 (wing 7:28 lent) (wing 7:33 xs)))))

36+ (value 8:1 bad

37+ (group 8:8

38+ (call 8:9 (wing 8:9 lent) (str 8:14 "not a list")))))

tests/golden/types-prelude-lent/types.txtnew file+15

@@ -0,0 +1,15 @@

1+partial inference; module not checked

2+++ empty: @ud

3+++ singleton: @ud

4+++ cons: @ud

5+++ numbers: @ud

6+++ ships: @ud

7+++ gate-list: @ud

8+++ generic: $-((list A) @ud)

9+++ bad: call's sample and argument types do not unify

10+/tests/golden/types-prelude-lent/source.jibb:8:9: called gate has type $-((list A) @ud)

11+++ bad (lent "not a list")

12+ ^

13+/tests/golden/types-prelude-lent/source.jibb:8:14: argument has type @t

14+++ bad (lent "not a list")

15+ ^

tests/golden/types-prelude-list-alias/source.jibb+1−1

@@ -2,6 +2,6 @@

22++ path-id |= x=path x

33++ tape-id |= x=tape x

44++ spot-id |= x=spot x

5−++ text |= x=(bag @t) x

5+++ text-value |= x=(bag @t) x

66++ ship |= x=(bag @p) x

77++ wrong ^- (bag @t) ~[~zod]

tests/golden/types-prelude-list-alias/tokens.txt+9−9

@@ -34,15 +34,15 @@

34344:22 name x

35355:1 NEWLINE

36365:1 glyph ++

37−5:4 name text

38−5:9 glyph |=

39−5:12 name x

40−5:13 tight glyph =

41−5:14 tight glyph (

42−5:15 tight name bag

43−5:19 aura @t

44−5:21 tight glyph )

45−5:23 name x

37+5:4 name text-value

38+5:15 glyph |=

39+5:18 name x

40+5:19 tight glyph =

41+5:20 tight glyph (

42+5:21 tight name bag

43+5:25 aura @t

44+5:27 tight glyph )

45+5:29 name x

46466:1 NEWLINE

47476:1 glyph ++

48486:4 name ship

tests/golden/types-prelude-list-alias/tree.txt+5−5

@@ -14,11 +14,11 @@

1414 (gate 4:12

1515 (face 4:15 x (ref 4:17 spot))

1616 (wing 4:22 x)))

17− (value 5:1 text

18− (gate 5:9

19− (face 5:12 x

20− (apply 5:14 bag (aura 5:19 @t)))

21− (wing 5:23 x)))

17+ (value 5:1 text-value

18+ (gate 5:15

19+ (face 5:18 x

20+ (apply 5:20 bag (aura 5:25 @t)))

21+ (wing 5:29 x)))

2222 (value 6:1 ship

2323 (gate 6:9

2424 (face 6:12 x

tests/golden/types-prelude-list-alias/types.txt+1−1

@@ -3,7 +3,7 @@ partial inference; module not checked

33++ path-id: $-((list @ta) (list @ta))

44++ tape-id: $-((list @tD) (list @tD))

55++ spot-id: $-([p=(list @ta) q=[p=[p=@ q=@] q=[p=@ q=@]]] [p=(list @ta) q=[p=[p=@ q=@] q=[p=@ q=@]]])

6−++ text: $-((list @t) (list @t))

6+++ text-value: $-((list @t) (list @t))

77++ ship: $-((list @p) (list @p))

88++ wrong: list item does not fit its expected type

99/tests/golden/types-prelude-list-alias/source.jibb:7:13: expected item has type @t

tests/golden/types-prelude-sub-nested/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: Overview, Effects: `+$ sub |$ [M]` includes `[%watch a=(ask M)]`; "A request such as `(todos.todo |=%got)` comes from a declared path or a store's `state`."

2+tests: Source-backed `(sub msg)` context reaches nested `pure`, including independent and generic uses, missing tags, mismatched payloads, distinct origins and pending constraints. This is a partial inference report and does not prove a value is watchable or executable.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-prelude-sub-nested/modules.txtnew file+1

@@ -0,0 +1 @@

1+# Use the source-backed prelude.

tests/golden/types-prelude-sub-nested/source.jibbnew file+20

@@ -0,0 +1,20 @@

1++$ msg

2+ %idle

3+ %busy

4++$ other

5+ %idle

6+ %busy

7+++ direct ^- (ask msg) (pure %idle)

8+++ watch ^- (sub msg) [%watch (pure %idle)]

9+++ watch-typed ^- (sub msg) [%watch (pure (^- msg %idle))]

10+++ watch-cord ^- (sub @t) [%watch (pure "hi")]

11+++ watch-ship ^- (sub @p) [%watch (pure ~zod)]

12+++ wrong ^- (sub @t) [%watch (pure ~zod)]

13+++ missing ^- (sub msg) [%watch (pure %missing)]

14+++ alien |= x=other ^- (sub msg) [%watch (pure x)]

15+++ generic |= x=A ^- (sub A) [%watch (pure x)]

16+++ pending

17+ ~& %orphan

18+ ^- (sub msg) [%watch (pure %idle)]

19+++ unknown |= x=A [%watch (pure x)]

20+++ unknown-target |= x=A ^- A [%watch (pure %idle)]

tests/golden/types-prelude-sub-nested/tokens.txtnew file+211

@@ -0,0 +1,211 @@

1+1:1 glyph +$

2+1:4 name msg

3+2:3 INDENT

4+2:3 lit %idle

5+3:3 NEWLINE

6+3:3 lit %busy

7+4:1 DEDENT

8+4:1 NEWLINE

9+4:1 glyph +$

10+4:4 name other

11+5:3 INDENT

12+5:3 lit %idle

13+6:3 NEWLINE

14+6:3 lit %busy

15+7:1 DEDENT

16+7:1 NEWLINE

17+7:1 glyph ++

18+7:4 name direct

19+7:11 glyph ^-

20+7:14 glyph (

21+7:15 tight name ask

22+7:19 name msg

23+7:22 tight glyph )

24+7:24 glyph (

25+7:25 tight name pure

26+7:30 lit %idle

27+7:35 tight glyph )

28+8:1 NEWLINE

29+8:1 glyph ++

30+8:4 name watch

31+8:10 glyph ^-

32+8:13 glyph (

33+8:14 tight name sub

34+8:18 name msg

35+8:21 tight glyph )

36+8:23 glyph [

37+8:24 tight lit %watch

38+8:31 glyph (

39+8:32 tight name pure

40+8:37 lit %idle

41+8:42 tight glyph )

42+8:43 tight glyph ]

43+9:1 NEWLINE

44+9:1 glyph ++

45+9:4 name watch-typed

46+9:16 glyph ^-

47+9:19 glyph (

48+9:20 tight name sub

49+9:24 name msg

50+9:27 tight glyph )

51+9:29 glyph [

52+9:30 tight lit %watch

53+9:37 glyph (

54+9:38 tight name pure

55+9:43 glyph (

56+9:44 tight glyph ^-

57+9:47 name msg

58+9:51 lit %idle

59+9:56 tight glyph )

60+9:57 tight glyph )

61+9:58 tight glyph ]

62+10:1 NEWLINE

63+10:1 glyph ++

64+10:4 name watch-cord

65+10:15 glyph ^-

66+10:18 glyph (

67+10:19 tight name sub

68+10:23 aura @t

69+10:25 tight glyph )

70+10:27 glyph [

71+10:28 tight lit %watch

72+10:35 glyph (

73+10:36 tight name pure

74+10:41 str "hi"

75+10:45 tight glyph )

76+10:46 tight glyph ]

77+11:1 NEWLINE

78+11:1 glyph ++

79+11:4 name watch-ship

80+11:15 glyph ^-

81+11:18 glyph (

82+11:19 tight name sub

83+11:23 aura @p

84+11:25 tight glyph )

85+11:27 glyph [

86+11:28 tight lit %watch

87+11:35 glyph (

88+11:36 tight name pure

89+11:41 lit ~zod

90+11:45 tight glyph )

91+11:46 tight glyph ]

92+12:1 NEWLINE

93+12:1 glyph ++

94+12:4 name wrong

95+12:10 glyph ^-

96+12:13 glyph (

97+12:14 tight name sub

98+12:18 aura @t

99+12:20 tight glyph )

100+12:22 glyph [

101+12:23 tight lit %watch

102+12:30 glyph (

103+12:31 tight name pure

104+12:36 lit ~zod

105+12:40 tight glyph )

106+12:41 tight glyph ]

107+13:1 NEWLINE

108+13:1 glyph ++

109+13:4 name missing

110+13:12 glyph ^-

111+13:15 glyph (

112+13:16 tight name sub

113+13:20 name msg

114+13:23 tight glyph )

115+13:25 glyph [

116+13:26 tight lit %watch

117+13:33 glyph (

118+13:34 tight name pure

119+13:39 lit %missing

120+13:47 tight glyph )

121+13:48 tight glyph ]

122+14:1 NEWLINE

123+14:1 glyph ++

124+14:4 name alien

125+14:10 glyph |=

126+14:13 name x

127+14:14 tight glyph =

128+14:15 tight name other

129+14:21 glyph ^-

130+14:24 glyph (

131+14:25 tight name sub

132+14:29 name msg

133+14:32 tight glyph )

134+14:34 glyph [

135+14:35 tight lit %watch

136+14:42 glyph (

137+14:43 tight name pure

138+14:48 name x

139+14:49 tight glyph )

140+14:50 tight glyph ]

141+15:1 NEWLINE

142+15:1 glyph ++

143+15:4 name generic

144+15:12 glyph |=

145+15:15 name x

146+15:16 tight glyph =

147+15:17 tight tvar A

148+15:19 glyph ^-

149+15:22 glyph (

150+15:23 tight name sub

151+15:27 tvar A

152+15:28 tight glyph )

153+15:30 glyph [

154+15:31 tight lit %watch

155+15:38 glyph (

156+15:39 tight name pure

157+15:44 name x

158+15:45 tight glyph )

159+15:46 tight glyph ]

160+16:1 NEWLINE

161+16:1 glyph ++

162+16:4 name pending

163+17:3 INDENT

164+17:3 glyph ~&

165+17:6 lit %orphan

166+18:5 INDENT

167+18:5 glyph ^-

168+18:8 glyph (

169+18:9 tight name sub

170+18:13 name msg

171+18:16 tight glyph )

172+18:18 glyph [

173+18:19 tight lit %watch

174+18:26 glyph (

175+18:27 tight name pure

176+18:32 lit %idle

177+18:37 tight glyph )

178+18:38 tight glyph ]

179+19:1 DEDENT

180+19:1 DEDENT

181+19:1 NEWLINE

182+19:1 glyph ++

183+19:4 name unknown

184+19:12 glyph |=

185+19:15 name x

186+19:16 tight glyph =

187+19:17 tight tvar A

188+19:19 glyph [

189+19:20 tight lit %watch

190+19:27 glyph (

191+19:28 tight name pure

192+19:33 name x

193+19:34 tight glyph )

194+19:35 tight glyph ]

195+20:1 NEWLINE

196+20:1 glyph ++

197+20:4 name unknown-target

198+20:19 glyph |=

199+20:22 name x

200+20:23 tight glyph =

201+20:24 tight tvar A

202+20:26 glyph ^-

203+20:29 tvar A

204+20:31 glyph [

205+20:32 tight lit %watch

206+20:39 glyph (

207+20:40 tight name pure

208+20:45 lit %idle

209+20:50 tight glyph )

210+20:51 tight glyph ]

211+20:52 NEWLINE

tests/golden/types-prelude-sub-nested/tree.txtnew file+100

@@ -0,0 +1,100 @@

1+(module

2+ (mold 1:1 msg

3+ (union 2:3 (const 2:3 %idle) (const 3:3 %busy)))

4+ (mold 4:1 other

5+ (union 5:3 (const 5:3 %idle) (const 6:3 %busy)))

6+ (value 7:1 direct

7+ (cast 7:11

8+ (apply 7:14 ask (ref 7:19 msg))

9+ (group 7:24

10+ (call 7:25 (wing 7:25 pure) (lit 7:30 %idle)))))

11+ (value 8:1 watch

12+ (cast 8:10

13+ (apply 8:13 sub (ref 8:18 msg))

14+ (tuple 8:23

15+ (lit 8:24 %watch)

16+ (group 8:31

17+ (call 8:32 (wing 8:32 pure) (lit 8:37 %idle))))))

18+ (value 9:1 watch-typed

19+ (cast 9:16

20+ (apply 9:19 sub (ref 9:24 msg))

21+ (tuple 9:29

22+ (lit 9:30 %watch)

23+ (group 9:37

24+ (call 9:38

25+ (wing 9:38 pure)

26+ (group 9:43

27+ (cast 9:44 (ref 9:47 msg) (lit 9:51 %idle))))))))

28+ (value 10:1 watch-cord

29+ (cast 10:15

30+ (apply 10:18 sub (aura 10:23 @t))

31+ (tuple 10:27

32+ (lit 10:28 %watch)

33+ (group 10:35

34+ (call 10:36 (wing 10:36 pure) (str 10:41 "hi"))))))

35+ (value 11:1 watch-ship

36+ (cast 11:15

37+ (apply 11:18 sub (aura 11:23 @p))

38+ (tuple 11:27

39+ (lit 11:28 %watch)

40+ (group 11:35

41+ (call 11:36 (wing 11:36 pure) (lit 11:41 ~zod))))))

42+ (value 12:1 wrong

43+ (cast 12:10

44+ (apply 12:13 sub (aura 12:18 @t))

45+ (tuple 12:22

46+ (lit 12:23 %watch)

47+ (group 12:30

48+ (call 12:31 (wing 12:31 pure) (lit 12:36 ~zod))))))

49+ (value 13:1 missing

50+ (cast 13:12

51+ (apply 13:15 sub (ref 13:20 msg))

52+ (tuple 13:25

53+ (lit 13:26 %watch)

54+ (group 13:33

55+ (call 13:34 (wing 13:34 pure) (lit 13:39 %missing))))))

56+ (value 14:1 alien

57+ (gate 14:10

58+ (face 14:13 x (ref 14:15 other))

59+ (cast 14:21

60+ (apply 14:24 sub (ref 14:29 msg))

61+ (tuple 14:34

62+ (lit 14:35 %watch)

63+ (group 14:42

64+ (call 14:43 (wing 14:43 pure) (wing 14:48 x)))))))

65+ (value 15:1 generic

66+ (gate 15:12

67+ (face 15:15 x (tvar 15:17 A))

68+ (cast 15:19

69+ (apply 15:22 sub (tvar 15:27 A))

70+ (tuple 15:30

71+ (lit 15:31 %watch)

72+ (group 15:38

73+ (call 15:39 (wing 15:39 pure) (wing 15:44 x)))))))

74+ (value 16:1 pending

75+ (body 17:3

76+ (trace 17:3

77+ (lit 17:6 %orphan)

78+ (body 18:5

79+ (cast 18:5

80+ (apply 18:8 sub (ref 18:13 msg))

81+ (tuple 18:18

82+ (lit 18:19 %watch)

83+ (group 18:26

84+ (call 18:27 (wing 18:27 pure) (lit 18:32 %idle)))))))))

85+ (value 19:1 unknown

86+ (gate 19:12

87+ (face 19:15 x (tvar 19:17 A))

88+ (tuple 19:19

89+ (lit 19:20 %watch)

90+ (group 19:27

91+ (call 19:28 (wing 19:28 pure) (wing 19:33 x))))))

92+ (value 20:1 unknown-target

93+ (gate 20:19

94+ (face 20:22 x (tvar 20:24 A))

95+ (cast 20:26

96+ (tvar 20:29 A)

97+ (tuple 20:31

98+ (lit 20:32 %watch)

99+ (group 20:39

100+ (call 20:40 (wing 20:40 pure) (lit 20:45 %idle))))))))

tests/golden/types-prelude-sub-nested/types.txtnew file+27

@@ -0,0 +1,27 @@

1+partial inference; module not checked

2++$ msg: cases proven disjoint; mold not checked

3++$ other: cases proven disjoint; mold not checked

4+++ direct: (ask msg)

5+++ watch: (sub msg)

6+++ watch-typed: (sub msg)

7+++ watch-cord: (sub @t)

8+++ watch-ship: (sub @p)

9+++ wrong: call's sample and argument types do not unify

10+/tests/golden/types-prelude-sub-nested/source.jibb:12:31: called gate

11+++ wrong ^- (sub @t) [%watch (pure ~zod)]

12+ ^

13+/tests/golden/types-prelude-sub-nested/source.jibb:12:36: argument has type @p

14+++ wrong ^- (sub @t) [%watch (pure ~zod)]

15+ ^

16+++ missing: msg has no case `%missing`

17+/tests/golden/types-prelude-sub-nested/source.jibb:13:34: expected union

18+++ missing ^- (sub msg) [%watch (pure %missing)]

19+ ^

20+/tests/golden/types-prelude-sub-nested/source.jibb:13:39: tag

21+++ missing ^- (sub msg) [%watch (pure %missing)]

22+ ^

23+++ alien: call constraint is not supported by partial inference

24+++ generic: $-(A (sub A))

25+++ pending: tag needs context in partial inference

26+++ unknown: tag needs context in partial inference

27+++ unknown-target: explicit capital constraints are not supported by partial inference

tests/golden/types-prelude-sub/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/overview.md, Effects, the exact source-backed generic sub declaration.

2+tests: Watch, timer and URL construction and matching; public ask identity on a watch binder; independent message types, incorrect callbacks and pending constraints. This partial inference report is not island watchability proof or a runtime claim.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-prelude-sub/modules.txtnew file+1

@@ -0,0 +1 @@

1+# Use the source-backed prelude.

tests/golden/types-prelude-sub/source.jibbnew file+37

@@ -0,0 +1,37 @@

1++$ msg

2+ [%got value=@t]

3+ %done

4+++ watch-value |= a=(ask msg) ^- (sub msg) [%watch a]

5+++ watch-cord |= a=(ask @t) ^- (sub @t) [%watch a]

6+++ wrong-watch |= a=(ask @p) ^- (sub @t) [%watch a]

7+++ periodic ^- (sub @t) [%every gap=~s1 reply=|=(date=@da "tick")]

8+++ route ^- (sub @t) [%url reply=|=(p=path "path")]

9+++ wrong-reply ^- (sub @t) [%every gap=~s1 reply=|=(date=@p "bad")]

10+++ incomplete |= s=(sub msg)

11+ ?- s

12+ [%watch ask] %done

13+ [%every gap reply] %done

14+++ complete |= s=(sub msg)

15+ ?- s

16+ [%watch ask] %done

17+ [%every gap reply] %done

18+ [%url reply] %done

19+

20++$ my-msg

21+ [%got value=@t]

22+ %idle

23+++ take-watch |= s=(sub my-msg)

24+ ^- (ask my-msg)

25+ ?- s

26+ [%watch a] a

27+ [%every gap reply] !!

28+ [%url reply] !!

29+++ watch-pure ^- (sub my-msg) [%watch (pure %idle)]

30+++ watch-generic |= a=(ask A) ^- (sub A) [%watch a]

31+++ independent-text |= a=(ask @t) ^- (sub @t) [%watch a]

32+++ independent-ship |= a=(ask @p) ^- (sub @p) [%watch a]

33+++ wrong-watch-generic |= a=(ask @p) ^- (sub @t) [%watch a]

34+

35+++ pure-direct ^- (ask my-msg) (pure %idle)

36+++ pure-typed ^- (ask my-msg) (pure (^- my-msg %idle))

37+++ pure-wrong ^- (ask my-msg) (pure %absent)

tests/golden/types-prelude-sub/tokens.txtnew file+380

@@ -0,0 +1,380 @@

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 %done

12+4:1 DEDENT

13+4:1 NEWLINE

14+4:1 glyph ++

15+4:4 name watch-value

16+4:16 glyph |=

17+4:19 name a

18+4:20 tight glyph =

19+4:21 tight glyph (

20+4:22 tight name ask

21+4:26 name msg

22+4:29 tight glyph )

23+4:31 glyph ^-

24+4:34 glyph (

25+4:35 tight name sub

26+4:39 name msg

27+4:42 tight glyph )

28+4:44 glyph [

29+4:45 tight lit %watch

30+4:52 name a

31+4:53 tight glyph ]

32+5:1 NEWLINE

33+5:1 glyph ++

34+5:4 name watch-cord

35+5:15 glyph |=

36+5:18 name a

37+5:19 tight glyph =

38+5:20 tight glyph (

39+5:21 tight name ask

40+5:25 aura @t

41+5:27 tight glyph )

42+5:29 glyph ^-

43+5:32 glyph (

44+5:33 tight name sub

45+5:37 aura @t

46+5:39 tight glyph )

47+5:41 glyph [

48+5:42 tight lit %watch

49+5:49 name a

50+5:50 tight glyph ]

51+6:1 NEWLINE

52+6:1 glyph ++

53+6:4 name wrong-watch

54+6:16 glyph |=

55+6:19 name a

56+6:20 tight glyph =

57+6:21 tight glyph (

58+6:22 tight name ask

59+6:26 aura @p

60+6:28 tight glyph )

61+6:30 glyph ^-

62+6:33 glyph (

63+6:34 tight name sub

64+6:38 aura @t

65+6:40 tight glyph )

66+6:42 glyph [

67+6:43 tight lit %watch

68+6:50 name a

69+6:51 tight glyph ]

70+7:1 NEWLINE

71+7:1 glyph ++

72+7:4 name periodic

73+7:13 glyph ^-

74+7:16 glyph (

75+7:17 tight name sub

76+7:21 aura @t

77+7:23 tight glyph )

78+7:25 glyph [

79+7:26 tight lit %every

80+7:33 name gap

81+7:36 tight glyph =

82+7:37 tight lit ~s1

83+7:41 name reply

84+7:46 tight glyph =

85+7:47 tight glyph |=(

86+7:50 tight name date

87+7:54 tight glyph =

88+7:55 tight aura @da

89+7:59 str "tick"

90+7:65 tight glyph )

91+7:66 tight glyph ]

92+8:1 NEWLINE

93+8:1 glyph ++

94+8:4 name route

95+8:10 glyph ^-

96+8:13 glyph (

97+8:14 tight name sub

98+8:18 aura @t

99+8:20 tight glyph )

100+8:22 glyph [

101+8:23 tight lit %url

102+8:28 name reply

103+8:33 tight glyph =

104+8:34 tight glyph |=(

105+8:37 tight name p

106+8:38 tight glyph =

107+8:39 tight name path

108+8:44 str "path"

109+8:50 tight glyph )

110+8:51 tight glyph ]

111+9:1 NEWLINE

112+9:1 glyph ++

113+9:4 name wrong-reply

114+9:16 glyph ^-

115+9:19 glyph (

116+9:20 tight name sub

117+9:24 aura @t

118+9:26 tight glyph )

119+9:28 glyph [

120+9:29 tight lit %every

121+9:36 name gap

122+9:39 tight glyph =

123+9:40 tight lit ~s1

124+9:44 name reply

125+9:49 tight glyph =

126+9:50 tight glyph |=(

127+9:53 tight name date

128+9:57 tight glyph =

129+9:58 tight aura @p

130+9:61 str "bad"

131+9:66 tight glyph )

132+9:67 tight glyph ]

133+10:1 NEWLINE

134+10:1 glyph ++

135+10:4 name incomplete

136+10:15 glyph |=

137+10:18 name s

138+10:19 tight glyph =

139+10:20 tight glyph (

140+10:21 tight name sub

141+10:25 name msg

142+10:28 tight glyph )

143+11:3 INDENT

144+11:3 glyph ?-

145+11:6 name s

146+12:5 INDENT

147+12:5 glyph [

148+12:6 tight lit %watch

149+12:13 name ask

150+12:16 tight glyph ]

151+12:18 lit %done

152+13:5 NEWLINE

153+13:5 glyph [

154+13:6 tight lit %every

155+13:13 name gap

156+13:17 name reply

157+13:22 tight glyph ]

158+13:24 lit %done

159+14:1 DEDENT

160+14:1 DEDENT

161+14:1 NEWLINE

162+14:1 glyph ++

163+14:4 name complete

164+14:13 glyph |=

165+14:16 name s

166+14:17 tight glyph =

167+14:18 tight glyph (

168+14:19 tight name sub

169+14:23 name msg

170+14:26 tight glyph )

171+15:3 INDENT

172+15:3 glyph ?-

173+15:6 name s

174+16:5 INDENT

175+16:5 glyph [

176+16:6 tight lit %watch

177+16:13 name ask

178+16:16 tight glyph ]

179+16:18 lit %done

180+17:5 NEWLINE

181+17:5 glyph [

182+17:6 tight lit %every

183+17:13 name gap

184+17:17 name reply

185+17:22 tight glyph ]

186+17:24 lit %done

187+18:5 NEWLINE

188+18:5 glyph [

189+18:6 tight lit %url

190+18:11 name reply

191+18:16 tight glyph ]

192+18:18 lit %done

193+20:1 DEDENT

194+20:1 DEDENT

195+20:1 NEWLINE

196+20:1 glyph +$

197+20:4 name my-msg

198+21:3 INDENT

199+21:3 glyph [

200+21:4 tight lit %got

201+21:9 name value

202+21:14 tight glyph =

203+21:15 tight aura @t

204+21:17 tight glyph ]

205+22:3 NEWLINE

206+22:3 lit %idle

207+23:1 DEDENT

208+23:1 NEWLINE

209+23:1 glyph ++

210+23:4 name take-watch

211+23:15 glyph |=

212+23:18 name s

213+23:19 tight glyph =

214+23:20 tight glyph (

215+23:21 tight name sub

216+23:25 name my-msg

217+23:31 tight glyph )

218+24:3 INDENT

219+24:3 glyph ^-

220+24:6 glyph (

221+24:7 tight name ask

222+24:11 name my-msg

223+24:17 tight glyph )

224+25:5 INDENT

225+25:5 glyph ?-

226+25:8 name s

227+26:7 INDENT

228+26:7 glyph [

229+26:8 tight lit %watch

230+26:15 name a

231+26:16 tight glyph ]

232+26:18 name a

233+27:7 NEWLINE

234+27:7 glyph [

235+27:8 tight lit %every

236+27:15 name gap

237+27:19 name reply

238+27:24 tight glyph ]

239+27:26 glyph !!

240+28:7 NEWLINE

241+28:7 glyph [

242+28:8 tight lit %url

243+28:13 name reply

244+28:18 tight glyph ]

245+28:20 glyph !!

246+29:1 DEDENT

247+29:1 DEDENT

248+29:1 DEDENT

249+29:1 NEWLINE

250+29:1 glyph ++

251+29:4 name watch-pure

252+29:15 glyph ^-

253+29:18 glyph (

254+29:19 tight name sub

255+29:23 name my-msg

256+29:29 tight glyph )

257+29:31 glyph [

258+29:32 tight lit %watch

259+29:39 glyph (

260+29:40 tight name pure

261+29:45 lit %idle

262+29:50 tight glyph )

263+29:51 tight glyph ]

264+30:1 NEWLINE

265+30:1 glyph ++

266+30:4 name watch-generic

267+30:18 glyph |=

268+30:21 name a

269+30:22 tight glyph =

270+30:23 tight glyph (

271+30:24 tight name ask

272+30:28 tvar A

273+30:29 tight glyph )

274+30:31 glyph ^-

275+30:34 glyph (

276+30:35 tight name sub

277+30:39 tvar A

278+30:40 tight glyph )

279+30:42 glyph [

280+30:43 tight lit %watch

281+30:50 name a

282+30:51 tight glyph ]

283+31:1 NEWLINE

284+31:1 glyph ++

285+31:4 name independent-text

286+31:21 glyph |=

287+31:24 name a

288+31:25 tight glyph =

289+31:26 tight glyph (

290+31:27 tight name ask

291+31:31 aura @t

292+31:33 tight glyph )

293+31:35 glyph ^-

294+31:38 glyph (

295+31:39 tight name sub

296+31:43 aura @t

297+31:45 tight glyph )

298+31:47 glyph [

299+31:48 tight lit %watch

300+31:55 name a

301+31:56 tight glyph ]

302+32:1 NEWLINE

303+32:1 glyph ++

304+32:4 name independent-ship

305+32:21 glyph |=

306+32:24 name a

307+32:25 tight glyph =

308+32:26 tight glyph (

309+32:27 tight name ask

310+32:31 aura @p

311+32:33 tight glyph )

312+32:35 glyph ^-

313+32:38 glyph (

314+32:39 tight name sub

315+32:43 aura @p

316+32:45 tight glyph )

317+32:47 glyph [

318+32:48 tight lit %watch

319+32:55 name a

320+32:56 tight glyph ]

321+33:1 NEWLINE

322+33:1 glyph ++

323+33:4 name wrong-watch-generic

324+33:24 glyph |=

325+33:27 name a

326+33:28 tight glyph =

327+33:29 tight glyph (

328+33:30 tight name ask

329+33:34 aura @p

330+33:36 tight glyph )

331+33:38 glyph ^-

332+33:41 glyph (

333+33:42 tight name sub

334+33:46 aura @t

335+33:48 tight glyph )

336+33:50 glyph [

337+33:51 tight lit %watch

338+33:58 name a

339+33:59 tight glyph ]

340+35:1 NEWLINE

341+35:1 glyph ++

342+35:4 name pure-direct

343+35:16 glyph ^-

344+35:19 glyph (

345+35:20 tight name ask

346+35:24 name my-msg

347+35:30 tight glyph )

348+35:32 glyph (

349+35:33 tight name pure

350+35:38 lit %idle

351+35:43 tight glyph )

352+36:1 NEWLINE

353+36:1 glyph ++

354+36:4 name pure-typed

355+36:15 glyph ^-

356+36:18 glyph (

357+36:19 tight name ask

358+36:23 name my-msg

359+36:29 tight glyph )

360+36:31 glyph (

361+36:32 tight name pure

362+36:37 glyph (

363+36:38 tight glyph ^-

364+36:41 name my-msg

365+36:48 lit %idle

366+36:53 tight glyph )

367+36:54 tight glyph )

368+37:1 NEWLINE

369+37:1 glyph ++

370+37:4 name pure-wrong

371+37:15 glyph ^-

372+37:18 glyph (

373+37:19 tight name ask

374+37:23 name my-msg

375+37:29 tight glyph )

376+37:31 glyph (

377+37:32 tight name pure

378+37:37 lit %absent

379+37:44 tight glyph )

380+37:45 NEWLINE

tests/golden/types-prelude-sub/tree.txtnew file+164

@@ -0,0 +1,164 @@

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 %done)))

8+ (value 4:1 watch-value

9+ (gate 4:16

10+ (face 4:19 a

11+ (apply 4:21 ask (ref 4:26 msg)))

12+ (cast 4:31

13+ (apply 4:34 sub (ref 4:39 msg))

14+ (tuple 4:44 (lit 4:45 %watch) (wing 4:52 a)))))

15+ (value 5:1 watch-cord

16+ (gate 5:15

17+ (face 5:18 a

18+ (apply 5:20 ask (aura 5:25 @t)))

19+ (cast 5:29

20+ (apply 5:32 sub (aura 5:37 @t))

21+ (tuple 5:41 (lit 5:42 %watch) (wing 5:49 a)))))

22+ (value 6:1 wrong-watch

23+ (gate 6:16

24+ (face 6:19 a

25+ (apply 6:21 ask (aura 6:26 @p)))

26+ (cast 6:30

27+ (apply 6:33 sub (aura 6:38 @t))

28+ (tuple 6:42 (lit 6:43 %watch) (wing 6:50 a)))))

29+ (value 7:1 periodic

30+ (cast 7:13

31+ (apply 7:16 sub (aura 7:21 @t))

32+ (tuple 7:25

33+ (lit 7:26 %every)

34+ (face 7:33 gap (lit 7:37 ~s1))

35+ (face 7:41 reply

36+ (gate-wide 7:47

37+ (face 7:50 date (aura 7:55 @da))

38+ (str 7:59 "tick"))))))

39+ (value 8:1 route

40+ (cast 8:10

41+ (apply 8:13 sub (aura 8:18 @t))

42+ (tuple 8:22

43+ (lit 8:23 %url)

44+ (face 8:28 reply

45+ (gate-wide 8:34

46+ (face 8:37 p (ref 8:39 path))

47+ (str 8:44 "path"))))))

48+ (value 9:1 wrong-reply

49+ (cast 9:16

50+ (apply 9:19 sub (aura 9:24 @t))

51+ (tuple 9:28

52+ (lit 9:29 %every)

53+ (face 9:36 gap (lit 9:40 ~s1))

54+ (face 9:44 reply

55+ (gate-wide 9:50

56+ (face 9:53 date (aura 9:58 @p))

57+ (str 9:61 "bad"))))))

58+ (value 10:1 incomplete

59+ (gate 10:15

60+ (face 10:18 s

61+ (apply 10:20 sub (ref 10:25 msg)))

62+ (body 11:3

63+ (branch 11:3

64+ (wing 11:6 s)

65+ (arm 12:5

66+ (cell 12:5 (lit 12:6 %watch) (bind 12:13 ask))

67+ (lit 12:18 %done))

68+ (arm 13:5

69+ (cell 13:5 (lit 13:6 %every) (bind 13:13 gap) (bind 13:17 reply))

70+ (lit 13:24 %done))))))

71+ (value 14:1 complete

72+ (gate 14:13

73+ (face 14:16 s

74+ (apply 14:18 sub (ref 14:23 msg)))

75+ (body 15:3

76+ (branch 15:3

77+ (wing 15:6 s)

78+ (arm 16:5

79+ (cell 16:5 (lit 16:6 %watch) (bind 16:13 ask))

80+ (lit 16:18 %done))

81+ (arm 17:5

82+ (cell 17:5 (lit 17:6 %every) (bind 17:13 gap) (bind 17:17 reply))

83+ (lit 17:24 %done))

84+ (arm 18:5

85+ (cell 18:5 (lit 18:6 %url) (bind 18:11 reply))

86+ (lit 18:18 %done))))))

87+ (mold 20:1 my-msg

88+ (union 21:3

89+ (cell 21:3

90+ (const 21:4 %got)

91+ (face 21:9 value (aura 21:15 @t)))

92+ (const 22:3 %idle)))

93+ (value 23:1 take-watch

94+ (gate 23:15

95+ (face 23:18 s

96+ (apply 23:20 sub (ref 23:25 my-msg)))

97+ (body 24:3

98+ (cast 24:3

99+ (apply 24:6 ask (ref 24:11 my-msg))

100+ (body 25:5

101+ (branch 25:5

102+ (wing 25:8 s)

103+ (arm 26:7

104+ (cell 26:7 (lit 26:8 %watch) (bind 26:15 a))

105+ (wing 26:18 a))

106+ (arm 27:7

107+ (cell 27:7 (lit 27:8 %every) (bind 27:15 gap) (bind 27:19 reply))

108+ (crash 27:26))

109+ (arm 28:7

110+ (cell 28:7 (lit 28:8 %url) (bind 28:13 reply))

111+ (crash 28:20))))))))

112+ (value 29:1 watch-pure

113+ (cast 29:15

114+ (apply 29:18 sub (ref 29:23 my-msg))

115+ (tuple 29:31

116+ (lit 29:32 %watch)

117+ (group 29:39

118+ (call 29:40 (wing 29:40 pure) (lit 29:45 %idle))))))

119+ (value 30:1 watch-generic

120+ (gate 30:18

121+ (face 30:21 a

122+ (apply 30:23 ask (tvar 30:28 A)))

123+ (cast 30:31

124+ (apply 30:34 sub (tvar 30:39 A))

125+ (tuple 30:42 (lit 30:43 %watch) (wing 30:50 a)))))

126+ (value 31:1 independent-text

127+ (gate 31:21

128+ (face 31:24 a

129+ (apply 31:26 ask (aura 31:31 @t)))

130+ (cast 31:35

131+ (apply 31:38 sub (aura 31:43 @t))

132+ (tuple 31:47 (lit 31:48 %watch) (wing 31:55 a)))))

133+ (value 32:1 independent-ship

134+ (gate 32:21

135+ (face 32:24 a

136+ (apply 32:26 ask (aura 32:31 @p)))

137+ (cast 32:35

138+ (apply 32:38 sub (aura 32:43 @p))

139+ (tuple 32:47 (lit 32:48 %watch) (wing 32:55 a)))))

140+ (value 33:1 wrong-watch-generic

141+ (gate 33:24

142+ (face 33:27 a

143+ (apply 33:29 ask (aura 33:34 @p)))

144+ (cast 33:38

145+ (apply 33:41 sub (aura 33:46 @t))

146+ (tuple 33:50 (lit 33:51 %watch) (wing 33:58 a)))))

147+ (value 35:1 pure-direct

148+ (cast 35:16

149+ (apply 35:19 ask (ref 35:24 my-msg))

150+ (group 35:32

151+ (call 35:33 (wing 35:33 pure) (lit 35:38 %idle)))))

152+ (value 36:1 pure-typed

153+ (cast 36:15

154+ (apply 36:18 ask (ref 36:23 my-msg))

155+ (group 36:31

156+ (call 36:32

157+ (wing 36:32 pure)

158+ (group 36:37

159+ (cast 36:38 (ref 36:41 my-msg) (lit 36:48 %idle)))))))

160+ (value 37:1 pure-wrong

161+ (cast 37:15

162+ (apply 37:18 ask (ref 37:23 my-msg))

163+ (group 37:31

164+ (call 37:32 (wing 37:32 pure) (lit 37:37 %absent))))))

tests/golden/types-prelude-sub/types.txtnew file+32

@@ -0,0 +1,32 @@

1+partial inference; module not checked

2++$ msg: cases proven disjoint; mold not checked

3+++ watch-value: $-((ask msg) (sub msg))

4+++ watch-cord: $-((ask @t) (sub @t))

5+++ wrong-watch: cast constraint is not supported by partial inference

6+++ periodic: (sub @t)

7+++ route: (sub @t)

8+++ wrong-reply: cast mold and expression type do not unify

9+/tests/golden/types-prelude-sub/source.jibb:9:19: cast mold

10+++ wrong-reply ^- (sub @t) [%every gap=~s1 reply=|=(date=@p "bad")]

11+ ^

12+/tests/golden/types-prelude-sub/source.jibb:9:28: expression

13+++ wrong-reply ^- (sub @t) [%every gap=~s1 reply=|=(date=@p "bad")]

14+ ^

15+++ incomplete: union branch result matching needs unsupported inference

16+++ complete: union branch result matching needs unsupported inference

17++$ my-msg: cases proven disjoint; mold not checked

18+++ take-watch: $-((sub my-msg) (ask my-msg))

19+++ watch-pure: (sub my-msg)

20+++ watch-generic: $-((ask A) (sub A))

21+++ independent-text: $-((ask @t) (sub @t))

22+++ independent-ship: $-((ask @p) (sub @p))

23+++ wrong-watch-generic: cast constraint is not supported by partial inference

24+++ pure-direct: (ask my-msg)

25+++ pure-typed: (ask my-msg)

26+++ pure-wrong: my-msg has no case `%absent`

27+/tests/golden/types-prelude-sub/source.jibb:37:32: expected union

28+++ pure-wrong ^- (ask my-msg) (pure %absent)

29+ ^

30+/tests/golden/types-prelude-sub/source.jibb:37:37: tag

31+++ pure-wrong ^- (ask my-msg) (pure %absent)

32+ ^

tests/golden/types-prelude-succ/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: Overview, Prelude: “Hoon's standard library regrouped, written in Jibb”; Decisions, Loobean arithmetic: “Arithmetic rejects loobean operands”.

2+tests: The source-backed successor preserves a shared atom aura, accepts decimal and hexadecimal atoms, infers a generic arithmetic constraint and rejects a loobean. This is a partial inference report; Jibb execution and jet recognition remain unverified.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-prelude-succ/modules.txtnew file+1

@@ -0,0 +1 @@

1+# no module fixtures

tests/golden/types-prelude-succ/source.jibbnew file+4

@@ -0,0 +1,4 @@

1+++ n (succ 1)

2+++ hx (succ 0x1f)

3+++ generic |= x=A (succ x)

4+++ bad (succ %.y)

tests/golden/types-prelude-succ/tokens.txtnew file+32

@@ -0,0 +1,32 @@

1+1:1 glyph ++

2+1:4 name n

3+1:6 glyph (

4+1:7 tight name succ

5+1:12 lit 1

6+1:13 tight glyph )

7+2:1 NEWLINE

8+2:1 glyph ++

9+2:4 name hx

10+2:7 glyph (

11+2:8 tight name succ

12+2:13 lit 0x1f

13+2:17 tight glyph )

14+3:1 NEWLINE

15+3:1 glyph ++

16+3:4 name generic

17+3:12 glyph |=

18+3:15 name x

19+3:16 tight glyph =

20+3:17 tight tvar A

21+3:19 glyph (

22+3:20 tight name succ

23+3:25 name x

24+3:26 tight glyph )

25+4:1 NEWLINE

26+4:1 glyph ++

27+4:4 name bad

28+4:8 glyph (

29+4:9 tight name succ

30+4:14 lit %.y

31+4:17 tight glyph )

32+4:18 NEWLINE

tests/golden/types-prelude-succ/tree.txtnew file+15

@@ -0,0 +1,15 @@

1+(module

2+ (value 1:1 n

3+ (group 1:6

4+ (call 1:7 (wing 1:7 succ) (lit 1:12 1))))

5+ (value 2:1 hx

6+ (group 2:7

7+ (call 2:8 (wing 2:8 succ) (lit 2:13 0x1f))))

8+ (value 3:1 generic

9+ (gate 3:12

10+ (face 3:15 x (tvar 3:17 A))

11+ (group 3:19

12+ (call 3:20 (wing 3:20 succ) (wing 3:25 x)))))

13+ (value 4:1 bad

14+ (group 4:8

15+ (call 4:9 (wing 4:9 succ) (lit 4:14 %.y)))))

tests/golden/types-prelude-succ/types.txtnew file+11

@@ -0,0 +1,11 @@

1+partial inference; module not checked

2+++ n: @ud

3+++ hx: @ux

4+++ generic: $-(A A) where A is an atom other than ?

5+++ bad: call's sample and argument types do not unify

6+/tests/golden/types-prelude-succ/source.jibb:4:9: called gate has type $-(A A) where A is an atom other than ?

7+++ bad (succ %.y)

8+ ^

9+/tests/golden/types-prelude-succ/source.jibb:4:14: argument has type ?

10+++ bad (succ %.y)

11+ ^

tests/golden/types-prelude-text/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/overview.md, Prelude: "Text ... crip, trip, cass, cuss, trim, tufa, tuba"; the target ship's Hoon 135 definitions give trip and tuba their tape and UTF-32 types.

2+tests: Source-backed trip and tuba wrappers preserve cord, tape and UTF-32 list types through composition and generic list length. Empty input infers; non-cord and non-tape arguments fail. Primitive lowering and execution remain unfinished. The module report is partial.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-prelude-text/modules.txtnew file+1

@@ -0,0 +1 @@

1+# no module fixtures

tests/golden/types-prelude-text/source.jibbnew file+8

@@ -0,0 +1,8 @@

1+++ to-tape (trip "abc")

2+++ to-codepoints (tuba (trip "abc"))

3+++ empty-codepoints (tuba ~)

4+++ count-codepoints |= value=@t

5+ (lent (tuba (trip value)))

6+++ bad-trip (trip ~zod)

7+++ bad-tuba (tuba "abc")

8+++ bad-tuba-items (tuba ~[~zod])

tests/golden/types-prelude-text/tokens.txtnew file+66

@@ -0,0 +1,66 @@

1+1:1 glyph ++

2+1:4 name to-tape

3+1:12 glyph (

4+1:13 tight name trip

5+1:18 str "abc"

6+1:23 tight glyph )

7+2:1 NEWLINE

8+2:1 glyph ++

9+2:4 name to-codepoints

10+2:18 glyph (

11+2:19 tight name tuba

12+2:24 glyph (

13+2:25 tight name trip

14+2:30 str "abc"

15+2:35 tight glyph )

16+2:36 tight glyph )

17+3:1 NEWLINE

18+3:1 glyph ++

19+3:4 name empty-codepoints

20+3:21 glyph (

21+3:22 tight name tuba

22+3:27 lit ~

23+3:28 tight glyph )

24+4:1 NEWLINE

25+4:1 glyph ++

26+4:4 name count-codepoints

27+4:21 glyph |=

28+4:24 name value

29+4:29 tight glyph =

30+4:30 tight aura @t

31+5:3 INDENT

32+5:3 glyph (

33+5:4 tight name lent

34+5:9 glyph (

35+5:10 tight name tuba

36+5:15 glyph (

37+5:16 tight name trip

38+5:21 name value

39+5:26 tight glyph )

40+5:27 tight glyph )

41+5:28 tight glyph )

42+6:1 DEDENT

43+6:1 NEWLINE

44+6:1 glyph ++

45+6:4 name bad-trip

46+6:13 glyph (

47+6:14 tight name trip

48+6:19 lit ~zod

49+6:23 tight glyph )

50+7:1 NEWLINE

51+7:1 glyph ++

52+7:4 name bad-tuba

53+7:13 glyph (

54+7:14 tight name tuba

55+7:19 str "abc"

56+7:24 tight glyph )

57+8:1 NEWLINE

58+8:1 glyph ++

59+8:4 name bad-tuba-items

60+8:19 glyph (

61+8:20 tight name tuba

62+8:25 glyph ~[

63+8:27 tight lit ~zod

64+8:31 tight glyph ]

65+8:32 tight glyph )

66+8:33 NEWLINE

tests/golden/types-prelude-text/tree.txtnew file+36

@@ -0,0 +1,36 @@

1+(module

2+ (value 1:1 to-tape

3+ (group 1:12

4+ (call 1:13 (wing 1:13 trip) (str 1:18 "abc"))))

5+ (value 2:1 to-codepoints

6+ (group 2:18

7+ (call 2:19

8+ (wing 2:19 tuba)

9+ (group 2:24

10+ (call 2:25 (wing 2:25 trip) (str 2:30 "abc"))))))

11+ (value 3:1 empty-codepoints

12+ (group 3:21

13+ (call 3:22 (wing 3:22 tuba) (lit 3:27 ~))))

14+ (value 4:1 count-codepoints

15+ (gate 4:21

16+ (face 4:24 value (aura 4:30 @t))

17+ (body 5:3

18+ (group 5:3

19+ (call 5:4

20+ (wing 5:4 lent)

21+ (group 5:9

22+ (call 5:10

23+ (wing 5:10 tuba)

24+ (group 5:15

25+ (call 5:16 (wing 5:16 trip) (wing 5:21 value))))))))))

26+ (value 6:1 bad-trip

27+ (group 6:13

28+ (call 6:14 (wing 6:14 trip) (lit 6:19 ~zod))))

29+ (value 7:1 bad-tuba

30+ (group 7:13

31+ (call 7:14 (wing 7:14 tuba) (str 7:19 "abc"))))

32+ (value 8:1 bad-tuba-items

33+ (group 8:19

34+ (call 8:20

35+ (wing 8:20 tuba)

36+ (list 8:25 (lit 8:27 ~zod))))))

tests/golden/types-prelude-text/types.txtnew file+26

@@ -0,0 +1,26 @@

1+partial inference; module not checked

2+++ to-tape: (list @tD)

3+++ to-codepoints: (list @c)

4+++ empty-codepoints: (list @c)

5+++ count-codepoints: $-(@t @ud)

6+++ bad-trip: call's sample and argument types do not unify

7+/tests/golden/types-prelude-text/source.jibb:6:14: called gate has type $-(@t (list @tD))

8+++ bad-trip (trip ~zod)

9+ ^

10+/tests/golden/types-prelude-text/source.jibb:6:19: argument has type @p

11+++ bad-trip (trip ~zod)

12+ ^

13+++ bad-tuba: call's sample and argument types do not unify

14+/tests/golden/types-prelude-text/source.jibb:7:14: called gate has type $-((list @tD) (list @c))

15+++ bad-tuba (tuba "abc")

16+ ^

17+/tests/golden/types-prelude-text/source.jibb:7:19: argument has type @t

18+++ bad-tuba (tuba "abc")

19+ ^

20+++ bad-tuba-items: list item does not fit its expected type

21+/tests/golden/types-prelude-text/source.jibb:8:20: expected item has type @tD

22+++ bad-tuba-items (tuba ~[~zod])

23+ ^

24+/tests/golden/types-prelude-text/source.jibb:8:27: list item has type @p

25+++ bad-tuba-items (tuba ~[~zod])

26+ ^

tests/golden/types-prelude-ui/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/overview.md, Prelude, The Elm architecture on Urbit, and Layout and styling.

2+tests: Exact source-backed UI/program/page constructor schemes; static and message-bearing composition; concrete islands and pages; invalid attributes, malformed keyed/table inputs, child-message mismatch, mismatched island data, and ordinary inference of a concrete raw element constructor. Nested element payloads are erased only in the nonrecursive runtime mold, not in public constructor signatures.

3+expect: parses

4+expect-types: supported declarations infer exact types and invalid compositions report errors; the child-message mismatch fails closed as an unsupported constraint. No raw-constructor encapsulation, duplicate-attribute check, rendering, navigation, storage, or execution is claimed.

tests/golden/types-prelude-ui/modules.txtnew file+1

@@ -0,0 +1 @@

1+# no module fixtures

tests/golden/types-prelude-ui/source.jibbnew file+78

@@ -0,0 +1,78 @@

1++$ msg

2+ %save

3+ %toggle

4+ [%edited value=@t]

5++$ model [count=@ud]

7+++ row-scheme row

8+++ column-scheme column

9+++ wrap-scheme wrap

10+++ stack-scheme stack

11+++ el-scheme el

12+++ para-scheme para

13+++ text-scheme text

14+++ heading-scheme heading

15+++ each-scheme each

16+++ table-scheme table

17+++ image-scheme image

18+++ image-unsafe-scheme image-unsafe

19+++ link-scheme link

20+++ link-unsafe-scheme link-unsafe

21+++ button-scheme button

22+++ toggle-scheme toggle

23+++ field-scheme field

24+++ form-scheme form

25+++ island-scheme island

26+++ program-scheme program

27+++ page-scheme page

28+

29+++ static-text ^- (element !!) (text "hello")

30+++ raw-text ^- (element !!) (row ~ ~[[%text "raw"]])

31+++ static-ui ^- (element !!)

32+ column ~[pad+%s1 gap+%s2 width+[%fill 1] align+%center role+%body tone+%muted] ~[

33+ text "one"

34+ para ~[(text "two")]

35+ heading 2 "heading"

36+++ static-media ^- (element !!)

37+ stack ~[width+[%chars 20]] ~[

38+ image %/images/logo.png "Logo"

39+ link %/home "Home"

40+++ unsafe-media ^- (element !!)

41+ wrap ~[width+%shrink role+%caption tone+%accent] ~[

42+ image-unsafe [url="https://example.com/a.png" width=20 height=10] "Remote"

43+ link-unsafe "/elsewhere" "Elsewhere"

44+++ save-message ^- msg %save

45+++ toggle-message ^- msg %toggle

46+++ save-button ^- (element msg) (button "Save" save-message)

47+++ enabled-toggle ^- (element msg) (toggle %.y "Enabled" toggle-message)

48+++ edit-message |= value=@t ^- msg [%edited value]

49+++ name-field ^- (element msg) (field "Name" "value" edit-message)

50+++ controls ^- (element msg)

51+ (form save-message ~[save-button enabled-toggle name-field])

52+++ keyed |= items=(list [key=@t el=(element msg)])

53+ ^- (element msg) (each items)

54+++ tabular |= rows=(list [key=@ud cells=(list (element msg))])

55+ ^- (element msg)

56+ (table ~[[header="Name" width=[%fill 1] align=%start]] rows)

57+

58+++ bad-pad ^- (element !!) (row ~[pad+%s4] ~)

59+++ bad-width ^- (element !!) (row ~[width+[%chars "wide"]] ~)

60+++ malformed-each ^- (element msg) (each ~[[key="row" kid=(text "child")]])

61+++ malformed-table ^- (element msg)

62+ (table ~[[header="Name" width=%shrink]] ~)

63+++ ship-control ^- (element @p) (button "Ship" ~zod)

64+++ text-row |= kids=(list (element @t)) ^- (element @t) (row ~ kids)

65+++ bad-child (text-row ~[ship-control])

66+

67+++ init |= input=@t ^- model [count=0]

68+++ update |= [message=msg state=model]

69+ ^- [model (list (cmd msg))] [state ~]

70+++ view |= state=model ^- (element msg) (controls)

71+++ subs |= state=model ^- (list (sub msg)) ~

72+++ concrete-program ^- (program @t model msg) (program init update view subs)

73+++ embedded ^- (element !!) (island concrete-program "seed")

74+++ mismatched-island-data ^- (element !!) (island concrete-program ~zod)

75+

76+++ load |= route=@t ^- (ask model) (pure [count=0])

77+++ page-view |= data=model ^- (element !!) (text "page")

78+++ static-page ^- (page @t model) (page load page-view)

tests/golden/types-prelude-ui/tokens.txtnew file+728

@@ -0,0 +1,728 @@

1+1:1 glyph +$

2+1:4 name msg

3+2:3 INDENT

4+2:3 lit %save

5+3:3 NEWLINE

6+3:3 lit %toggle

7+4:3 NEWLINE

8+4:3 glyph [

9+4:4 tight lit %edited

10+4:12 name value

11+4:17 tight glyph =

12+4:18 tight aura @t

13+4:20 tight glyph ]

14+5:1 DEDENT

15+5:1 NEWLINE

16+5:1 glyph +$

17+5:4 name model

18+5:10 glyph [

19+5:11 tight name count

20+5:16 tight glyph =

21+5:17 tight aura @ud

22+5:20 tight glyph ]

23+7:1 NEWLINE

24+7:1 glyph ++

25+7:4 name row-scheme

26+7:15 name row

27+8:1 NEWLINE

28+8:1 glyph ++

29+8:4 name column-scheme

30+8:18 name column

31+9:1 NEWLINE

32+9:1 glyph ++

33+9:4 name wrap-scheme

34+9:16 name wrap

35+10:1 NEWLINE

36+10:1 glyph ++

37+10:4 name stack-scheme

38+10:17 name stack

39+11:1 NEWLINE

40+11:1 glyph ++

41+11:4 name el-scheme

42+11:14 name el

43+12:1 NEWLINE

44+12:1 glyph ++

45+12:4 name para-scheme

46+12:16 name para

47+13:1 NEWLINE

48+13:1 glyph ++

49+13:4 name text-scheme

50+13:16 name text

51+14:1 NEWLINE

52+14:1 glyph ++

53+14:4 name heading-scheme

54+14:19 name heading

55+15:1 NEWLINE

56+15:1 glyph ++

57+15:4 name each-scheme

58+15:16 name each

59+16:1 NEWLINE

60+16:1 glyph ++

61+16:4 name table-scheme

62+16:17 name table

63+17:1 NEWLINE

64+17:1 glyph ++

65+17:4 name image-scheme

66+17:17 name image

67+18:1 NEWLINE

68+18:1 glyph ++

69+18:4 name image-unsafe-scheme

70+18:24 name image-unsafe

71+19:1 NEWLINE

72+19:1 glyph ++

73+19:4 name link-scheme

74+19:16 name link

75+20:1 NEWLINE

76+20:1 glyph ++

77+20:4 name link-unsafe-scheme

78+20:23 name link-unsafe

79+21:1 NEWLINE

80+21:1 glyph ++

81+21:4 name button-scheme

82+21:18 name button

83+22:1 NEWLINE

84+22:1 glyph ++

85+22:4 name toggle-scheme

86+22:18 name toggle

87+23:1 NEWLINE

88+23:1 glyph ++

89+23:4 name field-scheme

90+23:17 name field

91+24:1 NEWLINE

92+24:1 glyph ++

93+24:4 name form-scheme

94+24:16 name form

95+25:1 NEWLINE

96+25:1 glyph ++

97+25:4 name island-scheme

98+25:18 name island

99+26:1 NEWLINE

100+26:1 glyph ++

101+26:4 name program-scheme

102+26:19 name program

103+27:1 NEWLINE

104+27:1 glyph ++

105+27:4 name page-scheme

106+27:16 name page

107+29:1 NEWLINE

108+29:1 glyph ++

109+29:4 name static-text

110+29:16 glyph ^-

111+29:19 glyph (

112+29:20 tight name element

113+29:28 glyph !!

114+29:30 tight glyph )

115+29:32 glyph (

116+29:33 tight name text

117+29:38 str "hello"

118+29:45 tight glyph )

119+30:1 NEWLINE

120+30:1 glyph ++

121+30:4 name raw-text

122+30:13 glyph ^-

123+30:16 glyph (

124+30:17 tight name element

125+30:25 glyph !!

126+30:27 tight glyph )

127+30:29 glyph (

128+30:30 tight name row

129+30:34 lit ~

130+30:36 glyph ~[

131+30:38 tight glyph [

132+30:39 tight lit %text

133+30:45 str "raw"

134+30:50 tight glyph ]

135+30:51 tight glyph ]

136+30:52 tight glyph )

137+31:1 NEWLINE

138+31:1 glyph ++

139+31:4 name static-ui

140+31:14 glyph ^-

141+31:17 glyph (

142+31:18 tight name element

143+31:26 glyph !!

144+31:28 tight glyph )

145+32:3 INDENT

146+32:3 name column

147+32:10 glyph ~[

148+32:12 tight name pad

149+32:15 tight glyph +

150+32:16 tight lit %s1

151+32:20 name gap

152+32:23 tight glyph +

153+32:24 tight lit %s2

154+32:28 name width

155+32:33 tight glyph +

156+32:34 tight glyph [

157+32:35 tight lit %fill

158+32:41 lit 1

159+32:42 tight glyph ]

160+32:44 name align

161+32:49 tight glyph +

162+32:50 tight lit %center

163+32:58 name role

164+32:62 tight glyph +

165+32:63 tight lit %body

166+32:69 name tone

167+32:73 tight glyph +

168+32:74 tight lit %muted

169+32:80 tight glyph ]

170+32:82 glyph ~[

171+33:5 INDENT

172+33:5 name text

173+33:10 str "one"

174+34:5 NEWLINE

175+34:5 name para

176+34:10 glyph ~[

177+34:12 tight glyph (

178+34:13 tight name text

179+34:18 str "two"

180+34:23 tight glyph )

181+34:24 tight glyph ]

182+35:5 NEWLINE

183+35:5 name heading

184+35:13 lit 2

185+35:15 str "heading"

186+36:1 DEDENT

187+36:1 DEDENT

188+36:1 NEWLINE

189+36:1 glyph ++

190+36:4 name static-media

191+36:17 glyph ^-

192+36:20 glyph (

193+36:21 tight name element

194+36:29 glyph !!

195+36:31 tight glyph )

196+37:3 INDENT

197+37:3 name stack

198+37:9 glyph ~[

199+37:11 tight name width

200+37:16 tight glyph +

201+37:17 tight glyph [

202+37:18 tight lit %chars

203+37:25 lit 20

204+37:27 tight glyph ]

205+37:28 tight glyph ]

206+37:30 glyph ~[

207+38:5 INDENT

208+38:5 name image

209+38:11 glyph %/

210+38:13 tight knot images

211+38:19 tight glyph /

212+38:20 tight knot logo.png

213+38:29 str "Logo"

214+39:5 NEWLINE

215+39:5 name link

216+39:10 glyph %/

217+39:12 tight knot home

218+39:17 str "Home"

219+40:1 DEDENT

220+40:1 DEDENT

221+40:1 NEWLINE

222+40:1 glyph ++

223+40:4 name unsafe-media

224+40:17 glyph ^-

225+40:20 glyph (

226+40:21 tight name element

227+40:29 glyph !!

228+40:31 tight glyph )

229+41:3 INDENT

230+41:3 name wrap

231+41:8 glyph ~[

232+41:10 tight name width

233+41:15 tight glyph +

234+41:16 tight lit %shrink

235+41:24 name role

236+41:28 tight glyph +

237+41:29 tight lit %caption

238+41:38 name tone

239+41:42 tight glyph +

240+41:43 tight lit %accent

241+41:50 tight glyph ]

242+41:52 glyph ~[

243+42:5 INDENT

244+42:5 name image-unsafe

245+42:18 glyph [

246+42:19 tight name url

247+42:22 tight glyph =

248+42:23 tight str "https://example.com/a.png"

249+42:51 name width

250+42:56 tight glyph =

251+42:57 tight lit 20

252+42:60 name height

253+42:66 tight glyph =

254+42:67 tight lit 10

255+42:69 tight glyph ]

256+42:71 str "Remote"

257+43:5 NEWLINE

258+43:5 name link-unsafe

259+43:17 str "/elsewhere"

260+43:30 str "Elsewhere"

261+44:1 DEDENT

262+44:1 DEDENT

263+44:1 NEWLINE

264+44:1 glyph ++

265+44:4 name save-message

266+44:17 glyph ^-

267+44:20 name msg

268+44:24 lit %save

269+45:1 NEWLINE

270+45:1 glyph ++

271+45:4 name toggle-message

272+45:19 glyph ^-

273+45:22 name msg

274+45:26 lit %toggle

275+46:1 NEWLINE

276+46:1 glyph ++

277+46:4 name save-button

278+46:16 glyph ^-

279+46:19 glyph (

280+46:20 tight name element

281+46:28 name msg

282+46:31 tight glyph )

283+46:33 glyph (

284+46:34 tight name button

285+46:41 str "Save"

286+46:48 name save-message

287+46:60 tight glyph )

288+47:1 NEWLINE

289+47:1 glyph ++

290+47:4 name enabled-toggle

291+47:19 glyph ^-

292+47:22 glyph (

293+47:23 tight name element

294+47:31 name msg

295+47:34 tight glyph )

296+47:36 glyph (

297+47:37 tight name toggle

298+47:44 lit %.y

299+47:48 str "Enabled"

300+47:58 name toggle-message

301+47:72 tight glyph )

302+48:1 NEWLINE

303+48:1 glyph ++

304+48:4 name edit-message

305+48:17 glyph |=

306+48:20 name value

307+48:25 tight glyph =

308+48:26 tight aura @t

309+48:29 glyph ^-

310+48:32 name msg

311+48:36 glyph [

312+48:37 tight lit %edited

313+48:45 name value

314+48:50 tight glyph ]

315+49:1 NEWLINE

316+49:1 glyph ++

317+49:4 name name-field

318+49:15 glyph ^-

319+49:18 glyph (

320+49:19 tight name element

321+49:27 name msg

322+49:30 tight glyph )

323+49:32 glyph (

324+49:33 tight name field

325+49:39 str "Name"

326+49:46 str "value"

327+49:54 name edit-message

328+49:66 tight glyph )

329+50:1 NEWLINE

330+50:1 glyph ++

331+50:4 name controls

332+50:13 glyph ^-

333+50:16 glyph (

334+50:17 tight name element

335+50:25 name msg

336+50:28 tight glyph )

337+51:3 INDENT

338+51:3 glyph (

339+51:4 tight name form

340+51:9 name save-message

341+51:22 glyph ~[

342+51:24 tight name save-button

343+51:36 name enabled-toggle

344+51:51 name name-field

345+51:61 tight glyph ]

346+51:62 tight glyph )

347+52:1 DEDENT

348+52:1 NEWLINE

349+52:1 glyph ++

350+52:4 name keyed

351+52:10 glyph |=

352+52:13 name items

353+52:18 tight glyph =

354+52:19 tight glyph (

355+52:20 tight name list

356+52:25 glyph [

357+52:26 tight name key

358+52:29 tight glyph =

359+52:30 tight aura @t

360+52:33 name el

361+52:35 tight glyph =

362+52:36 tight glyph (

363+52:37 tight name element

364+52:45 name msg

365+52:48 tight glyph )

366+52:49 tight glyph ]

367+52:50 tight glyph )

368+53:3 INDENT

369+53:3 glyph ^-

370+53:6 glyph (

371+53:7 tight name element

372+53:15 name msg

373+53:18 tight glyph )

374+53:20 glyph (

375+53:21 tight name each

376+53:26 name items

377+53:31 tight glyph )

378+54:1 DEDENT

379+54:1 NEWLINE

380+54:1 glyph ++

381+54:4 name tabular

382+54:12 glyph |=

383+54:15 name rows

384+54:19 tight glyph =

385+54:20 tight glyph (

386+54:21 tight name list

387+54:26 glyph [

388+54:27 tight name key

389+54:30 tight glyph =

390+54:31 tight aura @ud

391+54:35 name cells

392+54:40 tight glyph =

393+54:41 tight glyph (

394+54:42 tight name list

395+54:47 glyph (

396+54:48 tight name element

397+54:56 name msg

398+54:59 tight glyph )

399+54:60 tight glyph )

400+54:61 tight glyph ]

401+54:62 tight glyph )

402+55:3 INDENT

403+55:3 glyph ^-

404+55:6 glyph (

405+55:7 tight name element

406+55:15 name msg

407+55:18 tight glyph )

408+56:5 INDENT

409+56:5 glyph (

410+56:6 tight name table

411+56:12 glyph ~[

412+56:14 tight glyph [

413+56:15 tight name header

414+56:21 tight glyph =

415+56:22 tight str "Name"

416+56:29 name width

417+56:34 tight glyph =

418+56:35 tight glyph [

419+56:36 tight lit %fill

420+56:42 lit 1

421+56:43 tight glyph ]

422+56:45 name align

423+56:50 tight glyph =

424+56:51 tight lit %start

425+56:57 tight glyph ]

426+56:58 tight glyph ]

427+56:60 name rows

428+56:64 tight glyph )

429+58:1 DEDENT

430+58:1 DEDENT

431+58:1 NEWLINE

432+58:1 glyph ++

433+58:4 name bad-pad

434+58:12 glyph ^-

435+58:15 glyph (

436+58:16 tight name element

437+58:24 glyph !!

438+58:26 tight glyph )

439+58:28 glyph (

440+58:29 tight name row

441+58:33 glyph ~[

442+58:35 tight name pad

443+58:38 tight glyph +

444+58:39 tight lit %s4

445+58:42 tight glyph ]

446+58:44 lit ~

447+58:45 tight glyph )

448+59:1 NEWLINE

449+59:1 glyph ++

450+59:4 name bad-width

451+59:14 glyph ^-

452+59:17 glyph (

453+59:18 tight name element

454+59:26 glyph !!

455+59:28 tight glyph )

456+59:30 glyph (

457+59:31 tight name row

458+59:35 glyph ~[

459+59:37 tight name width

460+59:42 tight glyph +

461+59:43 tight glyph [

462+59:44 tight lit %chars

463+59:51 str "wide"

464+59:57 tight glyph ]

465+59:58 tight glyph ]

466+59:60 lit ~

467+59:61 tight glyph )

468+60:1 NEWLINE

469+60:1 glyph ++

470+60:4 name malformed-each

471+60:19 glyph ^-

472+60:22 glyph (

473+60:23 tight name element

474+60:31 name msg

475+60:34 tight glyph )

476+60:36 glyph (

477+60:37 tight name each

478+60:42 glyph ~[

479+60:44 tight glyph [

480+60:45 tight name key

481+60:48 tight glyph =

482+60:49 tight str "row"

483+60:55 name kid

484+60:58 tight glyph =

485+60:59 tight glyph (

486+60:60 tight name text

487+60:65 str "child"

488+60:72 tight glyph )

489+60:73 tight glyph ]

490+60:74 tight glyph ]

491+60:75 tight glyph )

492+61:1 NEWLINE

493+61:1 glyph ++

494+61:4 name malformed-table

495+61:20 glyph ^-

496+61:23 glyph (

497+61:24 tight name element

498+61:32 name msg

499+61:35 tight glyph )

500+62:3 INDENT

501+62:3 glyph (

502+62:4 tight name table

503+62:10 glyph ~[

504+62:12 tight glyph [

505+62:13 tight name header

506+62:19 tight glyph =

507+62:20 tight str "Name"

508+62:27 name width

509+62:32 tight glyph =

510+62:33 tight lit %shrink

511+62:40 tight glyph ]

512+62:41 tight glyph ]

513+62:43 lit ~

514+62:44 tight glyph )

515+63:1 DEDENT

516+63:1 NEWLINE

517+63:1 glyph ++

518+63:4 name ship-control

519+63:17 glyph ^-

520+63:20 glyph (

521+63:21 tight name element

522+63:29 aura @p

523+63:31 tight glyph )

524+63:33 glyph (

525+63:34 tight name button

526+63:41 str "Ship"

527+63:48 lit ~zod

528+63:52 tight glyph )

529+64:1 NEWLINE

530+64:1 glyph ++

531+64:4 name text-row

532+64:13 glyph |=

533+64:16 name kids

534+64:20 tight glyph =

535+64:21 tight glyph (

536+64:22 tight name list

537+64:27 glyph (

538+64:28 tight name element

539+64:36 aura @t

540+64:38 tight glyph )

541+64:39 tight glyph )

542+64:41 glyph ^-

543+64:44 glyph (

544+64:45 tight name element

545+64:53 aura @t

546+64:55 tight glyph )

547+64:57 glyph (

548+64:58 tight name row

549+64:62 lit ~

550+64:64 name kids

551+64:68 tight glyph )

552+65:1 NEWLINE

553+65:1 glyph ++

554+65:4 name bad-child

555+65:14 glyph (

556+65:15 tight name text-row

557+65:24 glyph ~[

558+65:26 tight name ship-control

559+65:38 tight glyph ]

560+65:39 tight glyph )

561+67:1 NEWLINE

562+67:1 glyph ++

563+67:4 name init

564+67:9 glyph |=

565+67:12 name input

566+67:17 tight glyph =

567+67:18 tight aura @t

568+67:21 glyph ^-

569+67:24 name model

570+67:30 glyph [

571+67:31 tight name count

572+67:36 tight glyph =

573+67:37 tight lit 0

574+67:38 tight glyph ]

575+68:1 NEWLINE

576+68:1 glyph ++

577+68:4 name update

578+68:11 glyph |=

579+68:14 glyph [

580+68:15 tight name message

581+68:22 tight glyph =

582+68:23 tight name msg

583+68:27 name state

584+68:32 tight glyph =

585+68:33 tight name model

586+68:38 tight glyph ]

587+69:3 INDENT

588+69:3 glyph ^-

589+69:6 glyph [

590+69:7 tight name model

591+69:13 glyph (

592+69:14 tight name list

593+69:19 glyph (

594+69:20 tight name cmd

595+69:24 name msg

596+69:27 tight glyph )

597+69:28 tight glyph )

598+69:29 tight glyph ]

599+69:31 glyph [

600+69:32 tight name state

601+69:38 lit ~

602+69:39 tight glyph ]

603+70:1 DEDENT

604+70:1 NEWLINE

605+70:1 glyph ++

606+70:4 name view

607+70:9 glyph |=

608+70:12 name state

609+70:17 tight glyph =

610+70:18 tight name model

611+70:24 glyph ^-

612+70:27 glyph (

613+70:28 tight name element

614+70:36 name msg

615+70:39 tight glyph )

616+70:41 glyph (

617+70:42 tight name controls

618+70:50 tight glyph )

619+71:1 NEWLINE

620+71:1 glyph ++

621+71:4 name subs

622+71:9 glyph |=

623+71:12 name state

624+71:17 tight glyph =

625+71:18 tight name model

626+71:24 glyph ^-

627+71:27 glyph (

628+71:28 tight name list

629+71:33 glyph (

630+71:34 tight name sub

631+71:38 name msg

632+71:41 tight glyph )

633+71:42 tight glyph )

634+71:44 lit ~

635+72:1 NEWLINE

636+72:1 glyph ++

637+72:4 name concrete-program

638+72:21 glyph ^-

639+72:24 glyph (

640+72:25 tight name program

641+72:33 aura @t

642+72:36 name model

643+72:42 name msg

644+72:45 tight glyph )

645+72:47 glyph (

646+72:48 tight name program

647+72:56 name init

648+72:61 name update

649+72:68 name view

650+72:73 name subs

651+72:77 tight glyph )

652+73:1 NEWLINE

653+73:1 glyph ++

654+73:4 name embedded

655+73:13 glyph ^-

656+73:16 glyph (

657+73:17 tight name element

658+73:25 glyph !!

659+73:27 tight glyph )

660+73:29 glyph (

661+73:30 tight name island

662+73:37 name concrete-program

663+73:54 str "seed"

664+73:60 tight glyph )

665+74:1 NEWLINE

666+74:1 glyph ++

667+74:4 name mismatched-island-data

668+74:27 glyph ^-

669+74:30 glyph (

670+74:31 tight name element

671+74:39 glyph !!

672+74:41 tight glyph )

673+74:43 glyph (

674+74:44 tight name island

675+74:51 name concrete-program

676+74:68 lit ~zod

677+74:72 tight glyph )

678+76:1 NEWLINE

679+76:1 glyph ++

680+76:4 name load

681+76:9 glyph |=

682+76:12 name route

683+76:17 tight glyph =

684+76:18 tight aura @t

685+76:21 glyph ^-

686+76:24 glyph (

687+76:25 tight name ask

688+76:29 name model

689+76:34 tight glyph )

690+76:36 glyph (

691+76:37 tight name pure

692+76:42 glyph [

693+76:43 tight name count

694+76:48 tight glyph =

695+76:49 tight lit 0

696+76:50 tight glyph ]

697+76:51 tight glyph )

698+77:1 NEWLINE

699+77:1 glyph ++

700+77:4 name page-view

701+77:14 glyph |=

702+77:17 name data

703+77:21 tight glyph =

704+77:22 tight name model

705+77:28 glyph ^-

706+77:31 glyph (

707+77:32 tight name element

708+77:40 glyph !!

709+77:42 tight glyph )

710+77:44 glyph (

711+77:45 tight name text

712+77:50 str "page"

713+77:56 tight glyph )

714+78:1 NEWLINE

715+78:1 glyph ++

716+78:4 name static-page

717+78:16 glyph ^-

718+78:19 glyph (

719+78:20 tight name page

720+78:25 aura @t

721+78:28 name model

722+78:33 tight glyph )

723+78:35 glyph (

724+78:36 tight name page

725+78:41 name load

726+78:46 name page-view

727+78:55 tight glyph )

728+78:56 NEWLINE

tests/golden/types-prelude-ui/tree.txtnew file+300

@@ -0,0 +1,300 @@

1+(module

2+ (mold 1:1 msg

3+ (union 2:3

4+ (const 2:3 %save)

5+ (const 3:3 %toggle)

6+ (cell 4:3

7+ (const 4:4 %edited)

8+ (face 4:12 value (aura 4:18 @t)))))

9+ (mold 5:1 model

10+ (cell 5:10

11+ (face 5:11 count (aura 5:17 @ud))))

12+ (value 7:1 row-scheme (wing 7:15 row))

13+ (value 8:1 column-scheme (wing 8:18 column))

14+ (value 9:1 wrap-scheme (wing 9:16 wrap))

15+ (value 10:1 stack-scheme (wing 10:17 stack))

16+ (value 11:1 el-scheme (wing 11:14 el))

17+ (value 12:1 para-scheme (wing 12:16 para))

18+ (value 13:1 text-scheme (wing 13:16 text))

19+ (value 14:1 heading-scheme (wing 14:19 heading))

20+ (value 15:1 each-scheme (wing 15:16 each))

21+ (value 16:1 table-scheme (wing 16:17 table))

22+ (value 17:1 image-scheme (wing 17:17 image))

23+ (value 18:1 image-unsafe-scheme (wing 18:24 image-unsafe))

24+ (value 19:1 link-scheme (wing 19:16 link))

25+ (value 20:1 link-unsafe-scheme (wing 20:23 link-unsafe))

26+ (value 21:1 button-scheme (wing 21:18 button))

27+ (value 22:1 toggle-scheme (wing 22:18 toggle))

28+ (value 23:1 field-scheme (wing 23:17 field))

29+ (value 24:1 form-scheme (wing 24:16 form))

30+ (value 25:1 island-scheme (wing 25:18 island))

31+ (value 26:1 program-scheme (wing 26:19 program))

32+ (value 27:1 page-scheme (wing 27:16 page))

33+ (value 29:1 static-text

34+ (cast 29:16

35+ (apply 29:19 element (void 29:28))

36+ (group 29:32

37+ (call 29:33 (wing 29:33 text) (str 29:38 "hello")))))

38+ (value 30:1 raw-text

39+ (cast 30:13

40+ (apply 30:16 element (void 30:25))

41+ (group 30:29

42+ (call 30:30

43+ (wing 30:30 row)

44+ (lit 30:34 ~)

45+ (list 30:36

46+ (tuple 30:38 (lit 30:39 %text) (str 30:45 "raw")))))))

47+ (value 31:1 static-ui

48+ (cast 31:14

49+ (apply 31:17 element (void 31:26))

50+ (body 32:3

51+ (call 32:3

52+ (wing 32:3 column)

53+ (list 32:10

54+ (pair 32:12 pad (lit 32:16 %s1))

55+ (pair 32:20 gap (lit 32:24 %s2))

56+ (pair 32:28 width

57+ (tuple 32:34 (lit 32:35 %fill) (lit 32:41 1)))

58+ (pair 32:44 align (lit 32:50 %center))

59+ (pair 32:58 role (lit 32:63 %body))

60+ (pair 32:69 tone (lit 32:74 %muted)))

61+ (list 32:82

62+ (call 33:5 (wing 33:5 text) (str 33:10 "one"))

63+ (call 34:5

64+ (wing 34:5 para)

65+ (list 34:10

66+ (group 34:12

67+ (call 34:13 (wing 34:13 text) (str 34:18 "two")))))

68+ (call 35:5 (wing 35:5 heading) (lit 35:13 2) (str 35:15 "heading")))))))

69+ (value 36:1 static-media

70+ (cast 36:17

71+ (apply 36:20 element (void 36:29))

72+ (body 37:3

73+ (call 37:3

74+ (wing 37:3 stack)

75+ (list 37:9

76+ (pair 37:11 width

77+ (tuple 37:17 (lit 37:18 %chars) (lit 37:25 20))))

78+ (list 37:30

79+ (call 38:5 (wing 38:5 image) (qath 38:11 images logo.png) (str 38:29 "Logo"))

80+ (call 39:5 (wing 39:5 link) (qath 39:10 home) (str 39:17 "Home")))))))

81+ (value 40:1 unsafe-media

82+ (cast 40:17

83+ (apply 40:20 element (void 40:29))

84+ (body 41:3

85+ (call 41:3

86+ (wing 41:3 wrap)

87+ (list 41:8

88+ (pair 41:10 width (lit 41:16 %shrink))

89+ (pair 41:24 role (lit 41:29 %caption))

90+ (pair 41:38 tone (lit 41:43 %accent)))

91+ (list 41:52

92+ (call 42:5

93+ (wing 42:5 image-unsafe)

94+ (tuple 42:18

95+ (face 42:19 url (str 42:23 "https://example.com/a.png"))

96+ (face 42:51 width (lit 42:57 20))

97+ (face 42:60 height (lit 42:67 10)))

98+ (str 42:71 "Remote"))

99+ (call 43:5 (wing 43:5 link-unsafe) (str 43:17 "/elsewhere") (str 43:30 "Elsewhere")))))))

100+ (value 44:1 save-message

101+ (cast 44:17 (ref 44:20 msg) (lit 44:24 %save)))

102+ (value 45:1 toggle-message

103+ (cast 45:19 (ref 45:22 msg) (lit 45:26 %toggle)))

104+ (value 46:1 save-button

105+ (cast 46:16

106+ (apply 46:19 element (ref 46:28 msg))

107+ (group 46:33

108+ (call 46:34 (wing 46:34 button) (str 46:41 "Save") (wing 46:48 save-message)))))

109+ (value 47:1 enabled-toggle

110+ (cast 47:19

111+ (apply 47:22 element (ref 47:31 msg))

112+ (group 47:36

113+ (call 47:37 (wing 47:37 toggle) (lit 47:44 %.y) (str 47:48 "Enabled") (wing 47:58 toggle-message)))))

114+ (value 48:1 edit-message

115+ (gate 48:17

116+ (face 48:20 value (aura 48:26 @t))

117+ (cast 48:29

118+ (ref 48:32 msg)

119+ (tuple 48:36 (lit 48:37 %edited) (wing 48:45 value)))))

120+ (value 49:1 name-field

121+ (cast 49:15

122+ (apply 49:18 element (ref 49:27 msg))

123+ (group 49:32

124+ (call 49:33 (wing 49:33 field) (str 49:39 "Name") (str 49:46 "value") (wing 49:54 edit-message)))))

125+ (value 50:1 controls

126+ (cast 50:13

127+ (apply 50:16 element (ref 50:25 msg))

128+ (body 51:3

129+ (group 51:3

130+ (call 51:4

131+ (wing 51:4 form)

132+ (wing 51:9 save-message)

133+ (list 51:22 (wing 51:24 save-button) (wing 51:36 enabled-toggle) (wing 51:51 name-field)))))))

134+ (value 52:1 keyed

135+ (gate 52:10

136+ (face 52:13 items

137+ (apply 52:19 list

138+ (cell 52:25

139+ (face 52:26 key (aura 52:30 @t))

140+ (face 52:33 el

141+ (apply 52:36 element (ref 52:45 msg))))))

142+ (body 53:3

143+ (cast 53:3

144+ (apply 53:6 element (ref 53:15 msg))

145+ (group 53:20

146+ (call 53:21 (wing 53:21 each) (wing 53:26 items)))))))

147+ (value 54:1 tabular

148+ (gate 54:12

149+ (face 54:15 rows

150+ (apply 54:20 list

151+ (cell 54:26

152+ (face 54:27 key (aura 54:31 @ud))

153+ (face 54:35 cells

154+ (apply 54:41 list

155+ (apply 54:47 element (ref 54:56 msg)))))))

156+ (body 55:3

157+ (cast 55:3

158+ (apply 55:6 element (ref 55:15 msg))

159+ (body 56:5

160+ (group 56:5

161+ (call 56:6

162+ (wing 56:6 table)

163+ (list 56:12

164+ (tuple 56:14

165+ (face 56:15 header (str 56:22 "Name"))

166+ (face 56:29 width

167+ (tuple 56:35 (lit 56:36 %fill) (lit 56:42 1)))

168+ (face 56:45 align (lit 56:51 %start))))

169+ (wing 56:60 rows))))))))

170+ (value 58:1 bad-pad

171+ (cast 58:12

172+ (apply 58:15 element (void 58:24))

173+ (group 58:28

174+ (call 58:29

175+ (wing 58:29 row)

176+ (list 58:33

177+ (pair 58:35 pad (lit 58:39 %s4)))

178+ (lit 58:44 ~)))))

179+ (value 59:1 bad-width

180+ (cast 59:14

181+ (apply 59:17 element (void 59:26))

182+ (group 59:30

183+ (call 59:31

184+ (wing 59:31 row)

185+ (list 59:35

186+ (pair 59:37 width

187+ (tuple 59:43 (lit 59:44 %chars) (str 59:51 "wide"))))

188+ (lit 59:60 ~)))))

189+ (value 60:1 malformed-each

190+ (cast 60:19

191+ (apply 60:22 element (ref 60:31 msg))

192+ (group 60:36

193+ (call 60:37

194+ (wing 60:37 each)

195+ (list 60:42

196+ (tuple 60:44

197+ (face 60:45 key (str 60:49 "row"))

198+ (face 60:55 kid

199+ (group 60:59

200+ (call 60:60 (wing 60:60 text) (str 60:65 "child"))))))))))

201+ (value 61:1 malformed-table

202+ (cast 61:20

203+ (apply 61:23 element (ref 61:32 msg))

204+ (body 62:3

205+ (group 62:3

206+ (call 62:4

207+ (wing 62:4 table)

208+ (list 62:10

209+ (tuple 62:12

210+ (face 62:13 header (str 62:20 "Name"))

211+ (face 62:27 width (lit 62:33 %shrink))))

212+ (lit 62:43 ~))))))

213+ (value 63:1 ship-control

214+ (cast 63:17

215+ (apply 63:20 element (aura 63:29 @p))

216+ (group 63:33

217+ (call 63:34 (wing 63:34 button) (str 63:41 "Ship") (lit 63:48 ~zod)))))

218+ (value 64:1 text-row

219+ (gate 64:13

220+ (face 64:16 kids

221+ (apply 64:21 list

222+ (apply 64:27 element (aura 64:36 @t))))

223+ (cast 64:41

224+ (apply 64:44 element (aura 64:53 @t))

225+ (group 64:57

226+ (call 64:58 (wing 64:58 row) (lit 64:62 ~) (wing 64:64 kids))))))

227+ (value 65:1 bad-child

228+ (group 65:14

229+ (call 65:15

230+ (wing 65:15 text-row)

231+ (list 65:24 (wing 65:26 ship-control)))))

232+ (value 67:1 init

233+ (gate 67:9

234+ (face 67:12 input (aura 67:18 @t))

235+ (cast 67:21

236+ (ref 67:24 model)

237+ (tuple 67:30

238+ (face 67:31 count (lit 67:37 0))))))

239+ (value 68:1 update

240+ (gate 68:11

241+ (cell 68:14

242+ (face 68:15 message (ref 68:23 msg))

243+ (face 68:27 state (ref 68:33 model)))

244+ (body 69:3

245+ (cast 69:3

246+ (cell 69:6

247+ (ref 69:7 model)

248+ (apply 69:13 list

249+ (apply 69:19 cmd (ref 69:24 msg))))

250+ (tuple 69:31 (wing 69:32 state) (lit 69:38 ~))))))

251+ (value 70:1 view

252+ (gate 70:9

253+ (face 70:12 state (ref 70:18 model))

254+ (cast 70:24

255+ (apply 70:27 element (ref 70:36 msg))

256+ (group 70:41 (wing 70:42 controls)))))

257+ (value 71:1 subs

258+ (gate 71:9

259+ (face 71:12 state (ref 71:18 model))

260+ (cast 71:24

261+ (apply 71:27 list

262+ (apply 71:33 sub (ref 71:38 msg)))

263+ (lit 71:44 ~))))

264+ (value 72:1 concrete-program

265+ (cast 72:21

266+ (apply 72:24 program (aura 72:33 @t) (ref 72:36 model) (ref 72:42 msg))

267+ (group 72:47

268+ (call 72:48 (wing 72:48 program) (wing 72:56 init) (wing 72:61 update) (wing 72:68 view) (wing 72:73 subs)))))

269+ (value 73:1 embedded

270+ (cast 73:13

271+ (apply 73:16 element (void 73:25))

272+ (group 73:29

273+ (call 73:30 (wing 73:30 island) (wing 73:37 concrete-program) (str 73:54 "seed")))))

274+ (value 74:1 mismatched-island-data

275+ (cast 74:27

276+ (apply 74:30 element (void 74:39))

277+ (group 74:43

278+ (call 74:44 (wing 74:44 island) (wing 74:51 concrete-program) (lit 74:68 ~zod)))))

279+ (value 76:1 load

280+ (gate 76:9

281+ (face 76:12 route (aura 76:18 @t))

282+ (cast 76:21

283+ (apply 76:24 ask (ref 76:29 model))

284+ (group 76:36

285+ (call 76:37

286+ (wing 76:37 pure)

287+ (tuple 76:42

288+ (face 76:43 count (lit 76:49 0))))))))

289+ (value 77:1 page-view

290+ (gate 77:14

291+ (face 77:17 data (ref 77:22 model))

292+ (cast 77:28

293+ (apply 77:31 element (void 77:40))

294+ (group 77:44

295+ (call 77:45 (wing 77:45 text) (str 77:50 "page"))))))

296+ (value 78:1 static-page

297+ (cast 78:16

298+ (apply 78:19 page (aura 78:25 @t) (ref 78:28 model))

299+ (group 78:35

300+ (call 78:36 (wing 78:36 page) (wing 78:41 load) (wing 78:46 page-view))))))

tests/golden/types-prelude-ui/types.txtnew file+85

@@ -0,0 +1,85 @@

1+partial inference; module not checked

2++$ msg: cases proven disjoint; mold not checked

3++$ model: not checked

4+++ row-scheme: $-([attrs=(list attr) kids=(list (element A))] (element A))

5+++ column-scheme: $-([attrs=(list attr) kids=(list (element A))] (element A))

6+++ wrap-scheme: $-([attrs=(list attr) kids=(list (element A))] (element A))

7+++ stack-scheme: $-([attrs=(list attr) kids=(list (element A))] (element A))

8+++ el-scheme: $-([attrs=(list attr) kid=(element A)] (element A))

9+++ para-scheme: $-((list (element A)) (element A))

10+++ text-scheme: $-(@t (element A))

11+++ heading-scheme: $-([level=@ud words=@t] (element A))

12+++ each-scheme: $-((list [key=A el=(element B)]) (element B))

13+++ table-scheme: $-([columns=(list [header=@t [width=length align=align]]) rows=(list [key=A cells=(list (element B))])] (element B))

14+++ image-scheme: $-([source=qath description=@t] (element A))

15+++ image-unsafe-scheme: $-([source=[url=@t [width=@ud height=@ud]] description=@t] (element A))

16+++ link-scheme: $-([target=qath label=@t] (element A))

17+++ link-unsafe-scheme: $-([target=@t label=@t] (element A))

18+++ button-scheme: $-([label=@t message=A] (element A))

19+++ toggle-scheme: $-([on=? [label=@t message=A]] (element A))

20+++ field-scheme: $-([label=@t [value=@t reply=$-(@t A)]] (element A))

21+++ form-scheme: $-([message=A kids=(list (element A))] (element A))

22+++ island-scheme: $-([p=[init=$-(A B) [update=$-([C B] [B (list (cmd C))]) [view=$-(B (element C)) subs=$-(B (list (sub C)))]]] data=A] (element !!))

23+++ program-scheme: $-([init=$-(A B) [update=$-([C B] [B (list (cmd C))]) [view=$-(B (element C)) subs=$-(B (list (sub C)))]]] [init=$-(A B) [update=$-([C B] [B (list (cmd C))]) [view=$-(B (element C)) subs=$-(B (list (sub C)))]]])

24+++ page-scheme: $-([load=$-(A (ask B)) view=$-(B (element !!))] [load=$-(A (ask B)) view=$-(B (element !!))])

25+++ static-text: (element !!)

26+++ raw-text: (element !!)

27+++ static-ui: (element !!)

28+++ static-media: (element !!)

29+++ unsafe-media: (element !!)

30+++ save-message: msg

31+++ toggle-message: msg

32+++ save-button: (element msg)

33+++ enabled-toggle: (element msg)

34+++ edit-message: $-(@t msg)

35+++ name-field: (element msg)

36+++ controls: (element msg)

37+++ keyed: $-((list [key=@t el=(element msg)]) (element msg))

38+++ tabular: $-((list [key=@ud cells=(list (element msg))]) (element msg))

39+++ bad-pad: list item does not fit its expected type

40+/tests/golden/types-prelude-ui/source.jibb:58:29: expected item

41+++ bad-pad ^- (element !!) (row ~[pad+%s4] ~)

42+ ^

43+/tests/golden/types-prelude-ui/source.jibb:58:35: list item

44+++ bad-pad ^- (element !!) (row ~[pad+%s4] ~)

45+ ^

46+++ bad-width: list item does not fit its expected type

47+/tests/golden/types-prelude-ui/source.jibb:59:31: expected item

48+++ bad-width ^- (element !!) (row ~[width+[%chars "wide"]] ~)

49+ ^

50+/tests/golden/types-prelude-ui/source.jibb:59:37: list item

51+++ bad-width ^- (element !!) (row ~[width+[%chars "wide"]] ~)

52+ ^

53+++ malformed-each: list item does not fit its expected type

54+/tests/golden/types-prelude-ui/source.jibb:60:37: expected item

55+++ malformed-each ^- (element msg) (each ~[[key="row" kid=(text "child")]])

56+ ^

57+/tests/golden/types-prelude-ui/source.jibb:60:44: list item

58+++ malformed-each ^- (element msg) (each ~[[key="row" kid=(text "child")]])

59+ ^

60+++ malformed-table: list item does not fit its expected type

61+/tests/golden/types-prelude-ui/source.jibb:62:4: expected item

62+ (table ~[[header="Name" width=%shrink]] ~)

63+ ^

64+/tests/golden/types-prelude-ui/source.jibb:62:12: list item

65+ (table ~[[header="Name" width=%shrink]] ~)

66+ ^

67+++ ship-control: (element @p)

68+++ text-row: $-((list (element @t)) (element @t))

69+++ bad-child: list item constraint is not supported by partial inference

70+++ init: $-(@t [count=@ud])

71+++ update: $-([message=msg state=[count=@ud]] [count=@ud (list (cmd msg))])

72+++ view: $-([count=@ud] (element msg))

73+++ subs: $-([count=@ud] (list (sub msg)))

74+++ concrete-program: [init=$-(@t [count=@ud]) [update=$-([msg count=@ud] [count=@ud (list (cmd msg))]) [view=$-([count=@ud] (element msg)) subs=$-([count=@ud] (list (sub msg)))]]]

75+++ embedded: (element !!)

76+++ mismatched-island-data: call's sample and argument types do not unify

77+/tests/golden/types-prelude-ui/source.jibb:74:44: called gate

78+++ mismatched-island-data ^- (element !!) (island concrete-program ~zod)

79+ ^

80+/tests/golden/types-prelude-ui/source.jibb:74:51: argument

81+++ mismatched-island-data ^- (element !!) (island concrete-program ~zod)

82+ ^

83+++ load: $-(@t (ask [count=@ud]))

84+++ page-view: $-([count=@ud] (element !!))

85+++ static-page: [load=$-(@t (ask.internal [count=@ud])) view=$-([count=@ud] (element !!))]

tests/golden/types-prelude-zing/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/overview.md, Prelude: "Hoon's standard library regrouped, written in Jibb"; the Lists row includes section 2b.

2+tests: Source-backed zing infers empty and nested text lists, ship elements, independently generic element types and gate elements, and reports both sites for a non-list. The Jibb type is homogeneous (list (list A)) to (list A); Hoon's raw heterogeneous noun-list behavior is outside this type. This checks partial inference only; backend execution and jet recognition remain unverified.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-prelude-zing/modules.txtnew file+1

@@ -0,0 +1 @@

1+# no module fixtures

tests/golden/types-prelude-zing/source.jibbnew file+6

@@ -0,0 +1,6 @@

1+++ empty (zing (^- (list (list @t)) ~))

2+++ nested (zing ~[~["a" "b"] ~[] ~["c"]])

3+++ ships (zing ~[~[~zod] ~[~nec]])

4+++ generic |= xss=(list (list A)) (zing xss)

5+++ gates |= xss=(list (list $-(A B))) (zing xss)

6+++ bad (zing "not a list of lists")

tests/golden/types-prelude-zing/tokens.txtnew file+92

@@ -0,0 +1,92 @@

1+1:1 glyph ++

2+1:4 name empty

3+1:10 glyph (

4+1:11 tight name zing

5+1:16 glyph (

6+1:17 tight glyph ^-

7+1:20 glyph (

8+1:21 tight name list

9+1:26 glyph (

10+1:27 tight name list

11+1:32 aura @t

12+1:34 tight glyph )

13+1:35 tight glyph )

14+1:37 lit ~

15+1:38 tight glyph )

16+1:39 tight glyph )

17+2:1 NEWLINE

18+2:1 glyph ++

19+2:4 name nested

20+2:11 glyph (

21+2:12 tight name zing

22+2:17 glyph ~[

23+2:19 tight glyph ~[

24+2:21 tight str "a"

25+2:25 str "b"

26+2:28 tight glyph ]

27+2:30 glyph ~[

28+2:32 tight glyph ]

29+2:34 glyph ~[

30+2:36 tight str "c"

31+2:39 tight glyph ]

32+2:40 tight glyph ]

33+2:41 tight glyph )

34+3:1 NEWLINE

35+3:1 glyph ++

36+3:4 name ships

37+3:10 glyph (

38+3:11 tight name zing

39+3:16 glyph ~[

40+3:18 tight glyph ~[

41+3:20 tight lit ~zod

42+3:24 tight glyph ]

43+3:26 glyph ~[

44+3:28 tight lit ~nec

45+3:32 tight glyph ]

46+3:33 tight glyph ]

47+3:34 tight glyph )

48+4:1 NEWLINE

49+4:1 glyph ++

50+4:4 name generic

51+4:12 glyph |=

52+4:15 name xss

53+4:18 tight glyph =

54+4:19 tight glyph (

55+4:20 tight name list

56+4:25 glyph (

57+4:26 tight name list

58+4:31 tvar A

59+4:32 tight glyph )

60+4:33 tight glyph )

61+4:35 glyph (

62+4:36 tight name zing

63+4:41 name xss

64+4:44 tight glyph )

65+5:1 NEWLINE

66+5:1 glyph ++

67+5:4 name gates

68+5:10 glyph |=

69+5:13 name xss

70+5:16 tight glyph =

71+5:17 tight glyph (

72+5:18 tight name list

73+5:23 glyph (

74+5:24 tight name list

75+5:29 glyph $-(

76+5:32 tight tvar A

77+5:34 tvar B

78+5:35 tight glyph )

79+5:36 tight glyph )

80+5:37 tight glyph )

81+5:39 glyph (

82+5:40 tight name zing

83+5:45 name xss

84+5:48 tight glyph )

85+6:1 NEWLINE

86+6:1 glyph ++

87+6:4 name bad

88+6:8 glyph (

89+6:9 tight name zing

90+6:14 str "not a list of lists"

91+6:35 tight glyph )

92+6:36 NEWLINE

tests/golden/types-prelude-zing/tree.txtnew file+43

@@ -0,0 +1,43 @@

1+(module

2+ (value 1:1 empty

3+ (group 1:10

4+ (call 1:11

5+ (wing 1:11 zing)

6+ (group 1:16

7+ (cast 1:17

8+ (apply 1:20 list

9+ (apply 1:26 list (aura 1:32 @t)))

10+ (lit 1:37 ~))))))

11+ (value 2:1 nested

12+ (group 2:11

13+ (call 2:12

14+ (wing 2:12 zing)

15+ (list 2:17

16+ (list 2:19 (str 2:21 "a") (str 2:25 "b"))

17+ (list 2:30)

18+ (list 2:34 (str 2:36 "c"))))))

19+ (value 3:1 ships

20+ (group 3:10

21+ (call 3:11

22+ (wing 3:11 zing)

23+ (list 3:16

24+ (list 3:18 (lit 3:20 ~zod))

25+ (list 3:26 (lit 3:28 ~nec))))))

26+ (value 4:1 generic

27+ (gate 4:12

28+ (face 4:15 xss

29+ (apply 4:19 list

30+ (apply 4:25 list (tvar 4:31 A))))

31+ (group 4:35

32+ (call 4:36 (wing 4:36 zing) (wing 4:41 xss)))))

33+ (value 5:1 gates

34+ (gate 5:10

35+ (face 5:13 xss

36+ (apply 5:17 list

37+ (apply 5:23 list

38+ (fn 5:29 (tvar 5:32 A) (tvar 5:34 B)))))

39+ (group 5:39

40+ (call 5:40 (wing 5:40 zing) (wing 5:45 xss)))))

41+ (value 6:1 bad

42+ (group 6:8

43+ (call 6:9 (wing 6:9 zing) (str 6:14 "not a list of lists")))))

tests/golden/types-prelude-zing/types.txtnew file+13

@@ -0,0 +1,13 @@

1+partial inference; module not checked

2+++ empty: (list @t)

3+++ nested: (list @t)

4+++ ships: (list @p)

5+++ generic: $-((list (list A)) (list A))

6+++ gates: $-((list (list $-(A B))) (list $-(A B)))

7+++ bad: call's sample and argument types do not unify

8+/tests/golden/types-prelude-zing/source.jibb:6:9: called gate has type $-((list (list A)) (list A))

9+++ bad (zing "not a list of lists")

10+ ^

11+/tests/golden/types-prelude-zing/source.jibb:6:14: argument has type @t

12+++ bad (zing "not a list of lists")

13+ ^

tests/golden/types-recursion-scc-import/source.jibb+1−1

@@ -1,3 +1,3 @@

11/= lib /ui/lib

2−++ text ^- @t (left.lib "hello")

2+++ text-value ^- @t (left.lib "hello")

33++ ship ^- @p (right.lib "hello")

tests/golden/types-recursion-scc-import/tokens.txt+7−7

@@ -6,13 +6,13 @@

661:12 tight knot lib

772:1 NEWLINE

882:1 glyph ++

9−2:4 name text

10−2:9 glyph ^-

11−2:12 aura @t

12−2:15 glyph (

13−2:16 tight wing left.lib

14−2:25 str "hello"

15−2:32 tight glyph )

9+2:4 name text-value

10+2:15 glyph ^-

11+2:18 aura @t

12+2:21 glyph (

13+2:22 tight wing left.lib

14+2:31 str "hello"

15+2:38 tight glyph )

16163:1 NEWLINE

17173:1 glyph ++

18183:4 name ship

tests/golden/types-recursion-scc-import/tree.txt+5−5

@@ -1,10 +1,10 @@

11(module

22 (jibb 1:1 lib /ui/lib)

3− (value 2:1 text

4− (cast 2:9

5− (aura 2:12 @t)

6− (group 2:15

7− (call 2:16 (wing 2:16 left.lib) (str 2:25 "hello")))))

3+ (value 2:1 text-value

4+ (cast 2:15

5+ (aura 2:18 @t)

6+ (group 2:21

7+ (call 2:22 (wing 2:22 left.lib) (str 2:31 "hello")))))

88 (value 3:1 ship

99 (cast 3:9

1010 (aura 3:12 @p)

tests/golden/types-recursion-scc-import/types.txt+1−1

@@ -1,3 +1,3 @@

11partial inference; module not checked

2−++ text: @t

2+++ text-value: @t

33++ ship: @p

tests/golden/types-request-normal/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: docs/spec/overview.md, Agent APIs: "A path case is a request name, a path and a type. A plain mold is full state"; Effects: "its reply always gets full state."

2+tests: A real mark and one plain API path infer imported request calls at independent cord, ship and generic reply types; wrong callbacks, non-gates, extra arguments and pending constraints remain failures or unsupported. This partial report neither checks watchability nor implements request lowering or runtime validation.

3+expect: parses

4+expect-types: partial inference; module not checked

tests/golden/types-request-normal/mar/full.txtnew file+5

@@ -0,0 +1,5 @@

1+|_ a=@t

2+++ grab |% ++ noun @t --

3+++ grow |% ++ noun a --

4+++ grad %noun

5+--

tests/golden/types-request-normal/marks.txtnew file+1

@@ -0,0 +1 @@

1+full

tests/golden/types-request-normal/module-trees.txtnew file+5

@@ -0,0 +1,5 @@

1+/ui/api/demo.jibb

2+(module

3+ (mark 1:1 %full)

4+ (mold 2:1 paths

5+ (cell 2:10 (const 2:11 %plain) (path 2:18 /plain) (ref 2:25 full))))

tests/golden/types-request-normal/modules.txtnew file+1

@@ -0,0 +1 @@

1+/ui/api/demo.jibb

tests/golden/types-request-normal/modules/ui/api/demo.jibbnew file+2

@@ -0,0 +1,2 @@

1+/% %full

2++$ paths [%plain /plain full]

tests/golden/types-request-normal/source.jibbnew file+9

@@ -0,0 +1,9 @@

1+/= api /ui/api/demo

2+++ cord (plain.api |=(x=@t "ok"))

3+++ ship (plain.api |=(x=@t ~zod))

4+++ generic |= convert=$-(@t A) (plain.api convert)

5+++ wrong-callback (plain.api |=(x=@p "wrong"))

6+++ wrong-value (plain.api "wrong")

7+++ extra (plain.api |=(x=@t "ok") "extra")

8+++ pending ~& %pending

9+ (plain.api |=(x=@t "ok"))

tests/golden/types-request-normal/tokens.txtnew file+95

@@ -0,0 +1,95 @@

1+1:1 glyph /=

2+1:4 name api

3+1:8 glyph /

4+1:9 tight knot ui

5+1:11 tight glyph /

6+1:12 tight knot api

7+1:15 tight glyph /

8+1:16 tight knot demo

9+2:1 NEWLINE

10+2:1 glyph ++

11+2:4 name cord

12+2:9 glyph (

13+2:10 tight wing plain.api

14+2:20 glyph |=(

15+2:23 tight name x

16+2:24 tight glyph =

17+2:25 tight aura @t

18+2:28 str "ok"

19+2:32 tight glyph )

20+2:33 tight glyph )

21+3:1 NEWLINE

22+3:1 glyph ++

23+3:4 name ship

24+3:9 glyph (

25+3:10 tight wing plain.api

26+3:20 glyph |=(

27+3:23 tight name x

28+3:24 tight glyph =

29+3:25 tight aura @t

30+3:28 lit ~zod

31+3:32 tight glyph )

32+3:33 tight glyph )

33+4:1 NEWLINE

34+4:1 glyph ++

35+4:4 name generic

36+4:12 glyph |=

37+4:15 name convert

38+4:22 tight glyph =

39+4:23 tight glyph $-(

40+4:26 tight aura @t

41+4:29 tvar A

42+4:30 tight glyph )

43+4:32 glyph (

44+4:33 tight wing plain.api

45+4:43 name convert

46+4:50 tight glyph )

47+5:1 NEWLINE

48+5:1 glyph ++

49+5:4 name wrong-callback

50+5:19 glyph (

51+5:20 tight wing plain.api

52+5:30 glyph |=(

53+5:33 tight name x

54+5:34 tight glyph =

55+5:35 tight aura @p

56+5:38 str "wrong"

57+5:45 tight glyph )

58+5:46 tight glyph )

59+6:1 NEWLINE

60+6:1 glyph ++

61+6:4 name wrong-value

62+6:16 glyph (

63+6:17 tight wing plain.api

64+6:27 str "wrong"

65+6:34 tight glyph )

66+7:1 NEWLINE

67+7:1 glyph ++

68+7:4 name extra

69+7:10 glyph (

70+7:11 tight wing plain.api

71+7:21 glyph |=(

72+7:24 tight name x

73+7:25 tight glyph =

74+7:26 tight aura @t

75+7:29 str "ok"

76+7:33 tight glyph )

77+7:35 str "extra"

78+7:42 tight glyph )

79+8:1 NEWLINE

80+8:1 glyph ++

81+8:4 name pending

82+8:12 glyph ~&

83+8:15 lit %pending

84+9:3 INDENT

85+9:3 glyph (

86+9:4 tight wing plain.api

87+9:14 glyph |=(

88+9:17 tight name x

89+9:18 tight glyph =

90+9:19 tight aura @t

91+9:22 str "ok"

92+9:26 tight glyph )

93+9:27 tight glyph )

94+9:28 DEDENT

95+9:28 NEWLINE

tests/golden/types-request-normal/tree.txtnew file+50

@@ -0,0 +1,50 @@

1+(module

2+ (jibb 1:1 api /ui/api/demo)

3+ (value 2:1 cord

4+ (group 2:9

5+ (call 2:10

6+ (wing 2:10 plain.api)

7+ (gate-wide 2:20

8+ (face 2:23 x (aura 2:25 @t))

9+ (str 2:28 "ok")))))

10+ (value 3:1 ship

11+ (group 3:9

12+ (call 3:10

13+ (wing 3:10 plain.api)

14+ (gate-wide 3:20

15+ (face 3:23 x (aura 3:25 @t))

16+ (lit 3:28 ~zod)))))

17+ (value 4:1 generic

18+ (gate 4:12

19+ (face 4:15 convert

20+ (fn 4:23 (aura 4:26 @t) (tvar 4:29 A)))

21+ (group 4:32

22+ (call 4:33 (wing 4:33 plain.api) (wing 4:43 convert)))))

23+ (value 5:1 wrong-callback

24+ (group 5:19

25+ (call 5:20

26+ (wing 5:20 plain.api)

27+ (gate-wide 5:30

28+ (face 5:33 x (aura 5:35 @p))

29+ (str 5:38 "wrong")))))

30+ (value 6:1 wrong-value

31+ (group 6:16

32+ (call 6:17 (wing 6:17 plain.api) (str 6:27 "wrong"))))

33+ (value 7:1 extra

34+ (group 7:10

35+ (call 7:11

36+ (wing 7:11 plain.api)

37+ (gate-wide 7:21

38+ (face 7:24 x (aura 7:26 @t))

39+ (str 7:29 "ok"))

40+ (str 7:35 "extra"))))

41+ (value 8:1 pending

42+ (trace 8:12

43+ (lit 8:15 %pending)

44+ (body 9:3

45+ (group 9:3

46+ (call 9:4

47+ (wing 9:4 plain.api)

48+ (gate-wide 9:14

49+ (face 9:17 x (aura 9:19 @t))

50+ (str 9:22 "ok"))))))))

tests/golden/types-request-normal/types.txtnew file+26

@@ -0,0 +1,26 @@

1+partial inference; module not checked

2+++ cord: (ask @t)

3+++ ship: (ask @p)

4+++ generic: $-($-(@t A) (ask A))

5+++ wrong-callback: call's sample and argument types do not unify

6+/tests/golden/types-request-normal/source.jibb:5:20: called gate

7+++ wrong-callback (plain.api |=(x=@p "wrong"))

8+ ^

9+/tests/golden/types-request-normal/source.jibb:5:30: argument has type $-(@p @t)

10+++ wrong-callback (plain.api |=(x=@p "wrong"))

11+ ^

12+++ wrong-value: call's sample and argument types do not unify

13+/tests/golden/types-request-normal/source.jibb:6:17: called gate

14+++ wrong-value (plain.api "wrong")

15+ ^

16+/tests/golden/types-request-normal/source.jibb:6:27: argument has type @t

17+++ wrong-value (plain.api "wrong")

18+ ^

19+++ extra: call's sample and argument types do not unify

20+/tests/golden/types-request-normal/source.jibb:7:11: called gate

21+++ extra (plain.api |=(x=@t "ok") "extra")

22+ ^

23+/tests/golden/types-request-normal/source.jibb:7:21: argument has type [$-(@t @t) @t]

24+++ extra (plain.api |=(x=@t "ok") "extra")

25+ ^

26+++ pending: tag needs context in partial inference

tests/golden/types-union-finite-context/source.jibb+1−1

@@ -35,7 +35,7 @@

3535 * %stay

3636++ binder |= x=input ^- ?

3737 ?- x

38− [%p flag text] flag

38+ [%p flag words] flag

3939 %other %.n

4040++ unresolved |= x=input ^- (list @t)

4141 ~& %pending

tests/golden/types-union-finite-context/tokens.txt+3−3

@@ -244,9 +244,9 @@

24424438:5 glyph [

24524538:6 tight lit %p

24624638:9 name flag

247−38:14 name text

248−38:18 tight glyph ]

249−38:20 name flag

247+38:14 name words

248+38:19 tight glyph ]

249+38:21 name flag

25025039:5 NEWLINE

25125139:5 lit %other

25225239:12 lit %.n

tests/golden/types-union-finite-context/tree.txt+2−2

@@ -111,8 +111,8 @@

111111 (branch 37:3

112112 (wing 37:6 x)

113113 (arm 38:5

114− (cell 38:5 (lit 38:6 %p) (bind 38:9 flag) (bind 38:14 text))

115− (wing 38:20 flag))

114+ (cell 38:5 (lit 38:6 %p) (bind 38:9 flag) (bind 38:14 words))

115+ (wing 38:21 flag))

116116 (arm 39:5 (lit 39:5 %other) (lit 39:12 %.n)))))))

117117 (value 40:1 unresolved

118118 (gate 40:15

tests/golden/types-union-finite-limit/about.txt+1−1

@@ -1,4 +1,4 @@

11source: Grammar, Patterns: "Every case needs an arm or a catch-all"; Molds: the empty mold `!!` has no values.

2−tests: Whole-case matching remains available without expanding many booleans. Partial matching succeeds below the implementation's 64-alternative limit and fails closed above it; empty union cases remain unsupported rather than falsely checked.

2+tests: Whole-case matching remains available without expanding many booleans. Partial matching succeeds below the implementation's 64-alternative limit and fails closed above it; a proven empty case is excluded from coverage, allowing the only inhabited case to be matched.

33expect: parses

44expect-types: a partial inference report

tests/golden/types-union-finite-limit/types.txt+1−1

@@ -7,4 +7,4 @@ partial inference; module not checked

77+$ over: cases proven disjoint; mold not checked

88++ capped: union pattern expansion needs unsupported inference

99+$ empty-msg: cases proven disjoint; mold not checked

10−++ one: sample mold is not supported by partial inference

10+++ one: $-(empty-msg @t)

tests/golden/types-union-nonwing-subject/source.jibb+13−13

@@ -8,24 +8,24 @@

88++ passthrough |= x=input x

99++ grouped |= x=input ^- (list @t)

1010 ?- (x)

11− [%item flag text] ~[text]

11+ [%item flag words] ~[words]

1212 %none ~

1313++ call |= x=input ^- (list @t)

1414 ?- (local-id x)

15− [%item flag text] ~[text]

15+ [%item flag words] ~[words]

1616 %none ~

1717++ nested |= x=input ^- result

1818 ?- (local-id (passthrough x))

19− [%item flag text] %good

19+ [%item flag words] %good

2020 %none %empty

2121++ finite |= x=input ^- (list @t)

2222 ?- (local-id x)

23− [%item %.y text] ~[text]

24− [%item %.n text] ~[]

23+ [%item %.y words] ~[words]

24+ [%item %.n words] ~[]

2525 %none ~

2626++ wrong |= x=input ^- result

2727 ?- (local-id x)

28− [%item flag text] %missing

28+ [%item flag words] %missing

2929 %none %empty

3030++ missing |= x=input ^- (list @t)

3131 ?- (local-id x)

@@ -34,7 +34,7 @@

3434 ?- (local-id x)

3535 %none ~

3636 %none ~

37− [%item flag text] ~[text]

37+ [%item flag words] ~[words]

3838++ shadow |= x=input ^- result

3939 ?- (local-id x)

4040 [%item flag same] %good

@@ -42,19 +42,19 @@

4242++ pending |= x=input ^- result

4343 ~& %dangling

4444 ?- (local-id x)

45− [%item flag text] %good

45+ [%item flag words] %good

4646 %none %empty

4747++ unknown |= x ^- (list @t)

4848 ?- (local-id x)

49− [%item flag text] ~[text]

49+ [%item flag words] ~[words]

5050 %none ~

5151++ nonunion |= x=@t ^- (list @t)

5252 ?- (local-id x)

53− [%item flag text] ~[text]

53+ [%item flag words] ~[words]

5454 %none ~

5555++ explicit |= [x=input y=A] ^- (list A)

5656 ?- (local-id x)

57− [%item flag text] ~["text"]

57+ [%item flag words] ~["text"]

5858 %none ~

5959+$ payload |$ [A]

6060 [%present value=A]

@@ -65,12 +65,12 @@

6565 %none ~

6666++ bad-subject |= x=input ^- result

6767 ?- (passthrough "wrong")

68− [%item flag text] %missing

68+ [%item flag words] %missing

6969 %none %empty

7070++ first-of |= [a b] a

7171++ pending-subject |= x=input ^- result

7272 ?- (first-of x %dangling)

73− [%item flag text] %good

73+ [%item flag words] %good

7474 %none %empty

7575++ duplicate-flag-subject |= x=@t ^- (list @t)

7676 ?- (passthrough x)

tests/golden/types-union-nonwing-subject/tokens.txt+54−54

@@ -56,11 +56,11 @@

565611:5 glyph [

575711:6 tight lit %item

585811:12 name flag

59−11:17 name text

60−11:21 tight glyph ]

61−11:23 glyph ~[

62−11:25 tight name text

63−11:29 tight glyph ]

59+11:17 name words

60+11:22 tight glyph ]

61+11:24 glyph ~[

62+11:26 tight name words

63+11:31 tight glyph ]

646412:5 NEWLINE

656512:5 lit %none

666612:11 lit ~

@@ -88,11 +88,11 @@

888815:5 glyph [

898915:6 tight lit %item

909015:12 name flag

91−15:17 name text

92−15:21 tight glyph ]

93−15:23 glyph ~[

94−15:25 tight name text

95−15:29 tight glyph ]

91+15:17 name words

92+15:22 tight glyph ]

93+15:24 glyph ~[

94+15:26 tight name words

95+15:31 tight glyph ]

969616:5 NEWLINE

979716:5 lit %none

989816:11 lit ~

@@ -120,9 +120,9 @@

12012019:5 glyph [

12112119:6 tight lit %item

12212219:12 name flag

123−19:17 name text

124−19:21 tight glyph ]

125−19:23 lit %good

123+19:17 name words

124+19:22 tight glyph ]

125+19:24 lit %good

12612620:5 NEWLINE

12712720:5 lit %none

12812820:11 lit %empty

@@ -150,19 +150,19 @@

15015023:5 glyph [

15115123:6 tight lit %item

15215223:12 lit %.y

153−23:16 name text

154−23:20 tight glyph ]

155−23:22 glyph ~[

156−23:24 tight name text

157−23:28 tight glyph ]

153+23:16 name words

154+23:21 tight glyph ]

155+23:23 glyph ~[

156+23:25 tight name words

157+23:30 tight glyph ]

15815824:5 NEWLINE

15915924:5 glyph [

16016024:6 tight lit %item

16116124:12 lit %.n

162−24:16 name text

163−24:20 tight glyph ]

164−24:22 glyph ~[

165−24:24 tight glyph ]

162+24:16 name words

163+24:21 tight glyph ]

164+24:23 glyph ~[

165+24:25 tight glyph ]

16616625:5 NEWLINE

16716725:5 lit %none

16816825:11 lit ~

@@ -187,9 +187,9 @@

18718728:5 glyph [

18818828:6 tight lit %item

18918928:12 name flag

190−28:17 name text

191−28:21 tight glyph ]

192−28:23 lit %missing

190+28:17 name words

191+28:22 tight glyph ]

192+28:24 lit %missing

19319329:5 NEWLINE

19419429:5 lit %none

19519529:11 lit %empty

@@ -246,11 +246,11 @@

24624637:5 glyph [

24724737:6 tight lit %item

24824837:12 name flag

249−37:17 name text

250−37:21 tight glyph ]

251−37:23 glyph ~[

252−37:25 tight name text

253−37:29 tight glyph ]

249+37:17 name words

250+37:22 tight glyph ]

251+37:24 glyph ~[

252+37:26 tight name words

253+37:31 tight glyph ]

25425438:1 DEDENT

25525538:1 DEDENT

25625638:1 NEWLINE

@@ -302,9 +302,9 @@

30230245:7 glyph [

30330345:8 tight lit %item

30430445:14 name flag

305−45:19 name text

306−45:23 tight glyph ]

307−45:25 lit %good

305+45:19 name words

306+45:24 tight glyph ]

307+45:26 lit %good

30830846:7 NEWLINE

30930946:7 lit %none

31031046:13 lit %empty

@@ -331,11 +331,11 @@

33133149:5 glyph [

33233249:6 tight lit %item

33333349:12 name flag

334−49:17 name text

335−49:21 tight glyph ]

336−49:23 glyph ~[

337−49:25 tight name text

338−49:29 tight glyph ]

334+49:17 name words

335+49:22 tight glyph ]

336+49:24 glyph ~[

337+49:26 tight name words

338+49:31 tight glyph ]

33933950:5 NEWLINE

34034050:5 lit %none

34134150:11 lit ~

@@ -363,11 +363,11 @@

36336353:5 glyph [

36436453:6 tight lit %item

36536553:12 name flag

366−53:17 name text

367−53:21 tight glyph ]

368−53:23 glyph ~[

369−53:25 tight name text

370−53:29 tight glyph ]

366+53:17 name words

367+53:22 tight glyph ]

368+53:24 glyph ~[

369+53:26 tight name words

370+53:31 tight glyph ]

37137154:5 NEWLINE

37237254:5 lit %none

37337354:11 lit ~

@@ -400,11 +400,11 @@

40040057:5 glyph [

40140157:6 tight lit %item

40240257:12 name flag

403−57:17 name text

404−57:21 tight glyph ]

405−57:23 glyph ~[

406−57:25 tight str "text"

407−57:31 tight glyph ]

403+57:17 name words

404+57:22 tight glyph ]

405+57:24 glyph ~[

406+57:26 tight str "text"

407+57:32 tight glyph ]

40840858:5 NEWLINE

40940958:5 lit %none

41041058:11 lit ~

@@ -486,9 +486,9 @@

48648668:5 glyph [

48748768:6 tight lit %item

48848868:12 name flag

489−68:17 name text

490−68:21 tight glyph ]

491−68:23 lit %missing

489+68:17 name words

490+68:22 tight glyph ]

491+68:24 lit %missing

49249269:5 NEWLINE

49349369:5 lit %none

49449469:11 lit %empty

@@ -523,9 +523,9 @@

52352373:5 glyph [

52452473:6 tight lit %item

52552573:12 name flag

526−73:17 name text

527−73:21 tight glyph ]

528−73:23 lit %good

526+73:17 name words

527+73:22 tight glyph ]

528+73:24 lit %good

52952974:5 NEWLINE

53053074:5 lit %none

53153174:11 lit %empty

tests/golden/types-union-nonwing-subject/tree.txt+26−26

@@ -23,8 +23,8 @@

2323 (branch 10:3

2424 (group 10:6 (wing 10:7 x))

2525 (arm 11:5

26− (cell 11:5 (lit 11:6 %item) (bind 11:12 flag) (bind 11:17 text))

27− (list 11:23 (wing 11:25 text)))

26+ (cell 11:5 (lit 11:6 %item) (bind 11:12 flag) (bind 11:17 words))

27+ (list 11:24 (wing 11:26 words)))

2828 (arm 12:5 (lit 12:5 %none) (lit 12:11 ~)))))))

2929 (value 13:1 call

3030 (gate 13:9

@@ -36,8 +36,8 @@

3636 (group 14:6

3737 (call 14:7 (wing 14:7 local-id) (wing 14:16 x)))

3838 (arm 15:5

39− (cell 15:5 (lit 15:6 %item) (bind 15:12 flag) (bind 15:17 text))

40− (list 15:23 (wing 15:25 text)))

39+ (cell 15:5 (lit 15:6 %item) (bind 15:12 flag) (bind 15:17 words))

40+ (list 15:24 (wing 15:26 words)))

4141 (arm 16:5 (lit 16:5 %none) (lit 16:11 ~)))))))

4242 (value 17:1 nested

4343 (gate 17:11

@@ -52,8 +52,8 @@

5252 (group 18:16

5353 (call 18:17 (wing 18:17 passthrough) (wing 18:29 x)))))

5454 (arm 19:5

55− (cell 19:5 (lit 19:6 %item) (bind 19:12 flag) (bind 19:17 text))

56− (lit 19:23 %good))

55+ (cell 19:5 (lit 19:6 %item) (bind 19:12 flag) (bind 19:17 words))

56+ (lit 19:24 %good))

5757 (arm 20:5 (lit 20:5 %none) (lit 20:11 %empty)))))))

5858 (value 21:1 finite

5959 (gate 21:11

@@ -65,11 +65,11 @@

6565 (group 22:6

6666 (call 22:7 (wing 22:7 local-id) (wing 22:16 x)))

6767 (arm 23:5

68− (cell 23:5 (lit 23:6 %item) (lit 23:12 %.y) (bind 23:16 text))

69− (list 23:22 (wing 23:24 text)))

68+ (cell 23:5 (lit 23:6 %item) (lit 23:12 %.y) (bind 23:16 words))

69+ (list 23:23 (wing 23:25 words)))

7070 (arm 24:5

71− (cell 24:5 (lit 24:6 %item) (lit 24:12 %.n) (bind 24:16 text))

72− (list 24:22))

71+ (cell 24:5 (lit 24:6 %item) (lit 24:12 %.n) (bind 24:16 words))

72+ (list 24:23))

7373 (arm 25:5 (lit 25:5 %none) (lit 25:11 ~)))))))

7474 (value 26:1 wrong

7575 (gate 26:10

@@ -81,8 +81,8 @@

8181 (group 27:6

8282 (call 27:7 (wing 27:7 local-id) (wing 27:16 x)))

8383 (arm 28:5

84− (cell 28:5 (lit 28:6 %item) (bind 28:12 flag) (bind 28:17 text))

85− (lit 28:23 %missing))

84+ (cell 28:5 (lit 28:6 %item) (bind 28:12 flag) (bind 28:17 words))

85+ (lit 28:24 %missing))

8686 (arm 29:5 (lit 29:5 %none) (lit 29:11 %empty)))))))

8787 (value 30:1 missing

8888 (gate 30:12

@@ -106,8 +106,8 @@

106106 (arm 35:5 (lit 35:5 %none) (lit 35:11 ~))

107107 (arm 36:5 (lit 36:5 %none) (lit 36:11 ~))

108108 (arm 37:5

109− (cell 37:5 (lit 37:6 %item) (bind 37:12 flag) (bind 37:17 text))

110− (list 37:23 (wing 37:25 text))))))))

109+ (cell 37:5 (lit 37:6 %item) (bind 37:12 flag) (bind 37:17 words))

110+ (list 37:24 (wing 37:26 words))))))))

111111 (value 38:1 shadow

112112 (gate 38:11

113113 (face 38:14 x (ref 38:16 input))

@@ -134,8 +134,8 @@

134134 (group 44:8

135135 (call 44:9 (wing 44:9 local-id) (wing 44:18 x)))

136136 (arm 45:7

137− (cell 45:7 (lit 45:8 %item) (bind 45:14 flag) (bind 45:19 text))

138− (lit 45:25 %good))

137+ (cell 45:7 (lit 45:8 %item) (bind 45:14 flag) (bind 45:19 words))

138+ (lit 45:26 %good))

139139 (arm 46:7 (lit 46:7 %none) (lit 46:13 %empty)))))))))

140140 (value 47:1 unknown

141141 (gate 47:12

@@ -147,8 +147,8 @@

147147 (group 48:6

148148 (call 48:7 (wing 48:7 local-id) (wing 48:16 x)))

149149 (arm 49:5

150− (cell 49:5 (lit 49:6 %item) (bind 49:12 flag) (bind 49:17 text))

151− (list 49:23 (wing 49:25 text)))

150+ (cell 49:5 (lit 49:6 %item) (bind 49:12 flag) (bind 49:17 words))

151+ (list 49:24 (wing 49:26 words)))

152152 (arm 50:5 (lit 50:5 %none) (lit 50:11 ~)))))))

153153 (value 51:1 nonunion

154154 (gate 51:13

@@ -160,8 +160,8 @@

160160 (group 52:6

161161 (call 52:7 (wing 52:7 local-id) (wing 52:16 x)))

162162 (arm 53:5

163− (cell 53:5 (lit 53:6 %item) (bind 53:12 flag) (bind 53:17 text))

164− (list 53:23 (wing 53:25 text)))

163+ (cell 53:5 (lit 53:6 %item) (bind 53:12 flag) (bind 53:17 words))

164+ (list 53:24 (wing 53:26 words)))

165165 (arm 54:5 (lit 54:5 %none) (lit 54:11 ~)))))))

166166 (value 55:1 explicit

167167 (gate 55:13

@@ -175,8 +175,8 @@

175175 (group 56:6

176176 (call 56:7 (wing 56:7 local-id) (wing 56:16 x)))

177177 (arm 57:5

178− (cell 57:5 (lit 57:6 %item) (bind 57:12 flag) (bind 57:17 text))

179− (list 57:23 (str 57:25 "text")))

178+ (cell 57:5 (lit 57:6 %item) (bind 57:12 flag) (bind 57:17 words))

179+ (list 57:24 (str 57:26 "text")))

180180 (arm 58:5 (lit 58:5 %none) (lit 58:11 ~)))))))

181181 (mold 59:1 payload

182182 (generic 59:12 A

@@ -211,8 +211,8 @@

211211 (group 67:6

212212 (call 67:7 (wing 67:7 passthrough) (str 67:19 "wrong")))

213213 (arm 68:5

214− (cell 68:5 (lit 68:6 %item) (bind 68:12 flag) (bind 68:17 text))

215− (lit 68:23 %missing))

214+ (cell 68:5 (lit 68:6 %item) (bind 68:12 flag) (bind 68:17 words))

215+ (lit 68:24 %missing))

216216 (arm 69:5 (lit 69:5 %none) (lit 69:11 %empty)))))))

217217 (value 70:1 first-of

218218 (gate 70:13

@@ -228,8 +228,8 @@

228228 (group 72:6

229229 (call 72:7 (wing 72:7 first-of) (wing 72:16 x) (lit 72:18 %dangling)))

230230 (arm 73:5

231− (cell 73:5 (lit 73:6 %item) (bind 73:12 flag) (bind 73:17 text))

232− (lit 73:23 %good))

231+ (cell 73:5 (lit 73:6 %item) (bind 73:12 flag) (bind 73:17 words))

232+ (lit 73:24 %good))

233233 (arm 74:5 (lit 74:5 %none) (lit 74:11 %empty)))))))

234234 (value 75:1 duplicate-flag-subject

235235 (gate 75:27

tests/golden/types-union-nonwing-subject/types.txt+3−3

@@ -11,9 +11,9 @@ partial inference; module not checked

1111/tests/golden/types-union-nonwing-subject/source.jibb:26:24: expected union

1212++ wrong |= x=input ^- result

1313 ^

14−/tests/golden/types-union-nonwing-subject/source.jibb:28:23: tag

15− [%item flag text] %missing

16− ^

14+/tests/golden/types-union-nonwing-subject/source.jibb:28:24: tag

15+ [%item flag words] %missing

16+ ^

1717++ missing: missing union case [%item [flag=? text=@t]]

1818++ dead: branch arm is covered by earlier arms

1919/tests/golden/types-union-nonwing-subject/source.jibb:36:5: covered arm

tests/golden/types-union-runtime-equality/about.txtnew file+3

@@ -0,0 +1,3 @@

1+source: Grammar, Molds: union cases differ as nouns; `?` is the two loobean atoms, and `!!` is empty.

2+tests: Nested equal zero nouns with different auras overlap; a loobean case contains `%.n`; ancestor and descendant atom auras overlap. An empty nested field makes a case disjoint. Different outer tags remain disjoint even when their nested zero nouns are equal.

3+expect-types: partial mold analysis with both sites of definite overlaps; `keep` infers for the distinct-tag mold. The report does not establish that the other molds or the module are checked.

tests/golden/types-union-runtime-equality/source.jibbnew file+16

@@ -0,0 +1,16 @@

1++$ mixed-zero

2+ [%tag [%.y @t]]

3+ [%tag [%$ @p]]

4++$ flag-one

5+ [%tag ?]

6+ [%tag %.n]

7++$ aura-family

8+ [%tag @ta]

9+ [%tag @t]

10++$ empty-field

11+ [%tag [!! @t]]

12+ [%tag [* @p]]

13++$ distinct-tags

14+ [%left [%.y @t]]

15+ [%right [%$ @p]]

16+++ keep |= x=distinct-tags x

tests/golden/types-union-runtime-equality/tokens.txtnew file+96

@@ -0,0 +1,96 @@

1+1:1 glyph +$

2+1:4 name mixed-zero

3+2:3 INDENT

4+2:3 glyph [

5+2:4 tight lit %tag

6+2:9 glyph [

7+2:10 tight lit %.y

8+2:14 aura @t

9+2:16 tight glyph ]

10+2:17 tight glyph ]

11+3:3 NEWLINE

12+3:3 glyph [

13+3:4 tight lit %tag

14+3:9 glyph [

15+3:10 tight lit %$

16+3:13 aura @p

17+3:15 tight glyph ]

18+3:16 tight glyph ]

19+4:1 DEDENT

20+4:1 NEWLINE

21+4:1 glyph +$

22+4:4 name flag-one

23+5:3 INDENT

24+5:3 glyph [

25+5:4 tight lit %tag

26+5:9 glyph ?

27+5:10 tight glyph ]

28+6:3 NEWLINE

29+6:3 glyph [

30+6:4 tight lit %tag

31+6:9 lit %.n

32+6:12 tight glyph ]

33+7:1 DEDENT

34+7:1 NEWLINE

35+7:1 glyph +$

36+7:4 name aura-family

37+8:3 INDENT

38+8:3 glyph [

39+8:4 tight lit %tag

40+8:9 aura @ta

41+8:12 tight glyph ]

42+9:3 NEWLINE

43+9:3 glyph [

44+9:4 tight lit %tag

45+9:9 aura @t

46+9:11 tight glyph ]

47+10:1 DEDENT

48+10:1 NEWLINE

49+10:1 glyph +$

50+10:4 name empty-field

51+11:3 INDENT

52+11:3 glyph [

53+11:4 tight lit %tag

54+11:9 glyph [

55+11:10 tight glyph !!

56+11:13 aura @t

57+11:15 tight glyph ]

58+11:16 tight glyph ]

59+12:3 NEWLINE

60+12:3 glyph [

61+12:4 tight lit %tag

62+12:9 glyph [

63+12:10 tight glyph *

64+12:12 aura @p

65+12:14 tight glyph ]

66+12:15 tight glyph ]

67+13:1 DEDENT

68+13:1 NEWLINE

69+13:1 glyph +$

70+13:4 name distinct-tags

71+14:3 INDENT

72+14:3 glyph [

73+14:4 tight lit %left

74+14:10 glyph [

75+14:11 tight lit %.y

76+14:15 aura @t

77+14:17 tight glyph ]

78+14:18 tight glyph ]

79+15:3 NEWLINE

80+15:3 glyph [

81+15:4 tight lit %right

82+15:11 glyph [

83+15:12 tight lit %$

84+15:15 aura @p

85+15:17 tight glyph ]

86+15:18 tight glyph ]

87+16:1 DEDENT

88+16:1 NEWLINE

89+16:1 glyph ++

90+16:4 name keep

91+16:9 glyph |=

92+16:12 name x

93+16:13 tight glyph =

94+16:14 tight name distinct-tags

95+16:28 name x

96+16:29 NEWLINE

tests/golden/types-union-runtime-equality/tree.txtnew file+37

@@ -0,0 +1,37 @@

1+(module

2+ (mold 1:1 mixed-zero

3+ (union 2:3

4+ (cell 2:3

5+ (const 2:4 %tag)

6+ (cell 2:9 (const 2:10 %.y) (aura 2:14 @t)))

7+ (cell 3:3

8+ (const 3:4 %tag)

9+ (cell 3:9 (const 3:10 %$) (aura 3:13 @p)))))

10+ (mold 4:1 flag-one

11+ (union 5:3

12+ (cell 5:3 (const 5:4 %tag) (flag 5:9))

13+ (cell 6:3 (const 6:4 %tag) (const 6:9 %.n))))

14+ (mold 7:1 aura-family

15+ (union 8:3

16+ (cell 8:3 (const 8:4 %tag) (aura 8:9 @ta))

17+ (cell 9:3 (const 9:4 %tag) (aura 9:9 @t))))

18+ (mold 10:1 empty-field

19+ (union 11:3

20+ (cell 11:3

21+ (const 11:4 %tag)

22+ (cell 11:9 (void 11:10) (aura 11:13 @t)))

23+ (cell 12:3

24+ (const 12:4 %tag)

25+ (cell 12:9 (noun 12:10) (aura 12:12 @p)))))

26+ (mold 13:1 distinct-tags

27+ (union 14:3

28+ (cell 14:3

29+ (const 14:4 %left)

30+ (cell 14:10 (const 14:11 %.y) (aura 14:15 @t)))

31+ (cell 15:3

32+ (const 15:4 %right)

33+ (cell 15:11 (const 15:12 %$) (aura 15:15 @p)))))

34+ (value 16:1 keep

35+ (gate 16:9

36+ (face 16:12 x (ref 16:14 distinct-tags))

37+ (wing 16:28 x))))

tests/golden/types-union-runtime-equality/types.txtnew file+25

@@ -0,0 +1,25 @@

1+partial inference; module not checked

2++$ mixed-zero: overlapping cases; mold not checked

3+/tests/golden/types-union-runtime-equality/source.jibb:2:3: first union case

4+ [%tag [%.y @t]]

5+ ^

6+/tests/golden/types-union-runtime-equality/source.jibb:3:3: overlapping case

7+ [%tag [%$ @p]]

8+ ^

9++$ flag-one: overlapping cases; mold not checked

10+/tests/golden/types-union-runtime-equality/source.jibb:5:3: first union case

11+ [%tag ?]

12+ ^

13+/tests/golden/types-union-runtime-equality/source.jibb:6:3: overlapping case

14+ [%tag %.n]

15+ ^

16++$ aura-family: overlapping cases; mold not checked

17+/tests/golden/types-union-runtime-equality/source.jibb:8:3: first union case

18+ [%tag @ta]

19+ ^

20+/tests/golden/types-union-runtime-equality/source.jibb:9:3: overlapping case

21+ [%tag @t]

22+ ^

23++$ empty-field: cases proven disjoint; mold not checked

24++$ distinct-tags: cases proven disjoint; mold not checked

25+++ keep: $-(distinct-tags distinct-tags)

tests/golden/types-union-source-alias/about.txtnew file+4

@@ -0,0 +1,4 @@

1+source: Grammar, Unions: "Cases must differ as nouns"; Grammar, Generic molds.

2+tests: A one-hop local generic alias with a literal head is proven disjoint from a different head, including with outer generic parameters. Same-head and equal-noun zero spellings with overlapping payloads report both case sites; this partial report does not claim the full module is checked.

3+expect: parses

4+expect-types: a partial inference report

tests/golden/types-union-source-alias/source.jibbnew file+18

@@ -0,0 +1,18 @@

1++$ tagged |$ [A] [%wrapped A]

2++$ choice

3+ (tagged @t)

4+ [%other @p]

5+++ id |= x=choice x

6++$ poly |$ [A B]

7+ (tagged A)

8+ [%second B]

9+++ typed |= x=(poly @t @p) x

10++$ same

11+ (tagged @t)

12+ [%wrapped @p]

13+++ collide |= x=same x

14++$ zero |$ [A] [%.y A]

15++$ same-zero

16+ (zero @t)

17+ [%$ @p]

18+++ collide-zero |= x=same-zero x

tests/golden/types-union-source-alias/tokens.txtnew file+119

@@ -0,0 +1,119 @@

1+1:1 glyph +$

2+1:4 name tagged

3+1:11 glyph |$

4+1:14 glyph [

5+1:15 tight tvar A

6+1:16 tight glyph ]

7+1:18 glyph [

8+1:19 tight lit %wrapped

9+1:28 tvar A

10+1:29 tight glyph ]

11+2:1 NEWLINE

12+2:1 glyph +$

13+2:4 name choice

14+3:3 INDENT

15+3:3 glyph (

16+3:4 tight name tagged

17+3:11 aura @t

18+3:13 tight glyph )

19+4:3 NEWLINE

20+4:3 glyph [

21+4:4 tight lit %other

22+4:11 aura @p

23+4:13 tight glyph ]

24+5:1 DEDENT

25+5:1 NEWLINE

26+5:1 glyph ++

27+5:4 name id

28+5:7 glyph |=

29+5:10 name x

30+5:11 tight glyph =

31+5:12 tight name choice

32+5:19 name x

33+6:1 NEWLINE

34+6:1 glyph +$

35+6:4 name poly

36+6:9 glyph |$

37+6:12 glyph [

38+6:13 tight tvar A

39+6:15 tvar B

40+6:16 tight glyph ]

41+7:3 INDENT

42+7:3 glyph (

43+7:4 tight name tagged

44+7:11 tvar A

45+7:12 tight glyph )

46+8:3 NEWLINE

47+8:3 glyph [

48+8:4 tight lit %second

49+8:12 tvar B

50+8:13 tight glyph ]

51+9:1 DEDENT

52+9:1 NEWLINE

53+9:1 glyph ++

54+9:4 name typed

55+9:10 glyph |=

56+9:13 name x

57+9:14 tight glyph =

58+9:15 tight glyph (

59+9:16 tight name poly

60+9:21 aura @t

61+9:24 aura @p

62+9:26 tight glyph )

63+9:28 name x

64+10:1 NEWLINE

65+10:1 glyph +$

66+10:4 name same

67+11:3 INDENT

68+11:3 glyph (

69+11:4 tight name tagged

70+11:11 aura @t

71+11:13 tight glyph )

72+12:3 NEWLINE

73+12:3 glyph [

74+12:4 tight lit %wrapped

75+12:13 aura @p

76+12:15 tight glyph ]

77+13:1 DEDENT

78+13:1 NEWLINE

79+13:1 glyph ++

80+13:4 name collide

81+13:12 glyph |=

82+13:15 name x

83+13:16 tight glyph =

84+13:17 tight name same

85+13:22 name x

86+14:1 NEWLINE

87+14:1 glyph +$

88+14:4 name zero

89+14:9 glyph |$

90+14:12 glyph [

91+14:13 tight tvar A

92+14:14 tight glyph ]

93+14:16 glyph [

94+14:17 tight lit %.y

95+14:21 tvar A

96+14:22 tight glyph ]

97+15:1 NEWLINE

98+15:1 glyph +$

99+15:4 name same-zero

100+16:3 INDENT

101+16:3 glyph (

102+16:4 tight name zero

103+16:9 aura @t

104+16:11 tight glyph )

105+17:3 NEWLINE

106+17:3 glyph [

107+17:4 tight lit %$

108+17:7 aura @p

109+17:9 tight glyph ]

110+18:1 DEDENT

111+18:1 NEWLINE

112+18:1 glyph ++

113+18:4 name collide-zero

114+18:17 glyph |=

115+18:20 name x

116+18:21 tight glyph =

117+18:22 tight name same-zero

118+18:32 name x

119+18:33 NEWLINE

tests/golden/types-union-source-alias/tree.txtnew file+41

@@ -0,0 +1,41 @@

1+(module

2+ (mold 1:1 tagged

3+ (generic 1:11 A

4+ (cell 1:18 (const 1:19 %wrapped) (tvar 1:28 A))))

5+ (mold 2:1 choice

6+ (union 3:3

7+ (apply 3:3 tagged (aura 3:11 @t))

8+ (cell 4:3 (const 4:4 %other) (aura 4:11 @p))))

9+ (value 5:1 id

10+ (gate 5:7

11+ (face 5:10 x (ref 5:12 choice))

12+ (wing 5:19 x)))

13+ (mold 6:1 poly

14+ (generic 6:9 A B

15+ (union 7:3

16+ (apply 7:3 tagged (tvar 7:11 A))

17+ (cell 8:3 (const 8:4 %second) (tvar 8:12 B)))))

18+ (value 9:1 typed

19+ (gate 9:10

20+ (face 9:13 x

21+ (apply 9:15 poly (aura 9:21 @t) (aura 9:24 @p)))

22+ (wing 9:28 x)))

23+ (mold 10:1 same

24+ (union 11:3

25+ (apply 11:3 tagged (aura 11:11 @t))

26+ (cell 12:3 (const 12:4 %wrapped) (aura 12:13 @p))))

27+ (value 13:1 collide

28+ (gate 13:12

29+ (face 13:15 x (ref 13:17 same))

30+ (wing 13:22 x)))

31+ (mold 14:1 zero

32+ (generic 14:9 A

33+ (cell 14:16 (const 14:17 %.y) (tvar 14:21 A))))

34+ (mold 15:1 same-zero

35+ (union 16:3

36+ (apply 16:3 zero (aura 16:9 @t))

37+ (cell 17:3 (const 17:4 %$) (aura 17:7 @p))))

38+ (value 18:1 collide-zero

39+ (gate 18:17

40+ (face 18:20 x (ref 18:22 same-zero))

41+ (wing 18:32 x))))

tests/golden/types-union-source-alias/types.txtnew file+23

@@ -0,0 +1,23 @@

1+partial inference; module not checked

2++$ tagged: not checked

3++$ choice: cases proven disjoint; mold not checked

4+++ id: $-(choice choice)

5++$ poly: cases proven disjoint; mold not checked

6+++ typed: $-((poly @t @p) (poly @t @p))

7++$ same: overlapping cases; mold not checked

8+/tests/golden/types-union-source-alias/source.jibb:11:3: first union case

9+ (tagged @t)

10+ ^

11+/tests/golden/types-union-source-alias/source.jibb:12:3: overlapping case

12+ [%wrapped @p]

13+ ^

14+++ collide: sample mold is not supported by partial inference

15++$ zero: not checked

16++$ same-zero: overlapping cases; mold not checked

17+/tests/golden/types-union-source-alias/source.jibb:16:3: first union case

18+ (zero @t)

19+ ^

20+/tests/golden/types-union-source-alias/source.jibb:17:3: overlapping case

21+ [%$ @p]

22+ ^

23+++ collide-zero: sample mold is not supported by partial inference

tests/golden/types-unit-context/source.jibb+3−3

@@ -16,8 +16,8 @@

1616++ accept |= x=(unit msg) x

1717++ call (accept `%stay)

1818++ bad-call (accept `%bad)

19−++ field ^- record [`%go ~[`"hi"]]

20−++ field-bad ^- record [`%bad ~[`"hi"]]

19+++ field-value ^- record [`%go ~[`"hi"]]

20+++ field-value-bad ^- record [`%bad ~[`"hi"]]

2121++ mimic-mismatch ^- (mimic @t) `"hi"

2222++ without-context `%go

2323++ pending

@@ -31,7 +31,7 @@

3131+$ alt

3232 %go

3333 %stay

34−++ field-wrong-payload ^- record [`%go ~[`~zod]]

34+++ field-value-wrong-payload ^- record [`%go ~[`~zod]]

3535++ wrong-name ^- record [wrong=`%go xs=~[`"hi"]]

3636++ wrong-union |= x=alt ^- record [`x ~[`"hi"]]

3737++ no-field-context |= x=A ^- [a=A] [wrong=x]

tests/golden/types-unit-context/tokens.txt+33−33

@@ -169,30 +169,30 @@

16916918:26 tight glyph )

17017019:1 NEWLINE

17117119:1 glyph ++

172−19:4 name field

173−19:10 glyph ^-

174−19:13 name record

175−19:20 glyph [

176−19:21 tight glyph `

177−19:22 tight lit %go

178−19:26 glyph ~[

179−19:28 tight glyph `

180−19:29 tight str "hi"

181−19:33 tight glyph ]

182−19:34 tight glyph ]

172+19:4 name field-value

173+19:16 glyph ^-

174+19:19 name record

175+19:26 glyph [

176+19:27 tight glyph `

177+19:28 tight lit %go

178+19:32 glyph ~[

179+19:34 tight glyph `

180+19:35 tight str "hi"

181+19:39 tight glyph ]

182+19:40 tight glyph ]

18318320:1 NEWLINE

18418420:1 glyph ++

185−20:4 name field-bad

186−20:14 glyph ^-

187−20:17 name record

188−20:24 glyph [

189−20:25 tight glyph `

190−20:26 tight lit %bad

191−20:31 glyph ~[

192−20:33 tight glyph `

193−20:34 tight str "hi"

194−20:38 tight glyph ]

195−20:39 tight glyph ]

185+20:4 name field-value-bad

186+20:20 glyph ^-

187+20:23 name record

188+20:30 glyph [

189+20:31 tight glyph `

190+20:32 tight lit %bad

191+20:37 glyph ~[

192+20:39 tight glyph `

193+20:40 tight str "hi"

194+20:44 tight glyph ]

195+20:45 tight glyph ]

19619621:1 NEWLINE

19719721:1 glyph ++

19819821:4 name mimic-mismatch

@@ -278,17 +278,17 @@

27827834:1 DEDENT

27927934:1 NEWLINE

28028034:1 glyph ++

281−34:4 name field-wrong-payload

282−34:24 glyph ^-

283−34:27 name record

284−34:34 glyph [

285−34:35 tight glyph `

286−34:36 tight lit %go

287−34:40 glyph ~[

288−34:42 tight glyph `

289−34:43 tight lit ~zod

290−34:47 tight glyph ]

291−34:48 tight glyph ]

281+34:4 name field-value-wrong-payload

282+34:30 glyph ^-

283+34:33 name record

284+34:40 glyph [

285+34:41 tight glyph `

286+34:42 tight lit %go

287+34:46 glyph ~[

288+34:48 tight glyph `

289+34:49 tight lit ~zod

290+34:53 tight glyph ]

291+34:54 tight glyph ]

29229235:1 NEWLINE

29329335:1 glyph ++

29429435:4 name wrong-name

tests/golden/types-unit-context/tree.txt+21−21

@@ -70,20 +70,20 @@

7070 (call 18:14

7171 (wing 18:14 accept)

7272 (unit 18:21 (lit 18:22 %bad)))))

73− (value 19:1 field

74− (cast 19:10

75− (ref 19:13 record)

76− (tuple 19:20

77− (unit 19:21 (lit 19:22 %go))

78− (list 19:26

79− (unit 19:28 (str 19:29 "hi"))))))

80− (value 20:1 field-bad

81− (cast 20:14

82− (ref 20:17 record)

83− (tuple 20:24

84− (unit 20:25 (lit 20:26 %bad))

85− (list 20:31

86− (unit 20:33 (str 20:34 "hi"))))))

73+ (value 19:1 field-value

74+ (cast 19:16

75+ (ref 19:19 record)

76+ (tuple 19:26

77+ (unit 19:27 (lit 19:28 %go))

78+ (list 19:32

79+ (unit 19:34 (str 19:35 "hi"))))))

80+ (value 20:1 field-value-bad

81+ (cast 20:20

82+ (ref 20:23 record)

83+ (tuple 20:30

84+ (unit 20:31 (lit 20:32 %bad))

85+ (list 20:37

86+ (unit 20:39 (str 20:40 "hi"))))))

8787 (value 21:1 mimic-mismatch

8888 (cast 21:19

8989 (apply 21:22 mimic (aura 21:29 @t))

@@ -120,13 +120,13 @@

120120 (unit 30:29 (str 30:30 "hi")))))

121121 (mold 31:1 alt

122122 (union 32:3 (const 32:3 %go) (const 33:3 %stay)))

123− (value 34:1 field-wrong-payload

124− (cast 34:24

125− (ref 34:27 record)

126− (tuple 34:34

127− (unit 34:35 (lit 34:36 %go))

128− (list 34:40

129− (unit 34:42 (lit 34:43 ~zod))))))

123+ (value 34:1 field-value-wrong-payload

124+ (cast 34:30

125+ (ref 34:33 record)

126+ (tuple 34:40

127+ (unit 34:41 (lit 34:42 %go))

128+ (list 34:46

129+ (unit 34:48 (lit 34:49 ~zod))))))

130130 (value 35:1 wrong-name

131131 (cast 35:15

132132 (ref 35:18 record)

tests/golden/types-unit-context/types.txt+15−15

@@ -43,14 +43,14 @@ partial inference; module not checked

4343/tests/golden/types-unit-context/source.jibb:18:22: tag

4444++ bad-call (accept `%bad)

4545 ^

46−++ field: [u=(unit msg) xs=(list (unit @t))]

47−++ field-bad: msg has no case `%bad`

48−/tests/golden/types-unit-context/source.jibb:20:17: expected union

49−++ field-bad ^- record [`%bad ~[`"hi"]]

50− ^

51−/tests/golden/types-unit-context/source.jibb:20:26: tag

52−++ field-bad ^- record [`%bad ~[`"hi"]]

53− ^

46+++ field-value: [u=(unit msg) xs=(list (unit @t))]

47+++ field-value-bad: msg has no case `%bad`

48+/tests/golden/types-unit-context/source.jibb:20:23: expected union

49+++ field-value-bad ^- record [`%bad ~[`"hi"]]

50+ ^

51+/tests/golden/types-unit-context/source.jibb:20:32: tag

52+++ field-value-bad ^- record [`%bad ~[`"hi"]]

53+ ^

5454++ mimic-mismatch: cast constraint is not supported by partial inference

5555++ without-context: tag needs context in partial inference

5656++ pending: tag needs context in partial inference

@@ -58,13 +58,13 @@ partial inference; module not checked

5858++ preserve: $-(A (unit A))

5959++ force: explicit capital constraints are not supported by partial inference

6060+$ alt: cases proven disjoint; mold not checked

61−++ field-wrong-payload: unit payload does not fit its expected type

62−/tests/golden/types-unit-context/source.jibb:34:27: expected unit payload has type @t

63−++ field-wrong-payload ^- record [`%go ~[`~zod]]

64− ^

65−/tests/golden/types-unit-context/source.jibb:34:43: payload has type @p

66−++ field-wrong-payload ^- record [`%go ~[`~zod]]

67− ^

61+++ field-value-wrong-payload: unit payload does not fit its expected type

62+/tests/golden/types-unit-context/source.jibb:34:33: expected unit payload has type @t

63+++ field-value-wrong-payload ^- record [`%go ~[`~zod]]

64+ ^

65+/tests/golden/types-unit-context/source.jibb:34:49: payload has type @p

66+++ field-value-wrong-payload ^- record [`%go ~[`~zod]]

67+ ^

6868++ wrong-name: cast mold and expression type do not unify

6969/tests/golden/types-unit-context/source.jibb:35:18: cast mold

7070++ wrong-name ^- record [wrong=`%go xs=~[`"hi"]]

tests/importer/about.txt+3−1

@@ -9,7 +9,9 @@ explicit union argument when the exact call wrapper and collection provenance

99are validated and all union cases are static and pairwise disjoint. Cases

1010cover overlap, collapsed branches, multiple or nested unions, dependent

1111branches, forged subject, sample and tail wrappers, and a shadowed

12−collection. Tagged source cases exercise bare null payloads, overlapping tags and hidden

12+collection. `explicit-unknown` has distinct outer tags and a local `word` alias

13+for `@t`, so its source cases can be proved disjoint. `explicit-wut-overlap` and `explicit-collapsed`

14+now have positive overlap witnesses from the original source cases. Tagged source cases exercise bare null payloads, overlapping tags and hidden

1315invalid dependencies, named payload dependencies, valid and collapsed enums,

1416direct and transitively aliased overlaps, nested collections, shadowed jar and

1517jug dependencies, Ford-name collisions, zuse local-name precedence and the

tests/importer/tree.txt+3−3

@@ -74,11 +74,11 @@ explicit-graph: error: Hoon union disjointness could not be verified

7474explicit-graph-unsupported: error: signed and float auras cannot be imported

7575explicit-wut-safe: (union [ok @ud] [err @t])

7676explicit-percent-overlap: error: Hoon union disjointness could not be verified

77−explicit-wut-overlap: error: Hoon union disjointness could not be verified

78−explicit-collapsed: error: Hoon union disjointness could not be verified

77+explicit-wut-overlap: error: Hoon union cases overlap

78+explicit-collapsed: error: Hoon union cases overlap

7979explicit-subsumed: error: Hoon union disjointness could not be verified

8080explicit-three: (union [a @ud] [b @t] [c @p])

81−explicit-unknown: error: a Hoon union needs a source-level disjointness check

81+explicit-unknown: (union [x @t] [y @t])

8282explicit-nested: error: Hoon union disjointness could not be verified

8383collection-union-wrapper: valid; forged subject, sample and tail rejected

8484collection-union-list: (list (union [x @ud] [y @t]))

tests/lib/jibb-bridge.hoon+5−2

@@ -136,6 +136,9 @@

136136 [%fixture %raw-rec [%& [%ref %fixture %chain]]]

137137 [%fixture %bad-arity [%& [%apply %list ~[[%atom %t ~] [%atom %ud ~]]]]]

138138 [%fixture %bad-argument [%& [%apply %list ~[[%fork ~[[%atom %tas [~ %a]] [%atom %tas [~ %a]]]]]]]]

139+ [%fixture %mixed-zero (read-named-diagnostic:jibb-import %fixture %mixed-zero cor)]

140+ [%fixture %separate-tags (read %separate-tags)]

141+ [%fixture %separate-terms (read %separate-terms)]

139142 [%fixture %nested-choice (read %nested-choice)]

140143 [%fixture %collapsed (read %collapsed)]

141144 [%fixture %dollar (read %dollar)]

@@ -150,7 +153,7 @@

150153 [%fixture %duplicate [%& [%atom %ud ~]]]

151154 [%missing %title [%& [%atom %t ~]]]

152155 ==

153− =/ report=@t (golden-types-imports:jibb /test/jibb src external)

156+ =/ report=@t (golden-types-with-reader-diagnostics:jibb /test/jibb src external ~)

154157 =/ dep=@t (crip "/- fixture\0a++ chain-id |= x=chain.fixture x\0a")

155158 =/ root=@t (crip "/= helper /ui/helper\0a++ use chain-id.helper\0a")

156159 =/ prelude=@t (crip "++ prelude-id |= x x\0a")

@@ -161,5 +164,5 @@

161164 (crip "/- fixture\0a++ canonical ^- (unit @t) `\"hi\"\0a++ lookalike ^- zero-lookalike.fixture `\"hi\"\0a")

162165 =/ unit-report=@t

163166 (golden-types-with-prelude:jibb /ui/unit-client/jibb unit-client external ~ ~ unit-prelude)

164− (cat 3 report (cat 3 (crip "\0areader-collapsed: {(show-result:jibb-import (read %collapsed))}\0a") (cat 3 hidden (cat 3 '\0a' (cat 3 unit-report (cat 3 '\0a' (cat 3 noun-synthetic (cat 3 '\0a' (cat 3 recursive-list-synthetic (cat 3 '\0a' named-recursive-synthetic))))))))))

167+ (cat 3 report (cat 3 (crip "\0areader-collapsed: {(show-result:jibb-import (read %collapsed))}\0areader-mixed-zero: {(show-result:jibb-import (read %mixed-zero))}\0areader-separate-tags: {(show-result:jibb-import (read %separate-tags))}\0areader-separate-terms: {(show-result:jibb-import (read %separate-terms))}\0a") (cat 3 hidden (cat 3 '\0a' (cat 3 unit-report (cat 3 '\0a' (cat 3 noun-synthetic (cat 3 '\0a' (cat 3 recursive-list-synthetic (cat 3 '\0a' named-recursive-synthetic))))))))))

165168--

tests/lib/jibb-cell-branch.hoonnew file+53

@@ -0,0 +1,53 @@

1+:: Bounded closed-cell branch context; no runtime or island claim.

2+/+ jibb

3+/* public %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* good %txt /tests/type-cell-branch/good/txt

6+/* bad %txt /tests/type-cell-branch/bad/txt

7+|%

8+++ text

9+ |= lines=wain

10+ ^- @t

11+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

12+++ test-cell-branch

13+ ^- tang

14+ ?~ good ~[leaf+"cell branch good source missing"]

15+ ?~ bad ~[leaf+"cell branch bad source missing"]

16+ =/ prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb public internal)

17+ ?~ prep ~[leaf+"cell branch prelude unavailable"]

18+ =/ a (parse:jibb /tests/branch/jibb (text good))

19+ =/ b (parse:jibb /tests/branch/jibb (text bad))

20+ ?: |(?=(%| -.a) ?=(%| -.b)) ~[leaf+"cell branch source parse failed"]

21+ =/ ad=(list def:jibb) defs.p.a

22+ =/ bd=(list def:jibb) defs.p.b

23+ ?. &(?=([* ~] ad) ?=([* ~] bd) ?=(%value -.i.ad) ?=(%value -.i.bd))

24+ ~[leaf+"cell branch declarations unavailable"]

25+ =/ unit-scheme=(unit ischeme:jibb) (find-jibb-mold:jibb %unit iface.u.prep)

26+ ?~ unit-scheme ~[leaf+"cell branch unit unavailable"]

27+ =/ computed=(unit itype:jibb) (template-apply:jibb u.unit-scheme ~[[%atom %t]])

28+ ?~ computed ~[leaf+"cell branch unit instantiation failed"]

29+ =/ expected=itype:jibb [%cell [%atom %t] u.computed]

30+ =/ env=ienv:jibb ~[[%flag [[%flag ~] ~]]]

31+ =/ state=istate:jibb *istate:jibb

32+ =. state state(prelude `iface.u.prep, jrec-fuel 256)

33+ =/ original=iresult:jibb (infer-fragment:jibb val.i.bd env state)

34+ =/ failed=iresult:jibb (infer-closed-cell-branch:jibb val.i.bd expected env state (span-of:jibb val.i.bd))

35+ =/ success=iresult:jibb (infer-closed-cell-branch:jibb val.i.ad expected env state (span-of:jibb val.i.ad))

36+ =/ hidden=isub:jibb ~[[55 [%face %x [%atom %t]]]]

37+ ?. (closed-cell-branch-eligible:jibb val.i.bd expected ~) ~[leaf+"negative branch is not eligible"]

38+ ?. ?=(%| -.original) ~[leaf+"original negative branch unexpectedly inferred"]

39+ ?. =(original failed) ~[leaf+"failed retry changed the original result"]

40+ ?. ?=(%& -.success) ~[leaf+"valid closed branch did not infer"]

41+ ?: (closed-cell-branch-eligible:jibb val.i.ad expected hidden) ~[leaf+"structural substitution accepted"]

42+ =/ atom=expr:jibb *expr:jibb

43+ =/ nodes=(list expr:jibb) (reap 512 atom)

44+ ?. (closed-cell-retry-safe:jibb nodes 512) ~[leaf+"exact source budget rejected"]

45+ ?: (closed-cell-retry-safe:jibb [atom nodes] 512) ~[leaf+"source budget exceeded"]

46+ =/ binding=ibinding:jibb [55 [%atom %t]]

47+ =/ subs=isub:jibb (reap 512 binding)

48+ ?. (closed-cell-sub-safe:jibb subs 512) ~[leaf+"exact substitution budget rejected"]

49+ ?: (closed-cell-sub-safe:jibb [binding subs] 512) ~[leaf+"substitution budget exceeded"]

50+ =/ nested=expr:jibb [%branch *span:jibb atom ~]

51+ ?: (closed-cell-retry-safe:jibb ~[nested] 512) ~[leaf+"recursive retry was not excluded"]

52+ ~

53+--

tests/lib/jibb-closed-gate-guards.hoonnew file+60

@@ -0,0 +1,60 @@

1+:: Closed-gate sample labels must not erase nested faces or uncertain origins.

2+/+ jibb

3+|%

4+++ closed-gate-guard-errors

5+ ^- (list tape)

6+ =/ t=itype:jibb [%atom %t]

7+ =/ p=itype:jibb [%atom %p]

8+ =/ n=itype:jibb [%atom %ud]

9+ =/ tag=itype:jibb [%const [%term %tas %delta '%delta']]

10+ =/ payload=itype:jibb [%cell tag n]

11+ =/ bare=itype:jibb [%cell payload t]

12+ =/ named=itype:jibb [%cell [%face %diff payload] [%face %state t]]

13+ =/ differently-named=itype:jibb [%cell [%face %other payload] [%face %state t]]

14+ =/ face-one=itype:jibb [%face %first t]

15+ =/ face-two=itype:jibb [%face %second t]

16+ =/ inner-one=itype:jibb [%cell face-one n]

17+ =/ inner-two=itype:jibb [%cell face-two n]

18+ =/ nested-a=itype:jibb [%cell [%face %diff inner-one] [%face %state t]]

19+ =/ nested-b=itype:jibb [%cell inner-two t]

20+ =/ tail-a=itype:jibb [%cell payload [%face %rest [%cell t n]]]

21+ =/ tail-b=itype:jibb [%cell payload [%cell t n]]

22+ =/ samples-mismatch=itype:jibb [%cell payload p]

23+ =/ cases=(list [label=@t actual=itype:jibb expected=itype:jibb sub=isub:jibb want=?])

24+ :~ ['named fold to bare' [%fn named t] [%fn bare t] ~ &]

25+ ['same named gate' [%fn named t] [%fn named t] ~ &]

26+ ['different slot names' [%fn named t] [%fn differently-named t] ~ |]

27+ ['different nested names' [%fn nested-a t] [%fn nested-b t] ~ |]

28+ ['faced tail versus cell' [%fn tail-a t] [%fn tail-b t] ~ |]

29+ ['different result face' [%fn bare face-one] [%fn bare face-two] ~ |]

30+ ['faced result versus bare' [%fn bare face-one] [%fn bare t] ~ |]

31+ ['wrong sample aura' [%fn named t] [%fn samples-mismatch t] ~ |]

32+ ['wrong result aura' [%fn named p] [%fn bare t] ~ |]

33+ ['open sample' [%fn [%var 0] t] [%fn bare t] ~ &]

34+ ['variable-bound sample' [%fn [%var 0] t] [%fn bare t] ~[[0 named]] |]

35+ ['variable-bound actual function' [%var 0] [%fn bare t] ~[[0 [%fn named t]]] |]

36+ ['variable-bound expected function' [%fn bare t] [%var 0] ~[[0 [%fn named t]]] |]

37+ ==

38+ =/ outcomes=(list @t)

39+ %+ turn cases

40+ |= c=[label=@t actual=itype:jibb expected=itype:jibb sub=isub:jibb want=?]

41+ =/ fit=ifit:jibb (itype-fit:jibb actual.c expected.c sub.c 1)

42+ ?: =(want.c ?=(%ok -.fit)) ''

43+ (cat 3 label.c ': unexpected fit')

44+ =/ bad=(list @t) (skim outcomes |=(s=@t !=(s '')))

45+ =/ build

46+ |= depth=@ud

47+ ^- [a=itype:jibb b=itype:jibb]

48+ =/ a=itype:jibb [%face %inside t]

49+ =/ b=itype:jibb t

50+ |-

51+ ?: =(depth 0) [a b]

52+ $(depth (dec depth), a [%fn [%cell a t] t], b [%fn [%cell b t] t])

53+ =/ deep (build 12)

54+ =/ deep-fit=ifit:jibb (itype-fit:jibb a.deep b.deep ~ 0)

55+ =? bad !?=(%unknown -.deep-fit) ['nested gate face uncertainty changed' bad]

56+ (turn bad trip)

57+++ test-closed-gate-guards

58+ ^- tang

59+ (turn closed-gate-guard-errors |=(reason=tape leaf+reason))

60+--

tests/lib/jibb-constructor-fit-guards.hoonnew file+128

@@ -0,0 +1,128 @@

1+:: Constructor cases distinguish proven absence from unknown cases.

2+/+ jibb

3+|%

4+++ constructor-base-errors

5+ ^- (list tape)

6+ =/ tag=lit:jibb [%term %tas %got '%got']

7+ =/ t=itype:jibb [%atom %t]

8+ =/ p=itype:jibb [%atom %p]

9+ =/ good=itype:jibb [%cell [%const tag] t]

10+ =/ bad-payload=itype:jibb [%cell [%const tag] p]

11+ =/ wrong=itype:jibb [%cell [%const [%term %tas %other '%other']] t]

12+ =/ tests=(list [name=@t cases=(list itype:jibb) sub=isub:jibb expected=?(%ok %bad %unknown)])

13+ :~ ['known matching' ~[good] ~ %ok]

14+ ['known missing' ~[wrong] ~ %bad]

15+ ['mismatched payload' ~[bad-payload] ~ %bad]

16+ ['explicit noun' ~[[%noun ~]] ~ %bad]

17+ ['unbound case' ~[[%var 0]] ~ %unknown]

18+ ['bound case remains uncertain' ~[[%var 0]] ~[[0 good]] %unknown]

19+ ['unknown case alongside match' ~[good [%var 0]] ~ %unknown]

20+ ['unbound head' ~[[%cell [%var 0] t]] ~ %unknown]

21+ ['bound head remains uncertain' ~[[%cell [%var 0] t]] ~[[0 [%const tag]]] %unknown]

22+ ['faced unknown case' ~[[%face %part good]] ~ %unknown]

23+ ['known atom face at head' ~[[%cell [%face %text t] [%const tag]]] ~ %bad]

24+ ['nested face at head' ~[[%cell [%face %outer [%face %inner t]] [%const tag]]] ~ %unknown]

25+ ==

26+ =/ failures=(list @t)

27+ %+ turn tests

28+ |= test=[name=@t cases=(list itype:jibb) sub=isub:jibb expected=?(%ok %bad %unknown)]

29+ =/ got=ifit:jibb (itype-fit-ctor-cases:jibb tag t cases.test sub.test 1)

30+ ?: =(expected.test -.got) ''

31+ (cat 3 name.test ': unexpected status')

32+ :: Null and other zero-valued literals have different source forms.

33+ =/ zero-tag=lit:jibb [%term %tas 0 '%$']

34+ =/ null-head=itype:jibb [%cell [%const [%null %n 0 '~']] t]

35+ =/ flag-head=itype:jibb [%cell [%const [%loobean %f 0 '%.y']] t]

36+ =/ term-head=itype:jibb [%cell [%const zero-tag] t]

37+ =/ variable-head=itype:jibb [%cell [%var 0] t]

38+ =/ zero-tests=(list [name=@t cases=(list itype:jibb) sub=isub:jibb expected=?(%ok %bad %unknown)])

39+ :~ ['null head' ~[null-head] ~ %ok]

40+ ['loobean zero head' ~[flag-head] ~ %ok]

41+ ['matching term zero head' ~[term-head] ~ %ok]

42+ ['unknown zero head' ~[variable-head] ~ %unknown]

43+ ['bound unknown zero head' ~[variable-head] ~[[0 [%const zero-tag]]] %unknown]

44+ ['unknown competitor' ~[null-head variable-head] ~ %unknown]

45+ ['loobean competitor' ~[term-head flag-head] ~ %unknown]

46+ ==

47+ =/ zero-failures=(list @t)

48+ %+ turn zero-tests

49+ |= test=[name=@t cases=(list itype:jibb) sub=isub:jibb expected=?(%ok %bad %unknown)]

50+ =/ got=ifit:jibb (itype-fit-ctor-cases:jibb zero-tag t cases.test sub.test 1)

51+ ?: =(expected.test -.got) ''

52+ (cat 3 name.test ': unexpected status')

53+ =/ failures (skim (weld failures zero-failures) |=(x=@t !=(x '')))

54+ (turn failures trip)

55+++ payload-candidates-errors

56+ ^- (list tape)

57+ =/ tag=lit:jibb [%term %tas %one '%one']

58+ =/ c=itype:jibb [%atom %t]

59+ =/ p=itype:jibb [%atom %p]

60+ =/ ud=itype:jibb [%atom %ud]

61+ =/ good=itype:jibb [%cell [%const tag] c]

62+ =/ other=itype:jibb [%cell [%const tag] p]

63+ =/ unknown=itype:jibb [%cell [%const tag] [%var 0]]

64+ =/ tests=(list [label=@t sample=itype:jibb cases=(list itype:jibb) want=?(%ok %bad %unknown)])

65+ :~ ['one fit' c ~[other good] %ok]

66+ ['one fit reversed' c ~[good other] %ok]

67+ ['second fit' p ~[good other] %ok]

68+ ['none fit' ud ~[good other] %bad]

69+ ['two fit' c ~[good good] %unknown]

70+ ['unknown rival' c ~[good unknown] %unknown]

71+ ['unknown rival first' c ~[unknown good] %unknown]

72+ ==

73+ =/ errors=(list @t)

74+ %+ turn tests

75+ |= test=[label=@t sample=itype:jibb cases=(list itype:jibb) want=?(%ok %bad %unknown)]

76+ =/ got=ifit:jibb (itype-fit-ctor-cases:jibb tag sample.test cases.test ~ 1)

77+ ?: =(want.test -.got) ''

78+ (cat 3 label.test ': unexpected status')

79+ =/ errors (skim errors |=(x=@t !=(x '')))

80+ (turn errors trip)

81+++ flag-fit-errors

82+ ^- (list tape)

83+ =/ flag=itype:jibb [%flag ~]

84+ =/ f=itype:jibb [%atom %f]

85+ =/ yes=itype:jibb [%const [%loobean %f 0 '%.y']]

86+ =/ tests=(list [label=@t actual=itype:jibb expected=itype:jibb sub=isub:jibb want=?(%ok %bad %unknown)])

87+ :~ ['flag to f' flag f ~ %unknown]

88+ ['bound flag to f' [%var 0] f ~[[0 flag]] %unknown]

89+ ['flag to bound f' flag [%var 0] ~[[0 f]] %unknown]

90+ ['singleton to f' yes f ~ %unknown]

91+ ['singleton to any' yes [%any-atom ~] ~ %ok]

92+ ['singleton to flag' yes flag ~ %ok]

93+ ['singleton to tas' yes [%atom %tas] ~ %bad]

94+ ==

95+ =/ errors=(list @t)

96+ %+ turn tests

97+ |= test=[label=@t actual=itype:jibb expected=itype:jibb sub=isub:jibb want=?(%ok %bad %unknown)]

98+ =/ got=ifit:jibb (itype-fit:jibb actual.test expected.test sub.test 1)

99+ ?: =(want.test -.got) ''

100+ (cat 3 label.test ': unexpected status')

101+ =/ errors (skim errors |=(x=@t !=(x '')))

102+ (turn errors trip)

103+++ singleton-union-errors

104+ ^- (list tape)

105+ =/ nil=itype:jibb [%const [%null %n 0 '~']]

106+ =/ yes=itype:jibb [%const [%loobean %f 0 '%.y']]

107+ =/ cell=itype:jibb [%cell nil [%atom %t]]

108+ =/ tests=(list [name=@t typ=itype:jibb expect=?])

109+ :~ ['literal and cell' [%union ~[nil cell] ~ ~ ~] &]

110+ ['duplicate same-noun literals' [%union ~[nil yes] ~ ~ ~] |]

111+ ['variable competitor' [%union ~[nil [%var 0]] ~ ~ ~] |]

112+ ['faced competitor' [%union ~[nil [%face %other cell]] ~ ~ ~] |]

113+ ['collection competitor' [%union ~[nil [%collection %list ~[[%atom %t]]]] ~ ~ ~] |]

114+ ['variable root' [%var 0] |]

115+ ==

116+ =/ errs=(list @t)

117+ %+ turn tests

118+ |= test=[name=@t typ=itype:jibb expect=?]

119+ ?: =(expect.test (explicit-singleton-in-union:jibb typ.test 0)) ''

120+ (cat 3 name.test ': incorrect singleton proof')

121+ (turn (skim errs |=(x=@t !=(x ''))) trip)

122+++ constructor-fit-guard-errors

123+ ^- (list tape)

124+ (weld constructor-base-errors (weld payload-candidates-errors (weld flag-fit-errors singleton-union-errors)))

125+++ test-constructor-fit-guards

126+ ^- tang

127+ (turn constructor-fit-guard-errors |=(reason=tape leaf+reason))

128+--

tests/lib/jibb-deferred-context.hoonnew file+83

@@ -0,0 +1,83 @@

1+/+ jibb

2+/* rich %txt /tests/type-deferred-context/rich/txt

3+/* plain %txt /tests/type-deferred-context/plain/txt

4+/* simple %txt /tests/type-deferred-context/simple/txt

5+/* missing %txt /tests/type-deferred-context/missing/txt

6+/* wrong %txt /tests/type-deferred-context/wrong/txt

7+/* duplicate %txt /tests/type-deferred-context/duplicate/txt

8+/* dangling %txt /tests/type-deferred-context/dangling/txt

9+/* collision-early %txt /tests/type-deferred-context/collision-early/txt

10+/* collision-late %txt /tests/type-deferred-context/collision-late/txt

11+/* expected %txt /tests/type-deferred-context/report/txt

12+|%

13+++ text

14+ |= lines=wain

15+ ^- @t

16+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

17+++ test-context

18+ ^- tang

19+ =/ at=path /ui/context/jibb

20+ =/ good=(list wain) ~[rich plain simple]

21+ =/ bad=(list wain) ~[missing wrong duplicate dangling collision-early collision-late]

22+ ?. (levy (weld good bad) |=(src=wain ?=(^ src))) ~[leaf+"source missing"]

23+ =/ source=@t (text rich)

24+ =/ parsed (parse:jibb at source)

25+ ?: ?=(%| -.parsed) ~[leaf+"positive source does not parse"]

26+ =/ result=jfile-result:jibb (infer-jibb-file:jibb at source ~ ~ ~ ~[at] ~ ~ ~ ~)

27+ ?: ?=(%| -.result) ~[leaf+"positive library did not publish"]

28+ =/ values=ienv:jibb values.iface.p.result

29+ =/ built=(unit ischeme:jibb) (ienv-lookup:jibb %built values)

30+ ?~ built ~[leaf+"built missing"]

31+ ?~ vars.u.built ~[leaf+"principal polymorphism lost"]

32+ ?^ t.vars.u.built ~[leaf+"unexpected additional quantifiers"]

33+ =/ built-type=itype:jibb typ.u.built

34+ ?. ?=(%fn -.built-type) ~[leaf+"built is not a gate"]

35+ ?. ?=(%var -.sample.built-type) ~[leaf+"built sample is not generic"]

36+ ?. =(sample.built-type product.built-type) ~[leaf+"built input and result differ"]

37+ ?. =(id.sample.built-type i.vars.u.built) ~[leaf+"built quantified identity differs"]

38+ =/ reveal=(unit ischeme:jibb) (ienv-lookup:jibb %reveal values)

39+ =/ reveal-ship=(unit ischeme:jibb) (ienv-lookup:jibb %reveal-ship values)

40+ ?~ reveal ~[leaf+"text result missing"]

41+ ?~ reveal-ship ~[leaf+"ship result missing"]

42+ ?. ?=([%atom %t] typ.u.reveal) ~[leaf+"text result changed"]

43+ ?. ?=([%atom %p] typ.u.reveal-ship) ~[leaf+"ship result changed"]

44+ =/ report=@t (golden-types-with-marks:jibb at source ~ ~)

45+ ?. =((to-wain:format (cat 3 report '\0a')) expected) ~[leaf+"report differs from committed types"]

46+ =/ rest-good=(list wain) ~[plain simple]

47+ =/ checked=?

48+ %+ levy rest-good

49+ |= src=wain

50+ =/ source=@t (text src)

51+ =/ parsed (parse:jibb at source)

52+ ?: ?=(%| -.parsed) |

53+ =/ result=jfile-result:jibb (infer-jibb-file:jibb at source ~ ~ ~ ~[at] ~ ~ ~ ~)

54+ ?=(%& -.result)

55+ ?. checked ~[leaf+"simple positive declined or did not parse"]

56+ =. checked

57+ %+ levy bad

58+ |= src=wain

59+ =/ source=@t (text src)

60+ =/ parsed (parse:jibb at source)

61+ ?: ?=(%| -.parsed) |

62+ =/ result=jfile-result:jibb (infer-jibb-file:jibb at source ~ ~ ~ ~[at] ~ ~ ~ ~)

63+ ?=(%| -.result)

64+ ?. checked ~[leaf+"negative source published or did not parse"]

65+ =/ literal=lit:jibb [%term %tas %none '%none']

66+ =/ actual=itype:jibb [%tag 10 literal |]

67+ =/ st=istate:jibb *istate:jibb

68+ =. st st(next 20)

69+ ?^ (dg-stage:jibb ~ ~ ~ st ~ 65) ~[leaf+"oversized retry fuel accepted"]

70+ ?^ (dg-stage:jibb defs.p.parsed ~ ~ st ~ 0) ~[leaf+"source beyond retry fuel accepted"]

71+ =/ atom=itype:jibb [%const literal]

72+ =/ faced=itype:jibb [%face %named atom]

73+ =/ union=itype:jibb [%union ~[atom [%cell [%const [%term %tas %some '%some']] [%face %value [%atom %t]]]] ~ ~ ~]

74+ =/ faced-case=itype:jibb [%union ~[faced] ~ ~ ~]

75+ =/ fit

76+ |= target=itype:jibb

77+ ^- ?

78+ =/ edge=dgo:jibb [actual target *span:jibb *span:jibb]

79+ ?=(^ (dg-replay-edges:jibb ~[edge] st 64))

80+ ?. &((fit atom) (fit union)) ~[leaf+"plain literal replay declined"]

81+ ?: |((fit faced) (fit faced-case)) ~[leaf+"faced literal replay accepted"]

82+ ~

83+--

tests/lib/jibb-deferred-prepared.hoonnew file+114

@@ -0,0 +1,114 @@

1+:: Prepared-prelude initializer recovery remains a partial report only.

2+/+ jibb

3+/* prelude %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* good %txt /tests/type-deferred-prepared/good/txt

6+/* tuple-only %txt /tests/type-deferred-prepared/tuple-only/txt

7+/* wrong-unit %txt /tests/type-deferred-prepared/wrong-unit/txt

8+/* wrong-draft %txt /tests/type-deferred-prepared/wrong-draft/txt

9+/* unrelated-tag %txt /tests/type-deferred-prepared/unrelated-tag/txt

10+/* mold-collision %txt /tests/type-deferred-prepared/mold-collision/txt

11+/* no-final-cast %txt /tests/type-deferred-prepared/no-final-cast/txt

12+/* no-prelude %txt /tests/type-deferred-prepared/no-prelude/txt

13+/* main-source %txt /tests/type-deferred-prepared/main/txt

14+/* imported %txt /tests/type-deferred-prepared/imported/txt

15+/* expected %txt /tests/type-deferred-prepared/expected/txt

16+/* expected-control %txt /tests/type-deferred-prepared/expected-control/txt

17+/* expected-tuple-only %txt /tests/type-deferred-prepared/expected-tuple-only/txt

18+|%

19+++ text

20+ |= lines=wain

21+ ^- @t

22+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

23+++ check-prepared

24+ |= [where=path source=wain valid=?]

25+ ^- tang

26+ ?~ source ~[leaf+"source fixture missing"]

27+ =/ src=@t (text source)

28+ =/ parsed (parse:jibb where src)

29+ ?: ?=(%| -.parsed) ~[leaf+"source does not parse"]

30+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb prelude internal)

31+ ?~ prepared ~[leaf+"prelude unavailable"]

32+ =/ recovered=? ?=(^ (dg-root-prepared:jibb where src u.prepared))

33+ ?. =(valid recovered) ~[leaf+"prepared initializer transaction result changed"]

34+ ~

35+++ check-no-prelude

36+ ^- tang

37+ =/ at=path /ui/prepared/jibb

38+ =/ src=@t (text no-prelude)

39+ ?: ?=(^ (dg-root-source:jibb at src))

40+ ~[leaf+"no-prelude source transaction recovered tuple initializer"]

41+ =/ legacy=jfile-result:jibb

42+ (infer-jibb-file:jibb at src ~ ~ ~ ~[at] ~ ~ ~ ~)

43+ ?: ?=(%& -.legacy) ~[leaf+"no-prelude resolver published recovered tuple initializer"]

44+ ~

45+++ check-ordinary

46+ ^- tang

47+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb prelude internal)

48+ ?~ prepared ~[leaf+"prelude unavailable"]

49+ =/ at=path /ui/prepared/jibb

50+ =/ ordinary=jfile-result:jibb

51+ (infer-jibb-file:jibb at (text good) ~ ~ ~ ~[at] values.u.prepared molds.u.prepared ~ `iface.u.prepared)

52+ ?: ?=(%& -.ordinary) ~[leaf+"ordinary full-module path published recovered initializer"]

53+ ~

54+++ check-report

55+ |= [source=wain wanted=wain]

56+ ^- tang

57+ ?~ source ~[leaf+"report source fixture missing"]

58+ ?~ wanted ~[leaf+"expected report fixture missing"]

59+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb prelude internal)

60+ ?~ prepared ~[leaf+"prelude unavailable"]

61+ =/ report=@t (golden-types-with-prepared-prelude:jibb /ui/prepared/jibb (text source) ~ ~ ~ prepared)

62+ =/ report-lines=wain (to-wain:format (cat 3 report '\0a'))

63+ ?~ report-lines ~[leaf+"prepared report is empty"]

64+ ?. =('partial inference; module not checked' i.report-lines)

65+ ~[leaf+"partial disclaimer changed"]

66+ ?. =(report-lines wanted) ~[leaf+"prepared report differs from exact recovered types"]

67+ ~

68+++ check-prepared-binding

69+ ^- tang

70+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb prelude internal)

71+ ?~ prepared ~[leaf+"prelude unavailable"]

72+ =/ at=path /ui/prepared/jibb

73+ =/ src=@t (text good)

74+ =/ pre=(unit ifile:jibb) `iface.u.prepared

75+ =/ report

76+ |= [vals=(list term) ms=(list term) p=(unit ifile:jibb) prep=(unit iprelude:jibb)]

77+ ^- @t

78+ (golden-types-in-context-core:jibb at src ~ ~ ~ vals ms p prep)

79+ =/ vals=(list term) values.u.prepared

80+ =/ ms=(list term) molds.u.prepared

81+ ?: =((report vals ms pre prepared) (report vals ms pre ~))

82+ ~[leaf+"exact prepared binding did not recover the initializer"]

83+ ?. =((report ~ ms pre prepared) (report ~ ms pre ~))

84+ ~[leaf+"mismatched value inventory reached prepared recovery"]

85+ ?. =((report vals ~ pre prepared) (report vals ~ pre ~))

86+ ~[leaf+"mismatched mold inventory reached prepared recovery"]

87+ ?. =((report vals ms ~ prepared) (report vals ms ~ ~))

88+ ~[leaf+"mismatched prelude interface reached prepared recovery"]

89+ ~

90+++ test-prepared

91+ ^- tang

92+ =/ at=path /ui/prepared/jibb

93+ =/ checks=(list tang)

94+ :~ (check-prepared at good &)

95+ (check-prepared at tuple-only &)

96+ (check-prepared at no-prelude &)

97+ (check-prepared at wrong-unit |)

98+ (check-prepared at wrong-draft |)

99+ (check-prepared at unrelated-tag |)

100+ (check-prepared at mold-collision |)

101+ (check-prepared at no-final-cast |)

102+ (check-prepared at main-source |)

103+ (check-prepared at imported |)

104+ (check-prepared /ui/api/prepared/jibb good |)

105+ (check-prepared /ui/stores/prepared/jibb good |)

106+ check-no-prelude

107+ check-ordinary

108+ check-prepared-binding

109+ (check-report good expected)

110+ (check-report tuple-only expected-tuple-only)

111+ (check-report no-final-cast expected-control)

112+ ==

113+ (zing checks)

114+--

tests/lib/jibb-deferred-resolver.hoonnew file+113

@@ -0,0 +1,113 @@

1+:: Source-level normal resolver and report integration; no island claim.

2+/+ jibb

3+/* good %txt /tests/type-deferred-resolver/good/txt

4+/* conflict %txt /tests/type-deferred-resolver/conflict/txt

5+/* missing %txt /tests/type-deferred-resolver/missing/txt

6+/* hole %txt /tests/type-deferred-resolver/hole/txt

7+/* duplicate %txt /tests/type-deferred-resolver/duplicate/txt

8+/* face %txt /tests/type-deferred-resolver/face/txt

9+/* store %txt /tests/type-deferred-resolver/store/txt

10+/* stability-early %txt /tests/type-deferred-resolver/stability-early/txt

11+/* stability-late %txt /tests/type-deferred-resolver/stability-late/txt

12+/* stability-simple-early %txt /tests/type-deferred-resolver/stability-simple-early/txt

13+/* stability-simple-late %txt /tests/type-deferred-resolver/stability-simple-late/txt

14+/* stability-output-early %txt /tests/type-deferred-resolver/stability-output-early/txt

15+/* stability-output-late %txt /tests/type-deferred-resolver/stability-output-late/txt

16+/* stability-slot-early %txt /tests/type-deferred-resolver/stability-slot-early/txt

17+/* stability-slot-late %txt /tests/type-deferred-resolver/stability-slot-late/txt

18+/* public %jibb /lib/jibb/prelude/jibb

19+/* internal %jibb /lib/jibb/internal/jibb

20+/* expected %txt /tests/type-deferred-resolver/expected/txt

21+|%

22+++ text

23+ |= lines=wain

24+ ^- @t

25+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

26+++ case-no-fallback

27+ |= [source=@t public=@t internal=@t]

28+ ^- @t

29+ =/ prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb public internal)

30+ ?~ prep 'BAD prelude'

31+ =/ plain=(each module:jibb error:jibb) (parse:jibb /ui/test/jibb source)

32+ ?: ?=(%| -.plain) 'BAD source parse:jibb'

33+ ?. (module-scope-valid:jibb p.plain values.u.prep molds.u.prep) 'BAD prelude scope'

34+ =/ prelude-result=jfile-result:jibb (infer-jibb-file:jibb /ui/test/jibb source ~ ~ ~ ~[/ui/test/jibb] values.u.prep molds.u.prep ~ `iface.u.prep)

35+ ?: ?=(%& -.prelude-result) 'BAD prepared prelude fallback'

36+ =/ imported-source=@t (cat 3 '/= dep /ui/dep\0a' source)

37+ =/ dependencies=jbundle:jibb ~[[/ui/dep/jibb '++ value 1']]

38+ =/ parsed=(each module:jibb error:jibb) (parse:jibb /ui/test/jibb imported-source)

39+ ?: ?=(%| -.parsed) 'BAD import source parse:jibb'

40+ =/ deps=jimports-result:jibb (resolve-jibb-imports:jibb imports.p.parsed ~ ~ dependencies ~[/ui/test/jibb] ~ ~ ~ ~)

41+ ?: ?=(%| -.deps) 'BAD dependency resolution'

42+ =/ imported-result=jfile-result:jibb (infer-jibb-file:jibb /ui/test/jibb imported-source ~ ~ dependencies ~[/ui/test/jibb] ~ ~ ~ ~)

43+ ?: ?=(%& -.imported-result) 'BAD imported fallback'

44+ 'prelude and import fallback declined'

45+++ resolver-report

46+ |= [good=@t conflict=@t missing=@t hole=@t duplicate=@t face=@t store=@t public=@t internal=@t]

47+ ^- @t

48+ =/ lines=(list @t)

49+ =/ at=path /ui/obligation/jibb

50+ =/ expect-reject

51+ |= [label=@t source=@t]

52+ ^- @t

53+ =/ parsed (parse:jibb at source)

54+ ?: ?=(%| -.parsed) (crip "BAD-{(trip label)}-parse")

55+ =/ got=jfile-result:jibb (infer-jibb-file:jibb at source ~ ~ ~ ~[at] ~ ~ ~ ~)

56+ ?:(?=(%| -.got) (crip "{(trip label)} rejected without interface") (crip "BAD-{(trip label)}-published"))

57+ =/ result=jfile-result:jibb (infer-jibb-file:jibb at good ~ ~ ~ ~[at] ~ ~ ~ ~)

58+ ?: ?=(%| -.result) ~[(crip "BAD-valid: {(trip p.result)}")]

59+ =/ iface=ifile:jibb iface.p.result

60+ =/ built=(unit ischeme:jibb) (ienv-lookup:jibb %built values.iface)

61+ ?~ built ~['BAD-missing-built']

62+ =/ text=(unit ischeme:jibb) (ienv-lookup:jibb %reveal values.iface)

63+ =/ ship=(unit ischeme:jibb) (ienv-lookup:jibb %reveal-ship values.iface)

64+ ?~ text ~['BAD-missing-text']

65+ ?~ ship ~['BAD-missing-ship']

66+ =/ report=@t (golden-types-with-marks:jibb at good ~ ~)

67+ =/ store-at=path /ui/stores/test/jibb

68+ =/ store-parsed (parse:jibb store-at store)

69+ ?: ?=(%| -.store-parsed) ~['BAD-store-parse']

70+ =/ store-result=jfile-result:jibb (infer-jibb-file:jibb store-at store ~ ~ ~ ~[store-at] ~ ~ ~ ~)

71+ =/ shown=itype:jibb (canonical-itype:jibb typ.u.built vars.u.built)

72+ :~ ?:(?=(^ vars.u.built) 'interface retains independent polymorphism' 'BAD-principal')

73+ ?:(?=([%atom %t] typ.u.text) 'text use inferred' 'BAD-text')

74+ ?:(?=([%atom %p] typ.u.ship) 'ship use inferred' 'BAD-ship')

75+ (crip "stored built: {(show-itype:jibb shown ~)}")

76+ report

77+ (expect-reject 'conflict' conflict)

78+ (expect-reject 'missing' missing)

79+ (expect-reject 'hole' hole)

80+ (expect-reject 'duplicate' duplicate)

81+ (expect-reject 'face' face)

82+ ?:(?=(%| -.store-result) 'store declined without interface' 'BAD-store-published')

83+ 'conflict report:'

84+ (golden-types-with-marks:jibb at conflict ~ ~)

85+ 'store report:'

86+ (golden-types-with-marks:jibb store-at store ~ ~)

87+ ==

88+ =. lines (snoc lines (case-no-fallback good public internal))

89+ (of-wain:format lines)

90+++ test-deferred-resolver

91+ ^- tang

92+ =/ result=@t (resolver-report (text good) (text conflict) (text missing) (text hole) (text duplicate) (text face) (text store) public internal)

93+ ?. =((to-wain:format (cat 3 result '\0a')) expected) ~[leaf+"deferred resolver report differs"]

94+ =/ closed=itype:jibb [%cell [%face %foo [%atom %t]] [%atom %t]]

95+ =/ open=itype:jibb [%cell [%face %foo [%var 500]] [%atom %t]]

96+ =/ tag=itype:jibb [%tag 501 *lit:jibb |]

97+ ?. (dg-stable-call-fit:jibb closed closed [%atom %t] ~ &) ~[leaf+"closed positional fit declined"]

98+ ?: (dg-stable-call-fit:jibb open open [%atom %t] ~ &) ~[leaf+"open positional face accepted"]

99+ ?: (dg-stable-call-fit:jibb closed closed tag ~ &) ~[leaf+"pending positional result accepted"]

100+ ?. (dg-stable-call-fit:jibb open open [%atom %t] ~ |) ~[leaf+"equal single argument declined"]

101+ =/ samples=(list wain)

102+ ~[stability-early stability-late stability-simple-early stability-simple-late stability-output-early stability-output-late stability-slot-early stability-slot-late]

103+ |-

104+ ?~ samples ~

105+ ?~ i.samples ~[leaf+"deferred stability source missing"]

106+ =/ at=path /ui/stability/jibb

107+ =/ src=@t (text i.samples)

108+ =/ parsed (parse:jibb at src)

109+ ?: ?=(%| -.parsed) ~[leaf+"deferred stability source does not parse"]

110+ =/ result=jfile-result:jibb (infer-jibb-file:jibb at src ~ ~ ~ ~[at] ~ ~ ~ ~)

111+ ?: ?=(%& -.result) ~[leaf+"unstable deferred fit published an interface"]

112+ $(samples t.samples)

113+--

tests/lib/jibb-deferred.hoonnew file+244

@@ -0,0 +1,244 @@

1+:: Partial source-owned deferred type transaction; not module or island validation.

2+/+ jibb

3+/* nested-src %txt /tests/type-deferred/nested-src/txt

4+/* principal-src %txt /tests/type-deferred/principal-src/txt

5+/* missing-src %txt /tests/type-deferred/missing-src/txt

6+/* conflict-src %txt /tests/type-deferred/conflict-src/txt

7+/* duplicate-src %txt /tests/type-deferred/duplicate-src/txt

8+/* hole-src %txt /tests/type-deferred/hole-src/txt

9+/* local-src %txt /tests/type-deferred/local-src/txt

10+/* mutual-src %txt /tests/type-deferred/mutual-src/txt

11+/* mold-hole-src %txt /tests/type-deferred/mold-hole-src/txt

12+/* face-good-src %txt /tests/type-deferred/face-good-src/txt

13+/* face-bad-src %txt /tests/type-deferred/face-bad-src/txt

14+/* expected %txt /tests/type-deferred/expected/txt

15+|%

16+++ text

17+ |= lines=wain

18+ ^- @t

19+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

20+++ case-nested

21+ |= source=@t

22+ ^- (list @t)

23+ =/ result=(unit dgcommit:jibb) (checked-source /ui/obligation/jibb source)

24+ ?~ result ~['BAD-nested-transaction']

25+ =/ nested=(unit ischeme:jibb) (ienv-lookup:jibb %nested env.u.result)

26+ =/ alias=(unit ischeme:jibb) (ienv-lookup:jibb %alias env.u.result)

27+ =/ main=(unit ischeme:jibb) (ienv-lookup:jibb %main env.u.result)

28+ ?~ nested ~['BAD-nested']

29+ ?~ alias ~['BAD-alias']

30+ ?~ main ~['BAD-main']

31+ :~ ?:(=(typ.u.nested typ.u.alias) 'nested lexical gate and alias agree' 'BAD-alias-type')

32+ ?:(=(typ.u.nested typ.u.main) 'later source context closes nested constructor' 'BAD-main-type')

33+ ?:(!(pending-tags:jibb tags.state.u.result sub.state.u.result) 'nested obligation discharged' 'BAD-pending')

34+ ==

35+++ case-principal

36+ |= source=@t

37+ ^- (list @t)

38+ =/ result=(unit dgcommit:jibb) (checked-source /ui/obligation/jibb source)

39+ ?~ result ~['BAD-root-transaction']

40+ =/ built=(unit ischeme:jibb) (ienv-lookup:jibb %built env.u.result)

41+ =/ text=(unit ischeme:jibb) (ienv-lookup:jibb %reveal env.u.result)

42+ =/ ship=(unit ischeme:jibb) (ienv-lookup:jibb %reveal-ship env.u.result)

43+ ?~ built ~['BAD-built']

44+ ?~ text ~['BAD-text']

45+ ?~ ship ~['BAD-ship']

46+ :~ ?:(?=(^ vars.u.built) 'independent built result stays polymorphic' 'BAD-principal')

47+ ?:(?=([%atom %t] typ.u.text) 'text use inferred' 'BAD-text-type')

48+ ?:(?=([%atom %p] typ.u.ship) 'ship use inferred independently' 'BAD-ship-type')

49+ ==

50+++ case-negative

51+ |= [missing=@t conflict=@t duplicate=@t hole=@t]

52+ ^- (list @t)

53+ :~ ?:(?=(~ (checked-source /ui/obligation/jibb missing)) 'missing constructor leaves no result' 'BAD-missing')

54+ ?:(?=(~ (checked-source /ui/obligation/jibb conflict)) 'conflicting context leaves no result' 'BAD-conflict')

55+ ?:(?=(~ (checked-source /ui/obligation/jibb duplicate)) 'duplicate source binding declined' 'BAD-duplicate')

56+ ?:(?=(~ (checked-source /ui/obligation/jibb hole)) 'definition hole does not escape' 'BAD-hole')

57+ ==

58+++ case-groups

59+ |= [local=@t mutual=@t]

60+ ^- (list @t)

61+ :~ ?:(?=(~ (checked-source /ui/obligation/jibb local)) 'local deferred definition declined' 'BAD-local')

62+ ?:(?=(~ (checked-source /ui/obligation/jibb mutual)) 'recursive deferred group declined' 'BAD-group')

63+ ==

64+++ case-mold-hole

65+ |= hole=@t

66+ ^- (list @t)

67+ :~ ?:(?=(~ (checked-source /ui/a/jibb hole)) 'unused mold hole declined' 'unused mold hole committed')

68+ ==

69+++ case-fresh

70+ ^- (list @t)

71+ =/ env=ienv:jibb ~[[%x [[%fn [%var 1.000.007] [%var 1.000.007]] ~[1.000.007 2.000.001]]]]

72+ =/ scanned=(unit dgscan:jibb) (dg-all-env-ids:jibb env 200 ~)

73+ =/ small=(unit dgscan:jibb) (dg-all-env-ids:jibb env 1 ~)

74+ ?~ scanned ~['BAD-scan']

75+ :~ ?:(=(2.000.002 (dg-next-id:jibb ids.u.scanned 0)) 'fresh ID exceeds raw and quantified IDs' 'BAD-fresh')

76+ ?:(?=(~ small) 'fresh ID scan respects budget' 'BAD-fuel')

77+ ==

78+++ case-safety

79+ ^- (list @t)

80+ =/ actual=itype:jibb [%cell [%atom %ud] [%cell [%face %wrong [%atom %t]] [%atom %p]]]

81+ =/ expected=itype:jibb [%cell [%atom %ud] [%var 0]]

82+ =/ correct=itype:jibb [%cell [%face %right [%atom %t]] [%atom %p]]

83+ =/ bound=isub:jibb ~[[0 correct]]

84+ =/ with-binding=ifit:jibb (itype-fit:jibb actual expected bound 1)

85+ =/ dropped=ifit:jibb (itype-fit:jibb actual expected ~ 1)

86+ =/ open-edges=(list dgo:jibb) ~[[[%var 20] [%var 21] *span:jibb *span:jibb]]

87+ =/ st=istate:jibb *istate:jibb

88+ =. st st(next 2.000.002)

89+ =/ partial=(unit istate:jibb) (dg-replay-edges:jibb open-edges st 64)

90+ ?~ partial ~['BAD-partial-replay']

91+ =/ still-open=(unit dgscan:jibb) (dg-obligations:jibb open-edges sub.u.partial 100 ~)

92+ ?~ still-open ~['BAD-open-scan']

93+ =/ tag-literal=lit:jibb [%term %tas %got '%got']

94+ =/ target=itype:jibb [%fn [%atom %t] [%union ~[[%cell [%const tag-literal] [%face %value [%atom %t]]]] ~ ~ ~]]

95+ =/ edge=dgo:jibb [[%tag 10 tag-literal &] target *span:jibb *span:jibb]

96+ =/ complete=(unit istate:jibb) (dg-replay-edges:jibb ~[edge] st 64)

97+ ?~ complete ~['BAD-complete-replay']

98+ =/ closed=(unit dgscan:jibb) (dg-obligations:jibb ~[edge] sub.u.complete 100 ~)

99+ ?~ closed ~['BAD-closed-scan']

100+ =/ repeated=(unit istate:jibb) (dg-replay-edges:jibb ~[edge] u.complete 64)

101+ ?~ repeated ~['BAD-final-replay']

102+ =/ open-env=ienv:jibb ~[[%x [[%var 55] ~]]]

103+ =/ raw-atom=itype:jibb [%var 900]

104+ =/ atom-sub=isub:jibb ~[[900 [%avar 901]]]

105+ =/ normalized-atom=itype:jibb (itype-normalize:jibb raw-atom atom-sub)

106+ =/ capture-state=istate:jibb st(sub ~[[500 [%var 42]]])

107+ =/ capture-env=ienv:jibb ~[[%polymorphic [[%fn [%var 42] [%var 500]] ~[42]]]]

108+ =/ capture-check=(unit ischeme:jibb) (dg-generalize:jibb [%fn [%var 42] [%var 43]] capture-env ~ ~ ~ capture-state 300)

109+ ?~ capture-check ~['BAD-capture-scan']

110+ =/ explicit-capture=(unit ischeme:jibb) (dg-generalize:jibb [%fn [%var 80] [%var 81]] ~ ~ ~ ~[80] st 300)

111+ ?~ explicit-capture ~['BAD-explicit-capture-scan']

112+ =/ tag-lit=lit:jibb [%term %tas %watch '%watch']

113+ =/ bound-tag-state=istate:jibb st(sub ~[[720 [%var 721]]])

114+ =/ tag-check=(unit ischeme:jibb) (dg-generalize:jibb [%fn [%var 721] [%var 722]] ~ ~ ~[[720 tag-lit]] ~ bound-tag-state 300)

115+ ?~ tag-check ~['BAD-tag-scan']

116+ =/ cycle=(list dgo:jibb) ~[[[%var 710] [%var 711] *span:jibb *span:jibb] [[%var 711] [%var 712] *span:jibb *span:jibb] [[%var 712] [%var 710] *span:jibb *span:jibb]]

117+ =/ cyc=(unit ischeme:jibb) (dg-generalize:jibb [%fn [%var 710] [%fn [%var 712] [%var 713]]] ~ cycle ~ ~ st 300)

118+ ?~ cyc ~['BAD-cycle-scan']

119+ :~ ?:(!?=(%ok -.with-binding) 'original structural binding rejects wrong face' 'BAD-wrong-face')

120+ ?:(?=(%ok -.dropped) 'dropping binding would accept wrong face' 'BAD-counterexample')

121+ ?:(?=(^ ids.u.still-open) 'unresolved edge remains open after fit' 'BAD-open-edge')

122+ ?:(?=(~ ids.u.closed) 'closed constructor edge has no free IDs' 'BAD-closed-edge')

123+ ?:(&(=(sub.u.repeated sub.u.complete) =(next.u.repeated next.u.complete)) 'final replay is unchanged' 'BAD-final-state')

124+ ?:(?=(~ (dg-close-env:jibb open-env ~ 100)) 'open interface stays unpublished' 'BAD-open-interface')

125+ ?:(!(unsupported-atom-vars:jibb raw-atom ~ ~ atom-sub) 'raw bound variable hides atom constraint' 'BAD-raw-atom')

126+ ?:((unsupported-atom-vars:jibb normalized-atom ~ ~ atom-sub) 'normalized unsupported atom constraint rejected' 'BAD-normalized-atom')

127+ ?:(=(vars.u.capture-check ~[43]) 'scheme-local quantifier cannot hide captured ID' 'BAD-capture')

128+ ?:(=(vars.u.explicit-capture ~[81]) 'captured outer variable remains monomorphic' 'BAD-explicit-capture')

129+ ?:(=(vars.u.tag-check ~[722]) 'pending tag binding keeps reachable variable monomorphic' 'BAD-tag-binding')

130+ ?:(=(vars.u.cyc ~[713]) 'recursive obligation component stays monomorphic' 'BAD-cycle')

131+ ==

132+++ case-face-source

133+ |= [good-src=@t bad-src=@t]

134+ ^- (list @t)

135+ =/ good=(unit dgcommit:jibb) (checked-source /ui/test/jibb good-src)

136+ =/ bad=(unit dgcommit:jibb) (checked-source /ui/test/jibb bad-src)

137+ :~ ?:(?=(^ good) 'faced callback source accepted' 'BAD-faced-source')

138+ ?:(?=(~ bad) 'wrong nested callback face rejected' 'BAD-wrong-face-source')

139+ ==

140+++ case-face-replay

141+ ^- (list @t)

142+ =/ tag=lit:jibb [%term %tas %got '%got']

143+ =/ cases=(list itype:jibb) ~[[%cell [%const tag] [%face %value [%atom %t]]]]

144+ =/ callback=itype:jibb [%fn [%face %value [%atom %t]] [%union cases ~ ~ ~]]

145+ =/ edge=dgo:jibb [[%tag 10 tag &] callback *span:jibb *span:jibb]

146+ =/ st=istate:jibb *istate:jibb

147+ =. st st(next 20)

148+ =/ solved=(unit istate:jibb) (dg-replay-edges:jibb ~[edge] st 64)

149+ ?~ solved ~['BAD-faced-replay']

150+ =/ after-left=itype:jibb (itype-walk:jibb left.edge sub.u.solved)

151+ =/ after-right=itype:jibb (itype-walk:jibb right.edge sub.u.solved)

152+ =/ record-output=itype:jibb [%cell [%face %answer [%atom %t]] [%atom %p]]

153+ =/ wrong=itype:jibb [%fn [%face %different [%atom %t]] [%union cases ~ ~ ~]]

154+ =/ hostile=istate:jibb st(sub ~[[10 wrong]])

155+ =/ rejected=(unit istate:jibb) (dg-replay-edges:jibb ~[edge] hostile 64)

156+ :~ ?:(=(after-left after-right) 'constructor resolves to exact callback' 'BAD-not-exact')

157+ ?:((itype-has-face:jibb left.edge sub.u.solved) 'callback retains its face' 'BAD-face-lost')

158+ ?:(!(itype-face-asym:jibb left.edge right.edge sub.u.solved) 'post-fit face asymmetry is absent' 'BAD-face-asymmetry')

159+ ?:((itype-output-may-be-cell:jibb record-output sub.u.solved) 'record output stays cell-capable' 'BAD-output')

160+ ?:(?=(~ rejected) 'prebound incompatible callback is rejected' 'BAD-incompatible')

161+ ==

162+++ checked-source

163+ |= [at=path source=@t]

164+ ^- (unit dgcommit:jibb)

165+ =/ detail=dgparse:jibb (dg-root-detail:jibb at source)

166+ ?> parsed.detail

167+ result.detail

168+++ case-grec-scan

169+ ^- (list @t)

170+ =/ tree=itype:jibb [%grec /ui/test/jibb %tree ~ *shape:jibb ~[[%var 7]]]

171+ =/ bounded=(unit dgscan:jibb) (dg-scan:jibb ~[tree] ~ 256 ~)

172+ =/ env=ienv:jibb ~[[%t [tree ~[7]]]]

173+ =/ all=(unit dgscan:jibb) (dg-all-env-ids:jibb env 256 ~)

174+ :~ ?:(?=(~ bounded) 'grec constraint scan declines' 'BAD-grec-scan')

175+ ?:(?=(~ all) 'grec fresh-id scan declines' 'BAD-grec-freshness')

176+ ==

177+++ case-default-behavior

178+ ^- @t

179+ =/ parsed (parse:jibb /ui/test/jibb '++ example (send |=%got)')

180+ ?: ?=(%| -.parsed) 'BAD parse'

181+ ?~ defs.p.parsed 'BAD missing definition'

182+ =/ d=def:jibb i.defs.p.parsed

183+ ?. ?=(%value -.d) 'BAD not value'

184+ =/ callback=itype:jibb [%fn [%atom %t] [%var 100]]

185+ =/ head=itype:jibb [%fn callback callback]

186+ =/ env=ienv:jibb ~[[%send [head ~[100]]]]

187+ =/ state=istate:jibb *istate:jibb

188+ =/ ordinary=iresult:jibb (infer-fragment:jibb val.d env state)

189+ ?: ?=(%& -.ordinary) 'BAD default deferred inference accepted'

190+ =/ enabled=iresult:jibb (infer-fragment:jibb val.d env state(defer `~))

191+ ?: ?=(%| -.enabled) 'BAD explicit capability failed'

192+ ?~ obligations.state.p.enabled 'BAD missing obligation'

193+ 'default inference declines; explicit capability creates obligation'

194+++ case-screen-bounds

195+ ^- @t

196+ =/ parsed (parse:jibb /ui/test/jibb '++ example (send |=%got)\0a++ other 1\0a')

197+ ?: ?=(%| -.parsed) 'BAD parse'

198+ =/ ds=(list def:jibb) defs.p.parsed

199+ ?. ?=([* [* ~]] ds) 'BAD definitions'

200+ =/ good=def:jibb i.ds

201+ =/ other=def:jibb i.t.ds

202+ ?. &(?=(%value -.good) ?=(%value -.other)) 'BAD value types'

203+ =/ raw=expr:jibb val.good

204+ ?. ?=(%group -.raw) 'BAD group'

205+ =/ call=expr:jibb inner.raw

206+ ?. ?=(%call -.call) 'BAD call'

207+ =/ wrap

208+ |= [n=@ud e=expr:jibb]

209+ ^- expr:jibb

210+ |-

211+ ?~ n e

212+ $(n (dec n), e [%group (span-of:jibb e) e])

213+ =/ w63=expr:jibb (wrap 63 call)

214+ =/ w64=expr:jibb (wrap 64 call)

215+ ?. (dg-direct-source:jibb w63 64) 'BAD 63 wrappers rejected'

216+ ?: (dg-direct-source:jibb w64 64) 'BAD 64 wrappers accepted'

217+ =/ exact=(list def:jibb) (weld (reap 63 other) ~[good])

218+ =/ over=(list def:jibb) [other exact]

219+ ?. (dg-source-candidate:jibb exact 64) 'BAD exact definitions rejected'

220+ ?: (dg-source-candidate:jibb over 64) 'BAD excessive definitions accepted'

221+ =/ unsupported=expr:jibb [%trace (span-of:jibb call) call call]

222+ ?: (dg-direct-source:jibb unsupported 64) 'BAD unsupported wrapper accepted'

223+ 'candidate screen boundaries passed'

224+++ deferred-report

225+ |= [nested-src=@t principal-src=@t missing-src=@t conflict-src=@t duplicate-src=@t hole-src=@t local-src=@t mutual-src=@t mold-hole-src=@t face-good-src=@t face-bad-src=@t]

226+ ^- @t

227+ =/ lines=(list @t) (case-nested nested-src)

228+ =. lines (weld lines (case-principal principal-src))

229+ =. lines (weld lines (case-negative missing-src conflict-src duplicate-src hole-src))

230+ =. lines (weld lines (case-groups local-src mutual-src))

231+ =. lines (weld lines (case-mold-hole mold-hole-src))

232+ =. lines (weld lines case-fresh)

233+ =. lines (weld lines case-safety)

234+ =. lines (weld lines (case-face-source face-good-src face-bad-src))

235+ =. lines (weld lines case-face-replay)

236+ =. lines (weld lines case-grec-scan)

237+ =. lines (weld lines ~[case-default-behavior case-screen-bounds])

238+ (of-wain:format lines)

239+++ test-deferred

240+ ^- tang

241+ =/ result=@t (deferred-report (text nested-src) (text principal-src) (text missing-src) (text conflict-src) (text duplicate-src) (text hole-src) (text local-src) (text mutual-src) (text mold-hole-src) (text face-good-src) (text face-bad-src))

242+ ?. =((to-wain:format (cat 3 result '\0a')) expected) ~[leaf+"deferred partial transaction report differs"]

243+ ~

244+--

tests/lib/jibb-direct-gate-guards.hoonnew file+172

@@ -0,0 +1,172 @@

1+:: Direct layout evidence must retain provenance and final face constraints.

2+/+ jibb

3+|%

4+++ direct-evidence-errors

5+ ^- (list tape)

6+ =/ pre=@t '++ apply |= [f=$-([A B] B) n=@t] f\0a'

7+ =/ dupe=@t '++ apply |= [f=$-([A B] B) n=@t] f\0a++ apply |= [f=$-([A B] B) n=@t] f\0a'

8+ =/ root=@t '++ target |= [a=@t b=@p] b\0a++ main (apply target "x")\0a'

9+ =/ parsed (parse:jibb /tests/test/jibb root)

10+ ?> ?=(%& -.parsed)

11+ =/ ds=(list def:jibb) defs.p.parsed

12+ ?> ?=(^ ds)

13+ ?> ?=(^ t.ds)

14+ ?> ?=(%value -.i.t.ds)

15+ =/ expr=expr:jibb val.i.t.ds

16+ =? expr ?=(%group -.expr) inner.expr

17+ =/ txt=itype:jibb [%atom %t]

18+ =/ ship=itype:jibb [%atom %p]

19+ =/ target=itype:jibb [%fn [%cell [%face %a txt] [%face %b ship]] ship]

20+ =/ expected-fn=itype:jibb [%fn [%cell [%var 0] [%var 1]] [%var 1]]

21+ =/ expected-sample=itype:jibb [%cell [%face %f expected-fn] [%face %n txt]]

22+ =/ actual=itype:jibb [%cell target txt]

23+ =/ scheme=ischeme:jibb [[%fn expected-sample expected-fn] ~[0 1]]

24+ =/ changed=ischeme:jibb [[%fn expected-sample ship] ~[0 1]]

25+ =/ iface=ifile:jibb [~[[%apply scheme]] ~ /lib/jibb/prelude/jibb ~ ~ ~ `pre ~]

26+ =/ stale=ifile:jibb iface(values ~[[%apply changed]])

27+ =/ dup=ifile:jibb iface(source `dupe)

28+ =/ env=ienv:jibb ~[[%target [target ~]]]

29+ =/ registry=(map term def:jibb) (direct-checked-gates:jibb ds env)

30+ =/ evidence=(unit igate-prelude-evidence:jibb) (direct-prelude-evidence:jibb ds `iface)

31+ ?> ?=(^ evidence)

32+ =/ st=istate:jibb *istate:jibb

33+ =. st st(globals ~[%apply %target %main], prelude `iface, gate-defs registry, head-evidence evidence, next 10)

34+ =/ good=(unit ifit:jibb) (direct-gate-call-fit:jibb expr actual expected-sample env st)

35+ =/ bad=(unit ifit:jibb) (direct-gate-call-fit:jibb expr actual expected-sample env st(prelude `stale))

36+ =/ dupe-evidence=(unit igate-prelude-evidence:jibb) (direct-prelude-evidence:jibb ds `dup)

37+ =/ head=(unit def:jibb) (~(get by gates.u.evidence) %apply)

38+ ?> ?=(^ head)

39+ =/ head-sample=(unit sample:jibb) (direct-gate-sample:jibb u.head)

40+ ?> ?=(^ head-sample)

41+ ?> ?=(%cell -.u.head-sample)

42+ ?> ?=(%call -.expr)

43+ =/ pos=ifit:jibb (direct-positional-fit:jibb args.expr items.u.head-sample actual expected-sample env st ~ 10)

44+ =/ checks=(list @t)

45+ :~

46+ ?:(?=(%ok -.pos) 'positional-fit-ok' 'BAD-positional-fit')

47+ ?:(?=(^ good) 'original-evidence-usable' 'BAD-original-evidence')

48+ ?: &(?=(~ bad) =(source.iface source.stale) =(at.iface at.stale) !=(values.iface values.stale))

49+ 'changed-value-scheme-rejected'

50+ 'BAD-stale-evidence'

51+ ?:(?=(~ dupe-evidence) 'duplicate-source-rejected' 'BAD-duplicate-source')

52+ ==

53+

54+ ?: =(checks ~['positional-fit-ok' 'original-evidence-usable' 'changed-value-scheme-rejected' 'duplicate-source-rejected']) ~

55+ ~["direct-evidence-errors direct gate guard failed"]

56+++ late-face-errors

57+ ^- (list tape)

58+ =/ pre=@t '++ apply |= [first=[foo=A] second=A f=$-([C D] D)] f\0a'

59+ =/ dupe=@t '++ apply |= [f=$-([A B] B) n=@t] f\0a++ apply |= [f=$-([A B] B) n=@t] f\0a'

60+ =/ root=@t '++ target |= [a=@t b=@p] b\0a++ main (apply x y target)\0a'

61+ =/ parsed (parse:jibb /tests/test/jibb root)

62+ ?> ?=(%& -.parsed)

63+ =/ ds=(list def:jibb) defs.p.parsed

64+ ?> ?=(^ ds)

65+ ?> ?=(^ t.ds)

66+ ?> ?=(%value -.i.t.ds)

67+ =/ expr=expr:jibb val.i.t.ds

68+ =? expr ?=(%group -.expr) inner.expr

69+ =/ txt=itype:jibb [%atom %t]

70+ =/ ship=itype:jibb [%atom %p]

71+ =/ target=itype:jibb [%fn [%cell [%face %a txt] [%face %b ship]] ship]

72+ =/ expected-fn=itype:jibb [%fn [%cell [%var 1] [%var 2]] [%var 2]]

73+ =/ expected-sample=itype:jibb [%cell [%face %first [%face %foo [%var 0]]] [%cell [%face %second [%var 0]] [%face %f expected-fn]]]

74+ =/ actual=itype:jibb [%cell [%var 0] [%cell txt target]]

75+ =/ scheme=ischeme:jibb [[%fn expected-sample expected-fn] ~[0 1]]

76+ =/ changed=ischeme:jibb [[%fn expected-sample ship] ~[0 1]]

77+ =/ iface=ifile:jibb [~[[%apply scheme]] ~ /lib/jibb/prelude/jibb ~ ~ ~ `pre ~]

78+ =/ stale=ifile:jibb iface(values ~[[%apply changed]])

79+ =/ dup=ifile:jibb iface(source `dupe)

80+ =/ env=ienv:jibb ~[[%target [target ~]]]

81+ =/ registry=(map term def:jibb) (direct-checked-gates:jibb ds env)

82+ =/ evidence=(unit igate-prelude-evidence:jibb) (direct-prelude-evidence:jibb ds `iface)

83+ ?> ?=(^ evidence)

84+ =/ st=istate:jibb *istate:jibb

85+ =. st st(globals ~[%apply %target %main], prelude `iface, gate-defs registry, head-evidence evidence, next 10)

86+ =/ good=(unit ifit:jibb) (direct-gate-call-fit:jibb expr actual expected-sample env st)

87+ =/ bad=(unit ifit:jibb) (direct-gate-call-fit:jibb expr actual expected-sample env st(prelude `stale))

88+ =/ dupe-evidence=(unit igate-prelude-evidence:jibb) (direct-prelude-evidence:jibb ds `dup)

89+ =/ head=(unit def:jibb) (~(get by gates.u.evidence) %apply)

90+ ?> ?=(^ head)

91+ =/ head-sample=(unit sample:jibb) (direct-gate-sample:jibb u.head)

92+ ?> ?=(^ head-sample)

93+ ?> ?=(%cell -.u.head-sample)

94+ ?> ?=(%call -.expr)

95+ =/ pos=ifit:jibb (direct-positional-fit:jibb args.expr items.u.head-sample actual expected-sample env st ~ 10)

96+ =/ checks=(list @t)

97+ :~

98+ ?: ?=(%ok -.pos)

99+ ?:((itype-positional-slot-face-asym:jibb [%var 0] [%face %foo [%var 0]] sub.pos) 'LATE-FACE-ASYMMETRY' 'no-late-asymmetry')

100+ 'no-positional-fit'

101+ ?:(?=(%ok -.pos) 'positional-fit-ok' 'BAD-positional-fit')

102+ ?:(?=(^ good) 'original-evidence-usable' 'late-face-rejected')

103+ ?: &(?=(~ bad) =(source.iface source.stale) =(at.iface at.stale) !=(values.iface values.stale))

104+ 'changed-value-scheme-rejected'

105+ 'BAD-stale-evidence'

106+ ?:(?=(~ dupe-evidence) 'duplicate-source-rejected' 'BAD-duplicate-source')

107+ ==

108+

109+ ?: =(checks ~['LATE-FACE-ASYMMETRY' 'positional-fit-ok' 'late-face-rejected' 'changed-value-scheme-rejected' 'duplicate-source-rejected']) ~

110+ ~["late-face-errors direct gate guard failed"]

111+++ symmetric-face-errors

112+ ^- (list tape)

113+ =/ pre=@t '++ apply |= [first=[foo=A] second=A f=$-([C D] D)] f\0a'

114+ =/ dupe=@t '++ apply |= [f=$-([A B] B) n=@t] f\0a++ apply |= [f=$-([A B] B) n=@t] f\0a'

115+ =/ root=@t '++ target |= [a=@t b=@p] b\0a++ main (apply x y target)\0a'

116+ =/ parsed (parse:jibb /tests/test/jibb root)

117+ ?> ?=(%& -.parsed)

118+ =/ ds=(list def:jibb) defs.p.parsed

119+ ?> ?=(^ ds)

120+ ?> ?=(^ t.ds)

121+ ?> ?=(%value -.i.t.ds)

122+ =/ expr=expr:jibb val.i.t.ds

123+ =? expr ?=(%group -.expr) inner.expr

124+ =/ txt=itype:jibb [%atom %t]

125+ =/ ship=itype:jibb [%atom %p]

126+ =/ target=itype:jibb [%fn [%cell [%face %a txt] [%face %b ship]] ship]

127+ =/ expected-fn=itype:jibb [%fn [%cell [%var 1] [%var 2]] [%var 2]]

128+ =/ expected-sample=itype:jibb [%cell [%face %first [%face %foo [%var 0]]] [%cell [%face %second [%var 0]] [%face %f expected-fn]]]

129+ =/ actual=itype:jibb [%cell [%face %foo [%var 0]] [%cell txt target]]

130+ =/ scheme=ischeme:jibb [[%fn expected-sample expected-fn] ~[0 1]]

131+ =/ changed=ischeme:jibb [[%fn expected-sample ship] ~[0 1]]

132+ =/ iface=ifile:jibb [~[[%apply scheme]] ~ /lib/jibb/prelude/jibb ~ ~ ~ `pre ~]

133+ =/ stale=ifile:jibb iface(values ~[[%apply changed]])

134+ =/ dup=ifile:jibb iface(source `dupe)

135+ =/ env=ienv:jibb ~[[%target [target ~]]]

136+ =/ registry=(map term def:jibb) (direct-checked-gates:jibb ds env)

137+ =/ evidence=(unit igate-prelude-evidence:jibb) (direct-prelude-evidence:jibb ds `iface)

138+ ?> ?=(^ evidence)

139+ =/ st=istate:jibb *istate:jibb

140+ =. st st(globals ~[%apply %target %main], prelude `iface, gate-defs registry, head-evidence evidence, next 10)

141+ =/ good=(unit ifit:jibb) (direct-gate-call-fit:jibb expr actual expected-sample env st)

142+ =/ bad=(unit ifit:jibb) (direct-gate-call-fit:jibb expr actual expected-sample env st(prelude `stale))

143+ =/ dupe-evidence=(unit igate-prelude-evidence:jibb) (direct-prelude-evidence:jibb ds `dup)

144+ =/ head=(unit def:jibb) (~(get by gates.u.evidence) %apply)

145+ ?> ?=(^ head)

146+ =/ head-sample=(unit sample:jibb) (direct-gate-sample:jibb u.head)

147+ ?> ?=(^ head-sample)

148+ ?> ?=(%cell -.u.head-sample)

149+ ?> ?=(%call -.expr)

150+ =/ pos=ifit:jibb (direct-positional-fit:jibb args.expr items.u.head-sample actual expected-sample env st ~ 10)

151+ =/ checks=(list @t)

152+ :~

153+ ?: ?=(%ok -.pos)

154+ ?:((itype-positional-slot-face-asym:jibb [%face %foo [%var 0]] [%face %foo [%var 0]] sub.pos) 'LATE-FACE-ASYMMETRY' 'symmetric-after-later-binding')

155+ 'no-positional-fit'

156+ ?:(?=(%ok -.pos) 'positional-fit-ok' 'BAD-positional-fit')

157+ ?:(?=(^ good) 'original-evidence-usable' 'BAD-original-evidence')

158+ ?: &(?=(~ bad) =(source.iface source.stale) =(at.iface at.stale) !=(values.iface values.stale))

159+ 'changed-value-scheme-rejected'

160+ 'BAD-stale-evidence'

161+ ?:(?=(~ dupe-evidence) 'duplicate-source-rejected' 'BAD-duplicate-source')

162+ ==

163+

164+ ?: =(checks ~['symmetric-after-later-binding' 'positional-fit-ok' 'original-evidence-usable' 'changed-value-scheme-rejected' 'duplicate-source-rejected']) ~

165+ ~["symmetric-face-errors direct gate guard failed"]

166+++ direct-gate-guard-errors

167+ ^- (list tape)

168+ (weld direct-evidence-errors (weld late-face-errors symmetric-face-errors))

169+++ test-direct-gate-guards

170+ ^- tang

171+ (turn direct-gate-guard-errors |=(reason=tape leaf+reason))

172+--

tests/lib/jibb-direct-gate-source.hoonnew file+46

@@ -0,0 +1,46 @@

1+:: Exercise direct-source gate layouts through a synthetic program scaffold.

2+/+ jibb

3+/* real-prelude %jibb /lib/jibb/prelude/jibb

4+/* real-internal %jibb /lib/jibb/internal/jibb

5+/* source %txt /tests/type-direct-gate/source/txt

6+/* expected %txt /tests/type-direct-gate/expected/txt

7+|%

8+++ text

9+ |= lines=wain

10+ ^- @t

11+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

12+++ direct-gate-prepared

13+ |= [prelude=@t internal=@t]

14+ ^- (unit iprelude:jibb)

15+ :: Program and element come from the real prelude; only layout helpers are synthetic.

16+ =/ extra=@t '\0a++ choose-layout |= [f=$-([A B] C) value=[A B]] (f value)\0a++ higher |= [f=$-([@t [x=@t y=@p]] @t) marker=?] f\0a++ higher-generic |= [f=$-([@t X] X) state=X] state\0a'

17+ (prepare-prelude-with-internal:jibb (cat 3 prelude extra) internal)

18+++ direct-gate-source-output

19+ |= [src=@t prepared=(unit iprelude:jibb)]

20+ ^- @t

21+ (golden-types-with-prepared-prelude:jibb /tests/sub/client/jibb src ~ ~ ~ prepared)

22+++ direct-gate-projection-errors

23+ |= prepared=(unit iprelude:jibb)

24+ ^- (list tape)

25+ ?~ prepared ~["synthetic prelude did not prepare"]

26+ =/ src=@t '+$ message\0a %start\0a %stop\0a+$ record [count=@ud label=@t]\0a++ init-record |= input=@t ^- record [count=0 label=input]\0a++ view-record |= state=record ^- (element message) (text "view")\0a++ subs-record |= state=record ^- (list (sub message)) ~\0a++ update-proj-good |= [msg=message state=record]\0a ^- [record (list (cmd message))]\0a [(proj [count=0 label="projected" extra=%.y]) ~]\0a++ program-projection (program init-record update-proj-good view-record subs-record)\0a'

27+ =/ out=jfile-result:jibb (infer-jibb-file:jibb /tests/direct/client/jibb src ~ ~ ~ ~[/tests/direct/client/jibb] values.u.prepared molds.u.prepared ~ `iface.u.prepared)

28+ ?: ?=(%| -.out) ~["projection-bearing module did not infer"]

29+ =/ defs=(list iwidth-definition:jibb) (skim elaborations.iface.p.out |=(d=iwidth-definition:jibb =(%update-proj-good name.d)))

30+ ?~ defs ~["projection-bearing update lost its elaboration"]

31+ ?~ projections.i.defs ~["projection action is missing"]

32+ ?: !=(1 (lent projections.i.defs)) ~["unexpected projection action count"]

33+ ?. =(steps.i.projections.i.defs ~[[%count 2] [%label 6]]) ~["projection axes changed"]

34+ ~

35+++ test-direct-gate-source

36+ ^- tang

37+ ?~ source ~[leaf+"direct gate source is missing"]

38+ ?~ expected ~[leaf+"direct gate expected output is missing"]

39+ =/ prepared=(unit iprelude:jibb) (direct-gate-prepared real-prelude real-internal)

40+ =/ errors=(list tape) (direct-gate-projection-errors prepared)

41+ ?^ errors (turn errors |=(reason=tape leaf+reason))

42+ =/ got=@t (direct-gate-source-output (text source) prepared)

43+ ?. =((to-wain:format (cat 3 got '\0a')) expected)

44+ ~[leaf+"direct gate source output differs from its golden"]

45+ ~

46+--

tests/lib/jibb-empty.hoonnew file+174

@@ -0,0 +1,174 @@

1+:: Source-backed empty-mold checks; no backend/runtime claim.

2+/+ jibb

3+/* real-prelude %jibb /lib/jibb/prelude/jibb

4+/* real-internal %jibb /lib/jibb/internal/jibb

5+/* good %txt /tests/type-empty/good/txt

6+/* overlap %txt /tests/type-empty/overlap/txt

7+/* dead %txt /tests/type-empty/dead/txt

8+/* missing %txt /tests/type-empty/missing/txt

9+/* standard-good %txt /tests/type-empty/standard-good/txt

10+/* list-dead %txt /tests/type-empty/list-dead/txt

11+/* unit-dead %txt /tests/type-empty/unit-dead/txt

12+/* late-cap %txt /tests/type-empty/late-cap/txt

13+/* list-live %txt /tests/type-empty/list-live/txt

14+/* list-open %txt /tests/type-empty/list-open/txt

15+/* face-source %txt /tests/type-empty/face-source/txt

16+/* expected %txt /tests/type-empty/expected/txt

17+|%

18+++ text

19+ |= lines=wain

20+ ^- @t

21+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

22+++ line

23+ |= [label=@t ok=?]

24+ ^- @t

25+ (crip "{(trip label)}: {?:(ok "ok" "BAD")}")

26+++ face-retained

27+ |= [source=@t prelude=ifile:jibb]

28+ ^- ?

29+ =/ parsed=(each module:jibb error:jibb) (parse:jibb /tests/empty/jibb source)

30+ ?: ?=(%| -.parsed) |

31+ =/ ds=(list def:jibb) defs.p.parsed

32+ ?. ?=([* ~] ds) |

33+ =/ d=def:jibb i.ds

34+ ?. ?=(%value -.d) |

35+ =/ typ=itype:jibb [%collection %list ~[[%empty ~]]]

36+ =/ env=ienv:jibb ~[[%xs [typ ~]]]

37+ =/ state=istate:jibb *istate:jibb

38+ =. state state(prelude `prelude, jrec-fuel 256)

39+ =/ expected=itype:jibb [%cell [%atom %t] [%atom %t]]

40+ =/ result=(unit iresult:jibb)

41+ (empty-list-null-branch:jibb val.d env state `[expected (span-of:jibb val.d)])

42+ ?~ result |

43+ ?: ?=(%| -.u.result) |

44+ (itype-has-face:jibb typ.p.u.result sub.state.p.u.result)

45+++ empty-output

46+ |= [pre=@t internal=@t good=@t overlap=@t dead=@t missing=@t standard-good=@t list-dead=@t unit-dead=@t late-cap=@t list-live=@t list-open=@t face-source=@t]

47+ ^- @t

48+ =/ prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb pre internal)

49+ ?~ prep 'BAD prelude preparation'

50+ =/ f=path /tests/empty/jibb

51+ =/ valid=jfile-result:jibb (infer-jibb-file:jibb f good ~ ~ ~ ~[f] ~ ~ ~ ~)

52+ ?: ?=(%| -.valid) 'BAD checked empty source'

53+ =/ never=(unit ischeme:jibb) (find-jibb-mold:jibb %never iface.p.valid)

54+ ?~ never 'BAD never export'

55+ =/ select=(unit ischeme:jibb) (ienv-lookup:jibb %select values.iface.p.valid)

56+ ?~ select 'BAD select export'

57+ =/ split=(unit ischeme:jibb) (find-jibb-mold:jibb %split iface.p.valid)

58+ ?~ split 'BAD split export'

59+ ?. ?=(%fn -.typ.u.select) 'BAD select gate'

60+ =/ selected=itype:jibb sample.typ.u.select

61+ =? selected ?=(%face -.selected) body.selected

62+ =/ parsed-overlap=(each module:jibb error:jibb) (parse:jibb f overlap)

63+ =/ parsed-dead=(each module:jibb error:jibb) (parse:jibb f dead)

64+ =/ parsed-missing=(each module:jibb error:jibb) (parse:jibb f missing)

65+ =/ parsed-list=(each module:jibb error:jibb) (parse:jibb f list-dead)

66+ =/ parsed-unit=(each module:jibb error:jibb) (parse:jibb f unit-dead)

67+ =/ invalid=jfile-result:jibb (infer-jibb-file:jibb f overlap ~ ~ ~ ~[f] ~ ~ ~ ~)

68+ =/ dead-result=jfile-result:jibb (infer-jibb-file:jibb f dead ~ ~ ~ ~[f] ~ ~ ~ ~)

69+ =/ missing-result=jfile-result:jibb (infer-jibb-file:jibb f missing ~ ~ ~ ~[f] ~ ~ ~ ~)

70+ =/ standard=jfile-result:jibb (infer-jibb-file:jibb f standard-good ~ ~ ~ ~[f] values.u.prep molds.u.prep ~ `iface.u.prep)

71+ =/ only=(unit ischeme:jibb)

72+ ?- -.standard

73+ %& (ienv-lookup:jibb %list-only values.iface.p.standard)

74+ %| ~

75+ ==

76+ =/ only-context=(unit ischeme:jibb)

77+ ?- -.standard

78+ %& (ienv-lookup:jibb %list-only-context values.iface.p.standard)

79+ %| ~

80+ ==

81+ =/ only-good=?

82+ ?~ only |

83+ ?. ?=(%fn -.typ.u.only) |

84+ =/ sample=itype:jibb sample.typ.u.only

85+ =? sample ?=(%face -.sample) body.sample

86+ &(=(sample [%collection %list ~[[%empty ~]]]) =(product.typ.u.only [%atom %t]))

87+ =/ parsed-live=(each module:jibb error:jibb) (parse:jibb f list-live)

88+ =/ parsed-open=(each module:jibb error:jibb) (parse:jibb f list-open)

89+ =/ live-result=jfile-result:jibb (infer-jibb-file:jibb f list-live ~ ~ ~ ~[f] values.u.prep molds.u.prep ~ `iface.u.prep)

90+ =/ open-result=jfile-result:jibb (infer-jibb-file:jibb f list-open ~ ~ ~ ~[f] values.u.prep molds.u.prep ~ `iface.u.prep)

91+ =/ bad-list=jfile-result:jibb (infer-jibb-file:jibb f list-dead ~ ~ ~ ~[f] values.u.prep molds.u.prep ~ `iface.u.prep)

92+ =/ bad-unit=jfile-result:jibb (infer-jibb-file:jibb f unit-dead ~ ~ ~ ~[f] values.u.prep molds.u.prep ~ `iface.u.prep)

93+ =/ atom=itype:jibb [%atom %t]

94+ =/ void=itype:jibb [%empty ~]

95+ =/ fn=itype:jibb [%fn atom atom]

96+ =/ impossible=itype:jibb [%cell fn [%face %field void]]

97+ =/ singleton=itype:jibb [%collection %list ~[void]]

98+ =/ proof=(unit [empty=? left=@ud]) (itype-empty-proof:jibb impossible ~ 4)

99+ =/ list-proof=(unit [empty=? left=@ud]) (itype-empty-proof:jibb singleton ~ 4)

100+ =/ fn-proof=(unit [empty=? left=@ud]) (itype-empty-proof:jibb [%fn void void] ~ 4)

101+ =/ unknown=(unit [empty=? left=@ud]) (itype-empty-proof:jibb [%var 23] ~ 4)

102+ =/ too-short=(unit [empty=? left=@ud]) (itype-empty-proof:jibb [%face %field void] ~ 1)

103+ =/ enough=(unit [empty=? left=@ud]) (itype-empty-proof:jibb [%face %field void] ~ 2)

104+ =/ empty-fit=ifit:jibb (itype-fit:jibb void atom ~ 17)

105+ =/ nested-fit=ifit:jibb (itype-fit:jibb impossible atom ~ 17)

106+ =/ atom-fit=ifit:jibb (itype-fit:jibb atom void ~ 17)

107+ =/ cap=icaps:jibb ~[['A' 23 *span:jibb]]

108+ =/ open-live=(unit [result=?(%yes %no %unknown) left=@ud]) (itype-inhabited-proof:jibb [%var 23] ~ ~ 4)

109+ =/ capital-live=(unit [result=?(%yes %no %unknown) left=@ud]) (itype-inhabited-proof:jibb [%var 23] ~ cap 4)

110+ =/ bound-empty=(unit [result=?(%yes %no %unknown) left=@ud]) (itype-inhabited-proof:jibb [%var 23] ~[[23 void]] cap 4)

111+ =/ opaque=itype:jibb [%recursive %opaque %mold ~]

112+ =/ opaque-live=(unit [result=?(%yes %no %unknown) left=@ud]) (itype-inhabited-proof:jibb opaque ~ ~ 4)

113+ =/ rejected-cases=(unit (list itype:jibb)) (itype-live-cases:jibb ~[opaque] ~ ~ 4)

114+ =/ no-gates=igate-free:jibb (gate-free-type:jibb impossible 8 ~)

115+ =/ list-gates=igate-free:jibb (gate-free-type:jibb singleton 8 ~)

116+ =/ checks=(list [label=@t ok=?])

117+ :~ ['empty mold exported' =([%empty ~] typ.u.never)]

118+ ['live union selector preserves type' &(=(typ.u.split selected) =([%atom %t] product.typ.u.select))]

119+ ['overlap parses and is rejected' &(?=(%& -.parsed-overlap) ?=(%| -.invalid))]

120+ ['dead empty case parses and is rejected' &(?=(%& -.parsed-dead) ?=(%| -.dead-result))]

121+ ['missing live case parses and is rejected' &(?=(%& -.parsed-missing) ?=(%| -.missing-result))]

122+ ['standard list and unit identities checked' ?=(%& -.standard)]

123+ ['single null list gate keeps its exact sample and result' only-good]

124+ ['contextual single null list gate checks' ?=(^ only-context)]

125+ ['contextual single null list arm retains faces' (face-retained face-source iface.u.prep)]

126+ ['one null arm on inhabited list declines' &(?=(%& -.parsed-live) ?=(%| -.live-result))]

127+ ['one null arm on generic list declines' &(?=(%& -.parsed-open) ?=(%| -.open-result))]

128+ ['empty list nonempty arm parses and is rejected' &(?=(%& -.parsed-list) ?=(%| -.bad-list))]

129+ ['empty unit present arm parses and is rejected' &(?=(%& -.parsed-unit) ?=(%| -.bad-unit))]

130+ ['nested empty proof' ?:(?=(~ proof) | empty.u.proof)]

131+ ['list of empty is inhabited' ?:(?=(~ list-proof) | !empty.u.list-proof)]

132+ ['gate returning empty is not empty' ?:(?=(~ fn-proof) | !empty.u.fn-proof)]

133+ ['unbound type not proved empty' ?:(?=(~ unknown) | !empty.u.unknown)]

134+ ['unbound inference type reachability unknown' ?:(?=(~ open-live) | =(%unknown result.u.open-live))]

135+ ['written capital can have a value' ?:(?=(~ capital-live) | =(%yes result.u.capital-live))]

136+ ['bound empty capital is unreachable' ?:(?=(~ bound-empty) | =(%no result.u.bound-empty))]

137+ ['opaque recursion reachability unknown' ?:(?=(~ opaque-live) | =(%unknown result.u.opaque-live))]

138+ ['opaque union case declines coverage proof' ?=(~ rejected-cases)]

139+ ['one proof node exhausted' ?=(~ too-short)]

140+ ['two proof nodes succeed' ?:(?=(~ enough) | &(empty.u.enough =(0 left.u.enough)))]

141+ ['empty fits a concrete type' ?=(%ok -.empty-fit)]

142+ ['empty cell fits a concrete type' ?=(%ok -.nested-fit)]

143+ ['inhabited atom does not fit empty' ?=(%bad -.atom-fit)]

144+ ['empty gate-bearing cell is gate-free' &(=(%yes verdict.no-gates) !inhabited.no-gates)]

145+ ['list of empty is gate-free and inhabited' &(=(%yes verdict.list-gates) inhabited.list-gates)]

146+ ==

147+ =/ report=@t (golden-types-in-context:jibb f good ~ ~ ~ ~ ~ ~)

148+ =/ overlap-report=@t (golden-types-in-context:jibb f overlap ~ ~ ~ ~ ~ ~)

149+ =/ dead-report=@t (golden-types-in-context:jibb f dead ~ ~ ~ ~ ~ ~)

150+ =/ missing-report=@t (golden-types-in-context:jibb f missing ~ ~ ~ ~ ~ ~)

151+ =/ list-report=@t (golden-types-with-prepared-prelude:jibb f list-dead ~ ~ ~ prep)

152+ =/ unit-report=@t (golden-types-with-prepared-prelude:jibb f unit-dead ~ ~ ~ prep)

153+ =/ late-report=@t (golden-types-with-prepared-prelude:jibb f late-cap ~ ~ ~ prep)

154+ (rap 3 ~[(of-wain:format (turn checks line)) '\0a' report '\0a' overlap-report '\0a' dead-report '\0a' missing-report '\0a' list-report '\0a' unit-report '\0a' late-report])

155+++ test-empty

156+ ^- tang

157+ ?~ good ~[leaf+"empty source missing"]

158+ ?~ overlap ~[leaf+"overlap source missing"]

159+ ?~ dead ~[leaf+"dead case source missing"]

160+ ?~ missing ~[leaf+"missing case source missing"]

161+ ?~ standard-good ~[leaf+"standard type source missing"]

162+ ?~ list-dead ~[leaf+"empty list source missing"]

163+ ?~ unit-dead ~[leaf+"empty unit source missing"]

164+ ?~ late-cap ~[leaf+"late capital source missing"]

165+ ?~ list-live ~[leaf+"inhabited list source missing"]

166+ ?~ list-open ~[leaf+"generic list source missing"]

167+ ?~ face-source ~[leaf+"face source missing"]

168+ ?~ expected ~[leaf+"expected output missing"]

169+ =/ actual=@t

170+ (empty-output real-prelude real-internal (text good) (text overlap) (text dead) (text missing) (text standard-good) (text list-dead) (text unit-dead) (text late-cap) (text list-live) (text list-open) (text face-source))

171+ ?. =((to-wain:format (cat 3 actual '\0a')) expected)

172+ ~[leaf+"empty mold output differs from expected"]

173+ ~

174+--

tests/lib/jibb-full-overlap-basic.hoonnew file+143

@@ -0,0 +1,143 @@

1+:: Source-bound full-module overlap diagnostics.

2+/+ jibb

3+/* same %txt /tests/type-full-overlap/same/txt

4+/* zero %txt /tests/type-full-overlap/zero/txt

5+/* unsupported %txt /tests/type-full-overlap/unsupported/txt

6+/* precedence %txt /tests/type-full-overlap/precedence/txt

7+/* duplicate %txt /tests/type-full-overlap/duplicate/txt

8+/* invalid %txt /tests/type-full-overlap/invalid/txt

9+/* distinct %txt /tests/type-full-overlap/distinct/txt

10+/* parent %txt /tests/type-full-overlap/parent/txt

11+/* child %txt /tests/type-full-overlap/child/txt

12+/* generic %txt /tests/type-full-overlap/generic/txt

13+/* duplicate-generic %txt /tests/type-full-overlap/duplicate-generic/txt

14+/* expected %txt /tests/type-full-overlap/expected-basic/txt

15+|%

16++$ overlap-evidence [file=path source=@t name=term cases=upair:jibb]

17++$ detailed-result

18+ (each [iface=ifile:jibb cache=jcache:jibb] [message=@t overlap=(unit overlap-evidence)])

19+++ source-pair

20+ |= [file=path source=@t name=term]

21+ ^- (unit upair:jibb)

22+ =/ parsed (parse:jibb file source)

23+ ?: ?=(%| -.parsed) ~

24+ =/ molds=imolds:jibb (collect-simple-molds:jibb defs.p.parsed)

25+ =/ found=(unit shape:jibb) (find-simple-mold:jibb name molds)

26+ ?~ found ~

27+ =/ sh=shape:jibb u.found

28+ =? sh ?=(%generic -.sh) body.sh

29+ ?. ?=(%union -.sh) ~

30+ ?~ cases.sh ~

31+ ?~ t.cases.sh ~

32+ `[at.i.cases.sh at.i.t.cases.sh %overlap]

33+++ source-witness

34+ |= [file=path source=@t name=term]

35+ ^- ?

36+ =/ parsed (parse:jibb file source)

37+ ?: ?=(%| -.parsed) |

38+ =/ molds=imolds:jibb (collect-simple-molds:jibb defs.p.parsed)

39+ =/ found=(unit shape:jibb) (find-simple-mold:jibb name molds)

40+ ?~ found |

41+ =/ sh=shape:jibb u.found

42+ =? sh ?=(%generic -.sh) body.sh

43+ ?. ?=(%union -.sh) |

44+ ?=(^ (union-source-overlap:jibb cases.sh molds 256))

45+++ detailed

46+ |= [file=path source=@t modules=jbundle:jibb]

47+ ^- detailed-result

48+ (infer-jibb-file-detailed:jibb file source ~ ~ modules ~[file] ~ ~ ~ ~)

49+++ expected-overlap

50+ |= [file=path source=@t name=term]

51+ ^- ?

52+ =/ expected=(unit upair:jibb) (source-pair file source name)

53+ ?~ expected |

54+ =/ result=detailed-result (detailed file source ~)

55+ ?: ?=(%& -.result) |

56+ ?~ overlap.p.result |

57+ =/ ev=overlap-evidence u.overlap.p.result

58+ ?& !=(0 message.p.result)

59+ =(file.ev file)

60+ =(source.ev source)

61+ =(name.ev name)

62+ =(cases.ev u.expected)

63+ =(%overlap relation.cases.ev)

64+ =(3 line.beg.first.cases.ev)

65+ =(3 col.beg.first.cases.ev)

66+ =(4 line.beg.second.cases.ev)

67+ =(3 col.beg.second.cases.ev)

68+ ==

69+++ plain-failure

70+ |= [file=path source=@t]

71+ ^- ?

72+ =/ parsed (parse:jibb file source)

73+ ?: ?=(%| -.parsed) |

74+ =/ result=detailed-result (detailed file source ~)

75+ ?: ?=(%& -.result) |

76+ &(!=(0 message.p.result) ?=(~ overlap.p.result))

77+++ run

78+ |= [same=@t zero=@t unsupported=@t precedence=@t duplicate=@t invalid=@t distinct=@t parent=@t child=@t generic=@t duplicate-generic=@t]

79+ ^- (list [@t ?])

80+ =/ root=path /ui/root/jibb

81+ =/ names256=(list @t) (turn (gulf 0 255) |=(n=@ud (scot %ud n)))

82+ =/ names257=(list @t) (turn (gulf 0 256) |=(n=@ud (scot %ud n)))

83+ =/ child-file=path /ui/child/jibb

84+ =/ good-parsed (parse:jibb root distinct)

85+ =/ good-result=detailed-result (detailed root distinct ~)

86+ =/ bad-parsed (parse:jibb root invalid)

87+ =/ bad-result=detailed-result (detailed root invalid ~)

88+ =/ invalid-clean=?

89+ ?: ?=(%& -.bad-parsed) |

90+ ?: ?=(%& -.bad-result) |

91+ &(!=(0 message.p.bad-result) ?=(~ overlap.p.bad-result))

92+ =/ legacy=jfile-result:jibb (infer-jibb-file:jibb root same ~ ~ ~ ~[root] ~ ~ ~ ~)

93+ =/ legacy-excerpts=?

94+ ?: ?=(%& -.legacy) |

95+ =/ lines=wain (to-wain:format p.legacy)

96+ &((lien lines |=(line=@t =(line '/ui/root.jibb:3:3: first union case'))) (lien lines |=(line=@t =(line '/ui/root.jibb:4:3: overlapping case'))))

97+ =/ imported=detailed-result (detailed root parent ~[[child-file child]])

98+ =/ child-pair=(unit upair:jibb) (source-pair child-file child %child-bad)

99+ =/ import-valid=?

100+ ?: ?=(%& -.imported) |

101+ ?: =(0 message.p.imported) |

102+ ?~ overlap.p.imported |

103+ ?~ child-pair |

104+ =/ ev=overlap-evidence u.overlap.p.imported

105+ ?& =(file.ev child-file)

106+ =(source.ev child)

107+ =(name.ev %child-bad)

108+ =(cases.ev u.child-pair)

109+ ==

110+ :~ ['256 generic parameters accepted by scan' (module-mold-params-valid:jibb names256 *(set @t) 256)]

111+ ['257 generic parameters exhaust scan' !(module-mold-params-valid:jibb names257 *(set @t) 256)]

112+ ['duplicate generic parameters fail scan' !(module-mold-params-valid:jibb ~['A' 'A'] *(set @t) 256)]

113+ ['same head has source-bound overlap' (expected-overlap root same %bad)]

114+ ['zero spelling has source-bound overlap' (expected-overlap root zero %bad)]

115+ ['generic wrapper has source-bound overlap' (expected-overlap root generic %bad)]

116+ ['duplicate generic parameters remain unstructured' (plain-failure root duplicate-generic)]

117+ ['unsupported remains unstructured' (plain-failure root unsupported)]

118+ ['later overlap exists in precedence source' (source-witness root precedence %bad)]

119+ ['earlier unsupported mold takes precedence' (plain-failure root precedence)]

120+ ['duplicate source parsed but rejects without overlap' (plain-failure root duplicate)]

121+ ['invalid source rejects without overlap' invalid-clean]

122+ ['distinct alias source parses and checks' &(?=(%& -.good-parsed) ?=(%& -.good-result))]

123+ ['parent itself has different positive overlap' (source-witness root parent %parent-bad)]

124+ ['legacy full-module error contains both excerpts' legacy-excerpts]

125+ ['import overlap retains exact child source' import-valid]

126+ ==

127+++ text

128+ |= lines=wain

129+ ^- @t

130+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

131+++ output

132+ |= [same=@t zero=@t unsupported=@t precedence=@t duplicate=@t invalid=@t distinct=@t parent=@t child=@t generic=@t duplicate-generic=@t]

133+ ^- @t

134+ =/ result=(list [@t ?]) (run same zero unsupported precedence duplicate invalid distinct parent child generic duplicate-generic)

135+ (of-wain:format (turn result |=(entry=[@t ?] (crip "{(trip -.entry)}: {?:(+.entry "ok" "BAD")}"))))

136+++ test-full-overlap-basic

137+ ^- tang

138+ ?~ expected ~[leaf+"expected output missing"]

139+ =/ actual=@t (output (text same) (text zero) (text unsupported) (text precedence) (text duplicate) (text invalid) (text distinct) (text parent) (text child) (text generic) (text duplicate-generic))

140+ ?. =((to-wain:format (cat 3 actual '\0a')) expected)

141+ ~[leaf+"full-module overlap output differs"]

142+ ~

143+--

tests/lib/jibb-full-overlap-graph.hoonnew file+126

@@ -0,0 +1,126 @@

1+:: Source-bound full-module overlap diagnostics.

2+/+ jibb

3+/* parent %txt /tests/type-full-overlap/parent/txt

4+/* child %txt /tests/type-full-overlap/child/txt

5+/* distinct %txt /tests/type-full-overlap/distinct/txt

6+/* expected %txt /tests/type-full-overlap/expected-graph/txt

7+|%

8++$ overlap-evidence [file=path source=@t name=term cases=upair:jibb]

9++$ detailed-result

10+ (each [iface=ifile:jibb cache=jcache:jibb] [message=@t overlap=(unit overlap-evidence)])

11+++ detailed

12+ |= [file=path source=@t modules=jbundle:jibb]

13+ ^- detailed-result

14+ (infer-jibb-file-detailed:jibb file source ~ ~ modules ~[file] ~ ~ ~ ~)

15+++ source-pair

16+ |= [file=path source=@t]

17+ ^- (unit upair:jibb)

18+ =/ parsed (parse:jibb file source)

19+ ?: ?=(%| -.parsed) ~

20+ =/ molds=imolds:jibb (collect-simple-molds:jibb defs.p.parsed)

21+ =/ found=(unit shape:jibb) (find-simple-mold:jibb %child-bad molds)

22+ ?~ found ~

23+ ?. ?=(%union -.u.found) ~

24+ ?~ cases.u.found ~

25+ ?~ t.cases.u.found ~

26+ `[at.i.cases.u.found at.i.t.cases.u.found %overlap]

27+++ failure-message

28+ |= [r=detailed-result expected-message=@t]

29+ ^- ?

30+ ?: ?=(%& -.r) |

31+ &(=(message.p.r expected-message) ?=(~ overlap.p.r))

32+++ run

33+ |= [parent=@t child=@t distinct=@t]

34+ ^- (list [@t ?])

35+ =/ root=path /ui/root/jibb

36+ =/ child-file=path /ui/child/jibb

37+ =/ good-parsed (parse:jibb child-file distinct)

38+ =/ parent-parsed (parse:jibb root parent)

39+ =/ child-parsed (parse:jibb child-file child)

40+ ?: ?=(%| -.good-parsed) ~[['BAD valid child parse' |]]

41+ ?: ?=(%| -.parent-parsed) ~[['BAD parent parse' |]]

42+ ?: ?=(%| -.child-parsed) ~[['BAD child parse' |]]

43+ =/ child-pair=(unit upair:jibb) (source-pair child-file child)

44+ ?~ child-pair ~[['BAD child pair' |]]

45+ =/ old=detailed-result (detailed child-file distinct ~)

46+ =/ cache-controls=[rebuilt=? stale=? source-bound=?]

47+ ?: ?=(%| -.old) [| | |]

48+ =/ previous=ifile:jibb iface.p.old

49+ =/ source-bound=?

50+ ?~ source.previous |

51+ ?~ graph.previous |

52+ ?& =(at.previous child-file)

53+ =(u.source.previous distinct)

54+ (request-graph-reusable:jibb previous distinct ~ ~ ~ ~ ~ ~ ~)

55+ !(request-graph-reusable:jibb previous child ~ ~ ~ ~ ~ ~ ~)

56+ ==

57+ =/ detached=ifile:jibb previous(graph ~)

58+ =/ rebuilt=detailed-result

59+ (infer-jibb-file-detailed:jibb root parent ~ ~ ~[[child-file child]] ~[root] ~ ~ ~[[child-file detached]] ~)

60+ =/ stale=detailed-result

61+ (infer-jibb-file-detailed:jibb root parent ~ ~ ~[[child-file child]] ~[root] ~ ~ ~[[child-file previous]] ~)

62+ =/ rebuilt-ok=?

63+ ?: ?=(%& -.rebuilt) |

64+ ?~ overlap.p.rebuilt |

65+ ?& =(file.u.overlap.p.rebuilt child-file)

66+ =(source.u.overlap.p.rebuilt child)

67+ =(name.u.overlap.p.rebuilt %child-bad)

68+ =(cases.u.overlap.p.rebuilt u.child-pair)

69+ ==

70+ =/ stale-ok=?

71+ ?: ?=(%& -.stale) |

72+ &(=(message.p.stale 'cached module evidence needs unsupported inference') ?=(~ overlap.p.stale))

73+ [rebuilt-ok stale-ok source-bound]

74+ =/ middle=@t (of-wain:format ~['/= leaf /ui/leaf' '+$ okay @t'])

75+ =/ leaf-file=path /ui/leaf/jibb

76+ =/ middle-parsed (parse:jibb child-file middle)

77+ =/ transitive=detailed-result

78+ (infer-jibb-file-detailed:jibb root parent ~ ~ ~[[child-file middle] [leaf-file child]] ~[root] ~ ~ ~ ~)

79+ =/ transitive-ok=?

80+ ?: ?=(%| -.middle-parsed) |

81+ ?: ?=(%& -.transitive) |

82+ ?~ overlap.p.transitive |

83+ ?& =(file.u.overlap.p.transitive leaf-file)

84+ =(source.u.overlap.p.transitive child)

85+ =(name.u.overlap.p.transitive %child-bad)

86+ =(cases.u.overlap.p.transitive u.child-pair)

87+ ==

88+ =/ clean-failure

89+ |= r=detailed-result

90+ ^- ?

91+ ?: ?=(%& -.r) |

92+ &(!=(0 message.p.r) ?=(~ overlap.p.r))

93+ =/ private-src=@t (of-wain:format ~['/= secret /lib/jibb/internal' '+$ good @t'])

94+ =/ cycle-src=@t (of-wain:format ~['/= mine /ui/root' '+$ good @t'])

95+ =/ private-parsed (parse:jibb root private-src)

96+ =/ cycle-parsed (parse:jibb root cycle-src)

97+ =/ private-result=detailed-result (detailed root private-src ~)

98+ =/ cycle-result=detailed-result (detailed root cycle-src ~)

99+ =/ duplicate-result=detailed-result (detailed root parent ~[[child-file child] [child-file child]])

100+ =/ missing-result=detailed-result (detailed root parent ~)

101+ :~ ['detached cache rebuild preserves child evidence' rebuilt.cache-controls]

102+ ['mismatched graph cache declines without evidence' stale.cache-controls]

103+ ['verified cache source binding' source-bound.cache-controls]

104+ ['private import declines before source proof' &(?=(%& -.private-parsed) (failure-message private-result 'the prelude internal module is private'))]

105+ ['active cycle declines before source proof' &(?=(%& -.cycle-parsed) (failure-message cycle-result (crip "import cycle at {(spud root)}")))]

106+ ['duplicate child sources decline without evidence' (clean-failure duplicate-result)]

107+ ['missing child source declines without evidence' (clean-failure missing-result)]

108+ ['transitive import retains leaf source' transitive-ok]

109+ ==

110+++ text

111+ |= lines=wain

112+ ^- @t

113+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

114+++ output

115+ |= [parent=@t child=@t distinct=@t]

116+ ^- @t

117+ =/ result=(list [@t ?]) (run parent child distinct)

118+ (of-wain:format (turn result |=(entry=[@t ?] (crip "{(trip -.entry)}: {?:(+.entry "ok" "BAD")}"))))

119+++ test-full-overlap-graph

120+ ^- tang

121+ ?~ expected ~[leaf+"expected output missing"]

122+ =/ actual=@t (output (text parent) (text child) (text distinct))

123+ ?. =((to-wain:format (cat 3 actual '\0a')) expected)

124+ ~[leaf+"full-module overlap output differs"]

125+ ~

126+--

tests/lib/jibb-gate-free-guards.hoonnew file+79

@@ -0,0 +1,79 @@

1+:: Budgeted gate-free verdicts require a witness and an inhabited sibling.

2+/+ jibb

3+|%

4+++ gate-free-guard-errors

5+ ^- (list tape)

6+ =/ atom=itype:jibb [%atom %t]

7+ =/ flag=itype:jibb [%flag ~]

8+ =/ noun=itype:jibb [%noun ~]

9+ =/ var=itype:jibb [%var 0]

10+ =/ gate=itype:jibb [%fn atom atom]

11+ =/ item=itype:jibb [%cell [%face %id [%atom %ud]] [%cell [%face %done flag] [%face %text atom]]]

12+ =/ model=itype:jibb [%cell [%face %todos [%collection %list ~[item]]] [%cell [%face %draft atom] [%face %error [%union ~[[%const [%null %n 0 '~']] [%cell [%const [%null %n 0 '~']] [%face %u atom]]] ~ ~ ~]]]]

13+ =/ with-callback=itype:jibb [%cell [%face %data atom] [%face %callback gate]]

14+ =/ ask-like=itype:jibb [%union ~[[%cell [%const [%term %tas %pure '%pure']] [%face %value atom]] [%cell [%const [%term %tas %agent '%agent']] [%face %receive gate]]] ~ ~ ~]

15+ =/ sub-like=itype:jibb [%union ~[[%cell [%const [%term %tas %watch '%watch']] [%face %request ask-like]] [%cell [%const [%term %tas %every '%every']] [%face %reply gate]]] ~ ~ ~]

16+ =/ controls=(list [name=@t typ=itype:jibb fuel=@ud want=?(%yes %no %unknown)])

17+ :~ ['atom' atom 8 %yes]

18+ ['flag' flag 8 %yes]

19+ ['atom variable' [%avar 0] 8 %yes]

20+ ['open variable' var 8 %unknown]

21+ ['noun' noun 8 %unknown]

22+ ['raw gate' gate 8 %no]

23+ ['data item' item 30 %yes]

24+ ['todo model' model 100 %yes]

25+ ['callback field' with-callback 30 %no]

26+ ['ask receiver' ask-like 100 %no]

27+ ['subscription receiver' sub-like 100 %no]

28+ ['list of data items' [%collection %list ~[item]] 40 %yes]

29+ ['list of gates' [%collection %list ~[gate]] 20 %no]

30+ ['other collection' [%collection %map ~[atom atom]] 20 %unknown]

31+ ['open list member' [%collection %list ~[var]] 20 %unknown]

32+ ['known-inhabited noun after gate' [%cell gate noun] 30 %no]

33+ ['known-inhabited noun before gate' [%cell noun gate] 30 %no]

34+ ['unknown sibling after gate' [%cell gate var] 30 %unknown]

35+ ['unknown sibling before gate' [%cell var gate] 30 %unknown]

36+ ['nested unknown sibling' [%cell [%face %callback gate] [%face %other var]] 30 %unknown]

37+ ['unknown union and gate union' [%union ~[var gate] ~ ~ ~] 30 %no]

38+ ['empty union' [%union ~ ~ ~ ~] 30 %unknown]

39+ ['validated jrec qath' [%jrec /lib/jibb/internal/jibb %qath ~ %i %ta %t] 30 %yes]

40+ ['jrec gate sibling' [%cell gate [%jrec /lib/jibb/internal/jibb %qath ~ %i %ta %t]] 30 %no]

41+ ['jrec list member' [%collection %list ~[[%jrec /lib/jibb/internal/jibb %qath ~ %i %ta %t]]] 30 %yes]

42+ ['nominal recursion' [%recursive %sur %node ~] 30 %unknown]

43+ ['unknown sibling budget' [%cell gate var] 2 %unknown]

44+ ['known sibling budget' [%cell gate atom] 2 %unknown]

45+ ['zero budget' atom 0 %unknown]

46+ ['one atom budget' atom 1 %yes]

47+ ['cell needs 3 visits' [%cell atom flag] 2 %unknown]

48+ ['cell exact 3 visits' [%cell atom flag] 3 %yes]

49+ ==

50+ =/ errors=(list @t)

51+ %+ turn controls

52+ |= c=[name=@t typ=itype:jibb fuel=@ud want=?(%yes %no %unknown)]

53+ =/ result=igate-free:jibb (gate-free-type:jibb typ.c fuel.c ~)

54+ ?: =(want.c verdict.result) ''

55+ (cat 3 name.c ': wrong verdict')

56+ =/ a=igate-free:jibb (gate-free-type:jibb with-callback 30 ~)

57+ =? errors !=(path.a `~[[%tail ~] [%field %callback]]) ['callback path incorrect' errors]

58+ =/ b=igate-free:jibb (gate-free-type:jibb [%collection %list ~[gate]] 20 ~)

59+ =? errors !=(path.b `~[[%item ~]]) ['list path incorrect' errors]

60+ =/ c=igate-free:jibb (gate-free-type:jibb model 100 ~)

61+ =? errors ?=(^ path.c) ['gate-free result carries witness path' errors]

62+ :: The explicit budget is shared across the entire normalized type.

63+ =/ deep

64+ |= depth=@ud

65+ ^- itype:jibb

66+ =/ out=itype:jibb [%atom %t]

67+ |-

68+ ?: =(0 depth) out

69+ $(depth (dec depth), out [%face %nested out])

70+ =/ fits=igate-free:jibb (gate-free-type:jibb (deep 255) 256 ~)

71+ =/ exceeds=igate-free:jibb (gate-free-type:jibb (deep 256) 256 ~)

72+ =? errors !=(%yes verdict.fits) ['256 node budget rejected exact fit' errors]

73+ =? errors !=(%unknown verdict.exceeds) ['257 node budget did not fail closed' errors]

74+ =/ errors (skim errors |=(x=@t !=(x '')))

75+ (turn errors trip)

76+++ test-gate-free-guards

77+ ^- tang

78+ (turn gate-free-guard-errors |=(reason=tape leaf+reason))

79+--

tests/lib/jibb-gate-free-source.hoonnew file+95

@@ -0,0 +1,95 @@

1+:: Source-backed mold analysis of the actual todo model; not island checking.

2+/+ jibb, jibb-import

3+/* prelude %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* sur %txt /tests/type-api-paths/todo-sur/txt

6+/* action %txt /tests/type-api-paths/todo-action/txt

7+/* todos %txt /tests/type-api-paths/todos/txt

8+/* update %txt /tests/type-api-paths/todo-update/txt

9+/* item %txt /tests/type-api-paths/todo-item/txt

10+/* api %txt /tests/type-api-paths/api/txt

11+/* source %txt /tests/type-gate-free/todo/txt

12+/* gate-source %txt /tests/type-gate-free/todo-gate/txt

13+/* noun-source %txt /tests/type-gate-free/todo-noun/txt

14+/* expected %txt /tests/type-gate-free/expected/txt

15+|%

16+++ text

17+ |= lines=wain

18+ ^- @t

19+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

20+++ gate-free-source-report

21+ |= [public=@t private=@t sur-text=@t action-text=@t todos-text=@t update-text=@t item-text=@t api-text=@t source-text=@t gate-text=@t noun-text=@t]

22+ ^- @t

23+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb public private)

24+ ?~ prepared 'prelude unavailable'

25+ =/ todo=type -:(ride -:!>(..zuse) sur-text)

26+ =/ subject=type [%cell [%face %todo todo] -:!>(..zuse)]

27+ =/ ma=* (read-mark:jibb-import %todo-action -:(ride subject action-text))

28+ =/ mt=* (read-mark:jibb-import %todos -:(ride subject todos-text))

29+ =/ mu=* (read-mark:jibb-import %todo-update -:(ride subject update-text))

30+ =/ mi=* (read-mark:jibb-import %todo-item -:(ride subject item-text))

31+ =/ marks=imark-externals:jibb ~[[%todo-action ma] [%todos mt] [%todo-update mu] [%todo-item mi]]

32+ =/ item-input=* (read-named:jibb-import %todo %item todo)

33+ =/ inputs=iexternals:jibb ~[[%todo %item item-input]]

34+ =/ modules=jbundle:jibb ~[[/ui/api/todo/jibb api-text]]

35+ =/ at=path /ui/todo-list/jibb

36+ =/ model (gate-free-mold-source:jibb at source-text %model inputs marks modules prepared 256)

37+ ?: ?=(%| -.model) 'todo model unavailable'

38+ ?. =(%yes verdict.result.p.model) 'todo model not proven gate-free'

39+ ?. &(=(at.p.model at) =(source.p.model source-text) =(name.p.model %model) =(prepared.p.model u.prepared) =(externals.p.model inputs) =(marks.p.model marks) =(modules.p.model modules)) 'source evidence changed'

40+ ?~ dependencies.p.model 'resolved dependency evidence missing'

41+ ?. ?=(%cell -.typ.mold.p.model) 'selected model scheme missing'

42+ ?. &(=(256 requested.p.model) =(256 budget.p.model)) 'requested budget not retained'

43+ =/ callback (gate-free-mold-source:jibb at gate-text %model inputs marks modules prepared 256)

44+ ?: ?=(%| -.callback) 'callback model unavailable'

45+ ?. =(%no verdict.result.p.callback) 'callback was not found'

46+ ?~ path.result.p.callback 'callback path missing'

47+ ?. (lien u.path.result.p.callback |=(part=igf-segment:jibb ?=([%field %callback] part))) 'callback field not in witness'

48+ =/ noun (gate-free-mold-source:jibb at noun-text %model inputs marks modules prepared 256)

49+ ?: ?=(%| -.noun) 'noun model unavailable'

50+ ?. =(%unknown verdict.result.p.noun) 'noun model not unknown'

51+ =/ tiny=@t '+$ sample @t\0a'

52+ =/ low (gate-free-mold-source:jibb /tests/tiny/jibb tiny %sample ~ ~ ~ prepared 0)

53+ ?: ?=(%| -.low) 'zero fuel unavailable'

54+ ?. &(=(%unknown verdict.result.p.low) =(0 budget.p.low)) 'zero fuel not unknown'

55+ =/ capped (gate-free-mold-source:jibb /tests/tiny/jibb tiny %sample ~ ~ ~ prepared 999)

56+ ?: ?=(%| -.capped) 'large fuel unavailable'

57+ ?. &(=(999 requested.p.capped) =(256 budget.p.capped) =(%yes verdict.result.p.capped) =(255 left.result.p.capped)) 'fuel cap incorrect'

58+ =/ matched (gate-free-mold-source:jibb /tests/tiny/jibb tiny %sample ~ ~ ~[[/tests/tiny/jibb tiny]] prepared 256)

59+ ?: ?=(%| -.matched) 'matching root source rejected'

60+ =/ unused-sur=@t '/- unused\0a+$ sample @t\0a'

61+ =/ unused (gate-free-mold-source:jibb /tests/tiny/jibb unused-sur %sample ~ ~ ~ prepared 256)

62+ ?: ?=(%| -.unused) 'unused sur source unexpectedly required'

63+ =/ cycle-source=@t '/= child /tests/child\0a+$ sample @t\0a'

64+ =/ child-source=@t '/= root /tests/tiny\0a+$ child @t\0a'

65+ =/ cycle (gate-free-mold-source:jibb /tests/tiny/jibb cycle-source %sample ~ ~ ~[[/tests/child/jibb child-source]] prepared 256)

66+ ?. ?=(%| -.cycle) 'root import cycle accepted'

67+ =/ unprepared (gate-free-mold-source:jibb /tests/tiny/jibb tiny %sample ~ ~ ~ ~ 256)

68+ ?. ?=(%| -.unprepared) 'missing prelude accepted'

69+ =/ cases=(list [name=@t path=path src=@t mold=term external=iexternals:jibb mark=imark-externals:jibb bundle=jbundle:jibb])

70+ :~ ['missing mold' at source-text %missing inputs marks modules]

71+ ['missing API' at source-text %model inputs marks ~]

72+ ['missing mark' at source-text %model inputs (skim marks |=(m=[mark=term result=*] !=(%todo-update mark.m))) modules]

73+ ['root mismatch' at source-text %model inputs marks [[at gate-text] modules]]

74+ ['duplicate root' at source-text %model inputs marks [[at source-text] [at source-text] modules]]

75+ ['duplicate field' at (cat 3 source-text '\0a+$ duplicate [x=@t x=@p]\0a') %model inputs marks modules]

76+ ['invalid syntax' at '++ incomplete |=' %model inputs marks modules]

77+ ['private root' /lib/jibb/internal/jibb source-text %model inputs marks modules]

78+ ['API root' /ui/api/todo/jibb source-text %model inputs marks modules]

79+ ['store root poke' /ui/stores/cart/jibb '+$ poke @t\0a' %poke ~ ~ ~]

80+ ==

81+ =/ errors=(list @t)

82+ %+ turn cases

83+ |= c=[name=@t path=path src=@t mold=term external=iexternals:jibb mark=imark-externals:jibb bundle=jbundle:jibb]

84+ =/ got (gate-free-mold-source:jibb path.c src.c mold.c external.c mark.c bundle.c prepared 256)

85+ ?: ?=(%| -.got) ''

86+ (cat 3 name.c ': unexpectedly succeeded')

87+ =/ errors (skim errors |=(x=@t !=(x '')))

88+ ?^ errors (of-wain:format errors)

89+ 'todo model: gate-free\0acallback model: gate at callback\0anoun model: unknown\0azero fuel: unknown\0aoversized fuel: capped\0ainvalid inputs: rejected\0asource evidence: retained\0amatching root and unused sur: accepted\0aroot import cycle: rejected'

90+++ test-gate-free-source

91+ ^- tang

92+ =/ actual (gate-free-source-report prelude internal (text sur) (text action) (text todos) (text update) (text item) (text api) (text source) (text gate-source) (text noun-source))

93+ ?. =((to-wain:format (cat 3 actual '\0a')) expected) ~[leaf+"gate-free mold report differs from expected"]

94+ ~

95+--

tests/lib/jibb-generic-construction.hoonnew file+141

@@ -0,0 +1,141 @@

1+:: Source-proven generic tree construction; not a backend/runtime test.

2+/+ jibb

3+/* real-prelude %jibb /lib/jibb/prelude/jibb

4+/* real-internal %jibb /lib/jibb/internal/jibb

5+/* tree %txt /tests/type-generic-construction/tree/txt

6+/* alias %txt /tests/type-generic-construction/alias/txt

7+/* client %txt /tests/type-generic-construction/client/txt

8+/* alias-client %txt /tests/type-generic-construction/alias-client/txt

9+/* tree-no-event %txt /tests/type-generic-construction/tree-no-event/txt

10+/* no-event-client %txt /tests/type-generic-construction/no-event-client/txt

11+/* owner-positive %txt /tests/type-generic-construction/owner-positive/txt

12+/* owner-negative %txt /tests/type-generic-construction/owner-negative/txt

13+/* sibling-values %txt /tests/type-generic-construction/sibling-values/txt

14+/* expected %txt /tests/type-generic-construction/expected/txt

15+|%

16+++ text

17+ |= lines=wain

18+ ^- @t

19+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

20+++ line

21+ |= [label=@t ok=?]

22+ ^- @t

23+ (crip "{(trip label)}: {?:(ok "ok" "BAD")}")

24+++ construction-output

25+ |= [pre=@t internal=@t tree=@t alias=@t client=@t alias-client=@t tree-no-event=@t no-event-client=@t owner-positive=@t owner-negative=@t sibling-values=@t]

26+ ^- @t

27+ =/ prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb pre internal)

28+ ?~ prep 'BAD prelude preparation'

29+ :: Complete owner is checked by the real source interface, not this unit state.

30+ =/ owner=jfile-result:jibb

31+ (infer-jibb-file:jibb /ui/tree/jibb owner-positive ~ ~ ~ ~[/ui/tree/jibb] values.u.prep molds.u.prep ~ `iface.u.prep)

32+ ?: ?=(%| -.owner) 'BAD valid owner'

33+ =/ bad-owner=jfile-result:jibb

34+ (infer-jibb-file:jibb /ui/tree/jibb owner-negative ~ ~ ~ ~[/ui/tree/jibb] values.u.prep molds.u.prep ~ `iface.u.prep)

35+ =/ bad-parse=(each module:jibb error:jibb) (parse:jibb /ui/tree/jibb owner-negative)

36+ =/ mold=(unit ischeme:jibb) (find-jibb-mold:jibb %node-tree iface.p.owner)

37+ ?~ mold 'BAD owner mold'

38+ ?. ?=(%grec -.typ.u.mold) 'BAD nominal owner'

39+ =/ generic=itype:jibb typ.u.mold(args ~[[%var 42]])

40+ =/ target=itype:jibb typ.u.mold(args ~[[%atom %t]])

41+ ?> ?=(%grec -.generic)

42+ ?> ?=(%grec -.target)

43+ =/ owner-leaf=(unit ischeme:jibb) (ienv-lookup:jibb %made-leaf values.iface.p.owner)

44+ =/ owner-node=(unit ischeme:jibb) (ienv-lookup:jibb %made-node values.iface.p.owner)

45+ =/ leaf-ok=? ?~(owner-leaf | &(?=(~ vars.u.owner-leaf) =(target typ.u.owner-leaf)))

46+ =/ node-ok=? ?~(owner-node | &(?=(~ vars.u.owner-node) =(target typ.u.owner-node)))

47+ =/ foreign=itype:jibb target(at /ui/foreign/jibb)

48+ =/ view=(unit [view=itype:jibb left=@ud]) (grec-unfold-view:jibb generic 2)

49+ ?~ view 'BAD generic view'

50+ =/ target-view=(unit [view=itype:jibb left=@ud]) (grec-unfold-view:jibb target 2)

51+ ?~ target-view 'BAD target view'

52+ =/ expected-leaf=itype:jibb [%cell [%const [%term %tas %text '%text']] [%face %value [%atom %t]]]

53+ =/ expected-node=itype:jibb [%cell [%const [%term %tas %node '%node']] [%cell [%face %event [%fn [%atom %t] [%var 42]]] [%face %children [%collection %list ~[generic]]]]]

54+ =/ expected-view=itype:jibb [%union ~[expected-leaf expected-node] ~ ~ ~]

55+ =/ wrong-view=(unit [view=itype:jibb left=@ud]) (grec-unfold-view:jibb foreign 2)

56+ =/ malformed=shape:jibb *shape:jibb

57+ =/ parsed=(each module:jibb error:jibb) (parse:jibb /tests/tree/values/jibb sibling-values)

58+ ?: ?=(%| -.parsed) 'BAD values parse'

59+ =/ ds=(list def:jibb) defs.p.parsed

60+ ?. ?=([* [* [* [* ~]]]] ds) 'BAD values count'

61+ =/ a=def:jibb i.ds

62+ =/ b=def:jibb i.t.ds

63+ =/ c=def:jibb i.t.t.ds

64+ =/ d=def:jibb i.t.t.t.ds

65+ ?. &(?=(%value -.a) ?=(%value -.b) ?=(%value -.c) ?=(%value -.d)) 'BAD value declarations'

66+ =/ env=ienv:jibb ~[[%text-event [[%fn [%atom %t] [%atom %t]] ~]]]

67+ =/ tag=ipending:jibb [100 [%term %tas %unrelated '%unrelated']]

68+ =/ projection=iwprojection:jibb *iwprojection:jibb

69+ =/ st=istate:jibb *istate:jibb

70+ =. st st(next 201, prelude `iface.u.prep, tags ~[tag], holes ~[[99 (span-of:jibb val.a)]], projections ~[projection])

71+ =/ r0=iresult:jibb (infer-call-context-arg:jibb val.a target env st(jrec-fuel 0) (span-of:jibb val.a))

72+ =/ r1=iresult:jibb (infer-call-context-arg:jibb val.a target env st(jrec-fuel 1) (span-of:jibb val.a))

73+ =/ rnode=iresult:jibb (infer-call-context-arg:jibb val.b target env st(jrec-fuel 1) (span-of:jibb val.b))

74+ =/ short=iresult:jibb (infer-call-context-arg:jibb val.c target env st(jrec-fuel 1) (span-of:jibb val.c))

75+ =/ nested=iresult:jibb (infer-call-context-arg:jibb val.c target env st(jrec-fuel 2) (span-of:jibb val.c))

76+ =/ sibling-short=iresult:jibb (infer-call-context-arg:jibb val.d target env st(jrec-fuel 2) (span-of:jibb val.d))

77+ =/ siblings=iresult:jibb (infer-call-context-arg:jibb val.d target env st(jrec-fuel 3) (span-of:jibb val.d))

78+ =/ retry=iresult:jibb (infer-call-context-arg:jibb val.a target env st(jrec-fuel 1) (span-of:jibb val.a))

79+ =/ failed-retry=iresult:jibb (infer-call-context-arg:jibb val.a target env st(jrec-fuel 0) (span-of:jibb val.a))

80+ =/ rvar=iresult:jibb (infer-call-context-arg:jibb val.b generic env st(jrec-fuel 1) (span-of:jibb val.b))

81+ =/ hidden=istate:jibb st(sub ~[[200 target]], jrec-fuel 2)

82+ =/ rhidden=iresult:jibb (infer-call-context-arg:jibb val.a [%var 200] env hidden (span-of:jibb val.a))

83+ =/ hidden-safe=?

84+ ?: ?=(%| -.rhidden) &

85+ =/ fit=ifit:jibb (itype-fit:jibb typ.p.rhidden [%var 200] sub.state.p.rhidden next.state.p.rhidden)

86+ ?=(%unknown -.fit)

87+ =/ exact=isub:jibb (turn (gulf 1 4.096) |=(n=@ud [(add 1.000 n) [%atom %t]]))

88+ =/ over=isub:jibb [[9.999 [%atom %t]] exact]

89+ =/ face-exact=isub:jibb (turn (gulf 1 4.095) |=(n=@ud [(add 1.000 n) [%atom %t]]))

90+ =/ checks=(list [label=@t ok=?])

91+ :~ ['complete owner' ?=(%& -.owner)]

92+ ['owner exports constructed nominal values' &(leaf-ok node-ok)]

93+ ['invalid owner declined' &(?=(%& -.bad-parse) ?=(%| -.bad-owner))]

94+ ['view spends one step' =(1 left.u.view)]

95+ ['view retains argument and child identity' =(expected-view view.u.view)]

96+ ['zero view fuel declined' ?=(~ (grec-unfold-view:jibb generic 0))]

97+ ['malformed proof declined' ?=(~ (grec-unfold-view:jibb generic(proof malformed) 2))]

98+ ['foreign recursive tail retained' ?:(?=(~ wrong-view) | !=(view.u.wrong-view view.u.target-view))]

99+ ['zero inference fuel declined' ?=(%| -.r0)]

100+ ['one-step leaf retains nominal identity' ?:(?=(%& -.r1) &(=(target typ.p.r1) =(0 jrec-fuel.state.p.r1)) |)]

101+ ['one-step node succeeds' ?:(?=(%& -.rnode) &(=(target typ.p.rnode) =(0 jrec-fuel.state.p.rnode)) |)]

102+ ['nested one-step declined' ?=(%| -.short)]

103+ ['nested two-step succeeds' ?:(?=(%& -.nested) &(=(target typ.p.nested) =(0 jrec-fuel.state.p.nested)) |)]

104+ ['siblings share fuel' &(?=(%| -.sibling-short) ?:(?=(%& -.siblings) =(0 jrec-fuel.state.p.siblings) |))]

105+ ['same-state retry agrees' =(r1 retry)]

106+ ['failed retry agrees' =(r0 failed-retry)]

107+ ['argument binding retains source identity' ?:(?=(%& -.rvar) =(target (itype-normalize:jibb typ.p.rvar sub.state.p.rvar)) |)]

108+ ['pending tag retained' ?:(?=(%& -.r1) (lien tags.state.p.r1 |=(entry=ipending:jibb =(entry tag))) |)]

109+ ['pending hole retained' ?:(?=(%& -.r1) =(holes.st holes.state.p.r1) |)]

110+ ['projection evidence retained' ?:(?=(%& -.r1) =(projections.st projections.state.p.r1) |)]

111+ ['hidden variable declined' hidden-safe]

112+ ['scan exact limit' (grec-direct-context:jibb target exact)]

113+ ['scan over limit declined' !(grec-direct-context:jibb target over)]

114+ ['faced scan exact limit' (grec-direct-context:jibb [%face %field target] face-exact)]

115+ ['faced scan over limit declined' !(grec-direct-context:jibb [%face %field target] exact)]

116+ ['structural substitution declined' !(grec-direct-context:jibb target ~[[9 [%cell [%atom %t] [%atom %t]]]])]

117+ ==

118+ =/ modules=jbundle:jibb ~[[/ui/tree/jibb tree] [/ui/tree-two/jibb tree] [/ui/tree-alias/jibb alias]]

119+ =/ small=jbundle:jibb ~[[/ui/tree/jibb tree-no-event] [/ui/tree-two/jibb tree-no-event]]

120+ =/ report=@t (golden-types-with-prepared-prelude:jibb /tests/tree/client/jibb client ~ ~ modules prep)

121+ =/ aliases=@t (golden-types-with-prepared-prelude:jibb /tests/tree/alias-client/jibb alias-client ~ ~ modules prep)

122+ =/ no-event=@t (golden-types-with-prepared-prelude:jibb /tests/tree/no-event-client/jibb no-event-client ~ ~ small prep)

123+ (cat 3 (of-wain:format (turn checks line)) (cat 3 '\0a' (cat 3 report (cat 3 '\0a' (cat 3 aliases (cat 3 '\0a' no-event))))))

124+++ test-generic-construction

125+ ^- tang

126+ ?~ tree ~[leaf+"tree source missing"]

127+ ?~ alias ~[leaf+"alias source missing"]

128+ ?~ client ~[leaf+"client source missing"]

129+ ?~ alias-client ~[leaf+"alias client missing"]

130+ ?~ tree-no-event ~[leaf+"tree without event missing"]

131+ ?~ no-event-client ~[leaf+"no-event client missing"]

132+ ?~ owner-positive ~[leaf+"owner source missing"]

133+ ?~ owner-negative ~[leaf+"invalid owner source missing"]

134+ ?~ sibling-values ~[leaf+"sibling source missing"]

135+ ?~ expected ~[leaf+"expected output missing"]

136+ =/ actual=@t

137+ (construction-output real-prelude real-internal (text tree) (text alias) (text client) (text alias-client) (text tree-no-event) (text no-event-client) (text owner-positive) (text owner-negative) (text sibling-values))

138+ ?. =((to-wain:format (cat 3 actual '\0a')) expected)

139+ ~[leaf+"generic construction output differs from expected"]

140+ ~

141+--

tests/lib/jibb-generic-pattern.hoonnew file+165

@@ -0,0 +1,165 @@

1+:: Source-proven generic recursive patterns; no backend/runtime claim.

2+/+ jibb

3+/* real-prelude %jibb /lib/jibb/prelude/jibb

4+/* real-internal %jibb /lib/jibb/internal/jibb

5+/* tree %txt /tests/type-generic-construction/tree/txt

6+/* alias %txt /tests/type-generic-construction/alias/txt

7+/* tree-no-event %txt /tests/type-generic-construction/tree-no-event/txt

8+/* client %txt /tests/type-generic-pattern/client/txt

9+/* no-event %txt /tests/type-generic-pattern/no-event/txt

10+/* values %txt /tests/type-generic-pattern/values/txt

11+/* poly-values %txt /tests/type-generic-pattern/poly-values/txt

12+/* owner %txt /tests/type-generic-pattern/owner/txt

13+/* owner-bad %txt /tests/type-generic-pattern/owner-bad/txt

14+/* expected %txt /tests/type-generic-pattern/expected/txt

15+|%

16+++ text

17+ |= lines=wain

18+ ^- @t

19+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

20+++ line

21+ |= [label=@t ok=?]

22+ ^- @t

23+ (crip "{(trip label)}: {?:(ok "ok" "BAD")}")

24+++ pattern-output

25+ |= [pre=@t internal=@t tree=@t alias=@t tree-no-event=@t client=@t no-event=@t values=@t poly-values=@t owner=@t owner-bad=@t]

26+ ^- @t

27+ =/ prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb pre internal)

28+ ?~ prep 'BAD prelude preparation'

29+ =/ checked=jfile-result:jibb

30+ (infer-jibb-file:jibb /ui/tree/jibb owner ~ ~ ~ ~[/ui/tree/jibb] values.u.prep molds.u.prep ~ `iface.u.prep)

31+ ?: ?=(%| -.checked) 'BAD valid owner'

32+ =/ bad-parse=(each module:jibb error:jibb) (parse:jibb /ui/tree/jibb owner-bad)

33+ =/ bad=jfile-result:jibb

34+ (infer-jibb-file:jibb /ui/tree/jibb owner-bad ~ ~ ~ ~[/ui/tree/jibb] values.u.prep molds.u.prep ~ `iface.u.prep)

35+ =/ mold=(unit ischeme:jibb) (find-jibb-mold:jibb %node-tree iface.p.checked)

36+ ?~ mold 'BAD owner mold'

37+ ?. ?=(%grec -.typ.u.mold) 'BAD nominal owner'

38+ =/ target=itype:jibb typ.u.mold(args ~[[%atom %t]])

39+ =/ generic=itype:jibb typ.u.mold(args ~[[%var 42]])

40+ ?> ?=(%grec -.target)

41+ ?> ?=(%grec -.generic)

42+ =/ desc=(unit ischeme:jibb) (ienv-lookup:jibb %describe values.iface.p.checked)

43+ =/ children=(unit ischeme:jibb) (ienv-lookup:jibb %children values.iface.p.checked)

44+ =/ rebuild=(unit ischeme:jibb) (ienv-lookup:jibb %rebuild values.iface.p.checked)

45+ ?~ desc 'BAD owner describe missing'

46+ ?~ children 'BAD owner children missing'

47+ ?~ rebuild 'BAD owner rebuild missing'

48+ ?. &(?=(%fn -.typ.u.desc) ?=(%fn -.typ.u.children) ?=(%fn -.typ.u.rebuild)) 'BAD owner gate types'

49+ ?. ?=([@ ~] vars.u.children) 'BAD owner children quantification'

50+ =/ desc-sample=itype:jibb sample.typ.u.desc

51+ =/ children-sample=itype:jibb sample.typ.u.children

52+ =/ rebuild-sample=itype:jibb sample.typ.u.rebuild

53+ =? desc-sample ?=(%face -.desc-sample) body.desc-sample

54+ =? children-sample ?=(%face -.children-sample) body.children-sample

55+ =? rebuild-sample ?=(%face -.rebuild-sample) body.rebuild-sample

56+ =/ quantified=itype:jibb typ.u.mold(args ~[[%var i.vars.u.children]])

57+ =/ parsed=(each module:jibb error:jibb) (parse:jibb /tests/tree/values/jibb values)

58+ ?: ?=(%| -.parsed) 'BAD values parse'

59+ =/ ds=(list def:jibb) defs.p.parsed

60+ ?. ?=([* [* [* [* [* ~]]]]] ds) 'BAD value count'

61+ =/ a=def:jibb i.ds

62+ =/ b=def:jibb i.t.ds

63+ ?. &(?=(%value -.a) ?=(%value -.b)) 'BAD value declarations'

64+ =/ c=def:jibb i.t.t.ds

65+ =/ d=def:jibb i.t.t.t.ds

66+ =/ e=def:jibb i.t.t.t.t.ds

67+ ?. &(?=(%value -.c) ?=(%value -.d) ?=(%value -.e)) 'BAD extra value declarations'

68+ ?. &(?=(%branch -.val.c) ?=(%branch -.val.d) ?=(%branch -.val.e)) 'BAD extra branches'

69+ ?. ?=([* *] arms.val.c) 'BAD fallback arms'

70+ =/ sample-arm=arm:jibb i.arms.val.c

71+ =/ parsed-poly=(each module:jibb error:jibb) (parse:jibb /tests/tree/poly/jibb poly-values)

72+ ?: ?=(%| -.parsed-poly) 'BAD polymorphic values parse'

73+ =/ ps=(list def:jibb) defs.p.parsed-poly

74+ ?. ?=([* ~] ps) 'BAD polymorphic value count'

75+ =/ p=def:jibb i.ps

76+ ?. ?=(%value -.p) 'BAD polymorphic value'

77+ ?. ?=(%branch -.val.p) 'BAD polymorphic branch'

78+ =/ env=ienv:jibb ~[[%x [target ~]]]

79+ =/ poly=ienv:jibb ~[[%x [generic ~[42]]]]

80+ =/ tag=ipending:jibb [100 [%term %tas %unrelated '%unrelated']]

81+ =/ projection=iwprojection:jibb *iwprojection:jibb

82+ =/ st=istate:jibb *istate:jibb

83+ =. st st(next 201, prelude `iface.u.prep, tags ~[tag], holes ~[[99 (span-of:jibb val.a)]], projections ~[projection])

84+ =/ zero=iresult:jibb (infer-fragment:jibb val.a env st(jrec-fuel 0))

85+ =/ one=iresult:jibb (infer-fragment:jibb val.a env st(jrec-fuel 1))

86+ =/ short=iresult:jibb (infer-fragment:jibb val.b env st(jrec-fuel 1))

87+ =/ nested=iresult:jibb (infer-fragment:jibb val.b env st(jrec-fuel 2))

88+ =/ retry=iresult:jibb (infer-fragment:jibb val.a env st(jrec-fuel 1))

89+ =/ hidden=ienv:jibb ~[[%x [[%var 200] ~]]]

90+ =/ hidden-result=iresult:jibb (infer-fragment:jibb val.a hidden st(sub ~[[200 target]], jrec-fuel 2))

91+ =/ first=(unit iresult:jibb) (grec-single-wing-subject:jibb subject.val.p poly st(jrec-fuel 4))

92+ =/ second=(unit iresult:jibb) (grec-single-wing-subject:jibb subject.val.p poly st(next 202, jrec-fuel 4))

93+ ?~ first 'BAD first scheme lookup'

94+ ?~ second 'BAD second scheme lookup'

95+ ?. &(?=(%& -.u.first) ?=(%& -.u.second)) 'BAD scheme inference'

96+ =/ ft=itype:jibb typ.p.u.first

97+ =/ stype=itype:jibb typ.p.u.second

98+ ?. &(?=(%grec -.ft) ?=(%grec -.stype)) 'BAD scheme nominal identity'

99+ ?. &(?=([* ~] args.ft) ?=([* ~] args.stype)) 'BAD scheme argument count'

100+ =/ pmissing=iresult:jibb (infer-fragment:jibb val.p poly st(jrec-fuel 4))

101+ =/ view=(unit [view=itype:jibb left=@ud]) (grec-unfold-view:jibb target 1)

102+ ?~ view 'BAD recursive view'

103+ =/ many=(list arm:jibb)

104+ =/ n=@ud 128

105+ =/ out=(list arm:jibb) ~

106+ |-

107+ ?: =(0 n) out

108+ $(n (dec n), out [sample-arm out])

109+ =/ in-view=iresult:jibb [%& target st(jrec-fuel 1)]

110+ =/ exact=expr:jibb val.c(arms many)

111+ =/ over=expr:jibb val.c(arms [sample-arm many])

112+ =/ rexact=iresult:jibb (grec-match-view:jibb exact in-view)

113+ =/ rover=iresult:jibb (grec-match-view:jibb over in-view)

114+ =/ hidden-view=iresult:jibb [%& [%var 200] st(sub ~[[200 target]], jrec-fuel 1)]

115+ =/ rhidden-view=iresult:jibb (grec-match-view:jibb exact hidden-view)

116+ =/ fallback=iresult:jibb (infer-fragment:jibb val.c env st(jrec-fuel 1))

117+ =/ checks=(list [label=@t ok=?])

118+ :~ ['owner describe has nominal sample and text result' &(=(target desc-sample) =([%atom %t] product.typ.u.desc))]

119+ ['owner rebuild preserves nominal identity' &(=(target rebuild-sample) =(target product.typ.u.rebuild))]

120+ ['owner children preserves quantified recursive identity' &(=(quantified children-sample) =([%collection %list ~[quantified]] product.typ.u.children))]

121+ ['invalid owner parses and is rejected' &(?=(%& -.bad-parse) ?=(%| -.bad))]

122+ ['zero fuel declined' ?=(%| -.zero)]

123+ ['one-step match' ?:(?=(%& -.one) &(=([%atom %t] typ.p.one) =(0 jrec-fuel.state.p.one)) |)]

124+ ['nested match requires two steps' &(?=(%| -.short) ?:(?=(%& -.nested) =(0 jrec-fuel.state.p.nested) |))]

125+ ['same-state retry agrees' =(one retry)]

126+ ['pending tag retained' ?:(?=(%& -.one) (lien tags.state.p.one |=(entry=ipending:jibb =(entry tag))) |)]

127+ ['pending hole retained' ?:(?=(%& -.one) =(holes.st holes.state.p.one) |)]

128+ ['projection evidence retained' ?:(?=(%& -.one) =(projections.st projections.state.p.one) |)]

129+ ['raw bound variable declined' ?=(%| -.hidden-result)]

130+ ['polymorphic scheme gets fresh identities' &(=([%var 201] i.args.ft) =([%var 202] i.args.stype) =(at.ft at.stype) =(name.ft name.stype) =(proof.ft proof.stype))]

131+ ['polymorphic missing arm declined' ?=(%| -.pmissing)]

132+ ['catch-all eligible' (grec-patterns-eligible:jibb arms.val.c view.u.view 128)]

133+ ['whole binder stays unsupported' !(grec-patterns-eligible:jibb arms.val.d view.u.view 128)]

134+ ['whole structural tail stays unsupported' !(grec-patterns-eligible:jibb arms.val.e view.u.view 128)]

135+ ['128 arms eligible' (grec-patterns-eligible:jibb many view.u.view 128)]

136+ ['129 arms declined' !(grec-patterns-eligible:jibb [sample-arm many] view.u.view 128)]

137+ ['zero arm budget declined' !(grec-patterns-eligible:jibb ~[sample-arm] view.u.view 0)]

138+ ['128-arm view consumes one step' ?:(?=(%& -.rexact) &(?=(%union -.typ.p.rexact) =(0 jrec-fuel.state.p.rexact)) |)]

139+ ['129-arm view rolls back' =(in-view rover)]

140+ ['hidden view stays nominally unknown' =(hidden-view rhidden-view)]

141+ ['catch-all keeps fuel and pending state' ?:(?=(%& -.fallback) &(=(0 jrec-fuel.state.p.fallback) =(holes.st holes.state.p.fallback) =(projections.st projections.state.p.fallback) (lien tags.state.p.fallback |=(entry=ipending:jibb =(entry tag)))) |)]

142+ ==

143+ =/ modules=jbundle:jibb ~[[/ui/tree/jibb tree] [/ui/tree-two/jibb tree] [/ui/tree-alias/jibb alias]]

144+ =/ small=jbundle:jibb ~[[/ui/tree/jibb tree-no-event]]

145+ =/ report=@t (golden-types-with-prepared-prelude:jibb /tests/tree/client/jibb client ~ ~ modules prep)

146+ =/ noreport=@t (golden-types-with-prepared-prelude:jibb /tests/tree/no-event/jibb no-event ~ ~ small prep)

147+ (cat 3 (of-wain:format (turn checks line)) (cat 3 '\0a' (cat 3 report (cat 3 '\0a' noreport))))

148+++ test-generic-pattern

149+ ^- tang

150+ ?~ tree ~[leaf+"tree source missing"]

151+ ?~ alias ~[leaf+"alias source missing"]

152+ ?~ tree-no-event ~[leaf+"tree without event missing"]

153+ ?~ client ~[leaf+"client source missing"]

154+ ?~ no-event ~[leaf+"no-event client missing"]

155+ ?~ values ~[leaf+"values source missing"]

156+ ?~ poly-values ~[leaf+"polymorphic values source missing"]

157+ ?~ owner ~[leaf+"owner source missing"]

158+ ?~ owner-bad ~[leaf+"invalid owner source missing"]

159+ ?~ expected ~[leaf+"expected output missing"]

160+ =/ actual=@t

161+ (pattern-output real-prelude real-internal (text tree) (text alias) (text tree-no-event) (text client) (text no-event) (text values) (text poly-values) (text owner) (text owner-bad))

162+ ?. =((to-wain:format (cat 3 actual '\0a')) expected)

163+ ~[leaf+"generic pattern output differs from expected"]

164+ ~

165+--

tests/lib/jibb-generic-recursion.hoonnew file+170

@@ -0,0 +1,170 @@

1+:: Source-backed recursive identities; this is not the runtime UI element model.

2+/+ jibb

3+/* real-prelude %jibb /lib/jibb/prelude/jibb

4+/* real-internal %jibb /lib/jibb/internal/jibb

5+/* tree %txt /tests/type-generic-recursion/tree/txt

6+/* changed %txt /tests/type-generic-recursion/tree-changed/txt

7+/* alias %txt /tests/type-generic-recursion/alias/txt

8+/* client %txt /tests/type-generic-recursion/client/txt

9+/* bad-mold %txt /tests/type-generic-recursion/bad-mold/txt

10+/* bad-constructor %txt /tests/type-generic-recursion/bad-constructor/txt

11+/* bad-parameter %txt /tests/type-generic-recursion/bad-parameter/txt

12+/* local-shadow %txt /tests/type-generic-recursion/local-shadow/txt

13+/* local-distinct %txt /tests/type-generic-recursion/local-distinct/txt

14+/* local-only %txt /tests/type-generic-recursion/local-only/txt

15+/* list-shadow %txt /tests/type-generic-recursion/list-shadow/txt

16+/* chain %txt /tests/type-generic-recursion/chain/txt

17+/* bad-match %txt /tests/type-generic-recursion/bad-match/txt

18+/* expected %txt /tests/type-generic-recursion/expected/txt

19+|%

20+++ text

21+ |= lines=wain

22+ ^- @t

23+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

24+++ altered-list-source

25+ |= pre=@t

26+ ^- (unit @t)

27+ =/ lines=wain (to-wain:format pre)

28+ =/ old=@t ' [i=A t=(list A)]'

29+ =/ matches=(list @t) (skim lines |=(line=@t =(line old)))

30+ ?. =(1 (lent matches)) ~

31+ =/ changed=wain (turn lines |=(line=@t ?:(=(line old) ' [i=@t t=(list A)]' line)))

32+ `(text changed)

33+++ result-line

34+ |= [label=@t ok=?]

35+ ^- @t

36+ (crip "{(trip label)}: {?:(ok "ok" "BAD")}")

37+++ generic-output

38+ |= [pre=@t internal=@t tree=@t changed=@t alias=@t client=@t invalid=(list [label=@t src=@t]) shadow=@t chain=@t]

39+ ^- @t

40+ =/ prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb pre internal)

41+ ?~ prep 'BAD prelude preparation'

42+ =/ module=jfile-result:jibb

43+ (infer-jibb-file:jibb /ui/tree/jibb tree ~ ~ ~ ~[/ui/tree/jibb] values.u.prep molds.u.prep ~ `iface.u.prep)

44+ ?: ?=(%| -.module) (cat 3 'BAD recursive module: ' p.module)

45+ =/ scheme=(unit ischeme:jibb) (find-jibb-mold:jibb %node-tree iface.p.module)

46+ ?~ scheme 'BAD missing recursive mold'

47+ ?. ?=(%grec -.typ.u.scheme) 'BAD missing recursive identity'

48+ =/ typ=itype:jibb typ.u.scheme

49+ ?> ?=(%grec -.typ)

50+ =/ t=itype:jibb typ(args ~[[%atom %t]])

51+ ?> ?=(%grec -.t)

52+ =/ p=itype:jibb typ(args ~[[%atom %p]])

53+ =/ variable=itype:jibb typ(args ~[[%var 91]])

54+ =/ other=itype:jibb t(at /ui/other/jibb)

55+ =/ numeric=itype:jibb [%cell t [%nvar 99]]

56+ =/ chain-parsed=(each module:jibb error:jibb) (parse:jibb /ui/tree/jibb chain)

57+ ?: ?=(%| -.chain-parsed) 'BAD chain source parse'

58+ =/ chain-molds=imolds:jibb (collect-simple-molds:jibb defs.p.chain-parsed)

59+ =/ chain-shape=(unit shape:jibb) (find-simple-mold:jibb %chain chain-molds)

60+ ?~ chain-shape 'BAD chain source mold'

61+ =/ no-index=istate:jibb *istate:jibb

62+ =. no-index no-index(at /ui/tree/jibb, molds chain-molds, top-molds ~[%chain], prelude `iface.u.prep)

63+ =/ checks=(list [label=@t ok=?])

64+ :~ ['source module complete' ?=([%& *] module)]

65+ ['generic mold quantified' =(1 (lent vars.u.scheme))]

66+ ['distinct arguments decline' ?=(~ (itype-unify:jibb t p ~))]

67+ ['distinct origins decline' ?=(~ (itype-unify:jibb t other ~))]

68+ ['occurs check' ?=(~ (itype-unify:jibb [%var 91] variable ~))]

69+ ['cell construction stays opaque' =(%unknown -:(itype-fit:jibb [%cell [%atom %tas] [%atom %t]] t ~ 0))]

70+ ['noun construction stays opaque' =(%unknown -:(itype-fit:jibb [%noun ~] t ~ 0))]

71+ ['unindexed recursion declined' ?=(~ (simple-source-generic-recursive:jibb %chain u.chain-shape ~[[%atom %t]] no-index))]

72+ ['alteration rejects missing line' ?=(~ (altered-list-source 'absent'))]

73+ ['alteration rejects repeated line' ?=(~ (altered-list-source (text ~[' [i=A t=(list A)]' ' [i=A t=(list A)]'])))]

74+ ['gate freedom unknown' =(%unknown verdict:(gate-free-type:jibb t 64 ~))]

75+ ['gate defaulting conservative' &((itype-has-gate:jibb t) =(numeric (default-decimals:jibb numeric)))]

76+ ==

77+ =/ invalid-lines=(list @t)

78+ %+ turn invalid

79+ |= c=[label=@t src=@t]

80+ =/ parsed=(each module:jibb error:jibb) (parse:jibb /ui/tree/jibb src.c)

81+ =/ r=jfile-result:jibb

82+ (infer-jibb-file:jibb /ui/tree/jibb src.c ~ ~ ~ ~[/ui/tree/jibb] values.u.prep molds.u.prep ~ `iface.u.prep)

83+ (result-line label.c &(?=(%& -.parsed) ?=(%| -.r)))

84+ =/ shadow-result=jfile-result:jibb

85+ (infer-jibb-file:jibb /ui/tree/jibb shadow ~ ~ ~ ~[/ui/tree/jibb] values.u.prep ~ ~ `iface.u.prep)

86+ =/ altered-source=(unit @t) (altered-list-source pre)

87+ ?~ altered-source 'BAD canonical list source was missing or repeated'

88+ =/ altered=@t u.altered-source

89+ =/ altered-prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb altered internal)

90+ =/ altered-result=jfile-result:jibb

91+ ?~ altered-prep [%| 'altered prelude unavailable']

92+ (infer-jibb-file:jibb /ui/tree/jibb tree ~ ~ ~ ~[/ui/tree/jibb] values.u.altered-prep molds.u.altered-prep ~ `iface.u.altered-prep)

93+ =/ parsed=(each module:jibb error:jibb) (parse:jibb /tests/tree/client/jibb client)

94+ ?: ?=(%| -.parsed) 'BAD client parse'

95+ =/ modules=jbundle:jibb ~[[/ui/tree/jibb tree] [/ui/tree-two/jibb tree] [/ui/tree-alias/jibb alias]]

96+ =/ first=jimports-result:jibb

97+ (resolve-jibb-imports:jibb imports.p.parsed ~ ~ modules ~[/tests/tree/client/jibb] values.u.prep molds.u.prep ~ `iface.u.prep)

98+ ?: ?=(%| -.first) 'BAD import resolution'

99+ =/ reuse=jimports-result:jibb

100+ (resolve-jibb-imports:jibb imports.p.parsed ~ ~ modules ~[/tests/tree/client/jibb] values.u.prep molds.u.prep cache.p.first `iface.u.prep)

101+ =/ changed-modules=jbundle:jibb ~[[/ui/tree/jibb changed] [/ui/tree-two/jibb tree] [/ui/tree-alias/jibb alias]]

102+ =/ stale=jimports-result:jibb

103+ (resolve-jibb-imports:jibb imports.p.parsed ~ ~ changed-modules ~[/tests/tree/client/jibb] values.u.prep molds.u.prep cache.p.first `iface.u.prep)

104+ =/ fresh=jimports-result:jibb

105+ (resolve-jibb-imports:jibb imports.p.parsed ~ ~ changed-modules ~[/tests/tree/client/jibb] values.u.prep molds.u.prep ~ `iface.u.prep)

106+ =/ duplicate-modules=jbundle:jibb [[/ui/tree/jibb tree] modules]

107+ =/ duplicate=jimports-result:jibb

108+ (resolve-jibb-imports:jibb imports.p.parsed ~ ~ duplicate-modules ~[/tests/tree/client/jibb] values.u.prep molds.u.prep cache.p.first `iface.u.prep)

109+ =/ cycle=jimports-result:jibb

110+ (resolve-jibb-imports:jibb imports.p.parsed ~ ~ modules ~[/ui/tree/jibb] values.u.prep molds.u.prep cache.p.first `iface.u.prep)

111+ =/ prelude-other=ifile:jibb iface.u.prep(source ~)

112+ =/ mismatch=jimports-result:jibb

113+ (resolve-jibb-imports:jibb imports.p.parsed ~ ~ modules ~[/tests/tree/client/jibb] values.u.prep molds.u.prep cache.p.first `prelude-other)

114+ =/ old=(unit ifile:jibb) (find-jibb-interface:jibb %first resolved.p.first)

115+ =/ new=(unit ifile:jibb) ?:(?=(%& -.fresh) (find-jibb-interface:jibb %first resolved.p.fresh) ~)

116+ =/ shape-changed=?

117+ ?~ old |

118+ ?~ new |

119+ =/ a=(unit ischeme:jibb) (find-jibb-mold:jibb %node-tree u.old)

120+ =/ b=(unit ischeme:jibb) (find-jibb-mold:jibb %node-tree u.new)

121+ ?~ a |

122+ ?~ b |

123+ ?. &(?=(%grec -.typ.u.a) ?=(%grec -.typ.u.b)) |

124+ !=(proof.typ.u.a proof.typ.u.b)

125+ =/ reuse-ok=? ?:(?=(%| -.reuse) | =(resolved.p.first resolved.p.reuse))

126+ =/ shadow-parsed=(each module:jibb error:jibb) (parse:jibb /ui/tree/jibb shadow)

127+ =/ altered-parsed=(each module:jibb error:jibb) (parse:jibb /lib/jibb/prelude/jibb altered)

128+ =/ more=(list [label=@t ok=?])

129+ :~ ['unreserved local list shadow declined' &(?=(%& -.shadow-parsed) ?=(%| -.shadow-result))]

130+ ['altered prelude list declined' &(?=(%& -.altered-parsed) ?=(%| -.altered-result))]

131+ ['cached source reuse' reuse-ok]

132+ ['changed source invalidates cache' ?=(%| -.stale)]

133+ ['changed source fresh proof' &(?=(%& -.fresh) shape-changed)]

134+ ['duplicate source declined' ?=(%| -.duplicate)]

135+ ['active import cycle declined' ?=(%| -.cycle)]

136+ ['changed prelude invalidates cache' ?=(%| -.mismatch)]

137+ ==

138+ =/ lines=(list @t) (weld (turn checks result-line) (weld invalid-lines (turn more result-line)))

139+ =/ report=@t (golden-types-with-prepared-prelude:jibb /tests/tree/client/jibb client ~ ~ modules prep)

140+ (cat 3 (of-wain:format lines) (cat 3 '\0a' report))

141+++ test-generic-recursion

142+ ^- tang

143+ ?~ tree ~[leaf+"recursive source is missing"]

144+ ?~ changed ~[leaf+"changed recursive source is missing"]

145+ ?~ alias ~[leaf+"recursive alias is missing"]

146+ ?~ client ~[leaf+"recursive client is missing"]

147+ ?~ bad-mold ~[leaf+"invalid mold fixture is missing"]

148+ ?~ bad-constructor ~[leaf+"constructor fixture is missing"]

149+ ?~ bad-match ~[leaf+"match fixture is missing"]

150+ ?~ bad-parameter ~[leaf+"parameter fixture is missing"]

151+ ?~ local-shadow ~[leaf+"local shadow fixture is missing"]

152+ ?~ local-distinct ~[leaf+"distinct local shadow fixture is missing"]

153+ ?~ local-only ~[leaf+"local recursion fixture is missing"]

154+ ?~ list-shadow ~[leaf+"list shadow fixture is missing"]

155+ ?~ chain ~[leaf+"unindexed chain fixture is missing"]

156+ ?~ expected ~[leaf+"recursive expected output is missing"]

157+ =/ invalid=(list [label=@t src=@t])

158+ :~ ['unused mold hole declined' (text bad-mold)]

159+ ['invalid constructor declined' (text bad-constructor)]

160+ ['invalid matching declined' (text bad-match)]

161+ ['nonuniform recursion declined' (text bad-parameter)]

162+ ['identical local shadow declined' (text local-shadow)]

163+ ['different local shadow declined' (text local-distinct)]

164+ ['local recursion declined' (text local-only)]

165+ ==

166+ =/ actual=@t (generic-output real-prelude real-internal (text tree) (text changed) (text alias) (text client) invalid (text list-shadow) (text chain))

167+ ?. =((to-wain:format (cat 3 actual '\0a')) expected)

168+ ~[leaf+"generic recursion output differs from expected"]

169+ ~

170+--

tests/lib/jibb-import-overlap.hoonnew file+80

@@ -0,0 +1,80 @@

1+/+ jibb, jibb-import

2+/* sur %txt /tests/type-import-overlap/sur/txt

3+/* source %txt /tests/type-import-overlap/source/txt

4+/* expected %txt /tests/type-import-overlap/expected/txt

5+|%

6+++ text

7+ |= lines=wain

8+ ^- @t

9+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

10+++ test-import-overlap

11+ ^- tang

12+ ?~ sur ~[leaf+"overlap fixture source is missing"]

13+ ?~ source ~[leaf+"overlap fixture client is missing"]

14+ ?~ expected ~[leaf+"overlap fixture expected output is missing"]

15+ =/ got (overlap-output (text sur) (text source))

16+ ?. =((to-wain:format (cat 3 got '\0a')) expected)

17+ ~[leaf+"overlap output differs from expected"]

18+ ~

19+++ bounded-screen-status

20+^- @t

21+?. ?=(~ (bounded-no-spec-unions:jibb-import [1 2] 2)) 'three-node noun exceeded limit'

22+=/ exact (bounded-no-spec-unions:jibb-import [1 2] 3)

23+?. =(exact `0) 'three-node exact budget failed'

24+?. ?=(~ (bounded-no-spec-unions:jibb-import [[[[1 2] 3] 4] 5] 8)) 'deep noun exceeded limit'

25+?. =((bounded-no-spec-unions:jibb-import [[[[1 2] 3] 4] 5] 9) `0) 'deep exact budget failed'

26+?. ?=(~ (bounded-no-spec-unions:jibb-import [1 2 3 4 5] 8)) 'wide noun exceeded limit'

27+?. =((bounded-no-spec-unions:jibb-import [1 2 3 4 5] 9) `0) 'wide exact budget failed'

28+?. ?=(~ (bounded-no-spec-unions:jibb-import [%bcwt [[1 2] [[3 4] 0]]] 100)) 'nested $? accepted'

29+?. ?=(~ (bounded-no-spec-unions:jibb-import [%bccn [[1 2] [[3 4] 0]]] 100)) 'nested $% accepted'

30+?. ?=(~ (bounded-no-spec-unions:jibb-import [%bckt [1 2] [3 4]] 100)) 'nested $^ accepted'

31+=/ very-deep=*

32+ =/ n=@ud 1.000

33+ =/ node=* 0

34+ |-

35+ ?: =(n 0) node

36+ $(n (dec n), node [node n])

37+?. =((bounded-no-spec-unions:jibb-import very-deep 2.001) `0) 'deep 2,001-node exact budget failed'

38+?. ?=(~ (bounded-no-spec-unions:jibb-import very-deep 2.000)) 'deep 2,001-node limit exceeded'

39+=/ xs=(list spec)

40+ (turn (gulf 1 128) |=(n=@ud `spec`[%bccl ~[[%leaf %tas n] [%base [%atom %t]]]]))

41+?~ xs 'generated source cases missing'

42+=/ first=(unit @ud) (bounded-no-spec-unions:jibb-import i.xs 1.000)

43+?~ first 'simple source case unavailable'

44+=/ total=@ud (mul 128 (sub 1.000 u.first))

45+=/ at=(unit (list tagged-case:jibb-import)) (tagged-bounded-cases:jibb-import xs ~ total 128)

46+?~ at '128 exact cases rejected'

47+?. =((lent u.at) 128) 'a source case was omitted'

48+?. ?=(~ (tagged-bounded-cases:jibb-import xs ~ (dec total) 128)) 'source node limit exceeded'

49+=/ over=(list spec) (weld xs ~[`spec`[%bccl ~[[%leaf %tas 129] [%base [%atom %t]]]]])

50+?. ?=(~ (tagged-bounded-cases:jibb-import over ~ 100.000 128)) '129 cases exceeded limit'

51+=/ nested=spec [%bccl ~[[%leaf %tas %x] [%bcwt ~[[%leaf %tas %a] [%leaf %tas %b]]]]]

52+?. ?=(~ (tagged-bounded-cases:jibb-import ~[nested] ~ 1.000 128)) 'nested union case accepted'

53+=/ unknown=spec [%base [%atom %t]]

54+?. ?=(~ (tagged-bounded-cases:jibb-import ~[unknown] ~ 1.000 128)) 'non-tagged source accepted'

55+'bounded source screen controls passed'

56+

57+++ overlap-output

58+ |= [sur-text=@t src=@t]

59+ ^- @t

60+ =/ cor=type -:(ride -:!>(..zuse) sur-text)

61+ =/ names=(list term)

62+ ~[%mixed-zero %nonzero %unequal-singletons %swapped %separate-tags %separate-terms %different-value %different-tail %unknown-middle %unsupported-gate %dollar-percent %identical %cross-zero %boolean-tail %empty-tail]

63+ =/ cases=wall

64+ %+ turn names

65+ |= n=term

66+ "{(trip n)}: {(show-import-diagnostic:jibb-import (read-named-diagnostic:jibb-import %fixture n cor))}"

67+ =/ other=type (~(play ut cor) (ream '*separate-tags'))

68+ =/ provenance=wall

69+ :~ "mismatched-selected: {(show-result:jibb-import (read-mold-in:jibb-import %fixture %mixed-zero other cor))}"

70+ "missing: {(show-result:jibb-import (read-named:jibb-import %fixture %missing cor))}"

71+ "bare-zuse: {(show-result:jibb-import (read-named:jibb-import %fixture %mixed-zero -:!>(..zuse)))}"

72+ ==

73+ =/ external=(list [module=term name=term result=*])

74+ :~ [%fixture %mixed-zero (read-named-diagnostic:jibb-import %fixture %mixed-zero cor)]

75+ [%fixture %separate-tags (read-named-diagnostic:jibb-import %fixture %separate-tags cor)]

76+ [%fixture %unknown-middle (read-named-diagnostic:jibb-import %fixture %unknown-middle cor)]

77+ ==

78+ =/ report=@t (golden-types-with-reader-diagnostics:jibb /ui/test/jibb src external ~)

79+ (cat 3 (of-wain:format (turn (weld cases (weld ~[(trip bounded-screen-status)] provenance)) |=(line=tape (crip line)))) (cat 3 '\0a' report))

80+--

tests/lib/jibb-import-structural.hoonnew file+82

@@ -0,0 +1,82 @@

1+/+ jibb, jibb-import

2+/* sur %txt /tests/type-import-structural/sur/txt

3+/* source %txt /tests/type-import-structural/source/txt

4+/* expected %txt /tests/type-import-structural/expected/txt

5+|%

6+++ text

7+ |= lines=wain

8+ ^- @t

9+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

10+++ test-import-structural

11+ ^- tang

12+ ?~ sur ~[leaf+"structural overlap /sur is missing"]

13+ ?~ source ~[leaf+"structural overlap client is missing"]

14+ ?~ expected ~[leaf+"structural overlap expected is missing"]

15+ =/ got (structural-output (text sur) (text source))

16+ ?. =((to-wain:format (cat 3 got '\0a')) expected)

17+ ~[leaf+"structural overlap output differs from expected"]

18+ ~

19+++ structural-output

20+ |= [sur-text=@t src=@t]

21+ ^- @t

22+ =/ cor=type -:(ride -:!>(..zuse) sur-text)

23+ =/ names=(list term)

24+ ~[%same-alias %separate-alias %deep-match %deep-distinct %tail-distinct %later-overlap %many-safe %open-atoms %different-aura]

25+ =/ cases=wall

26+ %+ turn names

27+ |= n=term

28+ "{(trip n)}: {(show-import-diagnostic:jibb-import (read-named-diagnostic:jibb-import %fixture n cor))}"

29+ =/ ext=(list [module=term name=term result=*])

30+ :~ [%fixture %deep-match (read-named-diagnostic:jibb-import %fixture %deep-match cor)]

31+ [%fixture %separate-alias (read-named-diagnostic:jibb-import %fixture %separate-alias cor)]

32+ [%fixture %different-aura (read-named-diagnostic:jibb-import %fixture %different-aura cor)]

33+ [%fixture %later-overlap (read-named-diagnostic:jibb-import %fixture %later-overlap cor)]

34+ ==

35+ =/ report=@t (golden-types-with-reader-diagnostics:jibb /ui/structural/jibb src ext ~)

36+ =/ zero=imported:jibb-import [%atom %tas `0]

37+ =/ one=imported:jibb-import [%atom %tas `1]

38+ =/ two=imported:jibb-import [%atom %tas `2]

39+ =/ txt=imported:jibb-import [%atom %t ~]

40+ =/ ship=imported:jibb-import [%atom %p ~]

41+ =/ flag=imported:jibb-import [%atom %f ~]

42+ =/ opaque=imported:jibb-import [%ref %m %x]

43+ =/ named=imported:jibb-import [%named %m %x zero]

44+ =/ arm (local-arm-source:jibb-import cor %later-overlap)

45+ ?~ arm !!

46+ =/ shape (local-mold-spec:jibb-import u.arm %later-overlap)

47+ ?~ shape !!

48+ =/ body (tagged-default-union:jibb-import u.shape 4)

49+ ?~ body !!

50+ ?> ?=([%bcwt *] u.body)

51+ =/ specs=(list spec) p.u.body

52+ ?~ specs !!

53+ =/ checks=(list [label=@t ok=?])

54+ :~ ['same literal' ?=([~ [%.y *]] (overlap-pair:jibb-import zero zero 20))]

55+ ['different literals' ?=([~ [%.n *]] (overlap-pair:jibb-import one two 20))]

56+ ['named expands' ?=([~ [%.y *]] (overlap-pair:jibb-import named zero 20))]

57+ ['opaque declines' ?=([~ [%.n *]] (overlap-pair:jibb-import opaque opaque 20))]

58+ ['opaque versus noun' ?=([~ [%.n *]] (overlap-pair:jibb-import opaque [%noun ~] 20))]

59+ ['unknown aura' ?=([~ [%.n *]] (overlap-pair:jibb-import ship txt 20))]

60+ ['open admits zero' ?=([~ [%.y *]] (overlap-pair:jibb-import flag zero 20))]

61+ ['different tail' ?=([~ [%.n *]] (overlap-pair:jibb-import [%cell zero one] [%cell zero two] 20))]

62+ ['nested face' ?=([~ [%.y *]] (overlap-pair:jibb-import [%face %a [%cell named one]] [%face %b [%cell zero one]] 20))]

63+ ['fork later case' ?=([~ [%.y *]] (overlap-pair:jibb-import [%fork ~[one zero]] zero 20))]

64+ ['empty fuel' ?=(~ (overlap-pair:jibb-import zero zero 0))]

65+ ['cell needs both' ?=(~ (overlap-pair:jibb-import [%cell zero one] [%cell zero one] 2))]

66+ ['later pair' ?=([~ [%.y *]] (overlap-case-pairs:jibb-import ~[one two zero zero] 100))]

67+ ['pair fuel' ?=(~ (overlap-case-pairs:jibb-import ~[one two zero zero] 2))]

68+ ['void' ?=([~ [%.n *]] (overlap-pair:jibb-import [%void ~] [%noun ~] 20))]

69+ ['void position' ?=([~ [%.n *]] (overlap-pair:jibb-import [%cell zero [%void ~]] [%cell zero [%noun ~]] 20))]

70+ ['opaque apply' ?=([~ [%.n *]] (overlap-pair:jibb-import [%apply %list ~[txt]] [%noun ~] 20))]

71+ ['source node fuel' ?=(~ (overlap-source-cases:jibb-import specs 1 128))]

72+ ['source case cap' ?=(~ (overlap-source-cases:jibb-import specs 4.096 3))]

73+ ['wrong projected head' !(overlap-projections-match:jibb-import ~[[%a i.specs]] ~[[%cell [%atom %tas `%b] txt]])]

74+ ['wrong case count' !(overlap-projections-match:jibb-import ~[[%a i.specs]] ~)]

75+ ==

76+ =/ results=wall

77+ %+ turn checks

78+ |= c=[label=@t ok=?]

79+ "{(trip label.c)}: {?:(ok.c "ok" "BAD")}"

80+ =/ lines=(list @t) (turn (weld cases results) |=(line=tape (crip line)))

81+ (cat 3 (of-wain:format lines) (cat 3 '\0a' report))

82+--

tests/lib/jibb-list-alias-guards.hoon+1−1

@@ -4,7 +4,7 @@

44|%

55++ list-alias-output

66 ^- @t

7− =/ src=@t (crip "++ text |= x=(alias @t) x\0a++ ship |= x=(alias @p) x\0a++ wrong ^- (alias @t) ~[~zod]\0a++ shadow |= x=(list @t)\0a +$ list @t\0a x\0a")

7+ =/ src=@t (crip "++ text-value |= x=(alias @t) x\0a++ ship |= x=(alias @p) x\0a++ wrong ^- (alias @t) ~[~zod]\0a++ shadow |= x=(list @t)\0a +$ list @t\0a x\0a")

88 =/ canonical=@t (crip "+$ list |$ [A]\0a ~\0a [i=A t=(list A)]\0a+$ bag |$ [A] (list A)\0a+$ alias |$ [A] (bag A)\0a")

99 =/ altered=@t (crip "+$ list |$ [A] [A A]\0a+$ bag |$ [A] (list A)\0a+$ alias |$ [A] (bag A)\0a")

1010 =/ omitted=@t (crip "+$ bag |$ [A] (list A)\0a+$ alias |$ [A] (bag A)\0a")

tests/lib/jibb-nested-union-guards.hoonnew file+67

@@ -0,0 +1,67 @@

1+:: Nested tagged-case context requires a direct union and unique explicit case.

2+/+ jibb

3+|%

4+++ nested-union-base-errors

5+ ^- (list tape)

6+ =/ a=itype:jibb [%cell [%const [%term %tas %a '%a']] [%atom %t]]

7+ =/ b=itype:jibb [%cell [%const [%term %tas %b '%b']] [%atom %p]]

8+ =/ union=itype:jibb [%union ~[a b] ~ ~ ~]

9+ =/ variable=itype:jibb [%var 0]

10+ =/ bound=isub:jibb ~[[0 union]]

11+ =/ failures=(list tape) ~

12+ =? failures !(contextual-direct-union:jibb union)

13+ ["direct union not recognized" failures]

14+ =? failures !(contextual-direct-union:jibb [%face %item union])

15+ ["explicit faced union not recognized" failures]

16+ =? failures (contextual-direct-union:jibb variable)

17+ ["variable-bound root treated as direct union" failures]

18+ =/ tests=(list [label=@t target=itype:jibb tag=@ sub=isub:jibb expect=?])

19+ :~ ['unique tag' union %a ~ &]

20+ ['missing tag' union %missing ~ |]

21+ ['null-headed zero' [%union ~[[%cell [%const [%null %n 0 '~']] [%atom %t]] b] ~ ~ ~] 0 ~ &]

22+ ['loobean-headed zero' [%union ~[[%cell [%const [%loobean %f 0 '%.y']] [%atom %t]] b] ~ ~ ~] 0 ~ &]

23+ ['term-headed zero' [%union ~[[%cell [%const [%term %tas 0 '%$']] [%atom %t]] b] ~ ~ ~] 0 ~ &]

24+ ['equal zero heads' [%union ~[[%cell [%const [%null %n 0 '~']] [%atom %t]] [%cell [%const [%loobean %f 0 '%.y']] [%atom %p]]] ~ ~ ~] 0 ~ |]

25+ ['variable root' variable %a bound |]

26+ ['bare term competitor' [%union ~[a [%const [%term %tas %b '%b']]] ~ ~ ~] %a ~ |]

27+ ['null competitor' [%union ~[a [%const [%null %n 0 '~']]] ~ ~ ~] %a ~ |]

28+ ['variable competitor' [%union ~[a variable] ~ ~ ~] %a bound |]

29+ ['variable head' [%union ~[a [%cell variable [%atom %t]]] ~ ~ ~] %a bound |]

30+ ['duplicate tag' [%union ~[a a] ~ ~ ~] %a ~ |]

31+ ['duplicate other head' [%union ~[a b [%cell [%const [%term %tas %b '%b']] [%atom %t]]] ~ ~ ~] %a ~ |]

32+ ['faced competitor' [%union ~[a [%face %x b]] ~ ~ ~] %a ~ |]

33+ ==

34+ =/ errs=(list @t)

35+ %+ turn tests

36+ |= test=[label=@t target=itype:jibb tag=@ sub=isub:jibb expect=?]

37+ =/ found=(unit itype:jibb) (contextual-tagged-case:jibb target.test tag.test sub.test)

38+ ?: =(expect.test ?=(^ found)) ''

39+ (cat 3 label.test ': incorrect case selection')

40+ (weld (turn (skim errs |=(x=@t !=(x ''))) trip) failures)

41+++ nested-union-substitution-errors

42+ ^- (list tape)

43+ =/ tests=(list [name=@t sub=isub:jibb want=?])

44+ :~ ['empty' ~ &]

45+ ['atom' ~[[0 [%atom %t]]] &]

46+ ['variable chain to atom' ~[[0 [%var 1]] [1 [%atom %t]]] &]

47+ ['cell' ~[[0 [%cell [%atom %t] [%atom %p]]]] |]

48+ ['face' ~[[0 [%face %x [%atom %t]]]] |]

49+ ['gate' ~[[0 [%fn [%atom %t] [%atom %t]]]] |]

50+ ['union' ~[[0 [%union ~[[%const [%term %tas %x '%x']]] ~ ~ ~]]] |]

51+ ['collection' ~[[0 [%collection %list ~[[%atom %t]]]]] |]

52+ ['variable chain to union' ~[[0 [%var 1]] [1 [%union ~[[%const [%term %tas %x '%x']]] ~ ~ ~]]] |]

53+ ==

54+ =/ errors=(list @t)

55+ %+ turn tests

56+ |= test=[name=@t sub=isub:jibb want=?]

57+ ?: =(want.test (contextual-simple-sub:jibb sub.test)) ''

58+ (cat 3 name.test ': incorrect provenance')

59+ =/ errors (skim errors |=(x=@t !=(x '')))

60+ (turn errors trip)

61+++ nested-union-guard-errors

62+ ^- (list tape)

63+ (weld nested-union-base-errors nested-union-substitution-errors)

64+++ test-nested-union-guards

65+ ^- tang

66+ (turn nested-union-guard-errors |=(reason=tape leaf+reason))

67+--

tests/lib/jibb-program-init.hoonnew file+134

@@ -0,0 +1,134 @@

1+:: Transactional direct-program initializer context, without UI execution.

2+/+ jibb

3+/* prelude %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* initializer %txt /tests/type-program-main/initializer/txt

6+/* initializer-consumer %txt /tests/type-program-main/initializer-consumer/txt

7+/* initializer-unfaced %txt /tests/type-program-main/initializer-unfaced/txt

8+/* initializer-error %txt /tests/type-program-main/initializer-error/txt

9+/* initializer-earlier %txt /tests/type-program-main/initializer-earlier/txt

10+/* initializer-model %txt /tests/type-program-main/initializer-model/txt

11+/* initializer-message %txt /tests/type-program-main/initializer-message/txt

12+/* initializer-generic %txt /tests/type-program-main/initializer-generic/txt

13+/* initializer-missing %txt /tests/type-program-main/initializer-missing/txt

14+/* initializer-tag %txt /tests/type-program-main/initializer-tag/txt

15+/* initializer-no-main %txt /tests/type-program-main/initializer-no-main/txt

16+/* initializer-subs %txt /tests/type-program-main/initializer-subs/txt

17+|%

18+++ text

19+ |= lines=wain

20+ ^- @t

21+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

22+::

23+++ program-init-prepared

24+ |= [public=@t private=@t]

25+ ^- (unit iprelude:jibb)

26+ (prepare-prelude-with-internal:jibb public private)

27+::

28+++ program-init-detailed

29+ |= [at=path src=@t modules=jbundle:jibb prepared=iprelude:jibb]

30+ ^- jfile-detailed-result:jibb

31+ (infer-jibb-file-detailed:jibb at src ~ ~ modules ~[at] values.prepared molds.prepared ~ `iface.prepared)

32+::

33+++ program-init-legacy

34+ |= [at=path src=@t modules=jbundle:jibb prepared=iprelude:jibb]

35+ ^- jfile-result:jibb

36+ (infer-jibb-file:jibb at src ~ ~ modules ~[at] values.prepared molds.prepared ~ `iface.prepared)

37+::

38+++ program-init-positive

39+ |= [at=path src=@t downstream=(unit @t) prepared=iprelude:jibb]

40+ ^- (list tape)

41+ =/ detailed=jfile-detailed-result:jibb (program-init-detailed at src ~ prepared)

42+ ?: ?=(%| -.detailed) ~["contextual direct program init was rejected"]

43+ =/ checked=ifile:jibb iface.p.detailed

44+ =/ legacy=jfile-result:jibb (program-init-legacy at src ~ prepared)

45+ ?: ?=(%| -.legacy) ~["legacy adapter rejected contextual init"]

46+ ?. =(values.checked values.iface.p.legacy) ~["contextual structured and legacy values differ"]

47+ =/ init=(unit ischeme:jibb) (ienv-lookup:jibb %init values.checked)

48+ =/ main=(unit ischeme:jibb) (ienv-lookup:jibb %main values.checked)

49+ ?~ init ~["contextual init interface is missing"]

50+ ?~ main ~["contextual main interface is missing"]

51+ ?. ?=(~ vars.u.init) ~["contextual init interface is not closed"]

52+ =/ expected=tape "$-((list @t) [xs=(list @t) [draft=@t error=(unit @t)]])"

53+ ?. =((show-itype:jibb typ.u.init ~) expected) ~["contextual init interface type differs"]

54+ ?. ?=(~ vars.u.main) ~["contextual main interface is not closed"]

55+ =/ fields=(list itype:jibb) (record-fields-named:jibb %init typ.u.main ~)

56+ ?. =(fields ~[typ.u.init]) ~["contextual main initializer field differs"]

57+ ?~ source.checked ~["contextual program source evidence is missing"]

58+ ?. =(u.source.checked src) ~["contextual program source evidence differs"]

59+ ?~ graph.checked ~["contextual program request graph is missing"]

60+ ?~ downstream ~

61+ =/ consumer-at=path /tests/program-main/initializer-consumer/jibb

62+ =/ imported=jfile-detailed-result:jibb

63+ (program-init-detailed consumer-at u.downstream ~[[at src]] prepared)

64+ ?: ?=(%| -.imported) ~[(weld "downstream contextual initializer import was rejected: " (trip message.p.imported))]

65+ =/ use=(unit ischeme:jibb) (ienv-lookup:jibb %imported values.iface.p.imported)

66+ ?~ use ~["downstream contextual initializer is missing"]

67+ ?. =((show-itype:jibb typ.u.use ~) expected) ~["downstream contextual initializer type differs"]

68+ ?. =(u.use u.init) ~["downstream contextual initializer scheme differs"]

69+ ~

70+::

71+++ program-init-negative

72+ |= [label=@t at=path src=@t boundary=@t prepared=iprelude:jibb]

73+ ^- (list tape)

74+ =/ detailed=jfile-detailed-result:jibb (program-init-detailed at src ~ prepared)

75+ ?: ?=(%& -.detailed) ~[(weld (trip label) ": structured check accepted")]

76+ ?. ?=(~ overlap.p.detailed) ~[(weld (trip label) ": unexpected overlap evidence")]

77+ ?. =(message.p.detailed boundary) ~[(weld (trip label) ": rejected at the wrong boundary")]

78+ =/ legacy=jfile-result:jibb (program-init-legacy at src ~ prepared)

79+ ?: ?=(%& -.legacy) ~[(weld (trip label) ": legacy check accepted")]

80+ ?. =(p.legacy boundary) ~[(weld (trip label) ": legacy boundary differs")]

81+ ~

82+::

83+++ program-init-negative-cases

84+ |= [cases=(list [label=@t at=path src=@t boundary=@t]) prepared=iprelude:jibb]

85+ ^- (list tape)

86+ ?~ cases ~

87+ %+ weld

88+ (program-init-negative label.i.cases at.i.cases src.i.cases boundary.i.cases prepared)

89+ $(cases t.cases)

90+::

91+++ program-init-errors

92+ |= [public=@t private=@t island=@t downstream=@t unfaced=@t negatives=(list @t)]

93+ ^- (list tape)

94+ =/ prepared=(unit iprelude:jibb) (program-init-prepared public private)

95+ ?~ prepared ~["synthetic program prelude did not prepare for contextual init"]

96+ =/ at=path /tests/program-main/initializer/jibb

97+ =/ positives=(list tape)

98+ %+ weld

99+ (program-init-positive at island `downstream u.prepared)

100+ (program-init-positive /tests/program-main/initializer-unfaced/jibb unfaced ~ u.prepared)

101+ ?. =(9 (lent negatives)) ~["contextual negative fixture count differs"]

102+ =/ definitions=@t (crip "module definitions need unsupported inference: {(spud at)}")

103+ =/ cases=(list [label=@t at=path src=@t boundary=@t])

104+ :~ ['incompatible error field' at (snag 0 negatives) definitions]

105+ ['earlier tuple mismatch' at (snag 1 negatives) definitions]

106+ ['inconsistent model' at (snag 2 negatives) definitions]

107+ ['inconsistent message' at (snag 3 negatives) definitions]

108+ ['missing/generic data sample' at (snag 4 negatives) definitions]

109+ ['missing initializer' at (snag 5 negatives) definitions]

110+ ['unrelated pending tag' at (snag 6 negatives) definitions]

111+ ['non-main same source' at (snag 7 negatives) definitions]

112+ ['init and subs unresolved' at (snag 8 negatives) definitions]

113+ :- 'API path'

114+ [/ui/api/program-main/jibb island 'module kind needs unsupported inference: /ui/api/program-main/jibb']

115+ :- 'store path'

116+ [/ui/stores/program-main/jibb island 'module kind needs unsupported inference: /ui/stores/program-main/jibb']

117+ ==

118+ (weld positives (program-init-negative-cases cases u.prepared))

119+::

120+++ test-program-init

121+ ^- tang

122+ =/ negatives=(list @t)

123+ :~ (text initializer-error)

124+ (text initializer-earlier)

125+ (text initializer-model)

126+ (text initializer-message)

127+ (text initializer-generic)

128+ (text initializer-missing)

129+ (text initializer-tag)

130+ (text initializer-no-main)

131+ (text initializer-subs)

132+ ==

133+ (turn (program-init-errors prelude internal (text initializer) (text initializer-consumer) (text initializer-unfaced) negatives) |=(reason=tape leaf+reason))

134+--

tests/lib/jibb-program-main.hoonnew file+141

@@ -0,0 +1,141 @@

1+:: Narrow closed program-main checking, without execution or watchability claims.

2+/+ jibb

3+/* prelude %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* source %txt /tests/type-program-main/source/txt

6+/* consumer %txt /tests/type-program-main/consumer/txt

7+/* gate-model %txt /tests/type-program-main/gate-model/txt

8+/* gate-data %txt /tests/type-program-main/gate-data/txt

9+/* nonempty-subs %txt /tests/type-program-main/nonempty-subs/txt

10+/* mismatched-model %txt /tests/type-program-main/mismatched-model/txt

11+/* arbitrary-main %txt /tests/type-program-main/arbitrary-main/txt

12+/* alias-main %txt /tests/type-program-main/alias-main/txt

13+/* open-message %txt /tests/type-program-main/open-message/txt

14+|%

15+++ text

16+ |= lines=wain

17+ ^- @t

18+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

19+::

20+++ program-prepared

21+ |= [public=@t private=@t]

22+ ^- (unit iprelude:jibb)

23+ (prepare-prelude-with-internal:jibb public private)

24+::

25+++ program-main-detailed

26+ |= [at=path src=@t modules=jbundle:jibb prepared=iprelude:jibb]

27+ ^- jfile-detailed-result:jibb

28+ (infer-jibb-file-detailed:jibb at src ~ ~ modules ~[at] values.prepared molds.prepared ~ `iface.prepared)

29+::

30+++ program-main-legacy

31+ |= [at=path src=@t modules=jbundle:jibb prepared=iprelude:jibb]

32+ ^- jfile-result:jibb

33+ (infer-jibb-file:jibb at src ~ ~ modules ~[at] values.prepared molds.prepared ~ `iface.prepared)

34+::

35+++ program-main-negative-errors

36+ |= [label=@t at=path src=@t prepared=iprelude:jibb]

37+ ^- (list tape)

38+ =/ detailed=jfile-detailed-result:jibb (program-main-detailed at src ~ prepared)

39+ ?: ?=(%& -.detailed) ~[(weld (trip label) ": structured check accepted")]

40+ ?. ?=(~ overlap.p.detailed) ~[(weld (trip label) ": unexpected overlap evidence")]

41+ =/ legacy=jfile-result:jibb (program-main-legacy at src ~ prepared)

42+ ?: ?=(%& -.legacy) ~[(weld (trip label) ": legacy check accepted")]

43+ ?. =(p.legacy message.p.detailed) ~[(weld (trip label) ": adapter messages differ")]

44+ ~

45+::

46+++ program-main-errors

47+ |= [public=@t private=@t island=@t downstream=@t negatives=(list @t)]

48+ ^- (list tape)

49+ =/ prepared=(unit iprelude:jibb)

50+ (program-prepared public private)

51+ ?~ prepared ~["synthetic program prelude did not prepare"]

52+ =/ at=path /tests/program-main/island/jibb

53+ =/ detailed=jfile-detailed-result:jibb (program-main-detailed at island ~ u.prepared)

54+ ?: ?=(%| -.detailed) ~["direct closed program main was rejected"]

55+ =/ checked=ifile:jibb iface.p.detailed

56+ ?~ graph.checked ~["program request graph evidence is missing"]

57+ =/ legacy=jfile-result:jibb (program-main-legacy at island ~ u.prepared)

58+ ?: ?=(%| -.legacy) ~["legacy adapter rejected a closed program main"]

59+ ?. =(values.checked values.iface.p.legacy) ~["structured and legacy interface values differ"]

60+ =/ init=(unit ischeme:jibb) (ienv-lookup:jibb %init values.checked)

61+ =/ update=(unit ischeme:jibb) (ienv-lookup:jibb %update values.checked)

62+ =/ view=(unit ischeme:jibb) (ienv-lookup:jibb %view values.checked)

63+ =/ subs=(unit ischeme:jibb) (ienv-lookup:jibb %subs values.checked)

64+ =/ main=(unit ischeme:jibb) (ienv-lookup:jibb %main values.checked)

65+ ?~ init ~["init interface is missing"]

66+ ?~ update ~["update interface is missing"]

67+ ?~ view ~["view interface is missing"]

68+ ?~ subs ~["subs interface is missing"]

69+ ?~ main ~["main interface is missing"]

70+ =/ parsed (parse:jibb at island)

71+ ?: ?=(%| -.parsed) ~["program source no longer parses"]

72+ =/ main-def=(unit def:jibb) (program-main-def:jibb defs.p.parsed)

73+ ?~ main-def ~["program main definition is missing"]

74+ =/ parts (program-main-parts:jibb u.main-def)

75+ ?~ parts ~["program main parts are missing"]

76+ ?: (program-main-closed:jibb u.parts defs.p.parsed values.checked ~ ~ u.graph.checked)

77+ ~["program kind was accepted without its source-backed prelude"]

78+ =/ program-scheme=(unit ischeme:jibb) (ienv-lookup:jibb %program values.iface.u.prepared)

79+ ?~ program-scheme ~["synthetic program scheme is missing"]

80+ ?. ?=(%fn -.typ.u.program-scheme) ~["synthetic program value is not a gate"]

81+ =/ broken-values=ienv:jibb

82+ (skim values.iface.u.prepared |=(entry=[name=term scheme=ischeme:jibb] !=(%program name.entry)))

83+ =/ broken=ifile:jibb

84+ iface.u.prepared(values [[%program [[%fn sample.typ.u.program-scheme [%atom %ud]] vars.u.program-scheme]] broken-values])

85+ =/ malformed=jfile-detailed-result:jibb

86+ (infer-jibb-file-detailed:jibb at island ~ ~ ~ ~[at] values.u.prepared molds.u.prepared ~ `broken)

87+ ?: ?=(%& -.malformed) ~["program result was not checked against the program mold"]

88+ =/ kind-error=@t (crip "module kind needs unsupported inference: {(spud at)}")

89+ ?. =(message.p.malformed kind-error) ~["malformed program failed before the kind check"]

90+ =/ open=jfile-detailed-result:jibb

91+ (program-main-detailed at (snag 6 negatives) ~ u.prepared)

92+ ?: ?=(%& -.open) ~["open program message was accepted"]

93+ =/ other-values=ienv:jibb

94+ (skim values.checked |=(entry=[name=term scheme=ischeme:jibb] !=(%main name.entry)))

95+ =/ open-values=ienv:jibb [[%main u.main(vars ~[0])] other-values]

96+ ?: (program-main-closed:jibb u.parts defs.p.parsed open-values `iface.u.prepared ~ u.graph.checked)

97+ ~["generic main scheme passed the closure check"]

98+ =/ model=itype:jibb [%face %count [%atom %ud]]

99+ ?. =(u.init [[%fn [%atom %t] model] ~]) ~["init interface type differs"]

100+ ?. ?=(~ vars.u.main) ~["main interface is not closed"]

101+ =/ init-fields=(list itype:jibb) (record-fields-named:jibb %init typ.u.main ~)

102+ =/ update-fields=(list itype:jibb) (record-fields-named:jibb %update typ.u.main ~)

103+ =/ view-fields=(list itype:jibb) (record-fields-named:jibb %view typ.u.main ~)

104+ =/ subs-fields=(list itype:jibb) (record-fields-named:jibb %subs typ.u.main ~)

105+ ?. =(init-fields ~[typ.u.init]) ~["main initializer field differs"]

106+ ?. &(=(1 (lent update-fields)) =(1 (lent view-fields)) =(1 (lent subs-fields)))

107+ ~["main component fields differ"]

108+ ?~ source.checked ~["program source evidence is missing"]

109+ ?. =(u.source.checked island) ~["program source evidence differs"]

110+ =/ consumer-at=path /tests/program-main/consumer/jibb

111+ =/ imported=jfile-detailed-result:jibb

112+ (program-main-detailed consumer-at downstream ~[[at island]] u.prepared)

113+ ?: ?=(%| -.imported) ~[(weld "ordinary downstream program import was rejected: " (trip message.p.imported))]

114+ =/ use=(unit ischeme:jibb) (ienv-lookup:jibb %imported values.iface.p.imported)

115+ ?~ use ~["downstream imported initializer is missing"]

116+ ?. =(u.use u.init) ~["downstream imported initializer type differs"]

117+ ?. =(7 (lent negatives)) ~["focused negative fixture count differs"]

118+ =/ cases=(list [label=@t at=path src=@t])

119+ :~ ['gate in model' at (snag 0 negatives)]

120+ ['gate in data' at (snag 1 negatives)]

121+ ['nonempty subs' at (snag 2 negatives)]

122+ ['mismatched model' at (snag 3 negatives)]

123+ ['arbitrary main' at (snag 4 negatives)]

124+ ['store path' /ui/stores/program-main/jibb island]

125+ ['program alias' at (snag 5 negatives)]

126+ ==

127+ (zing (turn cases |=(c=[label=@t at=path src=@t] (program-main-negative-errors label.c at.c src.c u.prepared))))

128+::

129+++ test-program-main

130+ ^- tang

131+ =/ negatives=(list @t)

132+ :~ (text gate-model)

133+ (text gate-data)

134+ (text nonempty-subs)

135+ (text mismatched-model)

136+ (text arbitrary-main)

137+ (text alias-main)

138+ (text open-message)

139+ ==

140+ (turn (program-main-errors prelude internal (text source) (text consumer) negatives) |=(reason=tape leaf+reason))

141+--

tests/lib/jibb-program-update.hoonnew file+139

@@ -0,0 +1,139 @@

1+:: Transactional direct-program update result context, without UI execution.

2+/+ jibb

3+/* prelude %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* source %txt /tests/type-program-update/source/txt

6+/* consumer %txt /tests/type-program-update/consumer/txt

7+/* wrong-result %txt /tests/type-program-update/wrong-result/txt

8+/* wrong-model %txt /tests/type-program-update/wrong-model/txt

9+/* wrong-message %txt /tests/type-program-update/wrong-message/txt

10+/* malformed-sample %txt /tests/type-program-update/malformed-sample/txt

11+/* three-slot-sample %txt /tests/type-program-update/three-slot-sample/txt

12+/* non-main %txt /tests/type-program-update/non-main/txt

13+/* unrelated-tag %txt /tests/type-program-update/unrelated-tag/txt

14+/* missing-list %txt /tests/type-program-update/missing-list/txt

15+|%

16+++ text

17+ |= lines=wain

18+ ^- @t

19+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

20+::

21+++ program-update-prepared

22+ |= [public=@t private=@t]

23+ ^- (unit iprelude:jibb)

24+ (prepare-prelude-with-internal:jibb public private)

25+::

26+++ program-update-detailed

27+ |= [at=path src=@t modules=jbundle:jibb prepared=iprelude:jibb]

28+ ^- jfile-detailed-result:jibb

29+ (infer-jibb-file-detailed:jibb at src ~ ~ modules ~[at] values.prepared molds.prepared ~ `iface.prepared)

30+::

31+++ program-update-legacy

32+ |= [at=path src=@t modules=jbundle:jibb prepared=iprelude:jibb]

33+ ^- jfile-result:jibb

34+ (infer-jibb-file:jibb at src ~ ~ modules ~[at] values.prepared molds.prepared ~ `iface.prepared)

35+::

36+++ program-update-positive

37+ |= [at=path src=@t downstream=@t prepared=iprelude:jibb]

38+ ^- (list tape)

39+ =/ detailed=jfile-detailed-result:jibb (program-update-detailed at src ~ prepared)

40+ ?: ?=(%| -.detailed) ~["contextual direct program update was rejected"]

41+ =/ checked=ifile:jibb iface.p.detailed

42+ =/ legacy=jfile-result:jibb (program-update-legacy at src ~ prepared)

43+ ?: ?=(%| -.legacy) ~["legacy adapter rejected contextual update"]

44+ ?. =(values.checked values.iface.p.legacy) ~["contextual structured and legacy values differ"]

45+ =/ update=(unit ischeme:jibb) (ienv-lookup:jibb %update values.checked)

46+ =/ main=(unit ischeme:jibb) (ienv-lookup:jibb %main values.checked)

47+ ?~ update ~["contextual update interface is missing"]

48+ ?~ main ~["contextual main interface is missing"]

49+ ?. ?=(~ vars.u.update) ~["contextual update interface is not closed"]

50+ =/ expected=tape "$-([event=message current=[count=@ud]] [count=@ud (list (cmd message))])"

51+ ?. =((show-itype:jibb typ.u.update ~) expected) ~["contextual update interface type differs"]

52+ ?. ?=(~ vars.u.main) ~["contextual main interface is not closed"]

53+ =/ fields=(list itype:jibb) (record-fields-named:jibb %update typ.u.main ~)

54+ ?. ?=([* ~] fields) ~["contextual main update field is missing"]

55+ =/ main-expected=tape "$-([message count=@ud] [count=@ud (list (cmd message))])"

56+ ?. =((show-itype:jibb i.fields ~) main-expected) ~["contextual main update field differs"]

57+ ?~ source.checked ~["contextual program source evidence is missing"]

58+ ?. =(u.source.checked src) ~["contextual program source evidence differs"]

59+ ?~ graph.checked ~["contextual program request graph is missing"]

60+ =/ consumer-at=path /tests/program-update/consumer/jibb

61+ =/ imported=jfile-detailed-result:jibb

62+ (program-update-detailed consumer-at downstream ~[[at src]] prepared)

63+ ?: ?=(%| -.imported) ~[(weld "downstream contextual update import was rejected: " (trip message.p.imported))]

64+ =/ use=(unit ischeme:jibb) (ienv-lookup:jibb %imported values.iface.p.imported)

65+ ?~ use ~["downstream contextual update is missing"]

66+ =/ imported-expected=tape "$-([message.island-prog count=@ud] [count=@ud (list (cmd message.island-prog))])"

67+ ?. =((show-itype:jibb typ.u.use ~) imported-expected) ~["downstream contextual update type differs"]

68+ ?. ?=(~ vars.u.use) ~["downstream contextual update is not closed"]

69+ ~

70+::

71+++ program-update-negative

72+ |= [label=@t at=path src=@t boundary=@t prepared=iprelude:jibb]

73+ ^- (list tape)

74+ =/ detailed=jfile-detailed-result:jibb (program-update-detailed at src ~ prepared)

75+ ?: ?=(%& -.detailed) ~[(weld (trip label) ": structured check accepted")]

76+ ?. ?=(~ overlap.p.detailed) ~[(weld (trip label) ": unexpected overlap evidence")]

77+ ?. =(message.p.detailed boundary) ~[(weld (trip label) ": rejected at the wrong boundary")]

78+ =/ legacy=jfile-result:jibb (program-update-legacy at src ~ prepared)

79+ ?: ?=(%& -.legacy) ~[(weld (trip label) ": legacy check accepted")]

80+ ?. =(p.legacy boundary) ~[(weld (trip label) ": legacy boundary differs")]

81+ ~

82+::

83+++ program-update-negative-cases

84+ |= [cases=(list [label=@t at=path src=@t boundary=@t prepared=iprelude:jibb])]

85+ ^- (list tape)

86+ ?~ cases ~

87+ %+ weld

88+ (program-update-negative label.i.cases at.i.cases src.i.cases boundary.i.cases prepared.i.cases)

89+ $(cases t.cases)

90+::

91+++ program-update-errors

92+ |= [public=@t private=@t island=@t downstream=@t negatives=(list @t)]

93+ ^- (list tape)

94+ =/ prepared=(unit iprelude:jibb) (program-update-prepared public private)

95+ ?~ prepared ~["synthetic program prelude did not prepare for contextual update"]

96+ ?. =(8 (lent negatives)) ~["contextual update negative fixture count differs"]

97+ =/ at=path /tests/program-update/island/jibb

98+ =/ definitions=@t (crip "module definitions need unsupported inference: {(spud at)}")

99+ =/ without-cmd=iprelude:jibb

100+ =/ kept=imold-types:jibb

101+ (skim molds.iface.u.prepared |=(m=[name=term template=ischeme:jibb] !=(%cmd name.m)))

102+ [iface.u.prepared(molds kept) values.u.prepared molds.u.prepared]

103+ =/ without-list=iprelude:jibb

104+ =/ kept=imold-types:jibb

105+ (skim molds.iface.u.prepared |=(m=[name=term template=ischeme:jibb] !=(%list name.m)))

106+ [iface.u.prepared(molds kept) values.u.prepared molds.u.prepared]

107+ =/ cases=(list [label=@t at=path src=@t boundary=@t prepared=iprelude:jibb])

108+ :~ ['wrong result constructor' at (snag 0 negatives) definitions u.prepared]

109+ ['inconsistent model' at (snag 1 negatives) definitions u.prepared]

110+ ['inconsistent message' at (snag 2 negatives) definitions u.prepared]

111+ ['malformed sample' at (snag 3 negatives) definitions u.prepared]

112+ ['non-two-slot sample' at (snag 4 negatives) definitions u.prepared]

113+ ['non-main same source' at (snag 5 negatives) definitions u.prepared]

114+ ['unrelated pending tag' at (snag 6 negatives) definitions u.prepared]

115+ ['missing canonical cmd' at island definitions without-cmd]

116+ ['missing canonical list' at (snag 7 negatives) definitions without-list]

117+ :- 'API path'

118+ [/ui/api/program-update/jibb island 'module kind needs unsupported inference: /ui/api/program-update/jibb' u.prepared]

119+ :- 'store path'

120+ [/ui/stores/program-update/jibb island 'module kind needs unsupported inference: /ui/stores/program-update/jibb' u.prepared]

121+ ==

122+ %+ weld

123+ (program-update-positive at island downstream u.prepared)

124+ (program-update-negative-cases cases)

125+::

126+++ test-program-update

127+ ^- tang

128+ =/ negatives=(list @t)

129+ :~ (text wrong-result)

130+ (text wrong-model)

131+ (text wrong-message)

132+ (text malformed-sample)

133+ (text three-slot-sample)

134+ (text non-main)

135+ (text unrelated-tag)

136+ (text missing-list)

137+ ==

138+ (turn (program-update-errors prelude internal (text source) (text consumer) negatives) |=(reason=tape leaf+reason))

139+--

tests/lib/jibb-program-watch.hoonnew file+209

@@ -0,0 +1,209 @@

1+:: Direct request-value watchability for a synthetic program over the real todo API.

2+/+ jibb, jibb-import

3+/* prelude %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* sur %txt /tests/type-api-paths/todo-sur/txt

6+/* action %txt /tests/type-api-paths/todo-action/txt

7+/* todos %txt /tests/type-api-paths/todos/txt

8+/* update %txt /tests/type-api-paths/todo-update/txt

9+/* item %txt /tests/type-api-paths/todo-item/txt

10+/* api %txt /tests/type-api-paths/api/txt

11+|%

12+++ text

13+ |= lines=wain

14+ ^- @t

15+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

16+::

17+++ program-watch-prepared

18+ |= [public=@t private=@t]

19+ ^- (unit iprelude:jibb)

20+ (prepare-prelude-with-internal:jibb public private)

21+::

22+++ program-watch-detailed

23+ |= [at=path src=@t externals=iexternals:jibb marks=imark-externals:jibb modules=jbundle:jibb prepared=iprelude:jibb]

24+ ^- jfile-detailed-result:jibb

25+ (infer-jibb-file-detailed:jibb at src externals marks modules ~[at] values.prepared molds.prepared ~ `iface.prepared)

26+::

27+++ program-watch-source

28+ |= [extra=@t subscriptions=@t]

29+ ^- @t

30+ %+ rap 3

31+ :~ '/= api /ui/api/todo\0a'

32+ '+$ model [count=@ud]\0a'

33+ '+$ msg\0a [%got todos=(list item.api)]\0a [%one item=todo-item.api]\0a %other\0a'

34+ extra

35+ '++ main (program init update view subs)\0a'

36+ '++ init |= input=@t ^- model [count=0]\0a'

37+ '++ update |= [m=msg state=model]\0a ^- [model (list (cmd msg))] [state ~]\0a'

38+ '++ view |= state=model ^- (element msg) (text "view")\0a'

39+ subscriptions

40+ ==

41+::

42+++ program-watch-agent-source

43+ ^- @t

44+ %+ rap 3

45+ :~ '/= api /ui/api/todo\0a'

46+ '+$ model [count=@ud]\0a'

47+ '++ receive |= input=[mark=@tas state=(unit *) fact=*]\0a ^- [state=* message=@t] [state=0 message="ok"]\0a'

48+ '++ request-path ^- path ~[%todos]\0a'

49+ '++ request ^- (ask @t)\0a [%agent api="/ui/api/todo" case=%todos agent=%todo path=request-path scry=~ receive=receive]\0a'

50+ '++ main (program init update view subs)\0a'

51+ '++ init |= input=@t ^- model [count=0]\0a'

52+ '++ update |= [m=@t state=model]\0a ^- [model (list (cmd @t))] [state ~]\0a'

53+ '++ view |= state=model ^- (element @t) (text "ok")\0a'

54+ '++ subs |= state=model\0a ^- (list (sub @t))\0a ~[[%watch request]]\0a'

55+ ==

56+::

57+++ program-watch-errors

58+ |= [public=@t private=@t sur=@t action=@t todos=@t update=@t item=@t api=@t]

59+ ^- (list tape)

60+ =/ prepared=(unit iprelude:jibb) (program-watch-prepared public private)

61+ ?~ prepared ~["synthetic program prelude did not prepare"]

62+ =/ todo=type -:(ride -:!>(..zuse) sur)

63+ =/ subject=type [%cell [%face %todo todo] -:!>(..zuse)]

64+ =/ ma=* (read-mark:jibb-import %todo-action -:(ride subject action))

65+ =/ mt=* (read-mark:jibb-import %todos -:(ride subject todos))

66+ =/ mu=* (read-mark:jibb-import %todo-update -:(ride subject update))

67+ =/ mi=* (read-mark:jibb-import %todo-item -:(ride subject item))

68+ =/ marks=imark-externals:jibb ~[[%todo-action ma] [%todos mt] [%todo-update mu] [%todo-item mi]]

69+ =/ item-input=* (read-named:jibb-import %todo %item todo)

70+ =/ externals=iexternals:jibb ~[[%todo %item item-input]]

71+ =/ api-at=path /ui/api/todo/jibb

72+ =/ api-result=jfile-detailed-result:jibb

73+ (program-watch-detailed api-at api externals marks ~ u.prepared)

74+ ?: ?=(%| -.api-result) ~["real todo API did not check"]

75+ =/ api-iface=ifile:jibb iface.p.api-result

76+ ?~ graph.api-iface ~["real todo API evidence is missing"]

77+ =/ direct-subs=@t '++ subs |= state=model\0a ^- (list (sub msg))\0a ~[[%watch (todos.api |=%got)]]\0a'

78+ =/ island=@t (program-watch-source '' direct-subs)

79+ =/ at=path /tests/program-watch/island/jibb

80+ =/ modules=jbundle:jibb ~[[api-at api]]

81+ =/ detailed=jfile-detailed-result:jibb

82+ (program-watch-detailed at island externals marks modules u.prepared)

83+ ?: ?=(%| -.detailed) ~[(weld "direct request watch was rejected: " (trip message.p.detailed))]

84+ =/ checked=ifile:jibb iface.p.detailed

85+ ?~ graph.checked ~["program request graph evidence is missing"]

86+ =/ legacy=jfile-result:jibb

87+ (infer-jibb-file:jibb at island externals marks modules ~[at] values.u.prepared molds.u.prepared ~ `iface.u.prepared)

88+ ?: ?=(%| -.legacy) ~["legacy adapter rejected a direct request watch"]

89+ ?. =(values.checked values.iface.p.legacy) ~["structured and legacy interface values differ"]

90+ =/ subs=(unit ischeme:jibb) (ienv-lookup:jibb %subs values.checked)

91+ =/ main=(unit ischeme:jibb) (ienv-lookup:jibb %main values.checked)

92+ ?~ subs ~["subs interface is missing"]

93+ ?~ main ~["main interface is missing"]

94+ ?. &(?=(~ vars.u.subs) ?=(~ (itype-vars:jibb typ.u.subs))) ~["subs interface is not closed"]

95+ =/ subs-fields=(list itype:jibb) (record-fields-named:jibb %subs typ.u.main ~)

96+ ?. ?=([* ~] subs-fields) ~["closed program does not have one subs field"]

97+ =/ model=(unit ischeme:jibb) (find-jibb-mold:jibb %model checked)

98+ =/ msg=(unit ischeme:jibb) (find-jibb-mold:jibb %msg checked)

99+ =/ list-template=(unit ischeme:jibb) (find-jibb-mold:jibb %list iface.u.prepared)

100+ =/ sub=(unit ischeme:jibb) (find-jibb-mold:jibb %sub iface.u.prepared)

101+ ?~ model ~["model mold is missing"]

102+ ?~ msg ~["message mold is missing"]

103+ ?~ list-template ~["list mold is missing"]

104+ ?~ sub ~["sub mold is missing"]

105+ =/ message-sub=(unit itype:jibb) (template-apply:jibb u.sub ~[typ.u.msg])

106+ ?~ message-sub ~["message subscription type did not instantiate"]

107+ =/ subs-result=(unit itype:jibb) (template-apply:jibb u.list-template ~[u.message-sub])

108+ ?~ subs-result ~["subscription list type did not instantiate"]

109+ =/ expected-subs=itype:jibb [%fn typ.u.model u.subs-result]

110+ ?. =(typ.u.subs expected-subs) ~["subs interface has the wrong exact type"]

111+ ?. =((lent requests.u.graph.checked) (lent requests.u.graph.api-iface)) ~["merged API evidence count differs"]

112+ ?. (levy requests.u.graph.checked |=(r=irequest-evidence:jibb (lien requests.u.graph.api-iface |=(a=irequest-evidence:jibb =(r a))))) ~["merged API evidence differs"]

113+ =/ matching=(list irequest-evidence:jibb)

114+ (skim requests.u.graph.checked |=(r=irequest-evidence:jibb &(=(api-at.r api-at) =(%todos name.r))))

115+ ?. ?=([* ~] matching) ~["direct todos evidence is not unique"]

116+ =/ evidence=irequest-evidence:jibb i.matching

117+ ?. =(api-source.evidence api) ~["request evidence does not retain the exact API source"]

118+ ?. &(?=(~ scry.path.path.evidence) ?=(~ diffs.path.evidence) ?=(~ diffs.path.path.evidence))

119+ ~["plain todos evidence acquired scry or diffs"]

120+ ?: (lien segments.path.path.evidence |=(p=pseg:jibb !?=(%knot -.p))) ~["plain todos evidence acquired parameters"]

121+ =/ consumer-at=path /tests/program-watch/consumer/jibb

122+ =/ consumer=@t '/= island-prog /tests/program-watch/island\0a++ imported subs.island-prog\0a'

123+ =/ imported=jfile-detailed-result:jibb

124+ (program-watch-detailed consumer-at consumer externals marks [[at island] modules] u.prepared)

125+ ?: ?=(%| -.imported) ~["downstream program import was rejected"]

126+ =/ imported-subs=(unit ischeme:jibb) (ienv-lookup:jibb %imported values.iface.p.imported)

127+ ?~ imported-subs ~["downstream imported subs is missing"]

128+ =/ expected-import=itype:jibb (itype-in-import:jibb typ.u.subs checked %island-prog `iface.u.prepared)

129+ ?. &(?=(~ vars.u.imported-subs) =(typ.u.imported-subs expected-import)) ~["downstream imported subs type differs"]

130+ =/ parsed (parse:jibb at island)

131+ ?: ?=(%| -.parsed) ~["program source no longer parses"]

132+ =/ main-def=(unit def:jibb) (program-main-def:jibb defs.p.parsed)

133+ ?~ main-def ~["program main definition is missing"]

134+ =/ parts (program-main-parts:jibb u.main-def)

135+ ?~ parts ~["program main parts are missing"]

136+ =/ resolved=ijimports:jibb ~[[%api api-iface]]

137+ =/ others=(list irequest-evidence:jibb)

138+ (skim requests.u.graph.checked |=(r=irequest-evidence:jibb !&(=(api-at.r api-at) =(%todos name.r))))

139+ =/ missing=irequest-graph:jibb u.graph.checked(requests others)

140+ =/ mismatch=irequest-graph:jibb u.graph.checked(requests [evidence(api-source 'mismatched') others])

141+ =/ scry=irequest-graph:jibb u.graph.checked(requests [evidence(scry.path.path `~[[%knot ~.peek]]) others])

142+ =/ ambiguous=irequest-graph:jibb u.graph.checked(requests [evidence requests.u.graph.checked])

143+ =/ evidence-cases=(list [label=tape graph=irequest-graph:jibb])

144+ :~ ["missing evidence" missing]

145+ ["API-source mismatch" mismatch]

146+ ["scry declaration evidence" scry]

147+ ["ambiguous evidence" ambiguous]

148+ ==

149+ =/ evidence-failures=(list tape)

150+ %+ murn evidence-cases

151+ |= c=[label=tape graph=irequest-graph:jibb]

152+ ?: (program-main-closed:jibb u.parts defs.p.parsed values.checked `iface.u.prepared resolved graph.c)

153+ `label.c

154+ ~

155+ ?^ evidence-failures ~[(weld "bad evidence passed watchability: " i.evidence-failures)]

156+ =/ ordinary-values=ienv:jibb

157+ (skim values.api-iface |=(entry=[name=term scheme=ischeme:jibb] !=(%todos name.entry)))

158+ =/ forged=ifile:jibb

159+ api-iface(values [[%todos [[%fn [%atom %t] [%atom %t]] ~]] ordinary-values])

160+ ?: (program-main-closed:jibb u.parts defs.p.parsed values.checked `iface.u.prepared ~[[%api forged]] u.graph.checked)

161+ ~["same-named non-derived member passed watchability"]

162+ =/ detached=ifile:jibb api-iface(graph `u.graph.api-iface(requests ~))

163+ ?: (program-main-closed:jibb u.parts defs.p.parsed values.checked `iface.u.prepared ~[[%api detached]] u.graph.checked)

164+ ~["evidence outside the selected interface passed watchability"]

165+ =/ incoherent=irequest-evidence:jibb evidence(name.path.path %other)

166+ =/ api-others=(list irequest-evidence:jibb)

167+ (skim requests.u.graph.api-iface |=(r=irequest-evidence:jibb !&(=(api-at.r api-at) =(%todos name.r))))

168+ =/ incoherent-api=ifile:jibb api-iface(graph `u.graph.api-iface(requests [incoherent api-others]))

169+ =/ incoherent-graph=irequest-graph:jibb u.graph.checked(requests [incoherent others])

170+ ?: (program-main-closed:jibb u.parts defs.p.parsed values.checked `iface.u.prepared ~[[%api incoherent-api]] incoherent-graph)

171+ ~["inconsistent request case names passed watchability"]

172+ =/ kind-error=@t (crip "module kind needs unsupported inference: {(spud at)}")

173+ =/ negatives=(list [label=tape src=@t])

174+ :~ :- "pure watch"

175+ (program-watch-source '' '++ subs |= state=model\0a ^- (list (sub msg))\0a ~[[%watch (pure %other)]]\0a')

176+ :- "correctly typed hand-built agent"

177+ program-watch-agent-source

178+ :- "request helper"

179+ (program-watch-source '++ request ^- (ask msg) (todos.api |=%got)\0a' '++ subs |= state=model\0a ^- (list (sub msg))\0a ~[[%watch request]]\0a')

180+ :- "request alias"

181+ (program-watch-source '++ request todos.api\0a' '++ subs |= state=model\0a ^- (list (sub msg))\0a ~[[%watch (request |=%got)]]\0a')

182+ :- "parameterized todo-by-id"

183+ (program-watch-source '' '++ subs |= state=model\0a ^- (list (sub msg))\0a ~[[%watch (todo-by-id.api 1 |=%one)]]\0a')

184+ :- "diff changes"

185+ (program-watch-source '++ fold |= [d=[%todo-update todo-update.api] s=todos.api] s\0a' '++ subs |= state=model\0a ^- (list (sub msg))\0a ~[[%watch (changes.api |=%got fold)]]\0a')

186+ :- "multi-item subscriptions"

187+ (program-watch-source '++ first ^- (sub msg) [%watch (todos.api |=%got)]\0a++ second ^- (sub msg) [%watch (pure %other)]\0a' '++ subs |= state=model\0a ^- (list (sub msg))\0a ~[first second]\0a')

188+ ==

189+ %+ weld (turn evidence-failures |=(reason=tape reason))

190+ %+ murn negatives

191+ |= c=[label=tape src=@t]

192+ =/ bad=jfile-detailed-result:jibb

193+ (program-watch-detailed at src.c externals marks modules u.prepared)

194+ ?: ?=(%& -.bad) `[(weld label.c ": accepted")]

195+ ?. =(message.p.bad kind-error) `[(weld label.c ": did not reach watchability")]

196+ ~

197+::

198+++ test-program-watch

199+ ^- tang

200+ ?~ sur ~[leaf+"program-watch fixture sur is missing"]

201+ ?~ action ~[leaf+"program-watch fixture action is missing"]

202+ ?~ todos ~[leaf+"program-watch fixture todos is missing"]

203+ ?~ update ~[leaf+"program-watch fixture update is missing"]

204+ ?~ item ~[leaf+"program-watch fixture item is missing"]

205+ ?~ api ~[leaf+"program-watch fixture api is missing"]

206+ =/ failures=(list tape)

207+ (program-watch-errors prelude internal (text sur) (text action) (text todos) (text update) (text item) (text api))

208+ (turn failures |=(reason=tape leaf+reason))

209+--

tests/lib/jibb-request-guards.hoonnew file+149

@@ -0,0 +1,149 @@

1+:: Source-backed request certificate and cache boundary checks.

2+/+ jibb

3+/* public %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+|%

6+++ request-guard-report

7+ ^- @t

8+ =/ prelude=@t public

9+ =/ src=@t '/% %full\0a+$ paths [%plain /plain full]\0a'

10+ =/ left=@t '/= api /ui/api/demo\0a++ left |= reply=$-(@t A) (plain.api reply)\0a'

11+ =/ right=@t '/= api /ui/api/demo\0a++ right |= reply=$-(@t A) (plain.api reply)\0a'

12+ =/ diamond=@t '/= left /lib/left\0a/= right /lib/right\0a++ cord (left.left |=(x=@t "ok"))\0a++ ship (right.right |=(x=@t ~zod))\0a'

13+ =/ reverse=@t '/= right /lib/right\0a/= left /lib/left\0a++ ship (right.right |=(x=@t ~zod))\0a++ cord (left.left |=(x=@t "ok"))\0a'

14+ =/ other=@t '/= api /ui/api/other\0a++ other |= reply=$-(@t A) (plain.api reply)\0a'

15+ =/ twoapi=@t '/= left /lib/left\0a/= other /lib/other-helper\0a++ cord (left.left |=(x=@t "ok"))\0a++ ship (other.other |=(x=@t ~zod))\0a'

16+ =/ changed=@t '/% %full\0a+$ paths [%changed /changed full]\0a'

17+ =/ prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb prelude internal)

18+ ?~ prep 'prelude unavailable'

19+ =/ api=path /ui/api/demo/jibb

20+ =/ client=path /lib/client/jibb

21+ =/ left-at=path /lib/left/jibb

22+ =/ right-at=path /lib/right/jibb

23+ =/ marks=imark-externals:jibb ~[[%full [%& [%atom %t ~]]]]

24+ =/ bundle=jbundle:jibb ~[[api src] [left-at left] [right-at right]]

25+ =/ pre=(unit ifile:jibb) `iface.u.prep

26+ =/ fresh (infer-jibb-file:jibb client diamond ~ marks bundle ~[client] values.u.prep molds.u.prep ~ pre)

27+ ?: ?=(%| -.fresh) (cat 3 'diamond failed: ' p.fresh)

28+ =/ left-iface=(unit ifile:jibb) (find-jibb-cache:jibb left-at cache.p.fresh)

29+ =/ right-iface=(unit ifile:jibb) (find-jibb-cache:jibb right-at cache.p.fresh)

30+ ?~ left-iface 'left interface missing'

31+ ?~ right-iface 'right interface missing'

32+ ?~ graph.u.left-iface 'left source graph missing'

33+ ?~ graph.u.right-iface 'right source graph missing'

34+ ?. ?=([* ~] requests.u.graph.u.left-iface) 'left source certificate missing'

35+ ?. ?=([* ~] requests.u.graph.u.right-iface) 'right source certificate missing'

36+ =/ detached=jcache:jibb ~[[left-at u.left-iface] [right-at u.right-iface]]

37+ =/ reused (infer-jibb-file:jibb client diamond ~ marks bundle ~[client] values.u.prep molds.u.prep detached pre)

38+ ?: ?=(%| -.reused) (cat 3 'detached helper certificates rejected: ' p.reused)

39+ ?~ graph.iface.p.reused 'diamond graph missing'

40+ ?. ?=([* ~] requests.u.graph.iface.p.reused) 'diamond request evidence missing or duplicated'

41+ =/ reversed (infer-jibb-file:jibb client reverse ~ marks bundle ~[client] values.u.prep molds.u.prep detached pre)

42+ ?: ?=(%| -.reversed) (cat 3 'reversed diamond rejected: ' p.reversed)

43+ ?~ graph.iface.p.reversed 'reversed diamond graph missing'

44+ ?. ?=([* ~] requests.u.graph.iface.p.reversed) 'reversed diamond duplicated request'

45+ =/ other-api=path /ui/api/other/jibb

46+ =/ other-at=path /lib/other-helper/jibb

47+ =/ multi-bundle=jbundle:jibb ~[[api src] [left-at left] [other-api src] [other-at other]]

48+ =/ multi (infer-jibb-file:jibb client twoapi ~ marks multi-bundle ~[client] values.u.prep molds.u.prep ~ pre)

49+ ?: ?=(%| -.multi) (cat 3 'different API paths failed: ' p.multi)

50+ ?~ graph.iface.p.multi 'different API graph missing'

51+ =/ all=(list irequest-evidence:jibb) requests.u.graph.iface.p.multi

52+ ?. =((lent all) 2) 'distinct API path requests were merged'

53+ ?. =((lent (skim all |=(r=irequest-evidence:jibb =(api-at.r api)))) 1) 'original API identity lost'

54+ ?. =((lent (skim all |=(r=irequest-evidence:jibb =(api-at.r other-api)))) 1) 'other API identity lost'

55+ =/ missing-api=jbundle:jibb ~[[left-at left] [right-at right]]

56+ =/ absent (infer-jibb-file:jibb client diamond ~ marks missing-api ~[client] values.u.prep molds.u.prep detached pre)

57+ ?: ?=(%& -.absent) 'missing certified API source accepted'

58+ =/ different-api=jbundle:jibb ~[[api changed] [left-at left] [right-at right]]

59+ =/ stale (infer-jibb-file:jibb client diamond ~ marks different-api ~[client] values.u.prep molds.u.prep detached pre)

60+ ?: ?=(%& -.stale) 'changed API source accepted'

61+ =/ duplicate-api=jbundle:jibb ~[[api src] [api src] [left-at left] [right-at right]]

62+ =/ duplicate (infer-jibb-file:jibb client diamond ~ marks duplicate-api ~[client] values.u.prep molds.u.prep detached pre)

63+ ?: ?=(%& -.duplicate) 'duplicate certified API sources accepted'

64+ =/ different-marks=imark-externals:jibb ~[[%full [%& [%atom %p ~]]]]

65+ =/ stale-mark (infer-jibb-file:jibb client diamond ~ different-marks bundle ~[client] values.u.prep molds.u.prep detached pre)

66+ ?: ?=(%& -.stale-mark) 'changed reader result accepted'

67+ =/ changed-public=@t (cat 3 prelude '\0a:: modified\0a')

68+ =/ public-prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb changed-public internal)

69+ ?~ public-prep 'comment-only prelude did not prepare'

70+ =/ stale-public (infer-jibb-file:jibb client diamond ~ marks bundle ~[client] values.u.public-prep molds.u.public-prep detached `iface.u.public-prep)

71+ ?: ?=(%& -.stale-public) 'changed public source accepted'

72+ =/ changed-internal=@t (cat 3 internal '\0a:: modified\0a')

73+ =/ internal-prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb prelude changed-internal)

74+ ?~ internal-prep 'comment-only internal did not prepare'

75+ =/ stale-internal (infer-jibb-file:jibb client diamond ~ marks bundle ~[client] values.u.internal-prep molds.u.internal-prep detached `iface.u.internal-prep)

76+ ?: ?=(%& -.stale-internal) 'changed internal source accepted'

77+ 'certificate controls passed'

78+++ request-legacy-report

79+ ^- @t

80+ =/ prelude=@t public

81+ =/ src=@t '/% %full\0a+$ paths [%plain /plain full]\0a'

82+ =/ helper=@t '/= api /ui/api/demo\0a++ fetch |= reply=$-(@t A) (plain.api reply)\0a'

83+ =/ transitive=@t '/= lib /lib/helper\0a++ cord (fetch.lib |=(x=@t "ok"))\0a++ ship (fetch.lib |=(x=@t ~zod))\0a'

84+ =/ prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb prelude internal)

85+ ?~ prep 'prelude unavailable'

86+ =/ api=path /ui/api/demo/jibb

87+ =/ client=path /lib/client/jibb

88+ =/ helper-at=path /lib/helper/jibb

89+ =/ marks=imark-externals:jibb ~[[%full [%& [%atom %t ~]]]]

90+ =/ bundle=jbundle:jibb ~[[api src] [helper-at helper]]

91+ =/ pre=(unit ifile:jibb) `iface.u.prep

92+ =/ simple=@t '++ value "old"\0a'

93+ =/ simple-root=@t '/= h /lib/helper\0a++ value value.h\0a'

94+ =/ simple-bundle=jbundle:jibb ~[[helper-at simple]]

95+ =/ simple-built (infer-jibb-file:jibb helper-at simple ~ marks simple-bundle ~[helper-at] values.u.prep molds.u.prep ~ pre)

96+ ?: ?=(%| -.simple-built) 'simple helper setup failed'

97+ =/ legacy=ifile:jibb iface.p.simple-built(graph ~)

98+ =/ old-cache=jcache:jibb ~[[helper-at legacy]]

99+ =/ rebuilt (infer-jibb-file:jibb client simple-root ~ marks simple-bundle ~[client] values.u.prep molds.u.prep old-cache pre)

100+ ?: ?=(%| -.rebuilt) (cat 3 'legacy simple rebuild failed: ' p.rebuilt)

101+ =/ simple-new=(unit ifile:jibb) (find-jibb-cache:jibb helper-at cache.p.rebuilt)

102+ ?~ simple-new 'rebuilt simple helper missing'

103+ ?~ graph.u.simple-new 'simple helper was not recertified'

104+ =/ upgraded (infer-jibb-file:jibb client transitive ~ marks bundle ~[client] values.u.prep molds.u.prep old-cache pre)

105+ ?: ?=(%| -.upgraded) (cat 3 'legacy changed helper failed: ' p.upgraded)

106+ =/ new=(unit ifile:jibb) (find-jibb-cache:jibb helper-at cache.p.upgraded)

107+ ?~ new 'rebuilt request helper missing'

108+ ?. =(source.u.new `helper) 'legacy helper source survived'

109+ ?~ graph.u.new 'request helper graph missing'

110+ ?. ?=([* ~] requests.u.graph.u.new) 'request helper evidence missing'

111+ =/ duplicated=jcache:jibb ~[[helper-at legacy] [helper-at legacy]]

112+ =/ duplicate-rebuilt (infer-jibb-file:jibb client simple-root ~ marks simple-bundle ~[client] values.u.prep molds.u.prep duplicated pre)

113+ ?: ?=(%| -.duplicate-rebuilt) 'duplicate legacy rebuild failed'

114+ =/ helper-entries (skim cache.p.duplicate-rebuilt |=(c=[at=path iface=ifile:jibb] =(at.c helper-at)))

115+ ?. ?=([* ~] helper-entries) 'duplicate stale helper entries remained'

116+ =/ api-iface=(unit ifile:jibb) (find-jibb-cache:jibb api cache.p.upgraded)

117+ ?~ api-iface 'rebuilt API interface missing'

118+ =/ legacy-api=ifile:jibb u.api-iface(graph ~)

119+ =/ both-stale=jcache:jibb ~[[helper-at legacy] [api legacy-api]]

120+ =/ child-rebuilt (infer-jibb-file:jibb client transitive ~ marks bundle ~[client] values.u.prep molds.u.prep both-stale pre)

121+ ?: ?=(%| -.child-rebuilt) 'transitive unknown child rebuild failed'

122+ =/ api-new=(unit ifile:jibb) (find-jibb-cache:jibb api cache.p.child-rebuilt)

123+ ?~ api-new 'rebuilt transitive API missing'

124+ ?~ graph.u.api-new 'rebuilt transitive API has no graph'

125+ ?. ?=([* ~] requests.u.graph.u.api-new) 'rebuilt transitive API request missing'

126+ =/ mismatched=ifile:jibb legacy(at /lib/other/jibb)

127+ =/ bad-cache=jcache:jibb ~[[helper-at mismatched]]

128+ =/ wrong (infer-jibb-file:jibb client transitive ~ marks bundle ~[client] values.u.prep molds.u.prep bad-cache pre)

129+ ?: ?=(%& -.wrong) 'cache key and interface path mismatch accepted'

130+ =/ old-client=@t '++ text-value "safe"\0a'

131+ =/ dep=@t '/= c /lib/client\0a++ value text-value.c\0a'

132+ =/ root=@t '/= h /lib/helper\0a++ x value.h\0a'

133+ =/ cycle-bundle=jbundle:jibb ~[[client old-client] [helper-at dep]]

134+ =/ cycle-legacy=ifile:jibb legacy(source `dep)

135+ =/ cycle-cache=jcache:jibb ~[[helper-at cycle-legacy]]

136+ =/ cycle (infer-jibb-file:jibb client root ~ marks cycle-bundle ~[client] values.u.prep molds.u.prep cycle-cache pre)

137+ ?: ?=(%& -.cycle) 'legacy ancestor cycle accepted'

138+ 'legacy cache controls passed'

139+++ request-guard-errors

140+ ^- (list tape)

141+ =/ result=@t request-guard-report

142+ ?. =(result 'certificate controls passed') ~[(trip result)]

143+ =/ legacy=@t request-legacy-report

144+ ?: =(legacy 'legacy cache controls passed') ~

145+ ~[(trip legacy)]

146+++ test-request-guard

147+ ^- tang

148+ (turn request-guard-errors |=(reason=tape leaf+reason))

149+--

tests/lib/jibb-sub-guards.hoonnew file+37

@@ -0,0 +1,37 @@

1+:: Source-backed sub retains the public ask and depends on its actual source.

2+/+ jibb

3+/* public %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+|%

6+++ sub-guard-errors

7+ ^- (list tape)

8+ =/ prep=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb public internal)

9+ ?~ prep ~["real prelude did not prepare"]

10+ ?~ (find-jibb-mold:jibb %sub iface.u.prep) ~["sub is unavailable in real prelude"]

11+ =/ intro=@t '/= internal /lib/jibb/internal\0a'

12+ =/ list-src=@t '+$ list |$ [A]\0a ~\0a [i=A t=(list A)]\0a'

13+ =/ unit-src=@t '+$ unit |$ [A]\0a ~\0a [~ u=A]\0a'

14+ =/ ask-src=@t '+$ ask |$ [M] (ask.internal M)\0a'

15+ =/ path-src=@t '+$ knot @ta\0a+$ path (list knot)\0a'

16+ =/ sub-src=@t '+$ sub |$ [M]\0a [%watch a=(ask M)]\0a [%every gap=@dr reply=$-(@da M)]\0a [%url reply=$-(path M)]\0a'

17+ =/ cases=(list [label=@t src=@t want=?])

18+ :~ ['minimal' (rap 3 ~[intro list-src unit-src ask-src path-src sub-src]) &]

19+ ['missing ask' (rap 3 ~[intro list-src unit-src path-src sub-src]) |]

20+ ['missing list' (rap 3 ~[intro unit-src ask-src path-src sub-src]) |]

21+ ['missing unit' (rap 3 ~[intro list-src ask-src path-src sub-src]) |]

22+ ['missing path' (rap 3 ~[intro list-src unit-src ask-src sub-src]) |]

23+ ['altered list' (rap 3 ~[intro '+$ list |$ [A] ~\0a' unit-src ask-src path-src sub-src]) |]

24+ ['valid alternate path' (rap 3 ~[intro list-src unit-src ask-src '+$ path @t\0a' sub-src]) &]

25+ ==

26+ =/ failures=(list @t)

27+ %+ turn cases

28+ |= c=[label=@t src=@t want=?]

29+ =/ p=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb src.c internal)

30+ =/ present=? ?~(p | ?=(^ (find-jibb-mold:jibb %sub iface.u.p)))

31+ ?: =(want.c present) ''

32+ (cat 3 label.c ': unexpected availability')

33+ (turn (skim failures |=(x=@t !=(x ''))) trip)

34+++ test-sub-guards

35+ ^- tang

36+ (turn sub-guard-errors |=(reason=tape leaf+reason))

37+--

tests/lib/jibb-todo-api.hoonnew file+85

@@ -0,0 +1,85 @@

1+:: The exact todo API reaches partial client inference through real /sur and mark readers.

2+/+ jibb, jibb-import

3+/* prelude %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* sur %txt /tests/type-api-paths/todo-sur/txt

6+/* action %txt /tests/type-api-paths/todo-action/txt

7+/* todos %txt /tests/type-api-paths/todos/txt

8+/* update %txt /tests/type-api-paths/todo-update/txt

9+/* item %txt /tests/type-api-paths/todo-item/txt

10+/* api %txt /tests/type-api-paths/api/txt

11+/* source %txt /tests/type-todo-api/source/txt

12+/* negative %txt /tests/type-todo-api/negative/txt

13+/* unsupported %txt /tests/type-todo-api/unsupported/txt

14+/* expected %txt /tests/type-todo-api/expected/txt

15+/* negative-expected %txt /tests/type-todo-api/negative-expected/txt

16+|%

17+++ text

18+ |= lines=wain

19+ ^- @t

20+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

21+++ todo-run

22+ |= [prelude=@t internal=@t sur=@t action=@t todos=@t update=@t item=@t api=@t source=@t negative=@t unsupported=@t]

23+ ^- [report=@t bad-report=@t guards=@t]

24+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb prelude internal)

25+ ?~ prepared ['prelude unavailable' 'prelude unavailable' 'prelude unavailable']

26+ =/ todo=type -:(ride -:!>(..zuse) sur)

27+ =/ subject=type [%cell [%face %todo todo] -:!>(..zuse)]

28+ =/ ma=* (read-mark:jibb-import %todo-action -:(ride subject action))

29+ =/ mt=* (read-mark:jibb-import %todos -:(ride subject todos))

30+ =/ mu=* (read-mark:jibb-import %todo-update -:(ride subject update))

31+ =/ mi=* (read-mark:jibb-import %todo-item -:(ride subject item))

32+ =/ mark-inputs=imark-externals:jibb ~[[%todo-action ma] [%todos mt] [%todo-update mu] [%todo-item mi]]

33+ =/ item-input=* (read-named:jibb-import %todo %item todo)

34+ =/ inputs=iexternals:jibb ~[[%todo %item item-input]]

35+ =/ modules=jbundle:jibb ~[[/ui/api/todo/jibb api]]

36+ =/ report=@t (golden-types-with-prepared-prelude:jibb /tests/type-todo-api/source/jibb source inputs mark-inputs modules prepared)

37+ =/ bad-report=@t (golden-types-with-prepared-prelude:jibb /tests/type-todo-api/negative/jibb negative inputs mark-inputs modules prepared)

38+ =/ guards=@t

39+ =/ out (infer-jibb-file:jibb /ui/api/todo/jibb api inputs mark-inputs ~ ~[/ui/api/todo/jibb] values.u.prepared molds.u.prepared ~ `iface.u.prepared)

40+ ?: ?=(%| -.out) (cat 3 'actual API failed: ' p.out)

41+ =/ iface=ifile:jibb iface.p.out

42+ ?. =(source.iface `api) 'actual API source changed'

43+ =/ names=(list term) (turn values.iface |=(x=[name=term scheme=ischeme:jibb] name.x))

44+ =/ required-values=(list term) ~[%todo-action %todos %changes %todo-by-id]

45+ ?. (levy required-values |=(x=term (lien names |=(y=term =(x y))))) 'derived value missing'

46+ =/ mnames=(list term) (turn molds.iface |=(x=[name=term template=ischeme:jibb] name.x))

47+ =/ required-molds=(list term) ~[%item %todo-action %todos %todo-update %todo-item]

48+ ?. (levy required-molds |=(x=term (lien mnames |=(y=term =(x y))))) 'expected mold export missing'

49+ ?: (lien mnames |=(x=term =(%todo x))) '/sur import face was re-exported'

50+ ?~ graph.iface 'API certificate missing'

51+ ?. =((lent requests.u.graph.iface) 3) 'request evidence count wrong'

52+ =/ missing-mark=imark-externals:jibb (skim mark-inputs |=(x=[mark=term result=*] !=(%todo-update mark.x)))

53+ =/ duplicate-mark=imark-externals:jibb [[%todo-action ma] mark-inputs]

54+ =/ duplicate-sur=iexternals:jibb [[%todo %item item-input] inputs]

55+ =/ cases=(list [label=@t src=@t externals=iexternals:jibb marks=imark-externals:jibb])

56+ :~ ['missing selected sur mold' api ~ mark-inputs]

57+ ['duplicate selected sur mold' api duplicate-sur mark-inputs]

58+ ['missing mark' api inputs missing-mark]

59+ ['duplicate mark' api inputs duplicate-mark]

60+ ['unsupported request sibling' unsupported inputs mark-inputs]

61+ ['unrelated invalid mold' (cat 3 api '\0a+$ invalid missing\0a') inputs mark-inputs]

62+ ['unrelated invalid value' (cat 3 api '\0a++ invalid missing\0a') inputs mark-inputs]

63+ ['private import' (cat 3 '/= secret /lib/jibb/internal\0a' api) inputs mark-inputs]

64+ ==

65+ =/ failures=(list @t)

66+ %+ turn cases

67+ |= c=[label=@t src=@t externals=iexternals:jibb marks=imark-externals:jibb]

68+ =/ bad (infer-jibb-file:jibb /ui/api/todo/jibb src.c externals.c marks.c ~ ~[/ui/api/todo/jibb] values.u.prepared molds.u.prepared ~ `iface.u.prepared)

69+ ?: ?=(%| -.bad) ''

70+ (cat 3 label.c ': unexpectedly published')

71+ =/ bad=(list @t) (skim failures |=(x=@t !=(x '')))

72+ ?~ bad 'real todo interface and atomic guards passed'

73+ (of-wain:format bad)

74+ [report bad-report guards]

75+++ test-todo-api

76+ ^- tang

77+ =/ out (todo-run prelude internal (text sur) (text action) (text todos) (text update) (text item) (text api) (text source) (text negative) (text unsupported))

78+ ?. =((to-wain:format (cat 3 report.out '\0a')) expected)

79+ ~[leaf+"todo API report differs from expected"]

80+ ?. =((to-wain:format (cat 3 bad-report.out '\0a')) negative-expected)

81+ ~[leaf+"todo API negative report differs from expected"]

82+ ?. =(guards.out 'real todo interface and atomic guards passed')

83+ ~[leaf+(trip guards.out)]

84+ ~

85+--

tests/lib/jibb-todo-full.hoonnew file+157

@@ -0,0 +1,157 @@

1+:: Full unchanged todo island through real readers, without UI execution.

2+/+ jibb, jibb-import

3+/* prelude %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* sur %txt /tests/type-api-paths/todo-sur/txt

6+/* action %txt /tests/type-api-paths/todo-action/txt

7+/* todos %txt /tests/type-api-paths/todos/txt

8+/* update %txt /tests/type-api-paths/todo-update/txt

9+/* item %txt /tests/type-api-paths/todo-item/txt

10+/* api %txt /tests/type-api-paths/api/txt

11+/* source %txt /tests/type-gate-free/todo/txt

12+/* wrong-model %txt /tests/type-todo-full/wrong-model/txt

13+/* wrong-message %txt /tests/type-todo-full/wrong-message/txt

14+/* wrong-result %txt /tests/type-todo-full/wrong-result/txt

15+/* ambiguous-mapper %txt /tests/type-todo-full/ambiguous-mapper/txt

16+/* open-key %txt /tests/type-todo-full/open-key/txt

17+/* alias %txt /tests/type-todo-full/alias/txt

18+/* wrong-watch %txt /tests/type-todo-full/wrong-watch/txt

19+/* non-gate-view %txt /tests/type-todo-full/non-gate-view/txt

20+/* expected %txt /tests/type-todo-full/expected/txt

21+|%

22+++ text

23+ |= lines=wain

24+ ^- @t

25+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

26+::

27+++ todo-full-detailed

28+ |= [at=path src=@t externals=iexternals:jibb marks=imark-externals:jibb modules=jbundle:jibb prepared=iprelude:jibb]

29+ ^- jfile-detailed-result:jibb

30+ (infer-jibb-file-detailed:jibb at src externals marks modules ~[at] values.prepared molds.prepared ~ `iface.prepared)

31+::

32+++ todo-full-reader-inputs

33+ |= [sur=@t action=@t todos=@t update=@t item=@t]

34+ ^- [marks=imark-externals:jibb externals=iexternals:jibb]

35+ =/ todo=type -:(ride -:!>(..zuse) sur)

36+ =/ subject=type [%cell [%face %todo todo] -:!>(..zuse)]

37+ =/ ma=* (read-mark:jibb-import %todo-action -:(ride subject action))

38+ =/ mt=* (read-mark:jibb-import %todos -:(ride subject todos))

39+ =/ mu=* (read-mark:jibb-import %todo-update -:(ride subject update))

40+ =/ mi=* (read-mark:jibb-import %todo-item -:(ride subject item))

41+ =/ marks=imark-externals:jibb ~[[%todo-action ma] [%todos mt] [%todo-update mu] [%todo-item mi]]

42+ =/ item-input=* (read-named:jibb-import %todo %item todo)

43+ [marks ~[[%todo %item item-input]]]

44+::

45+++ todo-full-report

46+ |= [public=@t private=@t sur=@t action=@t todos=@t update=@t item=@t api=@t src=@t]

47+ ^- @t

48+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb public private)

49+ ?~ prepared 'prelude unavailable'

50+ =/ inputs=[marks=imark-externals:jibb externals=iexternals:jibb]

51+ (todo-full-reader-inputs sur action todos update item)

52+ =/ marks=imark-externals:jibb marks.inputs

53+ =/ externals=iexternals:jibb externals.inputs

54+ =/ api-at=path /ui/api/todo/jibb

55+ =/ at=path /ui/todo-list/jibb

56+ =/ modules=jbundle:jibb ~[[api-at api]]

57+ =/ detailed=jfile-detailed-result:jibb

58+ (todo-full-detailed at src externals marks modules u.prepared)

59+ ?: ?=(%| -.detailed) (cat 3 'full todo rejected: ' message.p.detailed)

60+ =/ checked=ifile:jibb iface.p.detailed

61+ =/ main=(unit ischeme:jibb) (ienv-lookup:jibb %main values.checked)

62+ ?~ main 'full todo main missing'

63+ (cat 3 'full todo accepted\0a' (crip (show-itype:jibb typ.u.main ~)))

64+::

65+++ todo-full-legacy-report

66+ |= [public=@t private=@t sur=@t action=@t todos=@t update=@t item=@t api=@t src=@t]

67+ ^- @t

68+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb public private)

69+ ?~ prepared 'prelude unavailable'

70+ =/ inputs=[marks=imark-externals:jibb externals=iexternals:jibb]

71+ (todo-full-reader-inputs sur action todos update item)

72+ =/ marks=imark-externals:jibb marks.inputs

73+ =/ externals=iexternals:jibb externals.inputs

74+ =/ api-at=path /ui/api/todo/jibb

75+ =/ at=path /ui/todo-list/jibb

76+ =/ modules=jbundle:jibb ~[[api-at api]]

77+ =/ legacy=jfile-result:jibb

78+ (infer-jibb-file:jibb at src externals marks modules ~[at] values.u.prepared molds.u.prepared ~ `iface.u.prepared)

79+ ?: ?=(%| -.legacy) (cat 3 'legacy full todo rejected: ' p.legacy)

80+ =/ checked=ifile:jibb iface.p.legacy

81+ =/ main=(unit ischeme:jibb) (ienv-lookup:jibb %main values.checked)

82+ ?~ main 'legacy full todo main missing'

83+ (cat 3 'full todo accepted\0a' (crip (show-itype:jibb typ.u.main ~)))

84+::

85+++ todo-full-import-report

86+ |= [public=@t private=@t sur=@t action=@t todos=@t update=@t item=@t api=@t src=@t]

87+ ^- @t

88+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb public private)

89+ ?~ prepared 'prelude unavailable'

90+ =/ inputs=[marks=imark-externals:jibb externals=iexternals:jibb]

91+ (todo-full-reader-inputs sur action todos update item)

92+ =/ at=path /ui/todo-list/jibb

93+ =/ root=jfile-detailed-result:jibb

94+ (todo-full-detailed at src externals.inputs marks.inputs ~[[/ui/api/todo/jibb api]] u.prepared)

95+ ?: ?=(%| -.root) (cat 3 'full todo root rejected: ' message.p.root)

96+ =/ main=(unit ischeme:jibb) (ienv-lookup:jibb %main values.iface.p.root)

97+ ?~ main 'full todo root main missing'

98+ =/ consumer-at=path /tests/todo-full/consumer/jibb

99+ =/ consumer=@t '/= island-prog /ui/todo-list\0a++ imported main.island-prog\0a'

100+ =/ imported=jfile-detailed-result:jibb

101+ (todo-full-detailed consumer-at consumer externals.inputs marks.inputs ~[[at src] [/ui/api/todo/jibb api]] u.prepared)

102+ ?: ?=(%| -.imported) (cat 3 'downstream full todo import rejected: ' message.p.imported)

103+ =/ use=(unit ischeme:jibb) (ienv-lookup:jibb %imported values.iface.p.imported)

104+ ?~ use 'downstream imported main missing'

105+ =/ expected-import=itype:jibb

106+ (itype-in-import:jibb typ.u.main iface.p.root %island-prog `iface.u.prepared)

107+ ?. &(?=(~ vars.u.use) =(typ.u.use expected-import)) 'downstream main type differs'

108+ 'downstream import accepted'

109+::

110+++ todo-full-negative-report

111+ |= [public=@t private=@t sur=@t action=@t todos=@t update=@t item=@t api=@t label=@t src=@t]

112+ ^- @t

113+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb public private)

114+ ?~ prepared 'prelude unavailable'

115+ =/ inputs=[marks=imark-externals:jibb externals=iexternals:jibb]

116+ (todo-full-reader-inputs sur action todos update item)

117+ =/ at=path /ui/todo-list/jibb

118+ =/ structured=jfile-detailed-result:jibb

119+ (todo-full-detailed at src externals.inputs marks.inputs ~[[/ui/api/todo/jibb api]] u.prepared)

120+ ?: ?=(%& -.structured) (cat 3 label ': BAD accepted')

121+ (cat 3 label ': rejected')

122+::

123+++ test-todo-full

124+ ^- tang

125+ =/ report=@t

126+ (todo-full-report prelude internal (text sur) (text action) (text todos) (text update) (text item) (text api) (text source))

127+ ?. =((to-wain:format (cat 3 report '\0a')) expected)

128+ ~[leaf+"full todo report differs"]

129+ =/ legacy=@t

130+ (todo-full-legacy-report prelude internal (text sur) (text action) (text todos) (text update) (text item) (text api) (text source))

131+ ?. =((to-wain:format (cat 3 legacy '\0a')) expected)

132+ ~[leaf+"legacy full todo report differs"]

133+ =/ imported=@t

134+ (todo-full-import-report prelude internal (text sur) (text action) (text todos) (text update) (text item) (text api) (text source))

135+ ?. =(imported 'downstream import accepted')

136+ ~[leaf+"downstream full todo import differs"]

137+ =/ negatives=(list [label=@t src=@t])

138+ :~ ['wrong model' (text wrong-model)]

139+ ['wrong message' (text wrong-message)]

140+ ['wrong result' (text wrong-result)]

141+ ['ambiguous mapper' (text ambiguous-mapper)]

142+ ['open key' (text open-key)]

143+ ['mapper alias' (text alias)]

144+ ['wrong watch' (text wrong-watch)]

145+ ['non-gate view' (text non-gate-view)]

146+ ==

147+ =/ bad=(list @t)

148+ %+ murn negatives

149+ |= c=[label=@t src=@t]

150+ =/ expected=@t (cat 3 label.c ': rejected')

151+ =/ actual=@t

152+ (todo-full-negative-report prelude internal (text sur) (text action) (text todos) (text update) (text item) (text api) label.c src.c)

153+ ?. =(expected actual) `actual

154+ ~

155+ ?^ bad (turn bad |=(reason=@t leaf+(trip reason)))

156+ ~

157+--

tests/lib/jibb-todo-partial.hoonnew file+58

@@ -0,0 +1,58 @@

1+:: The exact todo island through real readers: partial reports only.

2+/+ jibb, jibb-import

3+/* prelude %jibb /lib/jibb/prelude/jibb

4+/* internal %jibb /lib/jibb/internal/jibb

5+/* sur %txt /tests/type-api-paths/todo-sur/txt

6+/* action %txt /tests/type-api-paths/todo-action/txt

7+/* todos %txt /tests/type-api-paths/todos/txt

8+/* update %txt /tests/type-api-paths/todo-update/txt

9+/* item %txt /tests/type-api-paths/todo-item/txt

10+/* api %txt /tests/type-api-paths/api/txt

11+/* source %txt /tests/type-gate-free/todo/txt

12+/* expected %txt /tests/type-todo-partial/expected/txt

13+|%

14+++ text

15+ |= lines=wain

16+ ^- @t

17+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

18+++ todo-island-report

19+ |= [public=@t private=@t sur-text=@t action-text=@t todos-text=@t update-text=@t item-text=@t api-text=@t source-text=@t]

20+ ^- @t

21+ =/ prepared=(unit iprelude:jibb) (prepare-prelude-with-internal:jibb public private)

22+ ?~ prepared 'prelude unavailable'

23+ =/ todo=type -:(ride -:!>(..zuse) sur-text)

24+ =/ subject=type [%cell [%face %todo todo] -:!>(..zuse)]

25+ =/ ma=* (read-mark:jibb-import %todo-action -:(ride subject action-text))

26+ =/ mt=* (read-mark:jibb-import %todos -:(ride subject todos-text))

27+ =/ mu=* (read-mark:jibb-import %todo-update -:(ride subject update-text))

28+ =/ mi=* (read-mark:jibb-import %todo-item -:(ride subject item-text))

29+ =/ marks=imark-externals:jibb ~[[%todo-action ma] [%todos mt] [%todo-update mu] [%todo-item mi]]

30+ =/ item-input=* (read-named:jibb-import %todo %item todo)

31+ =/ inputs=iexternals:jibb ~[[%todo %item item-input]]

32+ =/ modules=jbundle:jibb ~[[/ui/api/todo/jibb api-text]]

33+ =/ at=path /ui/todo-list/jibb

34+ =/ normal=@t (golden-types-with-prepared-prelude:jibb at source-text inputs marks modules prepared)

35+ =/ missing-mark=imark-externals:jibb (skim marks |=(x=[mark=term result=*] !=(%todo-update mark.x)))

36+ =/ duplicate-mark=imark-externals:jibb [[%todo-action ma] marks]

37+ =/ negative=(list [label=@t externals=iexternals:jibb marks=imark-externals:jibb])

38+ :~ ['missing-mark' inputs missing-mark]

39+ ['duplicate-mark' inputs duplicate-mark]

40+ ['missing-selected-sur' ~ marks]

41+ ==

42+ =/ failures=(list @t)

43+ %+ turn negative

44+ |= c=[label=@t externals=iexternals:jibb marks=imark-externals:jibb]

45+ =/ bad (infer-jibb-file:jibb /ui/api/todo/jibb api-text externals.c marks.c ~ ~[/ui/api/todo/jibb] values.u.prepared molds.u.prepared ~ `iface.u.prepared)

46+ ?: ?=(%| -.bad) (cat 3 label.c ': rejected')

47+ (cat 3 label.c ': BAD accepted')

48+ =/ missing-module=@t (golden-types-with-prepared-prelude:jibb at source-text inputs marks ~ prepared)

49+ (of-wain:format (weld ~['unchanged todo: partial inference only' normal 'negative API imports'] (weld failures ~['missing module: partial report' missing-module])))

50+++ test-todo-partial

51+ ^- tang

52+ ?~ source ~[leaf+"todo source fixture is missing"]

53+ ?~ expected ~[leaf+"todo partial report is missing"]

54+ =/ report=@t (todo-island-report prelude internal (text sur) (text action) (text todos) (text update) (text item) (text api) (text source))

55+ ?. =((to-wain:format (cat 3 report '\0a')) expected)

56+ ~[leaf+"unchanged todo partial report differs from its golden"]

57+ ~

58+--

tests/lib/jibb-union-alias-overlap.hoonnew file+107

@@ -0,0 +1,107 @@

1+:: Source-backed alias overlap diagnostics, without a full module claim.

2+/+ jibb

3+/* positive %txt /tests/type-union-alias-overlap/positive/txt

4+/* negative %txt /tests/type-union-alias-overlap/negative/txt

5+/* nonzero %txt /tests/type-union-alias-overlap/nonzero/txt

6+/* multi %txt /tests/type-union-alias-overlap/multi/txt

7+/* opaque %txt /tests/type-union-alias-overlap/opaque/txt

8+/* wrong %txt /tests/type-union-alias-overlap/wrong/txt

9+/* duplicate %txt /tests/type-union-alias-overlap/duplicate/txt

10+/* qualified %txt /tests/type-union-alias-overlap/qualified/txt

11+/* flag-source %txt /tests/type-union-alias-overlap/flag-source/txt

12+/* expected %txt /tests/type-union-alias-overlap/expected/txt

13+|%

14+++ checks

15+ |= [positive=@t negative=@t nonzero=@t multi=@t opaque=@t wrong=@t duplicate=@t qualified=@t flag-source=@t]

16+ ^- (list [@t ?])

17+ =/ project

18+ |= [source=@t name=term]

19+ ^- (unit [cases=(list shape:jibb) molds=imolds:jibb])

20+ =/ parsed (parse:jibb /tests/overlap/jibb source)

21+ ?: ?=(%| -.parsed) ~

22+ =/ molds=imolds:jibb (collect-simple-molds:jibb defs.p.parsed)

23+ =/ found=(unit shape:jibb) (find-simple-mold:jibb name molds)

24+ ?~ found ~

25+ =/ sh=shape:jibb u.found

26+ =? sh ?=(%generic -.sh) body.sh

27+ ?. ?=(%union -.sh) ~

28+ `[cases.sh molds]

29+ =/ a (project positive %same)

30+ =/ z (project positive %same-zero)

31+ =/ d (project negative %distinct-head)

32+ =/ c (project negative %distinct-constant)

33+ =/ e (project negative %empty-payload)

34+ =/ g (project negative %generic)

35+ =/ x (project negative %unknown-name)

36+ =/ nz (project nonzero %same)

37+ =/ m (project multi %choice)

38+ =/ o (project opaque %choice)

39+ =/ w (project wrong %bad)

40+ =/ dup (project duplicate %choice)

41+ =/ q (project qualified %choice)

42+ =/ fz (project flag-source %flag-zero)

43+ =/ fn (project flag-source %flag-nonzero)

44+ ?~ a ~[['BAD same parse' |]]

45+ ?~ z ~[['BAD zero parse' |]]

46+ ?~ d ~[['BAD distinct parse' |]]

47+ ?~ c ~[['BAD constants parse' |]]

48+ ?~ e ~[['BAD empty parse' |]]

49+ ?~ g ~[['BAD generic parse' |]]

50+ ?~ x ~[['BAD reference parse' |]]

51+ ?~ nz ~[['BAD nonzero parse' |]]

52+ ?~ m ~[['BAD multi parse' |]]

53+ ?~ o ~[['BAD opaque parse' |]]

54+ ?~ w ~[['BAD wrong arity parse' |]]

55+ ?~ dup ~[['BAD duplicate parse' |]]

56+ ?~ q ~[['BAD qualified parse' |]]

57+ ?~ fz ~[['BAD flag-zero parse' |]]

58+ ?~ fn ~[['BAD flag-nonzero parse' |]]

59+ ?~ cases.u.a ~[['BAD same cases' |]]

60+ ?~ t.cases.u.a ~[['BAD second same case' |]]

61+ =/ same=(unit upair:jibb) (union-source-overlap:jibb cases.u.a molds.u.a 256)

62+ =/ zero=(unit upair:jibb) (union-source-overlap:jibb cases.u.z molds.u.z 256)

63+ =/ report=wain (to-wain:format (golden-types-in-context:jibb /tests/overlap/jibb positive ~ ~ ~ ~ ~ ~))

64+ =/ failed=jfile-result:jibb (infer-jibb-file:jibb /tests/overlap/jibb positive ~ ~ ~ ~[/tests/overlap/jibb] ~ ~ ~ ~)

65+ =/ nonzero-report=wain (to-wain:format (golden-types-in-context:jibb /tests/overlap/jibb nonzero ~ ~ ~ ~ ~ ~))

66+ :~ ['same head and inhabited payload overlap' ?=(^ same)]

67+ ['zero spelling overlap' ?=(^ zero)]

68+ ['original same-case spans retained' ?~(same | &(=(first.u.same at.i.cases.u.a) =(second.u.same at.i.t.cases.u.a)))]

69+ ['partial report displays same overlap' (lien report |=(line=@t =(line '+$ same: overlapping cases; mold not checked')))]

70+ ['partial report displays zero overlap' (lien report |=(line=@t =(line '+$ same-zero: overlapping cases; mold not checked')))]

71+ ['distinct heads do not overlap' ?=(~ (union-source-overlap:jibb cases.u.d molds.u.d 256))]

72+ ['distinct singleton payloads do not overlap' ?=(~ (union-source-overlap:jibb cases.u.c molds.u.c 256))]

73+ ['empty payload has no witness' ?=(~ (union-source-overlap:jibb cases.u.e molds.u.e 256))]

74+ ['outer variable has no witness' ?=(~ (union-source-overlap:jibb cases.u.g molds.u.g 256))]

75+ ['unresolved reference has no witness' ?=(~ (union-source-overlap:jibb cases.u.x molds.u.x 256))]

76+ ['equal nonzero singleton payload overlaps' ?=(^ (union-source-overlap:jibb cases.u.nz molds.u.nz 256))]

77+ ['nonzero overlap reported' (lien nonzero-report |=(line=@t =(line '+$ same: overlapping cases; mold not checked')))]

78+ ['late pair in three cases overlaps' ?=(^ (union-source-overlap:jibb cases.u.m molds.u.m 256))]

79+ ['opaque gate payload declines' ?=(~ (union-source-overlap:jibb cases.u.o molds.u.o 256))]

80+ ['wrong alias arity declines' ?=(~ (union-source-overlap:jibb cases.u.w molds.u.w 256))]

81+ ['full module remains rejected' ?=(%| -.failed)]

82+ ['first source excerpt retained' (lien report |=(line=@t =(line '/tests/overlap.jibb:3:3: first union case')))]

83+ ['second source excerpt retained' (lien report |=(line=@t =(line '/tests/overlap.jibb:4:3: overlapping case')))]

84+ ['flag and zero payload overlap' ?=(^ (union-source-overlap:jibb cases.u.fz molds.u.fz 256))]

85+ ['flag and nonzero payload decline' ?=(~ (union-source-overlap:jibb cases.u.fn molds.u.fn 256))]

86+ ['duplicate owner declines' ?=(~ (union-source-overlap:jibb cases.u.dup molds.u.dup 256))]

87+ ['qualified owner declines' ?=(~ (union-source-overlap:jibb cases.u.q molds.u.q 256))]

88+ ['20 proof fuel succeeds' ?=(^ (union-source-overlap:jibb cases.u.a molds.u.a 20))]

89+ ['19 proof fuel declines' ?=(~ (union-source-overlap:jibb cases.u.a molds.u.a 19))]

90+ ['zero proof fuel declines' ?=(~ (union-source-overlap:jibb cases.u.a molds.u.a 0))]

91+ ==

92+++ overlap-output

93+ |= [positive=@t negative=@t nonzero=@t multi=@t opaque=@t wrong=@t duplicate=@t qualified=@t flag-source=@t]

94+ ^- @t

95+ =/ result=(list [@t ?]) (checks positive negative nonzero multi opaque wrong duplicate qualified flag-source)

96+ (of-wain:format (turn result |=(entry=[@t ?] (crip "{(trip -.entry)}: {?:(+.entry "ok" "BAD")}"))))

97+++ text

98+ |= lines=wain

99+ ^- @t

100+ (rap 3 (turn lines |=(line=@t (cat 3 line '\0a'))))

101+++ test-union-alias-overlap

102+ ^- tang

103+ ?~ expected ~[leaf+"expected output missing"]

104+ =/ actual=@t (overlap-output (text positive) (text negative) (text nonzero) (text multi) (text opaque) (text wrong) (text duplicate) (text qualified) (text flag-source))

105+ ?. =((to-wain:format (cat 3 actual '\0a')) expected) ~[leaf+"generic union overlap output differs"]

106+ ~

107+--

tests/lib/jibb-union-source.hoonnew file+152