diff options
author | dos-reis <gdr@axiomatics.org> | 2012-02-25 17:09:08 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-02-25 17:09:08 +0000 |
commit | ba636488b16b6fed9014dc1e51019622336b8425 (patch) | |
tree | 6887969c0c5dcb277ba9f1f58c3c88cf2e0e134f /src/interp/g-opt.boot | |
parent | 8a5c9546715b162c9ed5113621c46e0a250de58f (diff) | |
download | open-axiom-ba636488b16b6fed9014dc1e51019622336b8425.tar.gz |
* interp/compiler.boot (finishLambdaExpression): Use %closure.
(extractCodeAndConstructTriple): Likewise.
* interp/g-opt.boot (optCall): Adjust.
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r-- | src/interp/g-opt.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 958f69d7..66aa756d 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -543,7 +543,7 @@ optCall (x is ['%call,:u]) == x.first := 'SPADCALL x.rest := [:a,name] x - fn is ['%pair,['%function,op],env] => + fn is ['%closure,['%function,op],env] => x.first := op x.rest := [:a,env] x |