Version 47
[jonesforth.git] / test_stack_trace.f
1 ( -*- text -*- )
2
3 : TEST4 PRINT-STACK-TRACE ;
4
5 : TEST3 TEST4 1 2 + . CR TEST4 ;
6
7 : TEST2 TEST3 TEST3 ;
8
9 : TEST TEST2 ;