examples/working-compiler/apply.test


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
} *