From 3e98f6c4fecd9f827574977666a2b48b9d641340 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Wed, 5 Mar 2014 21:20:43 +0100
Subject: Support scope-emulates-other-stuff support

---
 examples/working-compiler/scope-emulation.test | 19 +++++++++++++++++++
 examples/working/dom.ey                        |  3 ---
 2 files changed, 19 insertions(+), 3 deletions(-)
 create mode 100644 examples/working-compiler/scope-emulation.test

(limited to 'examples')

diff --git a/examples/working-compiler/scope-emulation.test b/examples/working-compiler/scope-emulation.test
new file mode 100644
index 0000000..703d07a
--- /dev/null
+++ b/examples/working-compiler/scope-emulation.test
@@ -0,0 +1,19 @@
+"canary"
+< { -- -- "here: ?" dump } "#?" deffd > /foo /bar ?
+_ dump
+< { "here: *" dump } "#*" deffd > *
+_ dump
+< { "here: =[]" dump } "#=[]" deffd > =[]
+_ dump
+< { "here: len" dump } "#len" deffd > len
+_ dump
+/foo < { "here: cat (with: " -01 cat ")" cat dump } "#cat" deffd > cat
+_ dump
+< { "here: -01 cat (with: " -01 cat ")" cat dump } "#-01 cat" deffd > /foo cat
+_ dump
+< { -- "here: each" dump } "#each" deffd > { "xxx" die } each
+_ dump
+< { "here: dom" dump } "#dom" deffd > dom
+_ dump
+< { "here: *" dump } "#*" deffd > 0 !
+_ dump
diff --git a/examples/working/dom.ey b/examples/working/dom.ey
index 1c66a34..4cadf40 100644
--- a/examples/working/dom.ey
+++ b/examples/working/dom.ey
@@ -1,4 +1 @@
 [ 7 7 7 7 7 ] dom dump
-<
-  { 7 } /dom deff
-> dom dump
-- 
cgit v1.2.3