diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
| commit | 0de5ea3df4ffff2d97202a66629e19e0579410ea (patch) | |
| tree | 211b1d1d466c64aac746e9c377acf34adfb1c18b /src/interp/i-output.boot | |
| parent | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (diff) | |
| download | open-axiom-0de5ea3df4ffff2d97202a66629e19e0579410ea.tar.gz | |
cleanup
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 0d84f83d..6ccde110 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -1039,7 +1039,7 @@ aggregateApp(u,x,y,d,s) == outformWidth u == --WIDTH as called from OUTFORM to do a COPY string? u => u = $EmptyString => 0 - u.0 = char "%" and ((u.1 = char 'b) or (u.1 = char 'd)) => 1 + u.0 = char "%" and ((u.1 = char "b") or (u.1 = char "d")) => 1 #u atom u => # atom2String u WIDTH COPY u @@ -1047,7 +1047,7 @@ outformWidth u == --WIDTH as called from OUTFORM to do a COPY WIDTH u == string? u => u = $EmptyString => 0 - u.0 = char "%" and ((u.1 = char 'b) or (u.1 = char 'd)) => 1 + u.0 = char "%" and ((u.1 = char "b") or (u.1 = char "d")) => 1 #u integer? u => if (u < 1) then |