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