io.encodings.detect: simplify prolog-tag.

2014-12-20 12:06:54 -08:00 · 2014-12-20 12:06:54 -08:00 · ee6ae8a63c
parent 12050a0db9
commit ee6ae8a63c
1 changed files with 1 additions and 1 deletions
--- a/extra/io/encodings/detect/detect.factor
+++ b/extra/io/encodings/detect/detect.factor
@ -13,7 +13,7 @@ default-8bit-encoding [ latin1 ] initialize
 <PRIVATE

 : prolog-tag ( bytes -- string )
-    CHAR: > over index [ 1 + ] [ dup length ] if* head-slice >string ;
+    CHAR: > over index [ 1 + head-slice ] when* >string ;

 : prolog-encoding ( string -- iana-encoding )
    '[