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/fortcall.boot | |
| parent | 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (diff) | |
| download | open-axiom-3467029153bc8d2115fb961eb5e4e995d62034f0.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/fortcall.boot')
| -rw-r--r-- | src/interp/fortcall.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 9106506b..6045f211 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -542,7 +542,7 @@ lispType u == getVal(u,names,values) == -- if u is the i'th element of names, return the i'th element of values, -- otherwise if it is an arithmetic expression evaluate it. - NUMBERP(u) => u + integer?(u) => u LISTP(u) => eval [first(u), :[getVal(v,names,values) for v in rest u]] (place := POSITION(u,names)) => NTH(place,values) error ['"No value found for parameter: ",u] |