anchor.diff:     ))
   
   (define-sw-parser-rule :LIST-PATTERN ()
  -  (:anyof
  -   ((:tuple "[" "]")                                             (make-list-pattern       ()             ':left-lcb ':right-lcb) :documentation "The empty list")
  -   ((:tuple "[" (1 (:repeat+ :PATTERN ",")) "]")                 (make-list-pattern       1              ':left-lcb ':right-lcb) :documentation "List enumeration")
  -   ))
  +  (:tuple "[" (1 (:repeat* :PATTERN ",")) "]")                   (make-list-pattern       1              ':left-lcb ':right-lcb) :documentation "List enumeration")
   
   (define-sw-parser-rule :TUPLE-PATTERN ()
     (:anyof
  -   ((:tuple "(" ")")                                              (make-tuple-pattern     ()          ':left-lcb ':right-lcb) :documentation "Empty tuple pattern")
  -   ((:tuple "(" (1 :PATTERN) "," (2 (:repeat+ :PATTERN ",")) ")") (make-tuple-pattern     (cons 1 2)  ':left-lcb ':right-lcb) :documentation "Tuple pattern")
  +   ((:tuple "(" ")")                                              (make-tuple-pattern     ()             ':left-lcb ':right-lcb) :documentation "Empty tuple pattern")
  +   ;; "(X)" not allowed, just "()" "(X,Y)" "(X,Y,Z)" ...
  +   ((:tuple "(" (1 (:repeat++ :PATTERN ",")) ")")                 (make-tuple-pattern     1              ':left-lcb ':right-lcb) :documentation "Tuple pattern")
      ))
   
   (define-sw-parser-rule :RECORD-PATTERN ()
  -  (:tuple "{" (1 (:repeat+ :FIELD-PATTERN ",")) "}")              (make-record-pattern    1           ':left-lcb ':right-lcb) :documentation "Record pattern")
  +  ;; allow "( }" ??
  +  (:tuple "{" (1 (:repeat+ :FIELD-PATTERN ",")) "}")              (make-record-pattern    1              ':left-lcb ':right-lcb) :documentation "Record pattern")
   
   (define-sw-parser-rule :FIELD-PATTERN ()
     (:tuple (1 :FIELD-NAME) (:optional (:tuple "=" (2 :PATTERN))))
  
positive.code:   :documentation "Tuple")
  
  (define-sw-parser-rule :TUPLE-DISPLAY-BODY ()
    (:tuple (1 :EXPRESSION) "," (2 (:repeat+ :EXPRESSION ",")))
    (cons 1 2))
  
  ;;; ------------------------------------------------------------------------
  ;;;  RECORD-DISPLAY
  
negative.code:   (make-rec-let-binding 1 2 3 4 ':left-lcb ':right-lcb))
  
  (define-sw-parser-rule :FORMAL-PARAMETER-SEQUENCE ()
    (:repeat* :FORMAL-PARAMETER ""))
  
  ;;; ------------------------------------------------------------------------
  ;;;   IF-EXPRESSION
  