KissInterp2 let list destructuring

src/kiss/KissInterp2.kiss

@@ -136,12 +136,16 @@
 					(nextVar []
 						(if bindings
 								(let [v (bindings.shift)
-										vName (symbolNameValue v)
 										val (bindings.shift)]
-									(evalCC val ->val {
-										(dictSet scope vName val)
-										(nextVar)
-									}))
+									(evalCC val ->val
+										(case v.def
+											((Symbol vName)
+												(dictSet scope vName val))
+											((ListExp names)
+												(doFor [i s] (enumerate names)
+													(dictSet scope (symbolNameValue s) (nth val i))))
+											(never otherwise)))
+										(nextVar))
 							(evalCC (callSymbol "begin" body) ->result {
 								(localScopes.pop)
 								(cc result)

src/test/cases/KissInterp2TestCase.hx

@@ -49,5 +49,8 @@ class KissInterp2TestCase extends Test {
     function testDestructive() {
         _testDestructive();
     }
+    function testListDestructure() {
+        _testListDestructure();
+    }
      
 }

src/test/cases/KissInterp2TestCase.kiss

@@ -63,3 +63,7 @@
 (function _testDestructive []
 	(let [interp (new Interp)]
 		(assertEval 5 "(let [i 2] (+= i 3) i)")))
+
+(function _testListDestructure []
+    (let [interp (new Interp)]
+		(assertEval [5 6 7] "(let [[a b c] [5 6 7]] [a b c])")))