From 3232dd4d896a3f25825a4736110d3f6f77fe2768 Mon Sep 17 00:00:00 2001
From: alexlamsl <alexlamsl@gmail.com>
Date: Thu, 2 Feb 2017 03:18:16 +0800
Subject: [PATCH] handle `AST_Seq` elements in `AST_Seq.from_array()`

---
 lib/ast.js | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/ast.js b/lib/ast.js
index 9bdbe7bf..e0fa6fe8 100644
--- a/lib/ast.js
+++ b/lib/ast.js
@@ -610,7 +610,13 @@ var AST_Seq = DEFNODE("Seq", "car cdr", {
         var i = array.length - 1;
         var list = array[i];
         while (--i >= 0) {
-            list = AST_Seq.cons(array[i], list);
+            var node = array[i];
+            if (node instanceof AST_Seq) {
+                node.add(list);
+                list = node;
+            } else {
+                list = AST_Seq.cons(array[i], list);
+            }
         }
         return list;
     },