aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-prof.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-prof.boot')
-rw-r--r--src/interp/br-prof.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-prof.boot b/src/interp/br-prof.boot
index a154127a..4f4983c8 100644
--- a/src/interp/br-prof.boot
+++ b/src/interp/br-prof.boot
@@ -248,7 +248,7 @@ hasNewInfoAlist conname ==
hasNewInfoText u ==
and/[atom op and "and"/[item is [sig,:alist] and
- null sig or null atom sig and null atom alist for item in items] for [op,:items] in u]
+ null sig or cons? sig and cons? alist for item in items] for [op,:items] in u]
getInfoAlist conname ==
cat? := getConstructorKindFromDB conname = "category"