Use define/generic:
#lang racket/base
(require racket/generic)
(define-generics foo
(a foo) (b foo) (c foo)
#:fallbacks
[(define/generic gen-a a)
(define/generic gen-b b)
(define (a foo)
(displayln a-fallback)
(gen-b foo))
(define (b foo)
(displayln b-fallback)
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
Thanks!
On Jul 6, 2015, at 9:53 PM, Jon Zeppieri zeppi...@gmail.com wrote:
Use define/generic:
#lang racket/base
(require racket/generic)
(define-generics foo
(a foo) (b foo) (c foo)
#:fallbacks
[(define/generic gen-a a)
(define/generic gen-b b)
(define (a foo)
3 matches
Mail list logo