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/i-eval.boot | |
parent | 4d744926ba30ed64d68481878404d99c745cd595 (diff) | |
download | open-axiom-9df910dc2e9a9a1eaf7a0e8d726a2181b1e31862.tar.gz |
Consistently use OIL opcodes for abstractions
Diffstat (limited to 'src/interp/i-eval.boot')
-rw-r--r-- | src/interp/i-eval.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot index b43c83e0..582089f2 100644 --- a/src/interp/i-eval.boot +++ b/src/interp/i-eval.boot @@ -243,7 +243,7 @@ evalForm(op,opName,argl,mmS) == ['SPADCALL,:form,freeFun] fun is ['XLAM,xargs,:xbody] => rec := first form - ['FUNCALL,['function, ['LAMBDA,xargs,:xbody]],:take(#xargs, form)] + ['%funcall,['%function, ['%lambda,xargs,:xbody]],:take(#xargs, form)] dcVector := evalDomain dc fun0 := newType? CAAR mm => |