1: #line 734 "./lpsrc/flx_regress.pak" 2: //Check recursion 3: #line 734 "./lpsrc/flx_regress.pak" 4: //Check tail call optimisation
5: #import <flx.flxh> 6: // self-tail rec test (inspect output) 7: // (requires --inline atm) 8: var x = 4; 9: proc recur () 10: { 11: if x == 0 goto endoff; 12: print x; endl; 13: --x; 14: recur(); 15: endoff:> 16: } 17: recur();
1: 4 2: 3 3: 2 4: 1