anchor.diff:                   (seq var (rep (seq "," var))))
   
               (--> namelist
  -                 (seq Name (rep (seq "," Name))))
  +                 (seq Name namelist-cont))
  +
  +            (--> namelist-cont
  +                 (rep (seq "," Name)))
   
               (--> explist
                    (seq exp (rep (seq "," exp))))
  
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
  ;;;;    
  