git.annexia.org / jonesforth.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
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 ;
JONESFORTH - A sometimes minimal FORTH compiler and tutorial