Remove MLKLinkedList.

8 files changed, 2 insertions, 138 deletions

diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m
index 2ddaba7..733a308 100644
--- a/MLKDynamicContext.m
+++ b/MLKDynamicContext.m
@@ -30,7 +30,6 @@
 #import "MLKDispatchingMacroCharacterReader.h"
 #import "MLKDynamicContext.h"
 #import "MLKEnvironment.h"
-#import "MLKLinkedList.h"
 #import "MLKPackage.h"
 #import "MLKParenReader.h"
 #import "MLKQuoteReader.h"
diff --git a/MLKLexicalContext.h b/MLKLexicalContext.h
index c4aafc2..e65f60c 100644
--- a/MLKLexicalContext.h
+++ b/MLKLexicalContext.h
@@ -22,7 +22,7 @@
 #import <Foundation/NSArray.h>
 #import <Foundation/NSSet.h>
 
-@class MLKEnvironment, MLKLexicalEnvironment, MLKSymbol, NSLinkedList, NSSet,
+@class MLKEnvironment, MLKLexicalEnvironment, MLKSymbol, NSSet,
        NSMutableDictionary, NSString, MLKCons;
 
 
diff --git a/MLKLexicalContext.m b/MLKLexicalContext.m
index 3eac317..682cc90 100644
--- a/MLKLexicalContext.m
+++ b/MLKLexicalContext.m
@@ -28,7 +28,6 @@
 #import "MLKLexicalContext.h"
 #import "MLKLexicalEnvironment.h"
 #import "MLKEnvironment.h"
-#import "MLKLinkedList.h"
 #import "MLKPackage.h"
 #import "MLKParenReader.h"
 #import "MLKReadtable.h"
diff --git a/MLKLexicalEnvironment.h b/MLKLexicalEnvironment.h
index a97d5b9..5503931 100644
--- a/MLKLexicalEnvironment.h
+++ b/MLKLexicalEnvironment.h
@@ -18,7 +18,7 @@
 
 #include <Foundation/NSObject.h>
 
-@class MLKEnvironment, MLKSymbol, NSLinkedList,
+@class MLKEnvironment, MLKSymbol,
        NSMutableDictionary, NSString, NSSet;
 
 
diff --git a/MLKLexicalEnvironment.m b/MLKLexicalEnvironment.m
index eb84ada..eb7c962 100644
--- a/MLKLexicalEnvironment.m
+++ b/MLKLexicalEnvironment.m
@@ -27,7 +27,6 @@
 #import "MLKCons.h"
 #import "MLKEnvironment.h"
 #import "MLKLexicalEnvironment.h"
-#import "MLKLinkedList.h"
 #import "MLKPackage.h"
 #import "MLKParenReader.h"
 #import "MLKReadtable.h"
diff --git a/MLKLinkedList.h b/MLKLinkedList.h
deleted file mode 100644
index a891cb4..0000000
--- a/MLKLinkedList.h
+++ /dev/null
@@ -1,43 +0,0 @@
-/* -*- mode: objc; coding: utf-8 -*- */
-/* Étoilisp/Mulklisp, 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 <http://www.gnu.org/licenses/>.
- */
-
-#import "Foundation/NSObject.h"
-#import "MLKLispValue.h"
-
-@class MLKCons;
-
-
-@interface MLKLinkedList : NSObject
-{
-  MLKCons *_firstCons;
-}
-
--(MLKLinkedList*) init;
--(MLKLinkedList*) initWithCons:(MLKCons*)cons;
-
--(void) push: (id)object;
--(id) pop;
--(MLKCons*) firstCons;
--(BOOL) null;
-
-#ifdef __OBJC2__
--(NSUInteger) countByEnumeratingWithState:(NSFastEnumerationState *)state objects:(id *)stackbuf count:(NSUInteger)len;
-#endif
-
--(void) dealloc;
-@end
diff --git a/MLKLinkedList.m b/MLKLinkedList.m
deleted file mode 100644
index 3dfd5eb..0000000
--- a/MLKLinkedList.m
+++ /dev/null
@@ -1,89 +0,0 @@
-/* -*- mode: objc; coding: utf-8 -*- */
-/* Étoilisp/Mulklisp, 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 <http://www.gnu.org/licenses/>.
- */
-
-#import "MLKLinkedList.h"
-#import "MLKCons.h"
-#import "runtime-compatibility.h"
-#import "util.h"
-
-
-@implementation MLKLinkedList
--(MLKLinkedList*) init
-{
-  self = [super init];
-  _firstCons = nil;
-  return self;
-}
-
--(MLKLinkedList*) initWithCons:(MLKCons*)cons
-{
-  self = [super init];
-  LASSIGN (_firstCons, cons);
-  return self;
-}
-
--(void) push: (id)object
-{
-  LASSIGN (_firstCons, [MLKCons cons:object with:_firstCons]);
-}
-
--(id) pop
-{
-  id retval = [_firstCons car];
-  LRETAIN (retval);
-  LASSIGN (_firstCons, [_firstCons cdr]);
-  LAUTORELEASE (retval);
-  return retval;
-}
-
--(MLKCons*) firstCons
-{
-  return _firstCons;
-}
-
--(BOOL) null
-{
-  return !_firstCons;
-}
-
-#ifdef __OBJC2__
--(NSUInteger) countByEnumeratingWithState:(NSFastEnumerationState *)state objects:(id *)stackbuf count:(NSUInteger)len
-{
-  if (state->state == 0)
-    {
-      state->mutationsPtr = &_firstCons;
-      state->extra[0] = (unsigned long) &_firstCons;
-    }
-  
-  MLKCons *currentCons = (MLKCons*) state->extra[0];
-  if (currentCons)
-    {
-      state->itemsPtr = [currentCons car];
-      return 1;
-    }
-  else
-    return 0;
-}
-#endif
-
--(void) dealloc
-{
-  LRELEASE (_firstCons);
-  [super dealloc];
-}
-@end
diff --git a/MLKLowLevelTests.m b/MLKLowLevelTests.m
index ef11cfb..cf01a90 100644
--- a/MLKLowLevelTests.m
+++ b/MLKLowLevelTests.m
@@ -23,7 +23,6 @@
 #include "MLKDoubleFloat.h"
 #include "MLKDynamicContext.h"
 #include "MLKEnvironment.h"
-#include "MLKLinkedList.h"
 #include "MLKPackage.h"
 #include "MLKRatio.h"
 #include "MLKReader.h"