anchor.diff:  (import extra/assert ())
   (import extra/test ())
  +(import extra/check ())
   
   (describe "The base library"
     (it "can unwrap values"
  
positive.code:             (eq? (or false true) true)))
  
    (it "can add a value to the start of a list"
      (affirm (eq? (cons 0 '(1 2 3)) '(0 1 2 3))
              (eq? (cons 4 '()) '(4))))
  
    (it "can execute a for loop"
      (affirm (eq? (with (x 0)
  
negative.code:               x) 10)))
  
    (it "can branch based on a condition"
      (check [(number a) (number b)] (= (let [(x 0) (c false)]
                                          (if c
                                            (set! x a)
                                            (set! x b))
                                          x) b)))
  
    (it "can create a list from variadic arguments"
      (check [(number a) (number b) (number c)] (eq? (list a b c) '(a b c))))
  
    (it "can convert a value to a lisp expression"
      (affirm (eq? (pretty 3) "3")
              (eq? (pretty "abc") "\"abc\"")
              (eq? (pretty true) "true")
              (eq? (pretty false) "false"))))
  