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
42
43
44
|
# -*- coding: utf-8 -*-
require_relative 'atom'
require_relative 'list'
class NilClass
include MIKU::Atom
# include MIKU::List
def car
self end
def cdr
self end
def setcar(val)
MIKU::Cons.new(val, nil) end
def setcdr(val)
MIKU::Cons.new(nil, val) end
# def each(&proc)
# nil end
def empty?
true
end
def mapcarcdr(converter)
nil end
def unparse
'nil' end
def inspect
'nil' end
def miku_eval(symtable=MIKU::SymbolTable.new)
self end
# def method_missing(name, *args)
# warn "undefined method #{name} for nil."
# nil end
end
|
