Minor cleanup.
This commit is contained in:
parent
e9f971460f
commit
af882e2be4
|
|
@ -261,8 +261,10 @@ dialect of Joy are defined in terms of these:
|
||||||
|
|
||||||
< > >= <= != <> =
|
< > >= <= != <> =
|
||||||
|
|
||||||
|
and or xor (These are the bitwise ops.)
|
||||||
lshift rshift
|
lshift rshift
|
||||||
|
|
||||||
|
/\ \/ _\/_ (These are the logical ops. Booleans)
|
||||||
|
|
||||||
|
|
||||||
--------------------------------------------------
|
--------------------------------------------------
|
||||||
|
|
|
||||||
|
|
@ -184,9 +184,9 @@ text_to_expression text = parse (tokenize text)
|
||||||
|
|
||||||
doit text =
|
doit text =
|
||||||
case text_to_expression text of
|
case text_to_expression text of
|
||||||
Err msg -> Err msg
|
|
||||||
Ok ast ->
|
Ok ast ->
|
||||||
case joy [] ast of
|
case joy [] ast of
|
||||||
Err msg -> Err msg
|
|
||||||
Ok expr -> Ok (joyExpressionToString expr)
|
Ok expr -> Ok (joyExpressionToString expr)
|
||||||
|
Err msg -> Err msg
|
||||||
|
Err msg -> Err msg
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue