From 00f823aee439ed8c2cdd71dfbb89385dc68eae7b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 20 Nov 2009 17:40:24 -0800
Subject: * unwind.c (uw_throw): If streams are not initialized, we have an
 unhandled exception too early in initialization. Use C stream to print an
 error message and abort. Using the nil stream variable will just cause a
 recursion bomb.

---
 match.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'match.c')

diff --git a/match.c b/match.c
index 2c30ed22..9c93136d 100644
--- a/match.c
+++ b/match.c
@@ -259,6 +259,7 @@ val dest_bind(val bindings, val pattern, val value)
       if (bindings == t)
         return t;
     }
+    return bindings;
   } else if (tree_find(value, pattern)) {
     return bindings;
   }
-- 
cgit v1.2.3