13 lines
388 B
Racket
13 lines
388 B
Racket
#lang racket/base
|
|
(require racket/contract/base)
|
|
|
|
;; added by stamourv
|
|
|
|
(define (regexp-filter r log)
|
|
(for/list ([l (in-list log)] #:when (regexp-match r l))
|
|
l))
|
|
(provide/contract
|
|
[regexp-filter ((or/c string? bytes? regexp? byte-regexp?)
|
|
(listof (or/c string? bytes? path? input-port?))
|
|
. -> . (listof (or/c string? bytes? path? input-port?)))])
|