From 1c1e6a7af0a89b5b0ca8bc850035d887f2855fd5 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 6 Oct 2007 13:34:49 -0400 Subject: [PATCH] Fix vector implementation bug --- core/vectors/vectors-tests.factor | 6 +++++- core/vectors/vectors.factor | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/core/vectors/vectors-tests.factor b/core/vectors/vectors-tests.factor index ea44df4b06..4215185793 100644 --- a/core/vectors/vectors-tests.factor +++ b/core/vectors/vectors-tests.factor @@ -1,6 +1,6 @@ USING: arrays kernel kernel.private math namespaces sequences sequences.private strings tools.test vectors -continuations random growable ; +continuations random growable classes ; IN: temporary [ ] [ 10 [ [ -1000000 ] catch drop ] times ] unit-test @@ -93,3 +93,7 @@ IN: temporary [ t ] [ 100 >array dup >vector >array >r reverse r> = ] unit-test + +[ fixnum ] [ 1 >bignum V{ } new length class ] unit-test + +[ fixnum ] [ 1 >bignum [ ] V{ } map-as length class ] unit-test diff --git a/core/vectors/vectors.factor b/core/vectors/vectors.factor index 2973431650..661ef9ddc8 100644 --- a/core/vectors/vectors.factor +++ b/core/vectors/vectors.factor @@ -14,7 +14,7 @@ M: vector like dup array? [ dup length array>vector ] [ >vector ] if ] unless ; -M: vector new drop [ f ] keep array>vector ; +M: vector new drop [ f ] keep >fixnum array>vector ; M: vector equal? over vector? [ sequence= ] [ 2drop f ] if ;