From 7e572e0c879f10d2bd589ab396a61f1d2d36c122 Mon Sep 17 00:00:00 2001
From: Andrey Orst <andreyorst@gmail.com>
Date: Wed, 28 Oct 2020 09:46:38 +0300
Subject: fix: dirty fix for coverage script

---
 core.fnl    | 4 ++--
 coverage.sh | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/core.fnl b/core.fnl
index acca17c..76eb32f 100644
--- a/core.fnl
+++ b/core.fnl
@@ -301,14 +301,14 @@ ignored. Returns a table of results."
          (insert res tmp)))
      res)))
 
-(fn& core.filter [pred tbl]
+(fn* core.filter [pred tbl]
   (when-let [tbl (seq tbl)]
     (let [f (first tbl) r (rest tbl)]
       (if (pred f)
           (cons f (filter pred r))
           (filter pred r)))))
 
-(fn& core.-kvseq [tbl]
+(fn -kvseq [tbl]
   "Transforms any table kind to key-value sequence."
   (let [res []]
     (each [k v (pairs tbl)]
diff --git a/coverage.sh b/coverage.sh
index c66d2af..6849997 100755
--- a/coverage.sh
+++ b/coverage.sh
@@ -1,6 +1,6 @@
 #!/bin/env sh
 
-fns=$(grep "^(fn" core.fnl macros/core.fnl | cut -f2 --delimiter=" " | grep -v "^-")
+fns=$(grep "^(fn[&*] core." core.fnl macros/core.fnl | cut -f2 --delimiter=" " | cut -f2 --delimiter=".")
 tsts=$(
     for fn in $fns; do
         fn=$(echo "$fn" | sed "s/\?/\\\?/")
-- 
cgit v1.2.3