aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-08-29 17:05:16 +0000
committerdos-reis <gdr@axiomatics.org>2008-08-29 17:05:16 +0000
commitc56406a1f224d195edb2fa8cee5f2fb277bd1164 (patch)
tree8c67f2390a428829b7227dc7e9ecce4162ca016e
parent2c4a7a870fbf9fb36da60f760bc7f942d0132094 (diff)
downloadopen-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.
-rw-r--r--src/ChangeLog7
-rw-r--r--src/interp/br-search.boot1
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