;; © 2021 Idiomdrottning.

;; This file is public domain. The submodules that are reexported here
;; can have other licenses, including GPL. Check in the egg
;; repository.

(module brev (filter)
(import scheme (chicken base) (chicken module))
(import anaphora brev-separate miscmacros (clojurian syntax)
	  logical-combinators define-options dwim-sort
	  (only bi-combinators bi-each)
	  scsh-process
	  (except (rename sequences (filter seq-filter) (take take-while) (drop drop-while) (split span)) is?)
	  (rename srfi-1 (filter filter-list) (take-while take-while-list) (drop-while drop-while-list) (span span-list) (partition partition-list))
	  srfi-42 srfi-69 strse
	  sxml-serializer html-parser http-client
	  (only sxml-transforms pre-post-order* pre-post-order-splice*)
	  (only sxpath sxpath)
	  (chicken file) (chicken file posix) (chicken random)
	  (chicken io) (chicken pathname) (chicken pretty-print)
	  (chicken process-context) (chicken process-context posix)
	  (chicken port) (chicken string))

(define filter
  (case-lambda ((pred seq) (seq-filter seq pred seq))
	       ((proto pred seq) (seq-filter proto pred seq))))

(reexport anaphora brev-separate miscmacros (clojurian syntax)
	  logical-combinators define-options dwim-sort
	  (only bi-combinators bi-each)
	  scsh-process
	  (except (rename sequences (take take-while) (drop drop-while) (split span)) filter is? empty?)
	  (rename srfi-1 (filter filter-list) (take-while take-while-list) (drop-while drop-while-list) (span span-list) (partition partition-list))
	  srfi-42 srfi-69 strse
	  sxml-serializer html-parser http-client
	  (only sxml-transforms pre-post-order* pre-post-order-splice*)
	  (only sxpath sxpath)
	  (chicken file) (chicken file posix) (chicken random)
	  (chicken io) (chicken pathname) (chicken pretty-print)
	  (chicken process-context) (chicken process-context posix)
	  (chicken port) (chicken string))

)