Parent Directory | Revision Log | 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. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |