diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-15 21:43:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-15 21:43:42 +0000 |
| commit | aafe7ff59792af6125574114312d5fc9ed15b5b7 (patch) | |
| tree | a3e0ee9f0b46c6ab0cc019147549b329228f2d26 /src/interp/fortcall.boot | |
| parent | 078a728917e03bd210824de99ee2bdec6c520aa5 (diff) | |
| download | open-axiom-aafe7ff59792af6125574114312d5fc9ed15b5b7.tar.gz | |
* interp/ht-util.boot (mkCurryFun): Import function name.
Diffstat (limited to 'src/interp/fortcall.boot')
| -rw-r--r-- | src/interp/fortcall.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 7f4a05ff..8184539d 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -753,7 +753,7 @@ multiToUnivariate f == body := copyTree third f newVariable := gensym() for index in 0..#vars-1 repeat - -- Remember that AXIOM lists, vectors etc are indexed from 1 + -- Remember that OpenAxiom lists, vectors etc are indexed from 1 body := substitute!(["elt",newVariable,index+1],vars.index,body) -- We want a Vector DoubleFloat -> DoubleFloat target := [["DoubleFloat"],["Vector",["DoubleFloat"]]] @@ -776,7 +776,7 @@ functionAndJacobian f == jacBodies := CDDR interpret [["$elt",["List",["InputForm"]],"construct"],:jacBodies] newVariable := gensym() for index in 0..#vars-1 repeat - -- Remember that AXIOM lists, vectors etc are indexed from 1 + -- Remember that OpenAxiom lists, vectors etc are indexed from 1 funBodies := substitute!(["elt",newVariable,index+1],vars.index,funBodies) jacBodies := substitute!(["elt",newVariable,index+1],vars.index,jacBodies) target := [["Vector",["DoubleFloat"]],["Vector",["DoubleFloat"]],["Integer"]] @@ -798,7 +798,7 @@ vectorOfFunctions f == funBodies := copyTree CDADDR f newVariable := gensym() for index in 0..#vars-1 repeat - -- Remember that AXIOM lists, vectors etc are indexed from 1 + -- Remember that OpenAxiom lists, vectors etc are indexed from 1 funBodies := substitute!(["elt",newVariable,index+1],vars.index,funBodies) target := [["Vector",["DoubleFloat"]],["Vector",["DoubleFloat"]]] rest interpret ["ADEF",[newVariable],target,[[],[]],["vector",["construct",:funBodies]]] |