flip keyword order

Author: jgpc42

CHANGELOG.md

@@ -6,7 +6,7 @@
 * Add support for custom index objects via the `LocalIndex` protocol
 * Generate default constructor for :abstract classes too if one not provided
 * Support passing parameter and return types separately when defining methods
-* Experimental new map compilation facilitated by `:seq-emit-fn`.
+* Experimental new map compilation facilitated by `:emit-seq-fn`.
 
 ## 0.5.4 (2022-04-14)
 

src/insn/core.clj

@@ -69,7 +69,7 @@
 
     :debug        string of arbitrary debug information - optional.
 
-    :seq-emit-fn  fn to call with each bytecode seq. This is an advanced
+    :emit-seq-fn  fn to call with each bytecode seq. This is an advanced
                   option and, if present, will be passed both the ASM
                   MethodVisitor and the raw (possibly nested) :emit op
                   seq for each method. Can be used to support new op
@@ -200,13 +200,13 @@
                      :emit [[:aload 0]
                             [:invokespecial :super :init [:void]]
                             [:return]]}))
-        seq-emit (:seq-emit-fn t op/emit-seq)]
+        emit-seq (:emit-seq-fn t op/emit-seq)]
     (binding [util/*this* this
               util/*super* super]
       (doseq [f (:fields t)]
         (visit-field cv f))
       (doseq [m (:methods t)]
-        (visit-method cv m seq-emit))
+        (visit-method cv m emit-seq))
       (doto cv
         (ann/visit (:annotations t))
         .visitEnd))
@@ -225,7 +225,7 @@
     (ann/visit fv (:annotations f))
     (.visitEnd fv)))
 
-(defn- visit-method [^ClassVisitor cv m seq-emit]
+(defn- visit-method [^ClassVisitor cv m emit-seq]
   (let [mname (util/method-name (:name m))
         clinit? (= mname "<clinit>")
         init? (= mname "<init>")
@@ -255,7 +255,7 @@
     (binding [util/*labels* (atom {})]
       (if (fn? emit)
         (emit mv)
-        (seq-emit mv emit)))
+        (emit-seq mv emit)))
     (ann/visit mv (:annotations m))
     (doseq [[i anns] (or (:parameter-annotations m) (:param-annotations m))]
       (ann/visit mv i anns))

test/insn/core_test.clj

@@ -407,8 +407,8 @@
               :type (.getReturnType m)
               :anns (map #(.annotationType %) (aget (.getParameterAnnotations m) 0))})))))
 
-(deftest test-seq-emit-fn
-  (let [t {:seq-emit-fn op-map/emit-seq
+(deftest test-emit-seq-fn
+  (let [t {:emit-seq-fn op-map/emit-seq
            :methods [{:name :init :params []
                       :emit [{:op :aload :index 0}
                              {:op :invokespecial :class :super :name :init}