Rename "compiler" functionality to Evaluator

Allows for stdin input for evaluation when no input file is provided.
2025-01-01 08:17:05 -06:00
parent 458d3c3b10
commit 7d38d99dcd
8 changed files with 43 additions and 32 deletions
--- a/src/Eval.hs
+++ b/src/Eval.hs
@ -13,7 +13,7 @@ evalSingle env term = case term of
  SFunc name [] body ->
    let lineNoLambda = eliminateLambda body
        result = evalAST env lineNoLambda
-    in Map.insert name result env
+    in Map.insert "__result" result (Map.insert name result env)
  SLambda _ body ->
    let result = evalAST env body
    in Map.insert "__result" result env