diff options
Diffstat (limited to 'utils/build')
| -rw-r--r-- | utils/build | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/utils/build b/utils/build deleted file mode 100644 index b1fa0eb..0000000 --- a/utils/build +++ /dev/null @@ -1,19 +0,0 @@ -;; -*- mode: fennel; -*- vi:ft=fennel - -(fn spit-lib [path to] - (with-open [lib (io.open path)] - (each [line (lib:lines)] - ;; patching compile-time variable used to store macro module - ;; namr because when loafing the combined file it will always - ;; equal the the main module and will break macros in vendored - ;; libraries. - (case (line:match "%(local lib%-name %(or %.%.%. (.*)") - name (to:write (.. "(local lib-name (or " name "\n")) - _ (to:write line "\n"))))) - -(with-open [cljlib (io.open "./cljlib.fnl" :w)] - (let [main (io.open "src/cljlib.fnl")] - (each [line (main:lines)] - (case (line:match ";;;###include (.*)") - (path) (spit-lib path cljlib) - _ (cljlib:write line "\n"))))) |