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

splitting: fixing split1-last.

db4
John Benediktsson 2012-04-27 08:48:57 -07:00
parent 5878b6982b
commit d37e5192de
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/splitting/splitting.factor
View File

@ -48,7 +48,7 @@ PRIVATE>
dupd find drop [ swap [ dup 1 + ] dip snip ] [ f ] if* ; inline dupd find drop [ swap [ dup 1 + ] dip snip ] [ f ] if* ; inline
: split1-last ( seq subseq -- before after ) : split1-last ( seq subseq -- before after )
[ <reversed> ] bi@ split1 [ reverse! ] bi@ [ <reversed> ] bi@ split1 [ reverse ] bi@
dup [ swap ] when ; dup [ swap ] when ;
: split1-last-slice ( seq subseq -- before-slice after-slice ) : split1-last-slice ( seq subseq -- before-slice after-slice )