aboutsummaryrefslogtreecommitdiff
path: root/examples/working-compiler
diff options
context:
space:
mode:
Diffstat (limited to 'examples/working-compiler')
-rw-r--r--examples/working-compiler/apply.test18
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
+} *