aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-12-02 17:22:28 +0000
committerdos-reis <gdr@axiomatics.org>2011-12-02 17:22:28 +0000
commite74c52066d421b027ce1be36e02dce615caac397 (patch)
treec917feacae93c2b466940aefd59624dc60091545 /src/interp
parent5590f387f55d669bc2b839fd6586d0d81ca54fad (diff)
downloadopen-axiom-e74c52066d421b027ce1be36e02dce615caac397.tar.gz
Fix SF/3448433
* interp/br-util.boot (bcPred): Do not compare pred against a string.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/br-util.boot2
1 files changed, 1 insertions, 1 deletions
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)