From 39602240da8e3f7dbb24f414db6ba2807b57c72d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 4 Mar 2018 17:49:52 -0800 Subject: [PATCH] checksums.multi: making these checked $examples. --- extra/checksums/multi/multi-docs.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/extra/checksums/multi/multi-docs.factor b/extra/checksums/multi/multi-docs.factor index 26ea2abad8..c029e813a8 100644 --- a/extra/checksums/multi/multi-docs.factor +++ b/extra/checksums/multi/multi-docs.factor @@ -13,7 +13,8 @@ $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 } checksum-bytes ." "{ B{ @@ -25,9 +26,9 @@ $nl } }" } $nl - { $unchecked-example "USING: checksums checksums.common checksums.md5 checksums.sha" - "io io.encodings.binary namespaces ;" - "\"LICENSE.txt\" binary [" + { $example "USING: checksums checksums.common checksums.md5 " + "checksums.multi checksums.sha io io.encodings.binary namespaces ;" + "\"resource:LICENSE.txt\" binary [" " input-stream get { md5 sha1 } checksum-stream" "] with-file-reader ." "{