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

Fix coercer words

db4
Slava Pestov 2008-01-30 01:54:11 -06:00
parent 10015b70c1
commit a5bdfc0d0e
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/bit-vectors/bit-vectors.factor
View File

@ -14,7 +14,7 @@ PRIVATE>
: <bit-vector> ( n -- bit-vector )
<bit-array> 0 bit-array>vector ; inline
: >bit-vector ( seq -- bit-vector ) V{ } clone-like ;
: >bit-vector ( seq -- bit-vector ) ?V{ } clone-like ;
M: bit-vector like
drop dup bit-vector? [

2
core/byte-vectors/byte-vectors.factor
View File

@ -14,7 +14,7 @@ PRIVATE>
: <byte-vector> ( n -- byte-vector )
<byte-array> 0 byte-array>vector ; inline
: >byte-vector ( seq -- byte-vector ) V{ } clone-like ;
: >byte-vector ( seq -- byte-vector ) BV{ } clone-like ;
M: byte-vector like
drop dup byte-vector? [

2
core/float-vectors/float-vectors.factor
View File

@ -14,7 +14,7 @@ PRIVATE>
: <float-vector> ( n -- float-vector )
0.0 <float-array> 0 float-array>vector ; inline
: >float-vector ( seq -- float-vector ) V{ } clone-like ;
: >float-vector ( seq -- float-vector ) FV{ } clone-like ;
M: float-vector like
drop dup float-vector? [