diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-11 20:47:10 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-11 20:47:10 +0000 |
| commit | 9df910dc2e9a9a1eaf7a0e8d726a2181b1e31862 (patch) | |
| tree | da29042a8ae4bfb04d01ac7a67b34db81ffe2a95 /src/interp/clam.boot | |
| parent | 4d744926ba30ed64d68481878404d99c745cd595 (diff) | |
| download | open-axiom-9df910dc2e9a9a1eaf7a0e8d726a2181b1e31862.tar.gz | |
Consistently use OIL opcodes for abstractions
Diffstat (limited to 'src/interp/clam.boot')
| -rw-r--r-- | src/interp/clam.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index 10d5157a..6b8cbaa9 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -108,11 +108,11 @@ compHash(op,argl,body) == codeBody := mkBind([[g2,getCode]], ['%when,[g2,returnFoundValue],['%otherwise,putCode]]) - computeFunction := [auxfn,['LAMBDA,argl,:body]] + computeFunction := [auxfn,['%lambda,argl,:body]] if $reportCompilation then sayBrightlyI bright '"Generated code for function:" pp computeFunction - compQuietly [[op,['LAMBDA,argl,codeBody]],computeFunction] + compQuietly [[op,['%lambda,argl,codeBody]],computeFunction] op CDRwithIncrement x == |