diff options
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] |