diff options
author | tomsmeding <tom.smeding@gmail.com> | 2017-12-17 22:30:06 +0100 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2017-12-17 22:30:06 +0100 |
commit | 594ecf396cad8a38aac168062249ab3361c5b558 (patch) | |
tree | 8852897cfbfd8cf7bcda97760c7cfa4f000cc762 /test.hs | |
parent | ef9684b0bf2780800ae3349819239e4f0a0c9c25 (diff) |
Move old things out of the way
Diffstat (limited to 'test.hs')
-rw-r--r-- | test.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/test.hs b/test.hs deleted file mode 100644 index a763524..0000000 --- a/test.hs +++ /dev/null @@ -1,16 +0,0 @@ -import System.Exit - -import Compiler -import Optimiser -import Parser -import VM - -main :: IO () -main = do - -- let Right p = parseProgram "(print (lambda (n) ((lambda (helper) (if (<= n 0) 0 (if (<= n 2) 1 (helper helper 1 1 (- n 2))))) (lambda (recur a b n) (if (<= n 0) b (recur recur b (+ a b) (- n 1)))))))" - -- let Right p = parseProgram "(print ((lambda (n) ((lambda (helper) (if (<= n 0) 0 (if (<= n 2) 1 (helper helper 1 1 (- n 2))))) (lambda (recur a b n) (if (<= n 0) b (recur recur b (+ a b) (- n 1)))))) 6))" - let Right p = parseProgram "(do (define f (lambda (n) (+ n 1))) (print (f 10)))" - prog <- either die return (compileProgram p) - let opt = optimise prog - print opt - vmRun opt |