summaryrefslogtreecommitdiff
path: root/oop/goops.scm
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2003-04-17 15:24:53 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2003-04-17 15:24:53 +0000
commit466dd859696747b8dc4835b00e87d7b7f2f988f0 (patch)
tree13f68e3d0201013746452aa3fb2fa7208e392ba1 /oop/goops.scm
parent312006bbb20fb54a4bbcca1749ed2cc06550ac86 (diff)
downloadguile-466dd859696747b8dc4835b00e87d7b7f2f988f0.tar.gz
Comment
Diffstat (limited to 'oop/goops.scm')
-rw-r--r--oop/goops.scm3
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))