diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-11 02:25:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-11 02:25:14 +0000 |
| commit | d2412069e4fc43a4bc6cc28ce4c57e02f8baee41 (patch) | |
| tree | 06aea77245295f6836dab0ff3b473f3250a6b0f8 /src/interp/format.boot | |
| parent | 583976f30783abbf02f64abca8796d5a28111b76 (diff) | |
| download | open-axiom-d2412069e4fc43a4bc6cc28ce4c57e02f8baee41.tar.gz | |
fix fallout from previous commit
Diffstat (limited to 'src/interp/format.boot')
| -rw-r--r-- | src/interp/format.boot | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index 64d0ee28..d1e6e4df 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -389,8 +389,7 @@ form2String1 u == STRINGP u => formWrapId u WRITE_-TO_-STRING formWrapId u u1 := u - op := CAR u - argl := CDR u + [op,:argl] := u op='Join or op= 'mkCategory => formJoin1(op,argl) $InteractiveMode and IDENTP op and (u:= constructor? op) => null argl => app2StringWrap(formWrapId constructorName op, u1) @@ -438,7 +437,7 @@ form2String1 u == argl := rest argl (null argl) or null (first argl) => [lo, '".."] [lo, '"..", form2String1 first argl] - isBinaryInfix op => outputTran [op,:argl] + isBinaryInfix op => formatAsFortranExpresion [op,:argl] -- COMPILED_-FUNCTION_-P(op) => form2String1 coerceMap2E(u1,NIL) application2String(op,[form2String1 x for x in argl], u1) |