Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Finish Lambda Lifter

Browse source
This commit is contained in:
Martin Fredin 2023-02-09 06:19:58 +01:00
parent 1f47288fcf
commit 7a2404cf74
3 changed files with 74 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Main.hs
View file

@ -3,7 +3,7 @@ module Main where
import Grammar.Par (myLexer, pProgram)
import Grammar.Print (printTree)
import LambdaLifter (abstract, freeVars, lambdaLift)
import LambdaLifter (abstract, freeVars, lambdaLift, rename)
import System.Environment (getArgs)
import System.Exit (exitFailure, exitSuccess)
@ -21,11 +21,6 @@ main = getArgs >>= \case
putStrLn "-- Parser"
putStrLn $ printTree prg
putStrLn "\n--Lamda lifter"
putStrLn "\n--freevars"
print $ freeVars prg
putStrLn "\n--abstract"
putStrLn . printTree $ (abstract . freeVars) prg
putStrLn "\n--renamed"
putStrLn . printTree $ lambdaLift prg
exitSuccess