anchor.diff:     ())
   
     (if-clause
  -   (if-word compound-list then compound-list else-part fi)
  -   (if-word compound-list then compound-list fi))
  +   (if-word compound-list then compound-list fi)
  +   (if-word compound-list then compound-list else-part fi))
   
     (else-part
  -   (elif compound-list then else-part)
  +   (elif compound-list then compound-list else-part)
  +   (elif compound-list then compound-list)
      (else compound-list))
   
     (while-clause
  
positive.code:    ())
  
    (pipeline
     (pipe-sequence)
     (bang pipe-sequence))
  
    (pipe-sequence
     (command pipe-sequence-tail))
  
negative.code:    (fname lparen rparen linebreak function-body))
  
    (function-body
     (compound-command redirect-list) ;; Apply rule 9 (need not be reflected in the grammar)
     (compound-command)) ;; Apply rule 9 (need not be reflected in the grammar)
  
    (fname
     name) ;; Apply rule 8 (must be reflected in the grammar)
  