diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-10 02:32:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-10 02:32:04 +0000 |
| commit | cc1b3ad0c3e2375bff3d0d736b988d41840dcadd (patch) | |
| tree | 4d92d50afb94d5e62303733bc35b5635163f5f39 /src/interp/c-util.boot | |
| parent | fff23d752812e2ae22bebc21d24c42bb145a916e (diff) | |
| download | open-axiom-cc1b3ad0c3e2375bff3d0d736b988d41840dcadd.tar.gz | |
Add lambda expression syntax to Boot.
* boot/parser.boot (bpLambda): New.
* boot/ast.boot (bfLambda): New.
* boot/tokens.boot: Add "+->" as token.
* interp/cparse.boot: Use lambda expression syntax.
* interp/c-util.boot: Likewise.
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 9a51fc2a..9325efb1 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1506,7 +1506,7 @@ mutateToBackendCode x == $LocalVars := [y,:$LocalVars] newBindings := [y,:newBindings] res := mutateToBackendCode CDDR x - $LocalVars := REMOVE_-IF(function LAMBDA(y(), y in newBindings), + $LocalVars := REMOVE_-IF(function (y +-> y in newBindings), $LocalVars) [u,second x,:res] u = "DECLARE" => nil -- there is nothing to do convert there |