OILS / spec / testdata / debug-frame-lib.ysh View on Github | oils.pub

26 lines, 20 significant
1const __provide__ = :| print-stack my-proc |
2
3proc print-stack {
4 for i, fr in (vm.getDebugStack()) {
5 write --end '' -- $[formatDebugFrame(fr, prefix=" #$[i+1] ")]
6 #write -- $[formatDebugFrame(fr, i+1)]
7 }
8}
9
10proc my-proc {
11 print-stack
12}
13
14proc call-func {
15 var x = myfunc(99)
16 echo $x
17}
18
19func myfunc2(a, b) {
20 print-stack
21 return (a + b)
22}
23
24func myfunc(x) {
25 return (myfunc2(x+1, 42))
26}