From 7e572e0c879f10d2bd589ab396a61f1d2d36c122 Mon Sep 17 00:00:00 2001 From: Andrey Orst Date: Wed, 28 Oct 2020 09:46:38 +0300 Subject: fix: dirty fix for coverage script --- core.fnl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'core.fnl') 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)] -- cgit v1.2.3