12 lines
319 B
Plaintext
12 lines
319 B
Plaintext
--- t.t.old 2017-05-23 10:43:30.000000000 +0200
|
|
+++ t.t 2017-05-23 10:43:50.000000000 +0200
|
|
@@ -906,6 +906,8 @@
|
|
fncall(fn) do var i;
|
|
T := scan();
|
|
if (fn = 0) aw("call of non-function", 0);
|
|
+ if (fn[SFLAGS] & (FUNC|FORW) = 0)
|
|
+ aw("call of non-function", fn[SNAME]);
|
|
i := 0;
|
|
while (T \= RPAREN) do
|
|
expr(0);
|