summaryrefslogtreecommitdiff
path: root/MLKThrowException.m
blob: a4ba9ae534cb925573753e1002ef3c66cc347056 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
/* -*- mode: objc; coding: utf-8 -*- */
/* Copyright 2008, Matthias Benkard. */

#include "MLKThrowException.h"


@implementation MLKThrowException
-(MLKThrowException *) initWithCatchTag:(MLKSymbol *)catchTag
                                  value:(id)value
{
  self = [super init];
  ASSIGN (_catchTag, catchTag);
  ASSIGN (_value, value);
  return self;
}

-(MLKSymbol *) catchTag
{
  return _catchTag;
}

-(id) value
{
  return _value;
}

-(void) dealloc
{
  RELEASE (_catchTag);
  RELEASE (_value);
  [super dealloc];
}
@end