mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* tests/goops.test: Added tests for correctness of class

Browse source 
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.
This commit is contained in:
Mikael Djurfeldt 2003-04-17 19:23:52 +00:00
parent 266f3a23d7
commit 47cd67db2f
6 changed files with 92 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
oop/ChangeLog
View file

@ -1,6 +1,8 @@
2003-04-17 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* goops.scm (compute-getters-n-setters): Check for bad init-thunk.
(eqv?): Added default method.
(equal?): New default method which uses eqv?.
2003-04-15 Mikael Djurfeldt <djurfeldt@nada.kth.se>

3
oop/goops.scm
View file

@ -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.