tricu

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

consumer_differential_bundle_run.tri (678B)

      1 -- Independently packed lexical executable and inspectable authored IR sidecar.
      2 !import "source.module" !Local
      3 !import "io" !Local
      4 !import "prelude" !Local
      5 root = "__ROOT__"
      6 main = io (onResult_ (sourceModuleLoadSelected root "lexicalBase" "workLexConsumer")
      7   (problem : putStrLn (append "load-lexical-error=" problem))
      8   (run : onResult_ (sourceModuleLoadSelected root "lexicalBase" "mapProgram")
      9     (problem : putStrLn (append "load-authored-error=" problem))
     10     (source : putStrLn (matchBool "consumer-differential-bundle-ok"
     11       "consumer-differential-bundle-DIFFER" (and?
     12         (equal? (run [1 2 3]) [[1] [2] [3]])
     13         (equal? (length (snd source)) 2))))))
     14 main