aboutsummaryrefslogtreecommitdiff
path: root/src/interp/newaux.lisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-11 15:36:24 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-11 15:36:24 +0000
commit348cdc0022cf9aaf0fc5491ed8d899a7284e07ec (patch)
treea7a62de0495cb107357b742f5b1d3a0c1a76e3e0 /src/interp/newaux.lisp
parent35e9d8ac6d43cad99aa07aa8ad7a7f0242ab3887 (diff)
downloadopen-axiom-348cdc0022cf9aaf0fc5491ed8d899a7284e07ec.tar.gz
Add support for interpreter-style anonymous function.
* interp/compiler.boot (compUnnamedMapping): New. (gatherParameterList): Likewise. (compLambda): Likewise.
Diffstat (limited to 'src/interp/newaux.lisp')
-rw-r--r--src/interp/newaux.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/newaux.lisp b/src/interp/newaux.lisp
index b5d82ba4..ddf763b1 100644
--- a/src/interp/newaux.lisp
+++ b/src/interp/newaux.lisp
@@ -122,7 +122,7 @@
(/\\ 250 251) (\\/ 200 201)
(\.\. SEGMENT 401 699 (|PARSE-Seg|))
(=> 123 103)
- (+-> 122 121)
+ (+-> 998 121)
(== DEF 122 121)
(==> MDEF 122 121)
(\| 108 111) ;was 190 190