From af089a02e32f424463e93e147b60222de0839f1e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 28 May 2010 04:51:23 +0000
Subject: 	* boot/tokens.boot: args is now a selector. 	*
 interp/g-timer.boot: Use integer? in lieu of INTP. 	*
 interp/i-syscmd.boot: Likewise. 	* interp/msgdb.boot: Likewise.

---
 src/interp/g-timer.boot  | 4 ++--
 src/interp/i-syscmd.boot | 2 +-
 src/interp/msgdb.boot    | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/g-timer.boot b/src/interp/g-timer.boot
index 49f73575..91b48708 100644
--- a/src/interp/g-timer.boot
+++ b/src/interp/g-timer.boot
@@ -99,7 +99,7 @@ normalizeStatAndStringify t ==
       t := roundStat t
       t = 0.0 => '"0"
       FORMAT(nil,'"~,2F",t)
-  INTP t =>
+  integer? t =>
       K := 1024
       M := K*K
       t > 9*M => strconc(STRINGIMAGE QUOTIENT(t + 512*K,M), '"M")
@@ -109,7 +109,7 @@ normalizeStatAndStringify t ==
  
 significantStat t ==
    RNUMP t => (t > 0.01)
-   INTP  t => (t > 100)
+   integer?  t => (t > 100)
    true
  
 roundStat t ==
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index fbc8fde0..6f46b0c0 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -2168,7 +2168,7 @@ dewritify ob ==
                 type = 'BPI =>
                     oname := ob.2
                     f :=
-                        INTP oname => eval GENSYMMER oname
+                        integer? oname => eval GENSYMMER oname
                         SYMBOL_-FUNCTION oname
                     not COMPILED_-FUNCTION_-P f =>
                         error '"A required BPI does not exist."
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot
index 361ba344..0e758b04 100644
--- a/src/interp/msgdb.boot
+++ b/src/interp/msgdb.boot
@@ -254,7 +254,7 @@ $msgdbNoBlanksBeforeGroup := ['" ", " ", '"%", "%",_
 $msgdbListPrims == '(%m %s %ce %rj "%m" "%s" "%ce" "%rj")
 
 noBlankBeforeP word==
-    INTP word => false
+    integer? word => false
     member(word,$msgdbNoBlanksBeforeGroup) => true
     if CVECP word and SIZE word > 1 then
        word.0 = char '% and word.1 = char 'x => return true
@@ -266,7 +266,7 @@ $msgdbNoBlanksAfterGroup == ['" ", " ",'"%" ,"%", :$msgdbPrims,
                               "[", "(", '"[", '"(" ]
 
 noBlankAfterP word==
-    INTP word => false
+    integer? word => false
     member(word,$msgdbNoBlanksAfterGroup) => true
     if CVECP word and (s := SIZE word) > 1 then
        word.0 = char '% and word.1 = char 'x => return true
-- 
cgit v1.2.3