From 84597fcf74fc74672fe664456e62ec6be5f2b066 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Tue, 2 Sep 2008 11:59:47 +0200 Subject: Add classes MLKNoSuchSymbolError, MLKStreamError, and MLKUnboundVariableError. --- MLKUnboundVariableError.m | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 MLKUnboundVariableError.m (limited to 'MLKUnboundVariableError.m') diff --git a/MLKUnboundVariableError.m b/MLKUnboundVariableError.m new file mode 100644 index 0000000..2408e0d --- /dev/null +++ b/MLKUnboundVariableError.m @@ -0,0 +1,44 @@ +/* -*- mode: objc; coding: utf-8 -*- */ +/* Toilet Lisp, a Common Lisp subset for the Étoilé runtime. + * Copyright (C) 2008 Matthias Andreas Benkard. + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or (at + * your option) any later version. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#import "MLKUnboundVariableError.h" +#import "runtime-compatibility.h" +#import "util.h" + + +@implementation MLKUnboundVariableError +-(id) initWithSymbol:(MLKSymbol *)symbol + inEnvironment:(MLKEnvironment *)env +{ + self = [super initWithName:@"MLKUnboundVariableError" + reason:[NSString stringWithFormat: + @"The variable %@ is unbound.", + MLKPrintToString(symbol)] + userInfo:nil]; + LASSIGN (_symbol, symbol); + LASSIGN (_env, env); + return self; +} + +-(void) dealloc +{ + LDESTROY (_env); + LDESTROY (_symbol); + [super dealloc]; +} +@end -- cgit v1.2.3