anchor.diff:  ;;;;MODIFICATIONS
   ;;;;    2012-07-15 <PJB> Created.
   ;;;;BUGS
  +;;;;
  +;;;;    This is unfinished.
  +;;;;
   ;;;;LEGAL
   ;;;;    AGPL3
   ;;;;    
  
positive.code:             (--> indexpart
                   (alt (seq "[" exp "]")
                        (seq "." Name)))
              
              (--> prefixexp
                   (alt
                    (seq (alt Name
                              (seq "(" exp ")"))
                         (rep (alt callpart
                                   indexpart)))))
              (--> var
                   )
              (--> functioncall
                   )
              
  
  
  
negative.code:                  (seq var (rep (seq "," var))))
  
              (--> namelist
                   (seq Name namelist-cont))
  
              (--> namelist-cont
                   (rep (seq "," Name)))
  
              (--> explist
                   (seq exp (rep (seq "," exp))))
  