summaryrefslogtreecommitdiff
path: root/oop/goops.scm
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2003-04-17 19:23:52 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2003-04-17 19:23:52 +0000
commit47cd67db2f52975b32ae1857b88af293797035b5 (patch)
treefafecbce15cd78227796f5afdceebef0c6792f1d /oop/goops.scm
parent266f3a23d7d905b044bf9b69ec2f7aaf41abf0d0 (diff)
downloadguile-47cd67db2f52975b32ae1857b88af293797035b5.tar.gz
* tests/goops.test: Added tests for correctness of class
precedence list in all basic classes and tests for eqv? and equal?. * goops.scm (compute-getters-n-setters): Check for bad init-thunk. (eqv?): Added default method. (equal?): New default method which uses eqv?. * eq.c (scm_eqv_p): Turned into a primitive generic.
Diffstat (limited to 'oop/goops.scm')
-rw-r--r--oop/goops.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/oop/goops.scm b/oop/goops.scm
index 08ce58c52..2d53cb94a 100644
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -739,7 +739,8 @@
;;; Methods to compare objects
;;;
-(define-method (equal? x y) #f)
+(define-method (eqv? x y) #f)
+(define-method (equal? x y) (eqv? x y))
;;; These following two methods are for backward compatibility only.
;;; They are not called by the Guile interpreter.