list-map.fnl

(macros
  {:list-map
   (fn list-map [mapper tgt]
     (when (not (list? tgt)) (error (.. "Invalid form: " (tostring tgt) " is not a list")))
     (let [new-list (list)]
       (each [i v (ipairs tgt)]
         (table.insert new-list (mapper v i tgt)))
       new-list))

   :list-map-recursive
   (fn list-map-recursive [mapper tgt i]
     (list-map
       (fn recursive-mapper [v i tgt]
         (if
           (list? v) (list-map-recursive recursive-mapper v)
           (mapper v i tgt)))
       tgt))})