Version 028.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.c b/match.c
index c9d45670..a160d04f 100644
--- a/match.c
+++ b/match.c
@@ -249,7 +249,7 @@ static val dest_bind(val bindings, val pattern, val value)
         return t;
       piter = cdr(piter);
       viter = cdr(viter);
-    } while (consp(piter) && consp(viter));
+    }
 
     if (bindable(piter)) {
       bindings = dest_bind(bindings, piter, viter);