diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-10-17 01:22:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-10-17 01:22:52 +0000 |
| commit | ce09059aa3e8028ef11f5e9573bcc6fac593ef5e (patch) | |
| tree | 8862a49a44adc9b1ec3d6542071cd4db0cee6af5 /src/interp/i-output.boot.pamphlet | |
| parent | 004d25ab39f6f6867eb767bc7ba9b3fcce4e47a8 (diff) | |
| download | open-axiom-ce09059aa3e8028ef11f5e9573bcc6fac593ef5e.tar.gz | |
Fix SF/1814510
* i-output.boot.pamphlet (putWidth): Use GETL.
* Makefile.pamphlet (i-output.$(FASLEXT)): New rule.
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] |