diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-29 17:05:16 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-29 17:05:16 +0000 |
| commit | c56406a1f224d195edb2fa8cee5f2fb277bd1164 (patch) | |
| tree | 8c67f2390a428829b7227dc7e9ecce4162ca016e /src | |
| parent | 2c4a7a870fbf9fb36da60f760bc7f942d0132094 (diff) | |
| download | open-axiom-c56406a1f224d195edb2fa8cee5f2fb277bd1164.tar.gz | |
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.
Diffstat (limited to 'src')
| -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 |