Stop using to/of conventions backwards

2024-12-28 07:24:19 -06:00
parent a9432777e5
commit 30c04a84d6
5 changed files with 33 additions and 33 deletions
--- a/src/Eval.hs
+++ b/src/Eval.hs
@ -48,9 +48,9 @@ evalAST env term = case term of
    TStem t -> Stem (evalAST env t)
    TFork t1 t2 -> Fork (evalAST env t1) (evalAST env t2)
    SApp t1 t2 -> apply (evalAST env t1) (evalAST env t2)
-    SStr str -> toString str
-    SInt num -> toNumber num
-    SList elems -> toList (map (evalAST Map.empty) elems)
+    SStr str -> ofString str
+    SInt num -> ofNumber num
+    SList elems -> ofList (map (evalAST Map.empty) elems)
    SFunc name args body ->
        error $ "Unexpected function definition " ++ name
        ++ " in evalAST; define via evalSingle."