diff options
Diffstat (limited to 'engines/director/lingo/lingo-gr.y')
-rw-r--r-- | engines/director/lingo/lingo-gr.y | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/engines/director/lingo/lingo-gr.y b/engines/director/lingo/lingo-gr.y index aac0f03582..eceaba087a 100644 --- a/engines/director/lingo/lingo-gr.y +++ b/engines/director/lingo/lingo-gr.y @@ -211,6 +211,9 @@ expr: INT { inst i = 0; WRITE_UINT32(&i, $1); g_lingo->code1(i); }; + | ID '(' arglist ')' { + $$ = g_lingo->codeFunc($1, $3); + delete $1; } | ID { $$ = g_lingo->codeId(*$1); delete $1; } @@ -229,10 +232,7 @@ expr: INT { | '(' expr ')' { $$ = $2; } ; -func: ID '(' arglist ')' { - g_lingo->codeFunc($1, $3); - delete $1; } - | tMCI STRING { g_lingo->code1(g_lingo->c_mci); g_lingo->codeString($2->c_str()); delete $2; } +func: tMCI STRING { g_lingo->code1(g_lingo->c_mci); g_lingo->codeString($2->c_str()); delete $2; } | tMCIWAIT ID { g_lingo->code1(g_lingo->c_mciwait); g_lingo->codeString($2->c_str()); delete $2; } | tPUT expr { g_lingo->code1(g_lingo->c_printtop); } | gotofunc |