25 lines
375 B
Text
25 lines
375 B
Text
fn make_counter([] [inc]) (
|
|
i := 0;
|
|
|
|
fn ^inc([] [i]) (
|
|
i := i + 1;
|
|
^i := i;
|
|
);
|
|
);
|
|
|
|
a := make_counter!;
|
|
b := make_counter!;
|
|
|
|
put 65; put 10;
|
|
println {^x := {^a}.a.inc!};
|
|
println {^x := a.inc!};
|
|
println {^x := a.inc!};
|
|
|
|
put 66; put 10;
|
|
println (b.inc!).i;
|
|
println (b.inc!).i;
|
|
println (b.inc!).i;
|
|
|
|
# TODO: comments at eof don't parse
|
|
println 42;
|