summaryrefslogtreecommitdiff
path: root/MLKCons.m
blob: e9e63600d9f1f7d91ad2ff5e63a34a6195fd3486 (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
34
35
36
37
38
39
40
41
/* -*- mode: objc; coding: utf-8 -*- */
/* Copyright 2008, Matthias Benkard. */

#import "MLKCons.h"


@implementation MLKCons
+(MLKCons*) cons:(id)car with:(id)cdr
{
  return AUTORELEASE ([[MLKCons alloc] initWithCar:car cdr:cdr]);
}

-(MLKCons*) initWithCar:(id)car cdr:(id)cdr
{
  ASSIGN (_car, car);
  ASSIGN (_cdr, cdr);
  return self;
}


-(id) car
{
  return _car;
}

-(id) cdr
{
  return _cdr;
}

-(void) setCar:(id)value
{
  ASSIGN (_car, value);
}

-(void) setCdr:(id)value
{
  ASSIGN (_cdr, value);
}
@end