   (defmethod compound-schema-generator :record [_ inner-generator]
     (tc.gen/fmap (fn [schemas]
                    [:record {} schemas])
-                 (tc.gen/map tc.gen/keyword inner-generator)))
+                 (tc.gen/map simple-keyword-generator inner-generator)))
 
   (defmethod compound-schema-generator :tuple [_ inner-generator]
     (tc.gen/fmap (fn [schemas]

[:optional :wrapped :multi :list :vector :set :map :record :tuple]

(macrowbar/compile-time
  (defn bounds [bytes signed?]
    {:min (math/lower-bound bytes signed?)
     :max (dec (math/upper-bound bytes signed?))})


  (defmethod value-generator :tuple [[_ _ schemas]]
    (apply tc.gen/tuple (map value-generator schemas))))
