Refactor analyseValue, fix Let

1 files changed, 1 insertions, 0 deletions

diff --git a/VM.hs b/VM.hs
index a272829..1250c1e 100644
--- a/VM.hs
+++ b/VM.hs
@@ -111,6 +111,7 @@ vmRunBuiltin state "print" as = putStrLn (intercalate ", " (map printshow as)) >
 vmRunBuiltin state "=" [a, b] = return (if equalOp a b then RVNum 1 else RVNum 0, state)
 vmRunBuiltin state "<=" [RVNum a, RVNum b] = return (RVNum (fromEnum (a <= b)), state)
 vmRunBuiltin state "+" [RVNum a, RVNum b] = return (RVNum (a + b), state)
+vmRunBuiltin state "+" [RVString a, RVString b] = return (RVString (a ++ b), state)
 vmRunBuiltin state "-" [RVNum a, RVNum b] = return (RVNum (a - b), state)
 vmRunBuiltin state "null?" [v] = return (RVNum (case v of { RVList [] -> 1; _ -> 0 }), state)
 vmRunBuiltin state "car" [RVList l] = case l of