(define (eq? a b)
(%%cexp ('a 'a -> bool) "%0==%1" a b))
(define (error x)
(%%cexp (-> 'a) "goto Lreturn")
(%%cexp (-> 'a) "PXLL_UNDEFINED")
)
;; without a default case this should raise a match error
(define flip
0 -> 1
1 -> 0
;; x -> (error "flipped out!")
)
(flip 0)