test/bif.pit


1
2
3
4
5
6
7
8
9
10
11
12

(print! nil)
(print! nil)
(print! t)
(print! (eq? 1 1))
(diagnostics!)
(defun! bif (x)
  (cons x x))
(diagnostics!)
(setq! foo (print! (bif (bif (bif 67)))))
(print! (eq? (car foo) (cdr foo)))
(diagnostics!)
(print! foo)