factor: trim using lists

[factor.git] / extra / checksums / multi / multi-docs.factor

diff --git a/extra/checksums/multi/multi-docs.factor b/extra/checksums/multi/multi-docs.factor
index 26ea2abad84d63f1c1d4a4a9bbb6dd65d9c12b63..58629d9868122c89e778c39f17789c5f40a4b599 100644 (file)
--- a/extra/checksums/multi/multi-docs.factor
+++ b/extra/checksums/multi/multi-docs.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2018 Alexander Ilin.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: checksums checksums.common checksums.md5 checksums.sha
-destructors help.markup help.syntax kernel sequences ;
+destructors help.markup help.syntax sequences ;
 IN: checksums.multi
 
 ABOUT: "checksums.multi"
@@ -13,9 +13,10 @@ $nl
 $nl
 "The " { $link checksum-bytes } " and the " { $link checksum-stream } " methods encapsulate the above protocol, including instantiation and disposal of the " { $link multi-state } " tuple."
 { $examples
-    { $unchecked-example "USING: byte-arrays checksums checksums.md5 checksums.sha ;"
+    { $example "USING: byte-arrays checksums checksums.md5 "
+    " checksums.multi checksums.sha ;"
     "\"test\" >byte-array { md5 sha1 } <multi-checksum> checksum-bytes ."
-    "{
+"{
     B{
         9 143 107 205 70 33 211 115 202 222 78 131 38 39 180 246
     }
@@ -23,26 +24,10 @@ $nl
         169 74 143 229 204 177 155 166 28 76 8 115 211 145 233
         135 152 47 187 211
     }
-}" }
-    $nl
-    { $unchecked-example "USING: checksums checksums.common checksums.md5 checksums.sha"
-    "io io.encodings.binary namespaces ;"
-    "\"LICENSE.txt\" binary ["
-    "    input-stream get { md5 sha1 } <multi-checksum> checksum-stream"
-    "] with-file-reader ."
-    "{
-    B{
-        220 158 207 218 50 163 198 36 234 90 122 65 197 14 224
-        16
-    }
-    B{
-        132 132 148 224 101 202 198 114 38 53 127 18 70 170 108
-        53 25 255 174 207
+}"
     }
-}" }
 } ;
 
-
 HELP: <multi-checksum>
 { $values
     { "checksums" sequence }