bitfield rejects duplicate flag names

xenomorph/xenomorph/bitfield.rkt

@@ -19,7 +19,7 @@ https://github.com/mbutterick/restructure/blob/master/src/Bitfield.coffee
     (init-field [(@type type)]
                 [(@flags flags)])
 
-    #;(let ([named-flags (filter values @flags)])
+    (let ([named-flags (filter values @flags)])
       (unless (= (length named-flags) (length (remove-duplicates named-flags)))
         (raise-argument-error 'x:bitfield% "no duplicates among flag names" named-flags)))
 

xenomorph/xenomorph/test/bitfield-test.rkt

@@ -25,7 +25,7 @@ https://github.com/mbutterick/restructure/blob/master/test/Bitfield.coffee
  "bitfield: should reject too many flags"
  (check-exn exn:fail? (λ () (x:bitfield uint8 '(Jack Kack Lack Mack Nack Oack Pack Quack Zack Wack)))))
 
-#;(test-case
+(test-case
  "bitfield: should reject duplicate flags"
  (check-exn exn:fail? (λ () (x:bitfield uint8 '(Jack Jack Jack Jack Jack)))))