From 3467029153bc8d2115fb961eb5e4e995d62034f0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 18 Jul 2010 05:43:52 +0000
Subject: More cleanups

---
 src/interp/i-analy.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/i-analy.boot')

diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index 3c8ada31..78cd0a73 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -665,7 +665,7 @@ sayIntelligentMessageAboutOpAvailability(opName, nArgs) ==
   -- see if we can give some decent messages about the availability if
   -- library messages
 
-  NUMBERP opName => NIL
+  integer? opName => NIL
 
   oo :=  object2Identifier opOf opName
   if ( oo = "%" ) or ( oo = "Domain" ) or ( domainForm? opName ) then
-- 
cgit v1.2.3