(define-module (bit-operations) #:export (xor)) (define (xor a b) (or (and a (not b)) (and (not a) b)))
