sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Empty string is not an unknown word.

This commit is contained in:
sforman 2023-07-29 12:11:43 -07:00
parent 9220361871
commit 4d6230e01d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
implementations/Elm/src/Joy.elm
View File

@ -36,6 +36,7 @@ joy stack expression =
joy_eval : String -> JList -> JList -> Result String (JList, JList) joy_eval : String -> JList -> JList -> Result String (JList, JList)
joy_eval symbol stack expression = joy_eval symbol stack expression =
case symbol of case symbol of
"" -> Ok (stack, expression)
"branch" -> joy_branch stack expression "branch" -> joy_branch stack expression
"i" -> joy_i stack expression "i" -> joy_i stack expression