From 2f8225195b95aaed2c45c0daf582104657114ec4 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 12 Jun 2008 22:14:26 +0200
Subject: MLKDynamicContext: Add support for catch tags.

---
 MLKDynamicContext.m | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'MLKDynamicContext.m')

diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m
index 2d8312f..ed4357a 100644
--- a/MLKDynamicContext.m
+++ b/MLKDynamicContext.m
@@ -25,6 +25,7 @@
                             variables:(NSDictionary *)vars
                              handlers:(NSDictionary *)handlers
                              restarts:(NSDictionary *)restarts
+                            catchTags:(NSDictionary *)catchTags
                        currentHandler:(MLKClosure *)handler
 {
   _parent = (aContext ? aContext : [MLKDynamicContext currentContext]);
@@ -33,6 +34,7 @@
                                         _parent,
                                         _parent->_conditionHandlers);
   _restarts = MAKE_ENVIRONMENT(restarts, _parent, _parent->_restarts);
+  _catchTags = MAKE_ENVIRONMENT(catchTags, _parent, _parent->_catchTags);
   _currentConditionHandler = (handler
                               ? (id) handler
                               : (_parent
-- 
cgit v1.2.3