From 68fed78c7d4eb1612810b54de43267e81dd0f846 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 15 Mar 2013 07:55:20 -0700 Subject: [PATCH] io.encodings.strict: some fixes. --- basis/io/encodings/strict/strict.factor | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/basis/io/encodings/strict/strict.factor b/basis/io/encodings/strict/strict.factor index 3288de601d..53975ace4a 100644 --- a/basis/io/encodings/strict/strict.factor +++ b/basis/io/encodings/strict/strict.factor @@ -4,15 +4,8 @@ USING: io.encodings kernel accessors summary ; IN: io.encodings.strict TUPLE: strict code ; + C: strict strict -TUPLE: decode-error ; -: decode-error ( -- * ) \ decode-error new throw ; -M: decode-error summary - drop "Error in decoding input stream" ; - -M: strict - code>> [ strict ] change-code ; - M: strict decode-char code>> decode-char dup replacement-char = [ decode-error ] when ;