diff --git a/lib/macro.ml b/lib/macro.ml
index 177b4c34..b56d3819 100644
--- a/lib/macro.ml
+++ b/lib/macro.ml
@@ -168,7 +168,7 @@ let reduce (forms : Form.t list) : Form.t list =
     List.iter
       (fun f ->
          match head_name f with
-         | Some (("defn" | "defmacro"), n) when not (List.mem n !out) ->
+         | Some (("defn" | "defn-" | "defmacro"), n) when not (List.mem n !out) ->
            if names_macro !out f then begin out := n :: !out; changed := true end
          | _ -> ())
       forms
@@ -188,7 +188,7 @@ let reduce (forms : Form.t list) : Form.t list =
   List.filter
     (fun f ->
        match head_name f with
-       | Some ("defn", n) -> not (List.mem n !out)
+       | Some (("defn" | "defn-"), n) -> not (List.mem n !out)
        | _ -> true)
     forms