diff options
Diffstat (limited to 'src/compiler/expr.zc')
| -rw-r--r-- | src/compiler/expr.zc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/expr.zc b/src/compiler/expr.zc index 7471556..d9c91d6 100644 --- a/src/compiler/expr.zc +++ b/src/compiler/expr.zc @@ -110,7 +110,7 @@ int args(int tags, word ft, int bs, int fat) { } if (ft && np + parameter_base < ft[3]) fcoerce(subst(ft[7 + np + parameter_base], bs)); t = xty; - argcheck(c, (tags >> (np + np)) & 3); + arg_site = 0; if (cs >= 0) arg_site = cs + 2; argcheck(c, (tags >> (np + np)) & 3); arg_site = 0; // o3 data handed to normal code if (fat && hasptr(t)) { lit(t); |