blob: 65b16b5b404422d914e77810ee2a3185552aa9a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# FIXME: does not yet work with optimization
<
{ "#." dump dump } "#." deffd
{ "#.|" dump dump } "#.|" deffd
{ "#.?" dump dump } "#.?" deffd
{ "#.=" dump dump dump } "#.=" deffd
> ==s
< { |pipebare } =*f s >' .f
< { 42 =equalbare } =*f s >' .f
s .|dotpipe
s .?dotquestion
s .dot
< { bare } =*f s >' .f
{
< { |pipebare } =*f s >' .f
< { 42 =equalbare } =*f s >' .f
s .|dotpipe
s .?dotquestion
s .dot
< { bare } =*f s >' .f
} _ * *
|
