diff options
Diffstat (limited to 'src/interp/br-con.boot')
| -rw-r--r-- | src/interp/br-con.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot index 3349e6b1..20dd8c25 100644 --- a/src/interp/br-con.boot +++ b/src/interp/br-con.boot @@ -157,7 +157,7 @@ conPageConEntry entry == conform2String u == x := form2String u atom x => STRINGIMAGE x - "STRCONC"/[STRINGIMAGE y for y in x] + strconc/[STRINGIMAGE y for y in x] kxPage(htPage,name) == downlink name @@ -649,8 +649,8 @@ kDomainName(htPage,kind,name,nargs) == argString := null args => '"()" argTailPart := - "STRCONC"/["STRCONC"/ ['",",:x] for x in KDR args] - "STRCONC"/['"(",:first args,argTailPart,'")"] + strconc/[strconc/ ['",",:x] for x in KDR args] + strconc/['"(",:first args,argTailPart,'")"] typeForm := CATCH($SpadReaderTag, unabbrev mkConform(kind,name,argString)) or ['error,'invalidType,strconc(name,argString)] null (evaluatedTypeForm := kisValidType typeForm) => |