diff options
Diffstat (limited to 'src/interp/parse.boot')
-rw-r--r-- | src/interp/parse.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/parse.boot b/src/interp/parse.boot index 158e2dbf..beb9901a 100644 --- a/src/interp/parse.boot +++ b/src/interp/parse.boot @@ -384,7 +384,7 @@ superSub(name,x) == code:= x is [[u]] => $quadSymbol strconc('"_(",scriptTranRow first x,scriptTran rest x,'"_)") - [INTERNL(symbolName name,"$",code),:y] + [makeSymbol strconc(symbolName name,"$",code),:y] scriptTran: %List %Form -> %String scriptTran x == |