throw exception when more unquote then quasiquotes

.gitattributes

@@ -1,3 +1,4 @@
 * text eol=lf
 .* text eol=lf
 dist/* binary
+package-lock.json binary

CHANGELOG.md

@@ -3,6 +3,7 @@
 * fix `ignore` macro
 * fix `load` function in node
 * fix `Pair::append` and `append` functions with non pair
+* throw exception when more unquote then quasiquotes
 
 ## 0.15.1
 ### Bug fixes

dist/lips.js

@@ -21,7 +21,7 @@
  * http://javascript.nwbox.com/ContentLoaded/
  * http://javascript.nwbox.com/ContentLoaded/MIT-LICENSE
  *
- * build: Sun, 19 May 2019 14:23:49 +0000
+ * build: Tue, 21 May 2019 17:19:22 +0000
  */
 (function () {
 'use strict';
@@ -4239,6 +4239,10 @@ function _typeof(obj) {
               parent = node;
               unquote_cnt++;
               node = node.car.cdr.car;
+            }
+
+            if (unquote_cnt > max_unq) {
+              throw new Error("You can't call `unquote` outside of quasiquote");
             } // we use Unquote to proccess inner most unquote first
             // in unquote function afer processing whole s-expression
 

examples/helpers.lips

@@ -168,6 +168,7 @@
                   (setTimeout (lambda ()
                                 (resolve (begin ,@expr)))
                               ,time))))
+
 ;; ---------------------------------------------------------------------------------------
 (define (pair-map fn seq-list)
   "(seq-map fn list)

src/lips.js

@@ -2787,6 +2787,9 @@
                             unquote_cnt++;
                             node = node.car.cdr.car;
                         }
+                        if (unquote_cnt > max_unq) {
+                            throw new Error(`You can't call \`unquote\` outside of quasiquote`);
+                        }
                         // we use Unquote to proccess inner most unquote first
                         // in unquote function afer processing whole s-expression
                         if (parent === node) {