Remove procedure map-each

Was only used once, and wasn't even optimized.

1 files changed, 0 insertions, 9 deletions

diff --git a/module/calp/util.scm b/module/calp/util.scm
index 1f423756..044e4a95 100644
--- a/module/calp/util.scm
+++ b/module/calp/util.scm
@@ -297,19 +297,10 @@
 (define-public (as-symb s)
   (if (string? s) (string->symbol s) s))
 
-
-
 (define-public (enumerate lst)
   (zip (iota (length lst))
        lst))
 
-;; Map with index
-(define-syntax-rule (map-each proc lst)
-  (map (lambda (x i) (proc x i))
-       lst (iota (length lst))))
-
-(export map-each)
-
 ;; Takes a procedure returning multiple values, and returns a function which
 ;; takes the same arguments as the original procedure, but only returns one of
 ;; the procedures. Which procedure can be sent as an additional parameter.