diff options
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 055ddbc5..e2c83fd9 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -344,7 +344,7 @@ outputTran x == domain is ['Float]) and INTEGERP x and INTEGERP y and INTEGERP z and z > 0 and (float := getFunctionFromDomain("float",domain,[$Integer,$Integer,$PositiveInteger])) => f := SPADCALL(x,y,z,float) - o := coerceInteractive(mkObjWrap(f, domain), '(OutputForm)) + o := coerceInteractive(objNewWrap(f, domain), '(OutputForm)) objValUnwrap o [op,:l]:= flattenOps x |