Remove function that shadowed (list)

2020-08-16 15:12:24 -04:00 · 2020-08-16 15:12:24 -04:00 · fbc2c922cc
commit fbc2c922cc
parent c651153706
1 changed files with 0 additions and 15 deletions
--- a/src/pollen.rkt
+++ b/src/pollen.rkt
@ -98,18 +98,3 @@
  (make-keyword-procedure
   (lambda (kws kw-args . elements)
     (txexpr 'em (zip-kws kws kw-args) elements))))
-
-(define (process-list-item item)
-  (let ((item (string-trim
-               (string-trim item "-" #:right? #f))))
-    (when (and item (non-empty-string? item))
-      `(li ,item))))
-
-(define list
-  (make-keyword-procedure
-   (lambda (kws kw-args . elements)
-     (txexpr 'ul
-             (zip-kws kws kw-args)
-             (filter (lambda (x) (not (void? x)))
-                     (map process-list-item
-                          elements))))))