diff options
Diffstat (limited to 'src/interp/br-op1.boot')
| -rw-r--r-- | src/interp/br-op1.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index c3737af7..852d5153 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -903,18 +903,18 @@ evalableConstructor2HtString domform == mathform2HtString form == escapeString $fortInts2Floats: local := false form := niladicHack form - form is ['QUOTE,a] => STRCONC('"'","STRCONC"/fortexp0 a) + form is ['QUOTE,a] => strconc('"'","STRCONC"/fortexp0 a) form is ['BRACKET,['AGGLST,:arg]] => if arg is ['construct,:r] then arg := r arg := atom arg => [arg] [y for x in arg | y := (x is ['QUOTE,a] => a; x)] - tailPart := "STRCONC"/[STRCONC('",",STRINGIMAGE x) for x in rest arg] - STRCONC('"[",STRINGIMAGE first arg,tailPart,'"]") + tailPart := "STRCONC"/[strconc('",",STRINGIMAGE x) for x in rest arg] + strconc('"[",STRINGIMAGE first arg,tailPart,'"]") form is ['BRACKET,['AGGLST,'QUOTE,arg]] => if atom arg then arg := [arg] - tailPart := "STRCONC"/[STRCONC('",",x) for x in rest arg] - STRCONC('"[",first arg,tailPart,'"]") + tailPart := "STRCONC"/[strconc('",",x) for x in rest arg] + strconc('"[",first arg,tailPart,'"]") atom form => form "STRCONC"/fortexp0 form |