diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-23 19:31:23 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-23 19:31:23 +0000 |
commit | adae08d08eb4bc36aee21b26073071756d920108 (patch) | |
tree | eaa339c181f9b75219d9d0050fc4253370732ec8 /src/interp/fortcall.boot | |
parent | c1552b8106125bc8209d4ea6635198f05b2e1e08 (diff) | |
download | open-axiom-adae08d08eb4bc36aee21b26073071756d920108.tar.gz |
* boot/tokens.boot: gensym is now candidate for renaming.
* boot/ast.boot: Replace GENSYM with gensym.
* interp/buildom.boot: Likewise.
* interp/clam.boot: Likewise.
* interp/clammed.boot: Likewise.
* interp/compiler.boot: Likewise.
* interp/define.boot: Likewise.
* interp/fortcall.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/i-coerce.boot: Likewise.
* interp/i-coerfn.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/macex.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunopt.boot: Likewise.
* interp/parse.boot: Likewise.
* interp/pf2atree.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/postpar.boot: Likewise.
* interp/ptrees.boot: Likewise.
* interp/server.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/sys-constants.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/fortcall.boot')
-rw-r--r-- | src/interp/fortcall.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index cde953fc..fd3ad8b5 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -321,7 +321,7 @@ makeSpadFun(name,userArgs,args,dummies,decls,results,returnType,asps,aspInfo, [["$elt","Lisp","construct"],:mkQuote results],resPar] if asps then -- Make a unique(ish) id for asp files - aspId := strconc(getEnv('"SPADNUM"), GENSYM('"NAG")) + aspId := strconc(getEnv('"SPADNUM"), gensym('"NAG")) body := ["SEQ",:makeAspGenerators(asps,aspTypes,aspId),_ makeCompilation(asps,file,aspId),_ ["pretend",call,fType] ] @@ -673,9 +673,9 @@ readData(tmpFile,results) == results generateDataName()==strconc($fortranTmpDir,getEnv('"HOST"), - getEnv('"SPADNUM"), GENSYM('"NAG"),'"data") + getEnv('"SPADNUM"), gensym('"NAG"),'"data") generateResultsName()==strconc($fortranTmpDir,getEnv('"HOST"), - getEnv('"SPADNUM"), GENSYM('"NAG"),'"results") + getEnv('"SPADNUM"), gensym('"NAG"),'"results") fortCall(objFile,data,results) == @@ -755,7 +755,7 @@ multiToUnivariate f == else vars := [second f] body := COPY_-TREE third f - newVariable := GENSYM() + newVariable := gensym() for index in 0..#vars-1 repeat -- Remember that AXIOM lists, vectors etc are indexed from 1 body := NSUBST(["elt",newVariable,index+1],vars.(index),body) @@ -778,7 +778,7 @@ functionAndJacobian f == DF(fn,var) == ["@",["convert",["differentiate",fn,var]],"InputForm"] jacBodies := CDDR interpret [["$elt",["List",["InputForm"]],"construct"],:jacBodies] - newVariable := GENSYM() + newVariable := gensym() for index in 0..#vars-1 repeat -- Remember that AXIOM lists, vectors etc are indexed from 1 funBodies := NSUBST(["elt",newVariable,index+1],vars.(index),funBodies) @@ -800,7 +800,7 @@ vectorOfFunctions f == else vars := [second f] funBodies := COPY_-TREE CDADDR f - newVariable := GENSYM() + newVariable := gensym() for index in 0..#vars-1 repeat -- Remember that AXIOM lists, vectors etc are indexed from 1 funBodies := NSUBST(["elt",newVariable,index+1],vars.(index),funBodies) |