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

Comment

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-04-17 15:24:53 +00:00
parent 312006bbb2
commit 466dd85969
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
oop/goops.scm
View file

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