From 1e18a7e2b4299005a81454325535df40d25b1b2b Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Sun, 3 Jan 2016 12:57:21 -0600 Subject: [PATCH] sequence-length: special-case lists too. --- racket/collects/racket/sequence.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/racket/sequence.rkt b/racket/collects/racket/sequence.rkt index 128d71cd17..2cc60ed388 100644 --- a/racket/collects/racket/sequence.rkt +++ b/racket/collects/racket/sequence.rkt @@ -41,7 +41,8 @@ (define (sequence-length s) (unless (sequence? s) (raise-argument-error 'sequence-length "sequence?" s)) - (cond [(vector? s) (vector-length s)] + (cond [(list? s) (length s)] + [(vector? s) (vector-length s)] [(hash? s) (hash-count s)] [else (for/fold ([c 0]) ([i (in-values*-sequence s)])