You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
437 B
21 lines
437 B
|
|
#source this file.. |
|
# get value is a list with a refcount of 4 .. no string representation |
|
interp alias "" rep "" tcl::unsupported::representation |
|
set j [list a];list |
|
rep $j |
|
set command {set j [list a];list} |
|
uplevel #0 $command\n |
|
rep $j |
|
set j [list a];list |
|
rep $j |
|
|
|
#then type following line in shell: |
|
#$rep j |
|
|
|
#value is a list with a refcount of 3 string representation "a" |
|
|
|
|
|
set x [rep $j];list |
|
puts stdout $x |
|
|
|
|