From 2f23f1b6b34a6a27ecc76c083c240bfe1e634434 Mon Sep 17 00:00:00 2001 From: Justin Slepak Date: Fri, 25 May 2012 21:00:45 -0400 Subject: [PATCH] Allow vector-append to take zero arguments Makes vector-append behave more like append, sequence-append, etc. --- collects/racket/vector.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/racket/vector.rkt b/collects/racket/vector.rkt index 5785c913ed..6c94df2b83 100644 --- a/collects/racket/vector.rkt +++ b/collects/racket/vector.rkt @@ -169,9 +169,8 @@ (values (vector-copy* v 0 (unsafe-fx- len n)) (vector-copy* v (unsafe-fx- len n) len)))) -(define (vector-append v . vs) - (let* ([vs (cons v vs)] - [lens (for/list ([e (in-list vs)] [i (in-naturals)]) +(define (vector-append . vs) + (let* ([lens (for/list ([e (in-list vs)] [i (in-naturals)]) (if (vector? e) (unsafe-vector-length e) (raise-argument-error 'vector-append "vector?" e i)))]