diff options
Diffstat (limited to 'VM.hs')
| -rw-r--r-- | VM.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |