Support scope-emulates-other-stuff support

1 files changed, 19 insertions, 0 deletions

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