diff options
Diffstat (limited to 'src/interp/ht-root.boot')
-rw-r--r-- | src/interp/ht-root.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/ht-root.boot b/src/interp/ht-root.boot index 5604cf01..2540662d 100644 --- a/src/interp/ht-root.boot +++ b/src/interp/ht-root.boot @@ -129,7 +129,7 @@ htSetSystemVariable(htPage,[name,value]) == htGloss(pattern) == htGlossPage(nil,dbNonEmptyPattern pattern or '"*",true) htGlossPage(htPage,pattern,tryAgain?) == - $wildCard: local := char '_* + $wildCard: local := char "*" pattern = '"*" => downlink 'GlossaryPage filter := pmTransFilter pattern grepForm := mkGrepPattern(filter,'none) @@ -145,7 +145,7 @@ htGlossPage(htPage,pattern,tryAgain?) == ['"Glossary items matching {\em ",pattern,'"}"] null lines => tryAgain? and #pattern > 0 => - (pattern.(k := maxIndex(pattern))) = char 's => + (pattern.(k := maxIndex(pattern))) = char "s" => htGlossPage(htPage,subString(pattern,0,k),true) upperCase? pattern.0 => htGlossPage(htPage,DOWNCASE pattern,false) |