diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-04-17 15:24:53 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-04-17 15:24:53 +0000 |
commit | 466dd859696747b8dc4835b00e87d7b7f2f988f0 (patch) | |
tree | 13f68e3d0201013746452aa3fb2fa7208e392ba1 /oop/goops.scm | |
parent | 312006bbb20fb54a4bbcca1749ed2cc06550ac86 (diff) | |
download | guile-466dd859696747b8dc4835b00e87d7b7f2f988f0.tar.gz |
Comment
Diffstat (limited to 'oop/goops.scm')
-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)) |