diff options
Diffstat (limited to 'src/interp/br-con.boot')
-rw-r--r-- | src/interp/br-con.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot index c0cea190..bbb341b2 100644 --- a/src/interp/br-con.boot +++ b/src/interp/br-con.boot @@ -76,7 +76,7 @@ conPage(a,:b) == conPageFastPath x == --called by conPage and constructorSearch --gets line quickly for constructor name or abbreviation s := STRINGIMAGE x - charPosition(char '_*,s,0) < #s => nil --quit if name has * in it + charPosition(char "*",s,0) < #s => nil --quit if name has * in it name := (string? x => makeSymbol x; x) entry := HGET($lowerCaseConTb,name) or return nil lineNumber := LASSQ('dbLineNumber,CDDR entry) => |