test for c4 4

Author: seckcoder

src/eval/eval.scm

@@ -406,7 +406,8 @@
     (seck-eval '(define a 3) new-env)
     (seck-eval '(set! a 4) new-env)
     (assert (= (seck-eval 'a new-env) 4))
-    ; (assert (seck-eval '(and (= a 4) (< a 5) (> a 2)) new-env))
+    (assert (seck-eval '(and (= a 4) (< a 5) (> a 2)) new-env))
+    (assert (seck-eval '(or (= a 5) (> a 5) (> a 2)) new-env))
     (seck-eval '(define (op a b)
                   (if (> a b)
                     (- a b)