Tired of writing:
#:methods gen:custom-write
[(define write-proc
(make-constructor-style-printer
(lambda (x) blablabla)
(lambda (x) blablabla)))]
I made this macro:
(define-syntax (print-as stx)
(syntax-case stx []
{[_ lam1 lam2]
#'[(define write-proc
(make-constructor-style-printer
lam1 lam2))]}))
So I could just:
(struct point (x y)
#:methods gen:custom-write
[print-as
(lambda (obj) 'p)
(lambda (obj)
(list [point-x obj] [point-y obj]))])
But I get a bad syntax error. I've tried many subtle changes to no avail.
What am I doing wrong?
--
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+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/CAN4YmRH0jUXyG3YMKojrP2WSAKunrCjtN%3DyTFN2dPjmvvQDVdg%40mail.gmail.com.
