Index: generic/xotcl.c =================================================================== diff -u -r4bed7e95551d4d44fa8348c9f18e22dae85423fe -r02aed4cae11ab394396aaff86d08ee22d1e2c910 --- generic/xotcl.c (.../xotcl.c) (revision 4bed7e95551d4d44fa8348c9f18e22dae85423fe) +++ generic/xotcl.c (.../xotcl.c) (revision 02aed4cae11ab394396aaff86d08ee22d1e2c910) @@ -14357,7 +14357,7 @@ int i, flags; /* - * Don't use exit handler, if the interpreted is destroyed already + * Don't use exit handler, if the interpreter is alread destroyed. * Call to exit handler comes after freeing namespaces, commands, etc. * e.g. TK calls Tcl_DeleteInterp directly, if Window is killed */ Index: tests/varresolutiontest.xotcl =================================================================== diff -u -rf3a84ed90cf24565e3bae87abfe8185acc0e9cc4 -r02aed4cae11ab394396aaff86d08ee22d1e2c910 --- tests/varresolutiontest.xotcl (.../varresolutiontest.xotcl) (revision f3a84ed90cf24565e3bae87abfe8185acc0e9cc4) +++ tests/varresolutiontest.xotcl (.../varresolutiontest.xotcl) (revision 02aed4cae11ab394396aaff86d08ee22d1e2c910) @@ -89,7 +89,6 @@ } set ::o::Y 5 ? {info vars ::x} "" -#? {info vars ::x} "::x" ? {info exists ::z} 1 ? {set ::z} 3 @@ -294,9 +293,8 @@ } ? {c1 info vars} "" c1 foo -#? {c1 info vars} "a z" +? {lsort [c1 info vars]} {a z} - ############################################### # tests for the var resolver ############################################### @@ -317,8 +315,8 @@ C create c2 ? {c2 bar2} 0,0 "lookup two one non-existing, first access to varTable" c1 foo -#? {lsort [c1 info vars]} "a x z" "array variable set via resolver" -#? {lsort [c1 array names a]} "a b c" "array looks ok" +? {lsort [c1 info vars]} "a x z" "array variable set via resolver" +? {lsort [c1 array names a]} "a b c" "array looks ok" ############################################### # first tests for the cmd resolver @@ -397,7 +395,6 @@ ? {o exists xxx} 0 ? {info exists ::xxx} 0 -#? {info exists ::xxx} 1 unset -nocomplain ::xxx # eval does an objcope, all vars are instance variables; can access preexisting global vars @@ -425,7 +422,6 @@ ? {o exists bbb} 0 ? {info vars ::bbb} "" -#? {info vars ::bbb} ::bbb unset -nocomplain ::bbb # softeval2 never sets instance variables @@ -600,13 +596,6 @@ ? {foo-tcl eval} 0-0-0-1-0-0-G=0,p=1 ? {foo-tcl ns-eval} 0-0-0-0-0-1-G=1,p=0 -# ? {foo-via-initcmd} 1-0-0-0-0-1-G=1,p=0 -# ? {foo nonleaf-eval} 1-0-0-0-0-1-G=1,p=0 -# ? {foo objscoped-eval} 1-1-0-0-0-0-G=0,p=0 -# ? {foo plain-eval} 0-0-0-1-0-0-G=0,p=1 -# ? {foo-tcl eval} 0-0-0-1-0-0-G=0,p=1 -# ? {foo-tcl ns-eval} 0-0-0-0-0-1-G=1,p=0 - ################################################## # dotCmd tests ##################################################