diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-04-17 19:23:52 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-04-17 19:23:52 +0000 |
commit | 47cd67db2f52975b32ae1857b88af293797035b5 (patch) | |
tree | fafecbce15cd78227796f5afdceebef0c6792f1d /oop/goops.scm | |
parent | 266f3a23d7d905b044bf9b69ec2f7aaf41abf0d0 (diff) | |
download | guile-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.scm | 3 |
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. |