require-macros hook

src/fennel/specials.fnl

@@ -1116,6 +1116,7 @@ modules in the compiler environment."
       (let [(loader filename) (search-macro-module modname 1)]
         (compiler.assert loader (.. modname " module not found.") ast)
         (tset macro-loaded modname (loader modname filename))))
+    (utils.hook :require-macros ast scope)
     ;; if we're called from import-macros, return the modname, else add them
     ;; to scope directly
     (if (= :import-macros (tostring (. ast 1)))

test/init.lua

@@ -32,7 +32,7 @@ local function testall(suites)
 end
 
 local suites = {"core", "mangling", "quoting", "bit", "fennelview", "parser",
-                "failures", "repl", "cli", "macro", "linter", "loops", "misc"}
+                "failures", "repl", "cli", "macro", "linter", "loops", "misc", "plugin"}
 
 if(#arg == 0) then
    local ok, err = pcall(testall, suites)

test/plugin.fnl

@@ -0,0 +1,19 @@
+(local fennel (require :fennel))
+(local l (require :test.luaunit))
+
+(var ran-require-macros false)
+
+(local plugin
+  {:name :test-plugin
+   :version fennel.version
+   :require-macros (fn [ast scope]
+                     (set ran-require-macros true))})
+
+(local options {:plugins [plugin]})
+
+(fn test-require-macros []
+  "Check require-macros hook is trigered"
+  (let [src "(import-macros m :test.macros)"]
+    (l.assertEquals ran-require-macros false)))
+
+{: test-require-macros}