/[guile]/guile/guile-core/oop/goops.scm
ViewVC logotype

Diff of /guile/guile-core/oop/goops.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by mdj, Thu Apr 17 17:37:11 2003 UTC revision 1.35 by mdj, Thu Apr 17 19:23:39 2003 UTC
# Line 739  Line 739 
739  ;;; Methods to compare objects  ;;; Methods to compare objects
740  ;;;  ;;;
741    
742  (define-method (equal? x y) #f)  (define-method (eqv? x y) #f)
743    (define-method (equal? x y) (eqv? x y))
744    
745  ;;; These following two methods are for backward compatibility only.  ;;; These following two methods are for backward compatibility only.
746  ;;; They are not called by the Guile interpreter.  ;;; They are not called by the Guile interpreter.

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26