Idris2/tests/idris2/basic006/PMLet.idr
Edwin Brady a972778eab Add test script
They don't all pass yet, for minor reasons. Coming shortly...
Unfortunately the startup overhead for chez is really noticeable here!
2020-05-19 18:25:18 +01:00

13 lines
275 B
Idris

import Stuff
foo : Int -> Maybe Int
foo 0 = Nothing
foo x = Just (prim__mul_Int x 2)
testLet : Int -> Int
testLet x = let y = prim__mul_Int x 2
Just ans = foo y
| Nothing => 99
z = prim__mul_Int ans 2
in z