diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-06-22 09:45:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-06-22 09:45:52 +0000 |
| commit | 013c2620f9aaffd31a10fed19ac48bad9074f707 (patch) | |
| tree | 9202e22de33ac20eb57cf31512c0edd61e48007e /src/interp/br-search.boot | |
| parent | 0ce3502a3677bfb4fb58c664b7ae00d530e5bacf (diff) | |
| download | open-axiom-013c2620f9aaffd31a10fed19ac48bad9074f707.tar.gz | |
* interp/br-search.boot (dbReadLines): Don't include end-of-stream
marker.
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 |