From 9a593e3b395c1ba0c6036760c12713d7485f8c54 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 4 Aug 2011 13:56:52 +0000
Subject: cleanup

---
 src/interp/br-prof.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/br-prof.boot')

diff --git a/src/interp/br-prof.boot b/src/interp/br-prof.boot
index c9eae539..c79b121e 100644
--- a/src/interp/br-prof.boot
+++ b/src/interp/br-prof.boot
@@ -102,7 +102,7 @@ dbShowInfoOp(htPage,op,sig,alist) ==
     for (p := [x,:y]) in fromAlist repeat
       x = $ => dollar := [[honestConform,:y]]
       x = 'Rep => rep := [['Rep,:y]]
-      IDENTP x => args := [dbInfoFindCat(conform,conArgTypes,p), :args]
+      ident? x => args := [dbInfoFindCat(conform,conArgTypes,p), :args]
       cons := [dbInfoTran(x,y), :cons]
     [:mySort args, :dollar, :rep, :mySort cons]
   sigAlist  := LASSOC(op,opAlist)
@@ -122,7 +122,7 @@ dbShowInfoOp(htPage,op,sig,alist) ==
   bincount := 2
   for [con,:fns] in fromAlist repeat
     htSay '"\item"
-    if IDENTP con then
+    if ident? con then
         htSay '"\menuitemstyle{} {\em calls to} "
         if con ~= 'Rep then htSay '"{\em argument} "
         htSay con
-- 
cgit v1.2.3