tricu

An interpreted language for exploring Tree Calculus
Log | Files | Refs | README | LICENSE

unwrap.scp (373B)


      1 !export unwrap
      2 -- Turn an optional value into a value or a literal fallback string.
      3 -- Input: leaf for absent, stem value for present; state: ignored.
      4 -- Returns "missing" for leaf and value for stem value, even when value is
      5 -- itself leaf. Other input shapes have no matching rule (worker failure).
      6 consumer unwrap
      7   leaf       @ _ => "missing"
      8   stem value @ _ => value