all tasks

Task/Stack-traces/Tcl/stack-traces-1.tcl

@@ -0,0 +1,6 @@
+proc printStackTrace {} {
+    puts "Stack trace:"
+    for {set i 1} {$i < [info level]} {incr i} {
+        puts [string repeat "  " $i][info level $i]
+    }
+}

Task/Stack-traces/Tcl/stack-traces-2.tcl

@@ -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