~tim/scheme-vm

ref: f23168670146fb6810d3293d5539579fe261db4d scheme-vm/lib/bool.scm -rw-r--r-- 118 bytes
f2316867Tim Morgan Add boolean? predicate 6 years ago
                                                                                
1
2
3
4
5
6
7
(define boolean?
  (lambda (b)
    (if (eq? b #t)
        #t
        (if (eq? b #f)
            #t
            #f))))