tricu

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

sourceGateFileCompiler.tri (463B)

      1 !import "prelude"     !Local
      2 !import "source.unit" !Local
      3 
      4 -- Supply only the already-resolved names required by the existing
      5 -- test/map.tri and test/size.tri fixtures. File contents remain verbatim runtime input.
      6 fileExternals =
      7   [(pair "map" map)
      8    (pair "append" append)
      9    (pair "equal?" equal?)
     10    (pair "head" head)
     11    (pair "y" y)
     12    (pair "triage" triage)]
     13 
     14 matchesFile = (source expected :
     15   equal? (compileGateProgram fileExternals source) expected)