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

persistent.vectors: bring private back (broken in 4191882a68).

db4
John Benediktsson 2015-06-17 08:23:34 -07:00
parent ed786070e2
commit 619ffe1884
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/persistent/vectors/vectors.factor
View File

@ -21,6 +21,8 @@ TUPLE: persistent-vector
M: persistent-vector length count>> ; M: persistent-vector length count>> ;
<PRIVATE
CONSTANT: node-size 32 CONSTANT: node-size 32
: node-mask ( m -- n ) node-size mod ; inline : node-mask ( m -- n ) node-size mod ; inline
@ -156,6 +158,8 @@ M: persistent-vector new-nth ( obj i pvec -- pvec' )
} cond } cond
] dip [ >>root ] [ >>tail ] bi* ; ] dip [ >>root ] [ >>tail ] bi* ;
PRIVATE>
M: persistent-vector ppop ( pvec -- pvec' ) M: persistent-vector ppop ( pvec -- pvec' )
dup count>> { dup count>> {
{ 0 [ empty-error ] } { 0 [ empty-error ] }