diff --git a/src/oberon.c b/src/oberon.c
index 8b94271a6033d4675f4c8026d316980139a85d18..830844a16aedb87eb17d805361346d80930d0e3a 100644 (file)
--- a/src/oberon.c
+++ b/src/oberon.c
expr = oberon_term_expr(ctx);
- if(minus)
- {
- expr = oberon_make_unary_op(ctx, MINUS, expr);
- }
-
while(ISADDOP(ctx -> token))
{
int token = ctx -> token;
expr = oberon_make_bin_op(ctx, token, expr, inter);
}
+ if(minus)
+ {
+ expr = oberon_make_unary_op(ctx, MINUS, expr);
+ }
+
return expr;
}