aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-syscmd.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-28 04:51:23 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-28 04:51:23 +0000
commitaf089a02e32f424463e93e147b60222de0839f1e (patch)
tree221f73b1617d8246c1ca26d3a8ea38f5beac25ab /src/interp/i-syscmd.boot
parent17a1e0707ae07bd90ef6a9fafb2432027507bbf2 (diff)
downloadopen-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/i-syscmd.boot')
-rw-r--r--src/interp/i-syscmd.boot2
1 files changed, 1 insertions, 1 deletions
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."