diff options
Diffstat (limited to 'src/interp/br-search.boot')
| -rw-r--r-- | src/interp/br-search.boot | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot index ed3c9a19..7dec7f86 100644 --- a/src/interp/br-search.boot +++ b/src/interp/br-search.boot @@ -927,11 +927,13 @@ dbWriteLines(s, :options) == SHUT $outStream pathname -dbReadLines target == --AIX only--called by grepFile +dbReadLines target == instream := inputTextFile target - lines := [line := readLine instream while line ~= %nothing] + lines := [] + while (line := readLine instream) ~= %nothing repeat + lines := [line,:lines] closeStream instream - lines + reverse! lines dbGetCommentOrigin line == --Given a comment line in comdb, returns line in libdb pointing to it |