1: #line 803 "./lpsrc/flx_regress.pak" 2: //Check recursion 3: #line 803 "./lpsrc/flx_regress.pak" 4: //Check tail call optimisation
5: #import <flx.flxh> 6: // non-self-tail rec test (inspect output) 7: // (requires --inline atm) 8: 9: fun f(x:int)=> 10: if(x == 0) then 1 11: else f(x-1) 12: endif 13: ; 14: 15: print (f 10); endl;
1: 1