diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-03 16:42:34 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-03 16:42:34 +0000 |
| commit | 2a7428b80002f6a01d4b182996675d8c0f7d2df0 (patch) | |
| tree | 0cb930a48c967ef72ee6139317e4e305a2842617 /src/interp/c-util.boot | |
| parent | 3e7657640d8a37d7bb3e9226854b68d91efe7f7f (diff) | |
| download | open-axiom-2a7428b80002f6a01d4b182996675d8c0f7d2df0.tar.gz | |
* interp/c-util.boot (makeWorkerName): New.
(backendCompileSLAM): Use it.
(backendCompileSPADSLAM): Likewise.
* interp/clam.boot (compHash): Likewise.
Do not synthetize new parameter for unary constructors.
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index ae89bf04..5ef19f19 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -37,6 +37,7 @@ import g_-opt namespace BOOT module c_-util where + makeWorkerName: %Symbol -> %Symbol clearReplacement: %Symbol -> %Thing replaceSimpleFunctions: %Form -> %Form foldExportedFunctionReferences: %List %Form -> %List %Form @@ -911,7 +912,8 @@ wrapSEQExit l == --% UTILITY FUNCTIONS ---appendOver x == "append"/x +makeWorkerName op == + makeSymbol strconc(symbolName op,'";") removeEnv t == [t.expr,t.mode,$EmptyEnvironment] -- t is a triple @@ -1514,7 +1516,7 @@ backendCompileNEWNAM x == backendCompileSLAM: (%Symbol,%List %Symbol,%Code) -> %Symbol backendCompileSLAM(name,args,body) == al := mkCacheName name -- name of the cache alist. - auxfn := makeSymbol strconc(name,'";") -- name of the worker function. + auxfn := makeWorkerName name -- name of the worker function. g1 := gensym() -- name for the parameter. g2 := gensym() -- name for the cache value u := -- body of the stub function @@ -1546,7 +1548,7 @@ backendCompileSLAM(name,args,body) == backendCompileSPADSLAM: (%Symbol,%List %Symbol,%Code) -> %Symbol backendCompileSPADSLAM(name,args,body) == al := mkCacheName name -- global name for the cache hash table. - auxfn := makeSymbol strconc(name,'";") -- name of the worker function. + auxfn := makeWorkerName name -- name of the worker function. g2 := gensym() -- local name for the cache value. u := args = nil => [nil,[auxfn]] |