And now do:

(define eqv? equal?)
(newline)
(write (case "asd" (("asd") #t)))
(newline)

You'll find Tinyscheme, Minischeme, MIT, Scheme48/SCSH
included in your list. Ypsilon and Stalin exhibit this
behaviour for strings, but not for more structured data
like vectors.

On Wed, 2010-12-22 at 11:55 -0500, John Cowan wrote:
> Eli Barzilay scripsit:
>
> > Is there really any implementation where
> >
> >   (let ((eqv? #f)) (case 1 ((1) 1)))
> >
> > throws an error?  (I don't know of any, but if there is one, it should
> > be a case for a bug report rather than something to draw conclusions
> > from.)
>
> Yes: Bigloo, STklos, and Scheme 9 all have this problem.  Racket, Gauche,
> MIT, Gambit, Chicken, Scheme48/scsh, Guile, Kawa, SISC, Chibi, Chez,
> SCM, Ikarus, Larceny, Ypsilon, Mosh, and SSCM do not.
>

_______________________________________________
Scheme-reports mailing list
Scheme-reports@scheme-reports.org
http://lists.scheme-reports.org/cgi-bin/mailman/listinfo/scheme-reports