Updates for Scheme compiler.

2 files changed, 38 insertions, 1 deletions

diff --git a/lux-php/commands.md b/lux-php/commands.md
new file mode 100644
index 000000000..618c13c52
--- /dev/null
+++ b/lux-php/commands.md
@@ -0,0 +1,37 @@
+# PHP compiler
+
+## Test
+
+```
+cd ~/lux/lux-php/ && lein lux auto test
+cd ~/lux/lux-php/ && lein clean && lein lux auto test
+```
+
+## Build
+
+```
+## Develop
+## NOTE: Must set lux/control/concurrency/thread.parallelism = 1 before compiling to make sure JPHP doesn't cause trouble.
+cd ~/lux/lux-php/ \
+&& lein clean \
+&& lein lux auto build
+
+## Build JVM-based compiler
+## NOTE: Must set lux/control/concurrency/thread.parallelism = 1 before compiling to make sure JPHP doesn't cause trouble.
+cd ~/lux/lux-php/ \
+&& lein clean \
+&& lein lux build \
+&& mv target/program.jar jvm_based_compiler.jar
+```
+
+## Try
+
+```
+## Compile Lux's Standard Library's tests using a JVM-based compiler.
+cd ~/lux/stdlib/ \
+&& lein clean \
+&& time java -jar ~/lux/lux-php/target/program.jar build --source ~/lux/stdlib/source --target ~/lux/stdlib/target --module test/lux
+
+php -f ~/lux/stdlib/target/program.php
+```
+
diff --git a/lux-php/source/program.lux b/lux-php/source/program.lux
index a13039760..716405587 100644
--- a/lux-php/source/program.lux
+++ b/lux-php/source/program.lux
@@ -483,7 +483,7 @@
               (let [global (reference.artifact context)
                     @global (_.global global)]
                 (do try.monad
-                  [#let [definition (_.; (_.set @global input))]
+                  [#let [definition (_.set! @global input)]
                    _ (run! definition)
                    value (run! (_.return @global))]
                   (wrap [global value definition]))))