/[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.13.2.5 by mdj, Thu Apr 17 17:50:46 2003 UTC revision 1.13.2.6 by mdj, Thu Apr 17 18:47:18 2003 UTC
# Line 658  Line 658 
658  ;;; Methods to compare objects  ;;; Methods to compare objects
659  ;;;  ;;;
660    
661  (define-method (equal? x y) #f)  (define-method (eqv? x y)   #f)
662    (define-method (equal? x y) (eqv? x y))
663    
664  ;;; These following two methods are for backward compatibility only.  ;;; These following two methods are for backward compatibility only.
665  ;;; They are not called by the Guile interpreter.  ;;; They are not called by the Guile interpreter.

Legend:
Removed from v.1.13.2.5  
changed lines
  Added in v.1.13.2.6

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