From ef0788534700412ae77cd7ce4377f57599b11f01 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 30 Apr 2012 07:07:53 +0000
Subject: 	* interp/compiler.boot: Use float? in lieu of FLOATP. 	*
 interp/fortcall.boot: Likewise. 	* interp/i-object.boot: Likewise. 
 * interp/newfort.boot: Likewise. 	* interp/i-analy.boot: Compare to 0 in
 lieu of ZEROP. 	* interp/i-special.boot: Likewise. 	*
 interp/i-syscmd.boot: Likewise. 	* interp/sfsfun.boot: Likewise. 
 * interp/sys-driver.boot: Likewise. 	* interp/macros.lisp: Directly use 1+
 instead of QADD1. 	* interp/preparse.lisp: Likewise. 	*
 interp/slam.boot: Likewise. 	* interp/sys-macros.lisp: Likewise. 	*
 interp/sys-constants.boot ($BasicPredicates): Remove as unused. 	*
 interp/vmlisp.lisp (ADD1): Remove. 	(QSADD1): Likewise. 	(QSSUB1):
 Likewise. 	(QSTIMES): Likewise.

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

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

diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index 862f4212..4446d731 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -864,13 +864,13 @@ isEltable(op,argl,numArgs) ==
   -- determines if the object might possible have an elt function
   -- we exclude Mapping and Variable types explicitly
   v := getValue op =>
-    ZEROP numArgs => true
+    numArgs = 0 => true
     not(m := objMode(v)) => nil
     m is ['Mapping, :.] => nil
     objVal(v) is ["%Map",:mapDef] and numMapArgs(mapDef) > 0 => nil
     true
   m := getMode op =>
-    ZEROP numArgs => true
+    numArgs = 0 => true
     m is ['Mapping, :.] => nil
     true
   numArgs ~= 1 => nil
-- 
cgit v1.2.3