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

wrap.words: missed this commit.

db4
John Benediktsson 2012-08-03 08:44:22 -07:00
parent 4a56b0c178
commit b2a10982f7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/wrap/words/words.factor
View File

@ -16,7 +16,7 @@ C: <word> word
[ append ] [ [ words-length ] bi@ ] 2bi <element> ; [ append ] [ [ words-length ] bi@ ] 2bi <element> ;
: ?first2 ( seq -- first/f second/f ) : ?first2 ( seq -- first/f second/f )
dup length dup 1 > [ first2-unsafe ] [ dup length dup 1 > [ drop first2-unsafe ] [
0 > [ first-unsafe f ] [ drop f f ] if 0 > [ first-unsafe f ] [ drop f f ] if
] if ; ] if ;