--
You received this message because you are subscribed to the Google Groups "Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to racket-users...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/racket-users/2dac85e9-8058-437c-b5bc-a92f659c02f6%40googlegroups.com.
(define (foo? obj) (equal? obj foo-impl))
(define foo-widget list)
(define/contract (foo-impl _) (-> number? symbol?) 'a-foo)
(define-match-expander foo
(syntax-parser [(_ widget) #'(? foo? (app foo-widget widget))])
(make-rename-transformer #'foo-impl))
; (foo #t) ; contract violation
(foo 123)
--