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/msgdb.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/msgdb.boot')

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