Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
10
Task/Stack-traces/Tcl/stack-traces-2.tcl
Normal file
10
Task/Stack-traces/Tcl/stack-traces-2.tcl
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
proc outer {a b c} {
|
||||
middle [expr {$a+$b}] [expr {$b+$c}]
|
||||
}
|
||||
proc middle {x y} {
|
||||
inner [expr {$x*$y}]
|
||||
}
|
||||
proc inner k {
|
||||
printStackTrace
|
||||
}
|
||||
outer 2 3 5
|
||||
Loading…
Add table
Add a link
Reference in a new issue