diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-28 04:51:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-28 04:51:23 +0000 |
| commit | af089a02e32f424463e93e147b60222de0839f1e (patch) | |
| tree | 221f73b1617d8246c1ca26d3a8ea38f5beac25ab /src/interp/msgdb.boot | |
| parent | 17a1e0707ae07bd90ef6a9fafb2432027507bbf2 (diff) | |
| download | open-axiom-af089a02e32f424463e93e147b60222de0839f1e.tar.gz | |
* 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.
Diffstat (limited to 'src/interp/msgdb.boot')
| -rw-r--r-- | src/interp/msgdb.boot | 4 |
1 files changed, 2 insertions, 2 deletions
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 |