diff options
Diffstat (limited to 'src/interp/htcheck.boot')
| -rw-r--r-- | src/interp/htcheck.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/htcheck.boot b/src/interp/htcheck.boot index 36fc0b40..046ae387 100644 --- a/src/interp/htcheck.boot +++ b/src/interp/htcheck.boot @@ -88,8 +88,7 @@ buildHtMacroTable() == fn := strconc(systemRootDirectory(), '"/share/hypertex/pages/util.ht") if PROBE_-FILE(fn) then instream := MAKE_-INSTREAM fn - while not EOFP instream repeat - line := READLINE instream + while (line := readLine instream) ~= %nothing repeat getHtMacroItem line is [string,:numOfArgs] => tableValue($htMacroTable,string) := numOfArgs for [s,:n] in $primitiveHtCommands repeat tableValue($htMacroTable,s) := n |