diff options
| author | Drahflow <drahflow@gmx.de> | 2014-03-05 21:20:43 +0100 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2014-03-05 21:20:43 +0100 |
| commit | 3e98f6c4fecd9f827574977666a2b48b9d641340 (patch) | |
| tree | 353352843f9489ce17e704019f4a9d3693b01a98 /examples | |
| parent | ee68c78cea087de8de258486fe433d11dc384796 (diff) | |
Support scope-emulates-other-stuff support
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/working-compiler/scope-emulation.test | 19 | ||||
| -rw-r--r-- | examples/working/dom.ey | 3 |
2 files changed, 19 insertions, 3 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 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 |