blob: d64664b58a98fa1e2c0e138dfebae410347868db (
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
require_relative "env"
class MalException < StandardError
attr_reader :data
def initialize(data)
@data = data
end
end
class List < Array
attr_accessor :meta
def conj(xs)
xs.each{|x| self.unshift(x)}
return self
end
end
class Vector < Array
attr_accessor :meta
def conj(xs)
self.push(*xs)
return self
end
end
class Hash # re-open and add meta
attr_accessor :meta
end
def sequential?(obj)
return obj.is_a?(List) || obj.is_a?(Vector)
end
class Proc # re-open and add meta
attr_accessor :meta
end
class Function < Proc
attr_accessor :ast
attr_accessor :env
attr_accessor :params
attr_accessor :is_macro
def initialize(ast=nil, env=nil, params=nil, &block)
super()
@ast = ast
@env = env
@params = params
@is_macro = false
end
def gen_env(args)
return Env.new(@env, @params, args)
end
end
class Atom
attr_accessor :meta
attr_accessor :val
def initialize(val)
@val = val
end
end
|
