(add-to-module *module* class)))))))
(define-pluggable-parser module class (scanner pset)
- ;; `class' id [`:' id-list] class-body
+ ;; `class' id `:' id-list class-body
;; `class' id `;'
(with-parser-context (token-scanner-context :scanner scanner)
(parse (seq ("class"
(name :id)
(nil (or (seq (#\;)
(make-class-type name))
- (seq ((supers (? (seq (#\: (ids (list () :id #\,)))
- ids)))
+ (seq ((supers (seq (#\: (ids (list () :id #\,)))
+ ids))
(nil (parse-class-body
scanner
pset name supers)))))))))))