anchor.diff:                        (seq "while" exp "do" block "end")
                         (seq "repeat" block "until" exp)
                         (seq "if" exp "then" block (rep "elseif" exp "then" block) (opt "else" block) "end")
  -                      (seq "for" Name "=" exp "," exp (opt "," exp) "do" block "end")
  -                      (seq "for" namelist "in" explist "do" block "end")
  -                      (seq "function" funcname funcbody) 
  -                      (seq "local" "function" Name funcbody)
  -                      (seq "local" namelist (opt "=" explist))))
  +
  +                      (seq "for" Name (alt for-name-=
  +                                           for-namelist))
  +                      
  +                      (seq "function" funcname funcbody)
  +                      (seq "local"
  +                           (alt (seq "function" Name funcbody)
  +                                (seq namelist (opt "=" explist))))))
  +            
  +            (--> for-name-=
  +                 (seq "=" exp "," exp (opt "," exp) "do" block "end"))
  +            (--> for-namelist
  +                 (seq namelist-cont "in" explist "do" block "end"))
   
               (--> retstat
                    (seq "return" (opt explist) (opt ";")))
  
positive.code:             (--> indexpart
                   (alt (seq "[" exp "]")
                        (seq "." Name)))
              
              (--> prefixexp
                   (alt
                    (seq (alt Name
                              (seq "(" exp ")"))
                         (rep (alt callpart
                                   indexpart)))))
              (--> var
                   )
              (--> functioncall
                   )
              
  
  
  
negative.code: ;;;;MODIFICATIONS
  ;;;;    2012-07-15 <PJB> Created.
  ;;;;BUGS
  ;;;;
  ;;;;    This is unfinished.
  ;;;;
  ;;;;LEGAL
  ;;;;    AGPL3
  ;;;;    
  