diff options
Diffstat (limited to 'src/interp/br-saturn.boot')
| -rw-r--r-- | src/interp/br-saturn.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 27a2b847..08ad1bb9 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -627,7 +627,7 @@ kPage(line,:options) == --any cat, dom, package, default package conname := opOf conform capitalKind := capitalize kind signature := ncParseFromString sig - sourceFileName := dbSourceFile INTERN name + sourceFileName := dbSourceFile makeSymbol name constrings := KDR form => dbConformGenUnder form [strconc(name,args)] @@ -1717,7 +1717,7 @@ purgeNewConstructorLines(lines, conlist) == -- screenLocalLine1(line, conlist) == screenLocalLine(line, conlist) == k := dbKind line - con := INTERN + con := makeSymbol k = char 'o or k = char 'a => s := dbPart(line,5,1) k := charPosition(char '_(,s,1) |