blob: f0b29a5835cfde3731fc5e2c3199befd1e1d6b0e (
plain)
1
2
3
4
5
6
7
8
9
|
begin new p; new a; new i;
p <- 'formal x; formal k;
begin k <- k+1; x<-k end';
i <- 1;
a <- list 3;
p(@a[i],@i); p('@a[i]',@i);
out a[1]; out if isu a[2] then "undef" else "~undef"; out a[3]
(* should write: 2 undef 3 *)
end
|
