;;@ignore ;; Only matches the specified literal. (define (p:literal val) (p:predicate (identity? val)))