1: #line 1709 "./lpsrc/flx_regress.pak" 2: //Check generators 3: #import <flx.flxh> 4: 5: gen f ():int = { 6: var i:int; forall i in 0 upto 5 do 7: yield i; 8: done; 9: halt "Call exhausted generator"; 10: } 11: 12: var g = the f; 13: print$ g (); endl; 14: print$ g (); endl; 15: print$ g (); endl; 16: print$ g (); endl;
1: 0 2: 1 3: 2 4: 3