From c027b1da34d8307346e5c2306343b8e68b04de93 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Fri, 14 Nov 2008 02:15:12 -0500 Subject: [PATCH] - added bytevector clauses to new equal? code. --- scheme/ikarus.equal.ss | 3 +++ scheme/last-revision | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/scheme/ikarus.equal.ss b/scheme/ikarus.equal.ss index e10d8de..bd36df8 100644 --- a/scheme/ikarus.equal.ss +++ b/scheme/ikarus.equal.ss @@ -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))) diff --git a/scheme/last-revision b/scheme/last-revision index 3d068d5..e889d75 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1672 +1673