diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-28 14:12:41 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-28 14:12:41 +0000 |
| commit | 460eba8d1a5ea8feef28282e70ba2d22fa1fcdc6 (patch) | |
| tree | ddd3aed51b69201221c396bf9e11465c8fb782bb /src/boot/ast.boot | |
| parent | af089a02e32f424463e93e147b60222de0839f1e (diff) | |
| download | open-axiom-460eba8d1a5ea8feef28282e70ba2d22fa1fcdc6.tar.gz | |
Add support for 'property' builtin function.
* interp/g-timer.boot: Rename property to prop to avoid conflict.
* boot/parser.boot (bpAssignLHS): Allow functional places to
assign to.
* boot/ast.boot (bfPlace): New.
(bfAssign): Handle %Place forms.
* boot/tokens.boot: property is now translated to GET.
Diffstat (limited to 'src/boot/ast.boot')
| -rw-r--r-- | src/boot/ast.boot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 7f60ae1b..dbe1231c 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -209,6 +209,9 @@ compFluidize x== x is ["QUOTE",:.] => x [compFluidize(first x),:compFluidize(rest x)] +bfPlace x == + ["%Place",:x] + bfTuple x == ["TUPLE",:x] @@ -954,6 +957,7 @@ bfTagged(a,b)== bfAssign(l,r)== bfTupleP l => bfSetelt(second l,CDDR l ,r) + l is ["%Place",:l'] => ["SETF",l',r] bfLET(l,r) bfSetelt(e,l,r)== |