From 19c42b28a7402a0d2fdd2a04a161a4862226ccc2 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 20 Jul 2015 16:13:10 -0500 Subject: [PATCH] Move filter-multiple to utils file. --- typed-racket-lib/typed-racket/typecheck/tc-toplevel.rkt | 4 ---- typed-racket-lib/typed-racket/utils/utils.rkt | 7 ++++++- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/typed-racket-lib/typed-racket/typecheck/tc-toplevel.rkt b/typed-racket-lib/typed-racket/typecheck/tc-toplevel.rkt index b0fcc7c7..5e662d9b 100644 --- a/typed-racket-lib/typed-racket/typecheck/tc-toplevel.rkt +++ b/typed-racket-lib/typed-racket/typecheck/tc-toplevel.rkt @@ -27,10 +27,6 @@ (define-logger online-check-syntax) -(define (filter-multiple l . fs) - (apply values - (map (lambda (f) (filter f l)) fs))) - (define unann-defs (make-free-id-table)) (define (parse-typed-struct form) diff --git a/typed-racket-lib/typed-racket/utils/utils.rkt b/typed-racket-lib/typed-racket/utils/utils.rkt index 4fd7a58f..06a0498b 100644 --- a/typed-racket-lib/typed-racket/utils/utils.rkt +++ b/typed-racket-lib/typed-racket/utils/utils.rkt @@ -19,7 +19,8 @@ at least theoretically. ;; provide macros rep utils typecheck infer env private types static-contracts ;; misc - list-extend) + list-extend + filter-multiple) (define optimize? (make-parameter #t)) (define-for-syntax enable-contracts? (and (getenv "PLT_TR_CONTRACTS") #t)) @@ -207,3 +208,7 @@ at least theoretically. ;; pads out t to be as long as s (define (list-extend s t extra) (append t (build-list (max 0 (- (length s) (length t))) (lambda _ extra)))) + +(define (filter-multiple l . fs) + (apply values + (map (lambda (f) (filter f l)) fs)))