tricu

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

caller.scp (529B)

      1 consumer entry
      2   input @ retained => (2, ("service", (input, (retained, ("resume", retained)))))
      3 consumer resume
      4   (stem leaf, (value, _)) @ retained => (1, ("Echo", ((value, retained), ("after", retained))))
      5   (leaf, (problem, metadata)) @ _ => (0, (leaf, (problem, metadata)))
      6 consumer after
      7   (stem leaf, (value, _)) @ retained => (0, (stem leaf, (("caller", (value, retained)), leaf)))
      8   (leaf, (problem, metadata)) @ _ => (0, (leaf, (problem, metadata)))
      9 consumer secret
     10   _ @ _ => (0, (stem leaf, ("caller-secret", leaf)))