uplevel 1 return -code break -- why?
Posted to
tcl
by kostix at Wed Aug 15 22:58:11 GMT 2007
view raw
%
proc
mybreak {} {
uplevel
1
return
-code
break
}
%
proc
foo {} {
set
i 0
while
true {
incr
i
if
{
$i
== 10} {
mybreak
}
}
puts
"must not reach here"
}
% foo
must not reach here
Recent Posts
tcl by egavilan
3 days ago
tcl by bch
9 days ago
tcl by Bradipo
9 days ago
tcl by aspect
9 days ago
tcl by Bradipo
9 days ago
tcl by Bradipo
9 days ago
tcl by Bradipo
9 days ago
lilypond by Bradipo
10 days ago
tcl by cgm
21 days ago
tcl by dandyn
29 days ago
Submit
New paste
Documentation
From Jabber