diff options
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)== |