anchor.diff:                  definitions-list
                   end-repeat-symbol)
      (lambda (x)
  -     (list (list :* (caaadr x))))))
  +     (list (list 'grammar-* (caadr x))))))
     
   
   (grammar-rule grouped-sequence
     "see 4.13"
  -  (grammar-and start-group-symbol
  -               definitions-list
  -               end-group-symbol))
  +  (grammar-func
  +   (grammar-and start-group-symbol
  +                definitions-list
  +                end-group-symbol)
  +   (lambda (x)
  +     (cadr x))))
   
   (grammar-rule empty-sequence
     "see 4.14"
  
positive.code:           (syntax-abstract vc :start 0))))))
  
  ;; Demos
  ;(iso14977:syntax-abstract "test='ab c',\"g\'night\"|'c','d';")
  ;(iso14977:syntax-abstract "test='a b','c d'|3*('e','f');")
  ;(iso14977:syntax "(* hello *) test='ab c',\"g\'night\"(*test*) | 'c' , 'd';")
  ;(iso14977:syntax "(* hello *) test='ab c',\"g\'night\"(*test*) | 'c' , 'd', {'e'}, ['f'] | 3 * 'q'; test2='b'")
negative.code:                 definitions-list
                  end-option-symbol)
     (lambda (x)
       (list (list 'grammar-optional (caadr x))))))
  
  (grammar-rule repeated-sequence
    "see 4.12"
  