diff options
Diffstat (limited to 'src/interp/parse.boot')
-rw-r--r-- | src/interp/parse.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/parse.boot b/src/interp/parse.boot index 5219d63d..3455ff2c 100644 --- a/src/interp/parse.boot +++ b/src/interp/parse.boot @@ -419,23 +419,23 @@ superSub(name,x) == for u in x repeat y:= [:y,:u] code:= x is [[u]] => $quadSymbol - STRCONC('"_(",scriptTranRow first x,scriptTran rest x,'"_)") + strconc('"_(",scriptTranRow first x,scriptTran rest x,'"_)") [INTERNL(PNAME name,"$",code),:y] scriptTran: %List -> %String scriptTran x == null x => '"" - STRCONC('";",scriptTranRow first x,scriptTran rest x) + strconc('";",scriptTranRow first x,scriptTran rest x) scriptTranRow: %List -> %String scriptTranRow x == null x => '"" - STRCONC($quadSymbol,scriptTranRow1 rest x) + strconc($quadSymbol,scriptTranRow1 rest x) scriptTranRow1: %List -> %String scriptTranRow1 x == null x => '"" - STRCONC('",",$quadSymbol,scriptTranRow1 rest x) + strconc('",",$quadSymbol,scriptTranRow1 rest x) parseVCONS: %List -> %Form parseVCONS l == |