Does "case" work on widgets?

From: Grant Edwards <grante_at_rosevax.rosemount.com>
Date: Mon, 24 Oct 1994 17:07:22 -0500 (CDT)

The "case" construct doesn't seem to work with widgets. For example
the following code:

  (define z (case .m
                (.m ".m")
                (.x ".x")
                (else "other")))

  (write z)
  (newline)

Will print "other" when I expect it to print ".m" (I checked and eqv?
returns true for (eqv? .m .m).

If the "case" is re-written as a "cond" using eqv? then it works, so
it's not a big deal, but I thought I'd let everybody know.

-- 
Grant Edwards
Rosemount Inc.
grante_at_rosemount.com

Received on Mon Oct 24 1994 - 23:27:03 CET