From b030508a50776c51366e8f9dc129373f9d65ad1a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 31 Aug 2014 16:02:13 -0700 Subject: [PATCH] use in- iterators --- container.rkt | 4 ++-- list.rkt | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/container.rkt b/container.rkt index e876ea0..ec2e402 100644 --- a/container.rkt +++ b/container.rkt @@ -17,8 +17,8 @@ (with-handlers ([exn:fail? (λ(exn) (error (format "get: couldn’t retrieve ~a from ~a" (if end (format "items ~a through ~a" start end) (format "item ~a" start)) container)))]) (let ([end (if (and (equal? end #f) (sliceable-container? container)) (add1 start) end)]) (cond - [(list? container) (for/list ([i (range start end)]) (list-ref container i))] - [(vector? container) (for/vector ([i (range start end)]) (vector-ref container i))] + [(list? container) (for/list ([i (in-range start end)]) (list-ref container i))] + [(vector? container) (for/vector ([i (in-range start end)]) (vector-ref container i))] [(string? container) (substring container start end)] [(symbol? container) (->symbol (get (->string container) start end))] [(path? container) (get (explode-path container) start end)] diff --git a/list.rkt b/list.rkt index 2f5b1f2..ff23f45 100644 --- a/list.rkt +++ b/list.rkt @@ -41,7 +41,7 @@ (define+provide/contract (frequency-hash x) (list? . -> . hash?) (define counter (make-hash)) - (for ([item (flatten x)]) + (for ([item (in-list (flatten x))]) (hash-set! counter item (add1 (hash-ref counter item 0)))) counter)