From 061dd644cbd2fdddbb2e52dbe63683fa7a04b769 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Wed, 31 May 2017 16:49:56 +0200
Subject: Implemented |=

---
 examples/working-compiler/apply.test | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 examples/working-compiler/apply.test

(limited to 'examples/working-compiler')

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
+} *
-- 
cgit v1.2.3