@@ -465,6 +465,7 @@
465 [%blok blok]
465 [%blok blok]
466 [%asmnt varlist exprlist]
466 [%asmnt varlist exprlist]
467 [%label label]
467 [%label label]
468+ [%func-call functioncall]
468 [%empty ~]
469 [%empty ~]
470++ parse-stat
471++ parse-stat
@@ -492,6 +493,10 @@
492 (just '=')
493 (just '=')
493 parse-exprlist
494 parse-exprlist
498+ |= =functioncall [%func-call functioncall]
496++ print-stat
501++ print-stat
497 |= [=stat]
502 |= [=stat]
@@ -507,7 +512,88 @@
507 (commaed (turn +>.stat print-expr))
512 (commaed (turn +>.stat print-expr))
509 %label (print-label +.stat)
514 %label (print-label +.stat)
515+ %func-call (print-functioncall +.stat)
521+ [%call func=prefix-expr =args]
522+ [%method obj=prefix-expr method=name =args]
524+++ print-functioncall
525+ |= call=functioncall
531+ (print-prefix-expr func.call)
532+ (print-args args.call)
537+ (print-prefix-expr obj.call)
540+ (print-args args.call)
543+++ parse-functioncall
544+ %+ knee *functioncall
548+ |= [func=prefix-expr =args] [%call func args]
555+ |= [obj=prefix-expr * method=name =args]
556+ [%method obj method args]
573+ (print-exprlist args)
581+ |= [* =exprlist *] exprlist
589+ |= =table ~[[%table table]]
593+ |= =string ~[[%string string]]
513+$ label name
599+$ label name