aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/br-util.boot2
2 files changed, 6 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 02df4c38..3364d23c 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
2011-12-02 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ Fix SF/3448433
+ * interp/br-util.boot (bcPred): Do not compare pred against a string.
+
+2011-12-02 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* interp/g-opt.boot (modified?): Examine the rhs too.
2011-12-01 Gabriel Dos Reis <gdr@cs.tamu.edu>
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot
index c20e5d23..acc4ed9a 100644
--- a/src/interp/br-util.boot
+++ b/src/interp/br-util.boot
@@ -415,7 +415,7 @@ bcConPredTable(u,conname,:options) ==
htEndTable()
bcPred(pred,:options) ==
- pred = '"" or pred = true or null pred => 'skip
+ pred is true or pred = nil => 'skip
italicList := IFCAR options
if not IFCAR IFCDR options then htSay '" {\em if} "
htPred2English(pred,italicList)