Re: a typeof command for debugging?

* Mark Summerfield <m.n.summerfield@gmail.com>
| I've incorporated that but I still have an actual bug. The catch always
| returns false (failed) so objects always get returned as list_or_str. Yet,
| if I use info object class directly it correctly returns the class name.
| So clearly I'm doing something wrong in the catch.

>

|     proc typeof x {
|         # puts "\n[tcl::unsupported::representation $x]"
|         if {![catch {[info object class $x] name}]} {
|             return $name

This looks suspicious: you are calling
  [info object class $x]
and whatever that returns, you use as a command to call with argument 'name',
and discard the result.  The variable $name should not be set when you hit
the return.

Did you rather mean

  catch {info object class $x} name

?
R'