]> gitweb.factorcode.org Git - factor.git/commitdiff
Revert "compression.zlib: fix help-lint."
authorDoug Coleman <doug.coleman@gmail.com>
Sat, 2 May 2015 17:46:00 +0000 (10:46 -0700)
committerDoug Coleman <doug.coleman@gmail.com>
Sat, 2 May 2015 17:46:00 +0000 (10:46 -0700)
This reverts commit 30492d1a0631254bdfad426f42398a270d55514b.

basis/compression/zlib/zlib-docs.factor
basis/compression/zlib/zlib.factor

index edfcea9026f4f2c12ae4034a0da3600b65b7bf83..bfe8c12ccda181cbb24a359f4bfaec338b4aee09 100644 (file)
@@ -29,10 +29,10 @@ HELP: compressed-size
 
 HELP: uncompress
 { $values
-    { "obj" { $or compressed byte-array } }
+    { "compressed" compressed }
     { "byte-array" byte-array }
 }
-{ $description "Uncompresses, returning a byte-array of the underlying data." } ;
+{ $description "Uncompresses a compressed object, returning a byte-array of the underlying data." } ;
 
 ARTICLE: "compression.zlib" "Compression (ZLIB)"
 "The " { $vocab-link "compression.zlib" } " vocabulary provides support for ZLIB:"
index ab47565b0ed6e059402389ebb9cdb023fe115602..3baf8778e4268900d22c8bcae86105a9899a5580 100644 (file)
@@ -46,7 +46,7 @@ ERROR: zlib-failed n string ;
 
 GENERIC: uncompress ( obj -- byte-array )
 
-M: compressed uncompress
+M: compressed uncompress ( compressed -- byte-array )
     [
         length>> [ <byte-vector> dup underlying>> ] keep
         ulong <ref>
@@ -63,6 +63,6 @@ M: compressed uncompress
         2drop ulong deref memory>byte-array
     ] with-destructors ;
 
-M: byte-array uncompress
+M: byte-array uncompress ( byte-array -- byte-array )
     [ length 5 [0,b) [ 2^ * ] with map ] keep
     '[ _ (uncompress) ] attempt-all ;