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