another simplification

Author: borkdude

src/sci/impl/records.cljc

@@ -328,15 +328,15 @@
                 :sci.impl/var (list 'var record-name)
                 :sci.impl.record/map-constructor (list 'var map-factory-sym)}))
            (defn ~constructor-fn-sym
-             ([~@fields]
+             (~fields
               (~constructor-fn-sym ~@fields nil nil))
              ([~@fields meta# ext#]
               (sci.impl.records/->record-impl '~rec-type ~rec-type (var ~record-name)
                                               (cond-> (zipmap ~keys ~fields)
                                                 ext# (merge ext#)
                                                 meta# (with-meta meta#)))))
            (defn ~factory-fn-sym
-             ([~@fields]
+             (~fields
               (~constructor-fn-sym ~@fields nil nil)))
            (defn ~map-factory-sym [m#]
              (sci.impl.records/->record-impl '~rec-type ~rec-type (var ~record-name) (merge '~nil-map m#)))