OSDN Git Service

Empty string is not an unknown word.
authorsforman <sforman@hushmail.com>
Sat, 29 Jul 2023 19:11:43 +0000 (12:11 -0700)
committersforman <sforman@hushmail.com>
Sat, 29 Jul 2023 19:11:43 +0000 (12:11 -0700)
implementations/Elm/src/Joy.elm

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