What is the proper way to do this?
This goes into an infinite loop:
#lang racket/base
(require racket/generic)
(define-generics foo
(a foo) (b foo) (c foo)
#:fallbacks
[(define (a foo)
(displayln "a-fallback")
(b foo))
(define (b foo)
(displayln "b-fallback")
(a foo))])
(struct foo-struct ()
#:methods gen:foo
[(define (a foo) 1)])
(b (foo-struct))
--
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 [email protected].
For more options, visit https://groups.google.com/d/optout.
