Implement or

tomstuart · Apr 28, 2014 · c054cf3 · c054cf3
1 parent 23d09ca
commit c054cf3
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/list.rb b/lib/list.rb
@@ -24,6 +24,8 @@ def evaluate(env)
           arguments.first
         when :cond
           arguments.detect { |list| list.car.evaluate(env) == Atom::TRUE }.cdr.car.evaluate(env)
+        when :or
+          arguments.first.evaluate(env) == Atom::TRUE ? Atom::TRUE : arguments.last.evaluate(env)
         else
           first_argument, *other_arguments = arguments.map { |a| a.evaluate(env) }
           first_argument.send(operation, *other_arguments)