From adae08d08eb4bc36aee21b26073071756d920108 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 23 May 2010 19:31:23 +0000
Subject: 	* 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.

---
 src/interp/fortcall.boot | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/interp/fortcall.boot')

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)
-- 
cgit v1.2.3