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 bch
5 days ago
tcl by Bradipo
5 days ago
tcl by aspect
5 days ago
tcl by Bradipo
6 days ago
tcl by Bradipo
6 days ago
tcl by Bradipo
6 days ago
lilypond by Bradipo
7 days ago
tcl by cgm
17 days ago
tcl by dandyn
26 days ago
tcl by Stu
27 days ago
Submit
New paste
Documentation
From Jabber