- added bytevector clauses to new equal? code.

This commit is contained in:
Abdulaziz Ghuloum 2008-11-14 02:15:12 -05:00
parent d45fedb7c7
commit c027b1da34
2 changed files with 4 additions and 1 deletions

View File

@ -87,6 +87,7 @@
(- k 1))])
(and k (f (+ i 1) k))))))))]
[(string? x) (and (string? y) (string=? x y) k)]
[(bytevector? x) (and (bytevector? y) (bytevector=? x y) k)]
[else (and (eqv? x y) k)]))
(define (interleave? x y k)
@ -122,6 +123,7 @@
k)])
(and k (f (+ i 1) k)))))))))]
[(string? x) (and (string? y) (string=? x y) k)]
[(bytevector? x) (and (bytevector? y) (bytevector=? x y) k)]
[else (and (eqv? x y) k)]))
(define (fast? x y k)
(let ([k (- k 1)])
@ -143,6 +145,7 @@
k)])
(and k (f (+ i 1) k))))))))]
[(string? x) (and (string? y) (string=? x y) k)]
[(bytevector? x) (and (bytevector? y) (bytevector=? x y) k)]
[else (and (eqv? x y) k)])))
(and (e? x y k) #t)))

View File

@ -1 +1 @@
1672
1673