Inits are weird #2

gistfile1.rkt

;; What should happen here?

(define c% (class object% (super-new) (init a)))
(define d% (class c% (super-new) (init #:a)))

(new d% #:a 5)       ; which `a` does it instantiate?

(new d% #:a 5 #:a 6) ; presumably this is not allowed
                     ; (if it is, then it's not like keywords)
                     ; (if it's not, the above leaves an init un-initialized)