carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-12 04:58:18 +03:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/carp-lang/Carp

Browse Source
This commit is contained in:
Erik Svedäng 2018-02-18 16:56:23 +01:00
commit 10211ed3dc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Eval.hs
View File

@ -105,9 +105,9 @@ eval env xobj =
XObj (Bol bb) _ _ ->
if bb then Right trueXObj else Right falseXObj
_ ->
Left (EvalError ("Can't perform logical operation (and) on " ++ pretty okB))
Left (EvalError ("Can't perform logical operation (or) on " ++ pretty okB))
_ ->
Left (EvalError ("Can't perform logical operation (and) on " ++ pretty okA))
Left (EvalError ("Can't perform logical operation (or) on " ++ pretty okA))
[XObj (Sym (SymPath [] "not") _) _ _, a] ->
do evaledA <- eval env a