Allow multiple arguments to 'error' in VM

1 files changed, 1 insertions, 1 deletions

diff --git a/VM.hs b/VM.hs
index b3df10a..5f7a818 100644
--- a/VM.hs
+++ b/VM.hs
@@ -175,7 +175,7 @@ vmRunBuiltin state "type-number?" [value] = return (RVNum (case value of { RVNum
 vmRunBuiltin state "type-string?" [value] = return (RVNum (case value of { RVString _ -> 1; _ -> 0 }), state)
 vmRunBuiltin state "type-quoted?" [value] = return (RVNum (case value of { RVQuoted _ -> 1; _ -> 0 }), state)
 vmRunBuiltin state "type-symbol?" [value] = return (RVNum (case value of { RVName _   -> 1; _ -> 0 }), state)
-vmRunBuiltin _ "error" [RVString str] = throw ("error: " ++ str)
+vmRunBuiltin _ "error" values = throw ("error: " ++ intercalate " " (map show values))
 vmRunBuiltin _ name args = error (name ++ " " ++ show args)
 
 equalOp :: RunValue -> RunValue -> Either String Bool