diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:36:45 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:36:45 +0000 |
commit | 3d51abbf17fa58fadbfa59757f50908488f6f9d9 (patch) | |
tree | 7fd28af0acab689ee3cc00bd31550ab61ce842d4 /src/interp/fortcall.boot | |
parent | c758c27852f049e021da8855a290dd876e3b7050 (diff) | |
download | open-axiom-3d51abbf17fa58fadbfa59757f50908488f6f9d9.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/fortcall.boot')
-rw-r--r-- | src/interp/fortcall.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 9c2260a1..1071470e 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -50,7 +50,7 @@ makeFort(name,args,decls,results,returnType,aspInfo) == -- and a stub Axiom function to process its arguments. -- the following is a list of objects for which values need not be -- passed by the user. - dummies := [second(u) for u in args | EQUAL(car u,0)] + dummies := [second(u) for u in args | EQUAL(first u,0)] args := [untangle2(u) for u in args] -- lose spad Union representation where untangle2 u == atom (v := rest(u)) => v @@ -395,7 +395,7 @@ complexRows z == -- make them look like a Fortran vector! [:[:pair2list(u.i) for u in z] for i in 0..#(z.0)-1] -pair2list u == [car u,cdr u] +pair2list u == [first u,rest u] vec2Lists1 u == [u.i for i in 0..#u-1] vec2Lists u == [vec2Lists1 u.i for i in 0..#u-1] |