X-Git-Url: https://ruin.nu/git/?p=proglang.git;a=blobdiff_plain;f=Interpreter.hs;fp=Interpreter.hs;h=694ce2367ea328c1e4b2ebb270ab743a99f5e87a;hp=bccc53d0fdb4871b1469011ee041adf59b196cd8;hb=9625a8a7eb7aebeb161ca15cf66cff5699f89103;hpb=97719af3b544b9fae80e886bf6a49c51b4a320a9

diff --git a/Interpreter.hs b/Interpreter.hs
index bccc53d..694ce23 100644
--- a/Interpreter.hs
+++ b/Interpreter.hs
@@ -38,14 +38,13 @@ run v p s = let ts = myLLexer s in case p ts of
 		putStrV v $ show ts
 		putStrLn s
 	Ok (Program s) -> do
-		putStrLn "\nParse Successful!"
-		showTree v (Program s)
-		runStateT (mapM typeCheckStm s) [empty]
-		print "The program is type-correct!!"
-		print "Running program:"
-		runStateT (mapM execute s) [empty]
-		print "Done running program!"
-		return ()
+		--putStrLn "\nParse Successful!"
+		--showTree v (Program s)
+		typeCheck s
+		--print "The program is type-correct!!"
+		--print "Running program:"
+		interpret s
+		--print "Done running program!"
 
 showTree :: (Show a, Print a) => Int -> a -> IO ()
 showTree v tree