From 62fb1ed88e7c6a94e1ba833a2078cc162e1a44f9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 6 May 2010 15:23:36 +0000
Subject: 	* interp/wi2.boot: Replace INTEGERP, STRINGP, SYMBOLP, CONSP
 with 	integer?, string?, symbol?, and cons? respectively. 	*
 interp/wi1.boot: Likewise. 	* interp/trace.boot: Likewise. 	*
 interp/sys-utility.boot: Likewise. 	* interp/showimp.boot: Likewise. 
 * interp/setvars.boot: Likewise. 	* interp/record.boot: Likewise. 
 * interp/pspad2.boot: Likewise. 	* interp/pspad1.boot: Likewise. 
 * interp/postpar.boot: Likewise. 	* interp/posit.boot: Likewise. 	*
 interp/pf2sex.boot: Likewise. 	* interp/pf2atree.boot: Likewise. 	*
 interp/parse.boot: Likewise. 	* interp/packtran.boot: Likewise. 	*
 interp/nrunopt.boot: Likewise. 	* interp/nrungo.boot: Likewise. 
 * interp/nrunfast.boot: Likewise. 	* interp/nruncomp.boot: Likewise. 
 * interp/newfort.boot: Likewise. 	* interp/msgdb.boot: Likewise. 	*
 interp/msg.boot: Likewise. 	* interp/modemap.boot: Likewise. 	*
 interp/match.boot: Likewise. 	* interp/mark.boot: Likewise. 	*
 interp/interop.boot: Likewise. 	* interp/int-top.boot: Likewise. 
 * interp/i-toplev.boot: Likewise. 	* interp/i-syscmd.boot: Likewise. 
 * interp/i-spec2.boot: Likewise. 	* interp/i-spec1.boot: Likewise. 
 * interp/i-resolv.boot: Likewise. 	* interp/i-output.boot: Likewise. 
 * interp/i-object.boot: Likewise. 	* interp/i-map.boot: Likewise. 	*
 interp/i-intern.boot: Likewise. 	* interp/i-funsel.boot: Likewise. 
 * interp/i-eval.boot: Likewise. 	* interp/i-coerfn.boot: Likewise. 
 * interp/i-coerce.boot: Likewise. 	* interp/i-analy.boot: Likewise. 
 * interp/htsetvar.boot: Likewise. 	* interp/htcheck.boot: Likewise. 
 * interp/ht-util.boot: Likewise. 	* interp/ht-root.boot: Likewise. 
 * interp/g-util.boot: Likewise. 	* interp/g-opt.boot: Likewise. 	*
 interp/g-error.boot: Likewise. 	* interp/g-boot.boot: Likewise. 
 * interp/functor.boot: Likewise. 	* interp/fortcall.boot: Likewise. 
 * interp/format.boot: Likewise. 	* interp/diagnostics.boot: Likewise. 
 * interp/define.boot: Likewise. 	* interp/compress.boot: Likewise. 
 * interp/compiler.boot: Likewise. 	* interp/clammed.boot: Likewise. 
 * interp/clam.boot: Likewise. 	* interp/cformat.boot: Likewise. 	*
 interp/cattable.boot: Likewise. 	* interp/category.boot: Likewise. 
 * interp/c-util.boot: Likewise. 	* interp/c-doc.boot: Likewise. 	*
 interp/buildom.boot: Likewise. 	* interp/br-util.boot: Likewise. 
 * interp/br-search.boot: Likewise. 	* interp/br-saturn.boot: Likewise. 
 * interp/br-op2.boot: Likewise. 	* interp/br-op1.boot: Likewise. 
 * interp/br-data.boot: Likewise. 	* interp/br-con.boot: Likewise. 
 * interp/bc-util.boot: Likewise. 	* interp/ax.boot: Likewise. 	*
 interp/as.boot: Likewise. 	* boot/translator.boot: Likewise. 	*
 boot/ast.boot: Likewise. 	* boot/includer.boot: Likewise. 	*
 boot/tokens.boot: Add new replacement for integer?, string?, 	symbol? and
 cons?

---
 src/interp/i-map.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot
index 391aea3b..5ca3e726 100644
--- a/src/interp/i-map.boot
+++ b/src/interp/i-map.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2009, Gabriel Dos Reis.
+-- Copyright (C) 2007-2010, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -66,7 +66,7 @@ isInternalMapName name ==
   true
 
 makeInternalMapMinivectorName(name) ==
-  STRINGP name =>
+  string? name =>
     INTERN STRCONC(name,'";MV")
   INTERN STRCONC(PNAME name,'";MV")
 
@@ -232,7 +232,7 @@ getUserIdentifiersIn body ==
         append/[getUserIdentifiersIn y for [.,.,y] in l]
       "append"/[getUserIdentifiersIn y for y in l]
     bodyIdList :=
-      CONSP op or not (GETL(op,'Nud) or GETL(op,'Led) or GETL(op,'up))=>
+      cons? op or not (GETL(op,'Nud) or GETL(op,'Led) or GETL(op,'up))=>
         NCONC(getUserIdentifiersIn op, argIdList)
       argIdList
     REMDUP bodyIdList
@@ -717,7 +717,7 @@ genMapCode(op,body,sig,fnName,parms,isRecursive) ==
     op
   if $verbose then
     if get(op,'isInterpreterRule,$e) then
-      sayKeyedMsg("S2IM0014",[op0,(CONSP sig =>prefix2String first sig;'"?")])
+      sayKeyedMsg("S2IM0014",[op0,(cons? sig =>prefix2String first sig;'"?")])
     else sayKeyedMsg("S2IM0015",[op0,formatSignature sig])
   $whereCacheList := [op,:$whereCacheList]
 
@@ -1067,7 +1067,7 @@ listOfVariables pat ==
   IDENTP pat => (pat='_. => nil ; [pat])
   pat is ['_:,var] or pat is ['_=,var] =>
     (var='_. => NIL ; [var])
-  CONSP pat => REMDUP [:listOfVariables p for p in pat]
+  cons? pat => REMDUP [:listOfVariables p for p in pat]
   nil
 
 getMapBody(op,mapDef) ==
-- 
cgit v1.2.3