Revert back to one lambda par, and fix issues with lambda lifter

This commit is contained in:
Martin Fredin 2023-02-11 09:59:26 +01:00
parent 78a3ed56ea
commit e212c79a44
4 changed files with 73 additions and 35 deletions

View file

@ -3,7 +3,7 @@ module Main where
import Grammar.Par (myLexer, pProgram)
import Grammar.Print (printTree)
import LambdaLifter (lambdaLift)
import LambdaLifter (abstract, freeVars, lambdaLift)
import System.Environment (getArgs)
import System.Exit (exitFailure, exitSuccess)
@ -20,7 +20,7 @@ main = getArgs >>= \case
Right prg -> do
putStrLn "-- Parse"
putStrLn $ printTree prg
putStrLn "\n-- Lamda lifter"
putStrLn "\n-- Lambda lifter"
putStrLn . printTree $ lambdaLift prg
putStrLn ""
exitSuccess