diff options
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/interp/br-search.boot | 1 |
2 files changed, 8 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index cea957de..ed7d1e2c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2008-08-29 Waldek Hebisch <hebisch@math.uni.wroc.pl> + Alfredo Portes <doyenatccny@gmail.com> + + Fix AW/280 + * interp/br-search.boot (grepConstruct): Return error messages + verbatim. + 2008-08-29 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/c-util.boot (isKnownType): New. diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot index 4f1a740c..45e833fb 100644 --- a/src/interp/br-search.boot +++ b/src/interp/br-search.boot @@ -51,6 +51,7 @@ grepConstruct(s,key,:options) == --key = a o c d p x k (all) . (aok) w (doc) --an alist of the form ((kind . <list of lines for that kind>) ...) $localLibdb : local := fnameExists? '"libdb.text" and '"libdb.text" lines := grepConstruct1(s,key) + lines is ["error",:.] => lines IFCAR options => grepSplit(lines,key = 'w) --leave now if a constructor MEMQ(key,'(o a)) => dbScreenForDefaultFunctions lines --kill default lines if a/o lines |