Bump Fennel commit

Author: Olical

Makefile

@@ -5,7 +5,7 @@ SRC_FILES := $(basename $(shell find fnl -type f -name "*.fnl" ! -name "macros.f
 default: deps compile test
 
 deps:
-	scripts/dep.sh bakpakin Fennel 9913298fb5990e68f93f6e34f9388f4cd37cd32e
+	scripts/dep.sh bakpakin Fennel 28911fade861a8dd14e36b91d21d438a90cea5d4
 	scripts/dep.sh norcalli nvim.lua 5d57be0b6eea6c06977b1c5fe0752da909cf4154
 	cd deps/Fennel && make build
 

lua/aniseed/deps/fennel.lua

@@ -1547,6 +1547,7 @@ package.preload["aniseed.fennel.specials"] = package.preload["aniseed.fennel.spe
     do
       local _451_ = utils.copy(utils.root.options)
       do end (_451_)["env"] = "_COMPILER"
+      _451_["requireAsInclude"] = false
       _451_["allowedGlobals"] = nil
       opts = _451_
     end
@@ -4181,7 +4182,7 @@ do
   Same as ->, except splices the value into the last position of each form
   rather than the first."
     (var x val)
-    (each [_ e (pairs [...])]
+    (each [_ e (ipairs [...])]
       (let [elt (if (list? e) e (list e))]
         (table.insert elt x)
         (set x elt)))
@@ -4234,7 +4235,7 @@ do
     "Evaluates val and splices it into the first argument of subsequent forms."
     (let [name (gensym)
           form `(let [,name ,val])]
-      (each [_ elt (pairs [...])]
+      (each [_ elt (ipairs [...])]
         (table.insert elt 2 name)
         (table.insert form elt))
       (table.insert form name)