examples/working-compiler/run_once.test


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ "}" | *
  { ==f 0 ==running
    { f } { * }" ; { =*f { running not { 1 =running f 0 =running } rep } } ;
  } *
}" "}!" defq

{
  5 ==i

  { "g1 called" dump i dump f }! =*g1
  g1

  { "g2 called" dump i dump f }! =*g2
  g2
} =*f

f