Index: TODO =================================================================== diff -u -r3d40cb4ba41cd488a5095695d7dcd8a6bd69efa9 -reb82f3d8597d0eb8b6764997660ccc7c535fd339 --- TODO (.../TODO) (revision 3d40cb4ba41cd488a5095695d7dcd8a6bd69efa9) +++ TODO (.../TODO) (revision eb82f3d8597d0eb8b6764997660ccc7c535fd339) @@ -1984,6 +1984,9 @@ - Overhaul of serveral sections in asciidoc - Developed styles for nx for migration guide (.css and source-highlight) +- fixed bug in xotcl 2.0 "info forward" +- extended regression test + TODO: - "-returns" Index: library/xotcl/library/xotcl2.tcl =================================================================== diff -u -r9a578692ecf2d05eb4da0de37c7e0bdca3819570 -reb82f3d8597d0eb8b6764997660ccc7c535fd339 --- library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision 9a578692ecf2d05eb4da0de37c7e0bdca3819570) +++ library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision eb82f3d8597d0eb8b6764997660ccc7c535fd339) @@ -557,7 +557,7 @@ set def [my ::nsf::methods::object::info::forward -definition $name] return [::xotcl::info_forward_options $def] } else { - return [my ::nsf::methods::class::info::forward {*}[self args]] + return [my ::nsf::methods::object::info::forward {*}[self args]] } } :alias hasnamespace ::nsf::methods::object::info::hasnamespace Index: library/xotcl/tests/slottest.xotcl =================================================================== diff -u -rfc4e3f5f6a94ef7324baffab90d58cd7eb513907 -reb82f3d8597d0eb8b6764997660ccc7c535fd339 --- library/xotcl/tests/slottest.xotcl (.../slottest.xotcl) (revision fc4e3f5f6a94ef7324baffab90d58cd7eb513907) +++ library/xotcl/tests/slottest.xotcl (.../slottest.xotcl) (revision eb82f3d8597d0eb8b6764997660ccc7c535fd339) @@ -204,6 +204,7 @@ #o1 forward z o1 [list %argclindex [list set set]] %proc #o1 proc get name {my set $name} o1 forward get -earlybinding ::nsf::setvar %self %1 +? {o1 info forward} get ? {o1 get z 101} 101 ? {o1 get z} "101"