mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

* goops.scm (eqv?, equal?): Provide default methods for `eqv?' and

Browse source 
`equal?'.
(compute-getters-n-setters): Check for bad init-thunks.
(update-direct-method!): Use eq? instead of eqv?.
This commit is contained in:
Mikael Djurfeldt 2003-04-17 18:52:21 +00:00
parent 61951a9a9a
commit 95f2bb326c
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
oop/ChangeLog
View file

@ -3,6 +3,7 @@
* goops.scm (eqv?, equal?): Provide default methods for `eqv?' and * goops.scm (eqv?, equal?): Provide default methods for `eqv?' and
`equal?'. `equal?'.
(compute-getters-n-setters): Check for bad init-thunks. (compute-getters-n-setters): Check for bad init-thunks.
(update-direct-method!): Use eq? instead of eqv?.
2003-04-15 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2003-04-15 Mikael Djurfeldt <djurfeldt@nada.kth.se>

2
oop/goops.scm
View file

@ -936,7 +936,7 @@
;; So we can work as if we had only proper lists. ;; So we can work as if we had only proper lists.
(if (pair? l) (if (pair? l)
(begin (begin
(if (eqv? (car l) old) (if (eq? (car l) old)
(set-car! l new)) (set-car! l new))
(loop (cdr l)))))) (loop (cdr l))))))