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

remove bad comment

db4
Doug Coleman 2009-02-06 18:40:41 -06:00
parent c8c427ec15
commit d5dc7f5db5
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/zlib/zlib.factor
View File

@ -29,8 +29,6 @@ ERROR: zlib-failed n string ;
: zlib-error ( n -- ) : zlib-error ( n -- )
dup zlib.ffi:Z_OK = [ drop ] [ dup zlib-error-message zlib-failed ] if ; dup zlib.ffi:Z_OK = [ drop ] [ dup zlib-error-message zlib-failed ] if ;
! Compressed size is up to .001% larger plus 12
: compressed-size ( byte-array -- n ) : compressed-size ( byte-array -- n )
length 1001/1000 * ceiling 12 + ; length 1001/1000 * ceiling 12 + ;