diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-02 16:20:53 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-02 16:20:53 +0000 |
| commit | d2c2747da6be576cc592bcb3f046356af2bfca9b (patch) | |
| tree | a4108a95f284d9ee425f32d4027db0edab9975f4 /src/interp/i-output.boot | |
| parent | 327b4fb2c149c02dd72f3d8f6070b6e0144828ee (diff) | |
| download | open-axiom-d2c2747da6be576cc592bcb3f046356af2bfca9b.tar.gz | |
* interp/cstream.boot: Cleanup.
* interp/g-boot.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-resolv.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/nrungo.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/sys-constants.boot: Define more constants.
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 011ee11f..3ff2f418 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -1963,7 +1963,7 @@ appext(u,x,y,d) == d := APP(agg(4,u), x, yptr, d) temp := 1 + WIDTH agg(2,u) + WIDTH agg(3,u) n := MAX(WIDTH CADR u, WIDTH agg(4,u), temp) - if EQCAR(first(z := agg(5,u)), 'EXT) and + if first(z := agg(5,u)) is ["EXT",:.] and (n=3 or (n > 3 and not (atom z)) ) then n := 1 + n d := APP(z, x + n, y, d) @@ -2039,7 +2039,7 @@ extwidth(u) == WIDTH agg(4, u), 1 + WIDTH agg(2, u) + WIDTH agg(3, u) ) nil or - (EQCAR(first(z := agg(5, u)), 'EXT) and _ + (first(z := agg(5, u)) is ["EXT",:.] and _ (n=3 or ((n > 3) and null atom z) ) => n := 1 + n) true => n + WIDTH agg(5, u) |