steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix vector implementation bug

release
Slava Pestov 2007-10-06 13:34:49 -04:00
parent 51595cc78e
commit 1c1e6a7af0
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/vectors/vectors-tests.factor
View File

@ -1,6 +1,6 @@
USING: arrays kernel kernel.private math namespaces USING: arrays kernel kernel.private math namespaces
sequences sequences.private strings tools.test vectors sequences sequences.private strings tools.test vectors
continuations random growable ; continuations random growable classes ;
IN: temporary IN: temporary
[ ] [ 10 [ [ -1000000 <vector> ] catch drop ] times ] unit-test [ ] [ 10 [ [ -1000000 <vector> ] catch drop ] times ] unit-test
@ -93,3 +93,7 @@ IN: temporary
[ t ] [ [ t ] [
100 >array dup >vector <reversed> >array >r reverse r> = 100 >array dup >vector <reversed> >array >r reverse r> =
] unit-test ] unit-test
[ fixnum ] [ 1 >bignum V{ } new length class ] unit-test
[ fixnum ] [ 1 >bignum [ ] V{ } map-as length class ] unit-test

2
core/vectors/vectors.factor
View File

@ -14,7 +14,7 @@ M: vector like
dup array? [ dup length array>vector ] [ >vector ] if dup array? [ dup length array>vector ] [ >vector ] if
] unless ; ] unless ;
M: vector new drop [ f <array> ] keep array>vector ; M: vector new drop [ f <array> ] keep >fixnum array>vector ;
M: vector equal? M: vector equal?
over vector? [ sequence= ] [ 2drop f ] if ; over vector? [ sequence= ] [ 2drop f ] if ;