/[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.20 by mdj, Sat Jan 18 19:07:38 2003 UTC revision 1.21 by mdj, Thu Mar 6 12:51:45 2003 UTC
# Line 719  Line 719 
719  ;;; Methods to compare objects  ;;; Methods to compare objects
720  ;;;  ;;;
721    
722    (define-method (equal? x y) #f)
723    
724  (define-method (object-eqv? x y)    #f)  (define-method (object-eqv? x y)    #f)
725  (define-method (object-equal? x y)  (eqv? x y))  (define-method (object-equal? x y)  (eqv? x y))
726    

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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