diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2009-11-20 17:40:24 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2009-11-20 17:40:24 -0800 |
commit | 00f823aee439ed8c2cdd71dfbb89385dc68eae7b (patch) | |
tree | e30066afd19f0ab5d31b87c5e2645d6f25ca4596 /match.c | |
parent | 1dc0ed67b0b00b74f2abbf4e5a5d9512bb04dab0 (diff) | |
download | txr-00f823aee439ed8c2cdd71dfbb89385dc68eae7b.tar.gz txr-00f823aee439ed8c2cdd71dfbb89385dc68eae7b.tar.bz2 txr-00f823aee439ed8c2cdd71dfbb89385dc68eae7b.zip |
* 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.
Diffstat (limited to 'match.c')
-rw-r--r-- | match.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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; } |