Implemented |=

1 files changed, 18 insertions, 0 deletions

diff --git a/examples/working-compiler/apply.test b/examples/working-compiler/apply.test
new file mode 100644
index 0000000..4dd3979
--- /dev/null
+++ b/examples/working-compiler/apply.test
@@ -0,0 +1,18 @@
+{
+  quoted { ==name =*f
+    name "|" sys .executeIdentifier
+    f
+    name "=" sys .executeIdentifier
+  } { ==name =*f name | f name = } ? *
+} "|=" defq
+
+0 ==i
+i dump
+{ 1 add } |=i
+i dump
+
+{
+  0 ==j
+  { 1 add } |=j
+  j dump
+} *