buggy.scm

(define (make-generic)
  (letrec ((self (lambda args
                   (let ((m (find-method self args)))
                     (if m
                         (apply m args)
                         (error "method not found"))))))
    (add-generic self)
    self))



(eq? (make-generic) (make-generic)) ;=> #t      OH, MY GOSH!