diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/br-data.boot | 2 | ||||
| -rw-r--r-- | src/interp/br-search.boot | 8 |
2 files changed, 6 insertions, 4 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index aeb183ce..d3f06250 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -767,7 +767,7 @@ $defaultPackageNamesHT := buildDefaultPackageNamesHT() --======================================================================= -- $createLocalLibDb := false -extendLocalLibdb conlist == -- called by astran +extendLocalLibdb conlist == -- called by compileSpad2Cmd not $createLocalLibDb => nil null conlist => nil buildLibdb conlist --> puts datafile into temp.text 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 |