diff options
author | dos-reis <gdr@axiomatics.org> | 2010-07-18 05:43:52 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-07-18 05:43:52 +0000 |
commit | 3467029153bc8d2115fb961eb5e4e995d62034f0 (patch) | |
tree | 749cf4c97081e5013fb31b1c5af16262da65327a /src/interp/newfort.boot | |
parent | 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (diff) | |
download | open-axiom-3467029153bc8d2115fb961eb5e4e995d62034f0.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/newfort.boot')
-rw-r--r-- | src/interp/newfort.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index fa9aa373..cb79c32c 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -457,7 +457,7 @@ exp2FortSpecial(op,args,nargs) == if LISTP first elts and #elts=1 and first elts is [sOp,:sArgs] then member(sOp, ['"SEGMENT","SEGMENT"]) => #sArgs=1 => fortError1 first elts - not(NUMBERP(first sArgs) and NUMBERP(second sArgs)) => + not(integer?(first sArgs) and integer?(second sArgs)) => fortError("Cannot expand segment: ",first elts) first sArgs > second sArgs => fortError1 '"Lower bound of segment exceeds upper bound." |