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

Move assert-sequence= from mime.multipart to sequences

db4
Slava Pestov 2009-04-09 04:49:54 -05:00
parent 2b384a7742
commit bc6dfeea17
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/mime/multipart/multipart.factor
View File

@ -137,9 +137,6 @@ ERROR: no-content-disposition multipart ;
[ no-content-disposition ] [ no-content-disposition ]
} case ; } case ;
: assert-sequence= ( a b -- )
2dup sequence= [ 2drop ] [ assert ] if ;
: read-assert-sequence= ( sequence -- ) : read-assert-sequence= ( sequence -- )
[ length read ] keep assert-sequence= ; [ length read ] keep assert-sequence= ;

3
core/sequences/sequences.factor
View File

@ -568,6 +568,9 @@ M: sequence <=>
2dup [ length ] bi@ = 2dup [ length ] bi@ =
[ mismatch not ] [ 2drop f ] if ; inline [ mismatch not ] [ 2drop f ] if ; inline
: assert-sequence= ( a b -- )
2dup sequence= [ 2drop ] [ assert ] if ;
: sequence-hashcode-step ( oldhash newpart -- newhash ) : sequence-hashcode-step ( oldhash newpart -- newhash )
>fixnum swap [ >fixnum swap [
[ -2 fixnum-shift-fast ] [ 5 fixnum-shift-fast ] bi [ -2 fixnum-shift-fast ] [ 5 fixnum-shift-fast ] bi