From 9c53b933216af4ae6c7233384ace756572dcb597 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 28 Apr 2011 04:45:25 +0000
Subject: 	* boot/ast.boot (bfReduceCollect): Delegate to bfDoCollect if 
 op is append or append!.

---
 src/boot/ast.boot | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/boot/ast.boot')

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index bc444a4e..15a720bc 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -351,6 +351,8 @@ bfReduceCollect(op,y)==
     a :=
       op is ["QUOTE",:.] => second op
       op
+    a is "append!" => bfDoCollect(body,itl,'lastNode,'skipNil)
+    a is "append" => bfDoCollect(['copyList,body],itl,'lastNode,'skipNil)
     op := bfReName a
     init := a has SHOETHETA or op has SHOETHETA
     bfOpReduce(op,init,body,itl)
-- 
cgit v1.2.3