adjust xmethod macro to yield a more helpful error message

This commit is contained in:
Robby Findler 2013-03-10 17:33:08 -05:00
parent 3f9fea063f
commit 282cdcbb5b

View File

@ -17,8 +17,8 @@
(define-syntax-rule (method class/interface method-name)
(*method 'method-name (quote-syntax class/interface)))
(define-syntax-rule (xmethod a b)
(elem (method a b) " in " (racket a)))
(define-syntax-rule (xmethod class/intf-id method-id)
(elem (method class/intf-id method-id) " in " (racket class/intf-id)))
(define (*method sym id)
(**method sym id))