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/interp | |
| 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/interp')
| -rw-r--r-- | src/interp/br-search.boot | 1 |
1 files changed, 1 insertions, 0 deletions
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 |