diff options
Diffstat (limited to '')
| -rw-r--r-- | lux-php/source/program.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lux-php/source/program.lux b/lux-php/source/program.lux index 11bf0d113..6540f655e 100644 --- a/lux-php/source/program.lux +++ b/lux-php/source/program.lux @@ -318,12 +318,12 @@ php/runtime/memory/ReferenceMemory::getValue)] (case (ffi.check php/runtime/memory/NullMemory value) {.#Some _} - (recur (++ idx) output) + (again (++ idx) output) {.#None} (case (read value) {try.#Success lux_value} - (recur (++ idx) (array.write! idx lux_value output)) + (again (++ idx) (array.write! idx lux_value output)) error error))) @@ -466,7 +466,7 @@ (def: host (IO (Host _.Expression _.Statement)) (io (let [run! (: (-> (_.Code Any) (Try Any)) - (function (recur code) + (function (_ code) (do try.monad [output (javax/script/ScriptEngine::eval (format "<?php " (_.code code)) ..interpreter)] (..read output))))] |