diff --git a/hy/contrib/hy_repr.hy b/hy/contrib/hy_repr.hy
index ea67efc..195e271 100644
--- a/hy/contrib/hy_repr.hy
+++ b/hy/contrib/hy_repr.hy
@@ -80,9 +80,9 @@
         (.rstrip (repr x) "L")
       (and (in t [float HyFloat]) (isnan x))
         "NaN"
-      (= x Inf)
+      (and (in t [float HyFloat]) (= x Inf))
         "Inf"
-      (= x -Inf)
+      (and (in t [float HyFloat]) (= x -Inf))
         "-Inf"
       (in t [complex HyComplex])
         (.replace (.replace (.strip (repr x) "()") "inf" "Inf") "nan" "NaN")
diff --git a/hy/contrib/profile.hy b/hy/contrib/profile.hy
index 42ef1a4..f155968 100644
--- a/hy/contrib/profile.hy
+++ b/hy/contrib/profile.hy
@@ -10,7 +10,7 @@
   `(do
      (import [pycallgraph [PyCallGraph]]
              [pycallgraph.output [GraphvizOutput]])
-     (with* [(PyCallGraph :output (GraphvizOutput)))]
+     (with* [(PyCallGraph :output (GraphvizOutput))]
            ~@body)))