aboutsummaryrefslogtreecommitdiff
path: root/lux-php
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lux-php/source/program.lux6
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))))]