test case
Posted to
tcl
by kbk at Tue Sep 21 18:14:45 GMT 2010
view raw
set
::tcl_traceCompile 2
test assemble-4.2 {
eval
} {
-body {
::tcl::unsupported::assemble {
{push 3}
{store n}
pop
{
eval
{
expr
{3*
$n
+ 1}}}
}
}
-result 10
}
set
::tcl_traceCompile 0
Recent Posts
tcl by Only 1 Shortlink Par
1 hours ago
tcl by oldlaptop
11 days ago
tcl by mookie
17 days ago
tcl by dandyn
24 days ago
tcl by Bradipo
24 days ago
tcl by Bradipo
24 days ago
tcl by oldlaptop
49 days ago
tcl by oldlaptop
49 days ago
tcl by mookie
54 days ago
tcl by mookie
54 days ago
Submit
New paste
Documentation
From Jabber