diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-29 04:31:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-29 04:31:43 +0000 |
| commit | ebb11deb4ae269704cb19bc64714a862497a8eb6 (patch) | |
| tree | 0efff25cdfe8c751e56d7b2cb8f7c6b6fe0af2a4 /src/interp/define.boot | |
| parent | 8ee5eef95e60e0e97e5f14a92b8eb5c8c517c9ab (diff) | |
| download | open-axiom-ebb11deb4ae269704cb19bc64714a862497a8eb6.tar.gz | |
Misc cleanups.
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index ff3789aa..62dce91b 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -2151,11 +2151,17 @@ compileConstructor1(db,form:=[fn,[key,vl,:bodyl]]) == -- we will cache all of its values on $ConstructorCache with reference -- counts dbConstructorKind db = 'category => - first compAndDefine [[fn,['%slam,vl,:bodyl]]] + first compAndDefine(db,[[fn,['%slam,vl,:bodyl]]]) dbInstanceCache db = nil => first backendCompile [[fn,['%lambda,vl,:bodyl]]] compHash(db,fn,vl,bodyl) +++ Subroutine of compileConstructor1. Called to compile the body +++ of a category constructor definition. +compAndDefine(db,l) == + $backend: local := function evalAndPrintBackendDecl + backendCompile l + compHash(db,op,argl,body) == -- Entries will be stored on the global hashtable in a uniform way: -- (<argument list>, <reference count>,:<value>) |