Index: generic/predefined.xotcl =================================================================== diff -u -r465589c61a1671ae9712de8d6361d842bd5841c0 -r21544fe1eafcab9afcd83f516ab2759cd309f3ed --- generic/predefined.xotcl (.../predefined.xotcl) (revision 465589c61a1671ae9712de8d6361d842bd5841c0) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision 21544fe1eafcab9afcd83f516ab2759cd309f3ed) @@ -518,7 +518,6 @@ ::xotcl::Class instforward slots %self contains \ -object {%::xotcl::my subst [::xotcl::self]::slot} - # # define parameter for backward compatibility and convenience # @@ -599,7 +598,6 @@ [::xotcl::self]::slot set __parameter $arglist } - # # utilities # @@ -610,15 +608,15 @@ #} return [::xotcl::self] } - + # support for XOTcl specific convenience routines ::xotcl::Object instproc hasclass cl { if {[::xotcl::my ismixin $cl]} {return 1} ::xotcl::my istype $cl } ::xotcl::Class instproc allinstances {} { - # TODO: mark it deprecated - return [::xotcl::my info instances -closure] + # TODO: mark it deprecated + return [::xotcl::my info instances -closure] } # Exit Handler