~tim/scheme-vm

ref: 6276f397c829732a84c5ed8c87ba3253e0370267 scheme-vm/vm/bool_true.rb -rw-r--r-- 215 bytes
6276f397Tim Morgan Update code style 5 years ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
require 'singleton'

class VM
  class BoolTrue
    include Singleton

    def raw
      true
    end

    def to_ruby
      raw
    end

    def to_s
      '#t'
    end

    alias eq? ==
    alias eqv? ==
  end
end