diff options
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 5a6b06f0..c0fb0483 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -121,7 +121,7 @@ mkAtree1 x == mkAtree2(x,op,argl) == nargl := #argl (op= "-") and (nargl = 1) and (integer? first argl) => - mkAtree1(MINUS first argl) + mkAtree1(-first argl) op=":" and argl is [y,z] => [mkAtreeNode "Declare",:argl] op="COLLECT" => [mkAtreeNode op,:transformCollect argl] op= "break" => |