diff options
Diffstat (limited to 'src/interp/i-output.boot.pamphlet')
| -rw-r--r-- | src/interp/i-output.boot.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot.pamphlet b/src/interp/i-output.boot.pamphlet index c671ac53..b21fe469 100644 --- a/src/interp/i-output.boot.pamphlet +++ b/src/interp/i-output.boot.pamphlet @@ -943,7 +943,7 @@ putWidth u == 0 newFirst:= atom (oldFirst:= first u) => - fn:= GET(oldFirst,"WIDTH") => + fn:= GETL(oldFirst,"WIDTH") => [oldFirst,:FUNCALL(fn,[oldFirst,:l])] if l then ll := rest l else ll := nil [oldFirst,:opWidth(oldFirst,ll)+argsWidth] |