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

compression.zlib: fix help-lint.

db4
John Benediktsson 2015-05-02 09:32:05 -07:00
parent 8a4c80371e
commit 30492d1a06
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compression/zlib/zlib-docs.factor
View File

@ -29,10 +29,10 @@ HELP: compressed-size
HELP: uncompress HELP: uncompress
{ $values { $values
{ "compressed" compressed } { "obj" { $or compressed byte-array } }
{ "byte-array" byte-array } { "byte-array" byte-array }
} }
{ $description "Uncompresses a compressed object, returning a byte-array of the underlying data." } ; { $description "Uncompresses, returning a byte-array of the underlying data." } ;
ARTICLE: "compression.zlib" "Compression (ZLIB)" ARTICLE: "compression.zlib" "Compression (ZLIB)"
"The " { $vocab-link "compression.zlib" } " vocabulary provides support for ZLIB:" "The " { $vocab-link "compression.zlib" } " vocabulary provides support for ZLIB:"

4
basis/compression/zlib/zlib.factor
View File

@ -46,7 +46,7 @@ ERROR: zlib-failed n string ;
GENERIC: uncompress ( obj -- byte-array ) GENERIC: uncompress ( obj -- byte-array )
M: compressed uncompress ( compressed -- byte-array ) M: compressed uncompress
[ [
length>> [ <byte-vector> dup underlying>> ] keep length>> [ <byte-vector> dup underlying>> ] keep
ulong <ref> ulong <ref>
@ -63,6 +63,6 @@ M: compressed uncompress ( compressed -- byte-array )
2drop ulong deref memory>byte-array 2drop ulong deref memory>byte-array
] with-destructors ; ] with-destructors ;
M: byte-array uncompress ( byte-array -- byte-array ) M: byte-array uncompress
[ length 5 [0,b) [ 2^ * ] with map ] keep [ length 5 [0,b) [ 2^ * ] with map ] keep
'[ _ (uncompress) ] attempt-all ; '[ _ (uncompress) ] attempt-all ;