diff options
Diffstat (limited to 'src/interp/newfort.boot')
| -rw-r--r-- | src/interp/newfort.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index e5c92359..38b6c069 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -372,8 +372,9 @@ formatAsFortranExpression x == dispfortexp x == - if atom(x) or x is [op,:.] and not object2Identifier op in - '(_= MATRIX construct ) then + if atom(x) or x is [op,:.] and + not (object2Identifier op in '(_= MATRIX construct )) + then var := makeSymbol strconc('"R",object2String $IOindex) x := ['"=",var,x] dispfortexp1 x |