--* From bmt@spadserv.watson.ibm.com  Tue Dec 15 14:23:46 1992
--* Received: from spadserv.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA01673; Tue, 15 Dec 1992 14:23:46 -0500
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA13637; Tue, 15 Dec 1992 14:29:09 -0500
--* Date: Tue, 15 Dec 1992 14:29:09 -0500
--* From: bmt@spadserv.watson.ibm.com
--* X-External-Networks: yes
--* Message-Id: <9212151929.AA13637@spadserv.watson.ibm.com>
--* To: axc-bug@radical.watson.ibm.com
--* Subject: updating loop index variable has no effect

--@ Fixed  by: RSS Tue Oct 12 20:28:28 1993
--@ Tested by: <name of new or existing file in test directory>
--@ Summary:   <One line description of real problem and the fix>


#include "aslib.as"
import SingleInteger

f():() == 
  for i in 1..10 repeat
     print(i)()
     if i=5 then i:=i+1
  never
f()