From d2412069e4fc43a4bc6cc28ce4c57e02f8baee41 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 11 May 2008 02:25:14 +0000
Subject: fix fallout from previous commit

---
 src/interp/format.boot | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/interp/format.boot')

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)
 
-- 
cgit v1.2.3