From 97ad5ac29b2ca40c5ec27f9057b28f8c9cb2b566 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Fri, 13 Jun 2008 20:01:47 +0200
Subject: Add class MLKThrowException.

---
 MLKThrowException.m | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 MLKThrowException.m

(limited to 'MLKThrowException.m')

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
-- 
cgit v1.2.3