diff options
-rw-r--r-- | oop/goops.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/oop/goops.scm b/oop/goops.scm index 360712122..70d47b4f8 100644 --- a/oop/goops.scm +++ b/oop/goops.scm @@ -741,6 +741,9 @@ (define-method (equal? x y) #f) +;;; These following two methods are for backward compatibility only. +;;; They are not called by the Guile interpreter. +;;; (define-method (object-eqv? x y) #f) (define-method (object-equal? x y) (eqv? x y)) |