From 853576f557187735b6e14952af8b4db2e9162a9e Mon Sep 17 00:00:00 2001
From: Jose Gomez <k13gomez@gmail.com>
Date: Sun, 3 Mar 2024 06:34:22 -0600
Subject: [PATCH] Fixed several macro definitions which in which `this` was not
 gensym'd (#15)

---
 src/ham_fisted/function.clj | 24 ++++++++++++------------
 src/ham_fisted/reduce.clj   |  4 ++--
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/src/ham_fisted/function.clj b/src/ham_fisted/function.clj
index 8d6fa41..6d49cc9 100644
--- a/src/ham_fisted/function.clj
+++ b/src/ham_fisted/function.clj
@@ -22,7 +22,7 @@
 (defmacro bi-consumer
   [arg1 arg2 & code]
   `(reify BiConsumer
-     (accept [this ~arg1 ~arg2]
+     (accept [this# ~arg1 ~arg2]
        ~@code)))
 
 
@@ -46,7 +46,7 @@
   "Create a function that converts objects to longs"
   ([]
    `(reify IFnDef$OL
-        (invokePrim [this v#]
+        (invokePrim [this# v#]
           (Casts/longCast v#))))
   ([varname & code]
    `(reify IFnDef$OL
@@ -58,11 +58,11 @@
   "Create a function that converts objects to doubles"
   ([]
    `(reify IFnDef$OD
-      (invokePrim [this v#]
+      (invokePrim [this# v#]
         (Casts/doubleCast v#))))
   ([varname & code]
    `(reify IFnDef$OD
-      (invokePrim [this ~varname]
+      (invokePrim [this# ~varname]
         (Casts/doubleCast ~@code)))))
 
 
@@ -70,27 +70,27 @@
   "Create a function that receives a long and returns a double"
   [varname & code]
   `(reify IFnDef$LD
-     (invokePrim [this ~varname] ~@code)))
+     (invokePrim [this# ~varname] ~@code)))
 
 
 (defmacro double->long
   "Create a function that receives a double and returns a long"
   [varname & code]
   `(reify IFnDef$DL
-     (invokePrim [this ~varname] ~@code)))
+     (invokePrim [this# ~varname] ~@code)))
 
 
 (defmacro long->obj
   "Create a function that receives a primitive long and returns an object."
   [varname & code]
   `(reify IFnDef$LO
-     (invokePrim [this ~varname] ~@code)))
+     (invokePrim [this# ~varname] ~@code)))
 
 
 (defmacro double->obj
   [varname & code]
   `(reify IFnDef$DO
-     (invokePrim [this ~varname] ~@code)))
+     (invokePrim [this# ~varname] ~@code)))
 
 
 (defn ->function
@@ -107,7 +107,7 @@
   [varname & code]
   `(reify
      IFnDef$DoublePredicate
-     (test [this ~varname]
+     (test [this# ~varname]
        ~@code)))
 
 
@@ -125,7 +125,7 @@
   [varname & code]
   `(reify
      IFnDef$LongPredicate
-     (test [this ~varname]
+     (test [this# ~varname]
        ~@code)))
 
 
@@ -150,7 +150,7 @@
   [varname & code]
   `(reify
      IFnDef$Predicate
-     (test [this ~varname]
+     (test [this# ~varname]
        ~@code)))
 
 
@@ -326,7 +326,7 @@
   [lvar rvar & code]
   `(reify
      LongBinaryOperator
-     (applyAsLong [this ~lvar ~rvar]
+     (applyAsLong [this# ~lvar ~rvar]
        ~@code)
      IFnDef$LLL
      (invokePrim [this# l# r#]
diff --git a/src/ham_fisted/reduce.clj b/src/ham_fisted/reduce.clj
index 2305a95..87b6eba 100644
--- a/src/ham_fisted/reduce.clj
+++ b/src/ham_fisted/reduce.clj
@@ -155,7 +155,7 @@ ham-fisted.api> @*1
 ```"
   [accvar varvar & code]
   `(reify IFnDef$ODO
-     (invokePrim [this ~accvar ~varvar]
+     (invokePrim [this# ~accvar ~varvar]
        ~@code)))
 
 
@@ -173,7 +173,7 @@ ham-fisted.api> @*1
 ```"
   [accvar varvar & code]
   `(reify IFnDef$OLO
-     (invokePrim [this ~accvar ~varvar]
+     (invokePrim [this# ~accvar ~varvar]
        ~@code)))
 
 (defn immut-map-kv