From ee6ae8a63cbece32318d80e1580bfebab783b322 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 20 Dec 2014 12:06:54 -0800
Subject: [PATCH] io.encodings.detect: simplify prolog-tag.

---
 extra/io/encodings/detect/detect.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/io/encodings/detect/detect.factor b/extra/io/encodings/detect/detect.factor
index c8b01757f8..c32dac75ec 100644
--- 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 )
     '[