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/c-util.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp/c-util.boot')

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index ed49dc05..6fca669a 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1142,7 +1142,7 @@ replaceSimpleFunctions form ==
       -- conservatively approximate eager semantics
       and/[isAtomicForm first as for as in tails args] =>
         -- alpha rename before substitution.
-	newparms := [GENSYM() for p in parms]
+	newparms := [gensym() for p in parms]
 	body := eqSubstAndCopy(newparms,parms,body)
 	eqSubst(args,newparms,body)
       -- get cute later.
@@ -1313,8 +1313,8 @@ backendCompileSLAM: (%Symbol,%List,%Code) -> %Symbol
 backendCompileSLAM(name,args,body) ==
   al := INTERNL(name,'";AL")    -- name of the cache alist.
   auxfn := INTERNL(name,'";")   -- name of the worker function.
-  g1 := GENSYM()                -- name for the parameter.
-  g2 := GENSYM()                -- name for the cache value
+  g1 := gensym()                -- name for the parameter.
+  g2 := gensym()                -- name for the cache value
   u :=                          -- body of the stub function
     null args => [nil,[auxfn]]
     null rest args => [[g1],[auxfn,g1]]
@@ -1345,8 +1345,8 @@ backendCompileSPADSLAM: (%Symbol,%List,%Code) -> %Symbol
 backendCompileSPADSLAM(name,args,body) ==
   al := INTERNL(name,'";AL")   -- name of the cache hash table.
   auxfn := INTERNL(name,'";")  -- name of the worker function.
-  g1 := GENSYM()               -- name of the worker function parameter
-  g2 := GENSYM()               -- name for the cache value.
+  g1 := gensym()               -- name of the worker function parameter
+  g2 := gensym()               -- name for the cache value.
   u := 
     null args => [nil,nil,[auxfn]]
     null rest args => [[g1],["devaluate",g1],[auxfn,g1]]
-- 
cgit v1.2.3