diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-11-29 19:19:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-11-29 19:19:54 +0000 |
| commit | 63df59e7ab921baff00e47e915b4df1c441b2381 (patch) | |
| tree | 8c9905242ddb37483821c772a381d17fb7f8dfdd /src/interp/nruncomp.boot | |
| parent | 53e9355c2e91561b71c89a0b79eb3f3d2645b02f (diff) | |
| download | open-axiom-63df59e7ab921baff00e47e915b4df1c441b2381.tar.gz | |
* boot/tokens.boot (absKind, absParms, absBody): New selectors.
* interp/compiler.boot (canReturn): Handle %lambda forms.
(compUnnamedMapping): Generate %lambda forms. Don't optimize them
yet.
* interp/g-opt.boot: %lambda forms are side-effect free.
* interp/lisp-backend.boot: Translate them.
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 2fe210e9..29a36988 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -666,8 +666,7 @@ NRTputInHead(db,bod) == bod is ['%when,:clauses] => for cc in clauses repeat NRTputInTail(db,cc) bod - bod is ['QUOTE,:.] => bod - bod is ["CLOSEDFN",:.] => bod + bod.op in '(QUOTE CLOSEDFN) => bod NRTputInHead(db,first bod) NRTputInTail(db,rest bod) bod |