1 files changed, 25 insertions, 0 deletions
diff --git a/MLKThrowException.m b/MLKThrowException.m
new file mode 100644
index 0000000..799db7e
--- /dev/null
+++ b/MLKThrowException.m
@@ -0,0 +1,25 @@
+/* -*- mode: objc; coding: utf-8 -*- */
+/* Copyright 2008, Matthias Benkard. */
+
+#include "MLKThrowException.h"
+
+
+@implementation MLKThrowException
+-(MLKThrowException *) initWithCatchTag:(MLKSymbol *)catchTag
+                                  value:(id)value
+{
+  _catchTag = catchTag;
+  _value = value;
+  return self;
+}
+
+-(MLKSymbol *) catchTag
+{
+  return _catchTag;
+}
+
+-(id) value
+{
+  return _value;
+}
+@end