From 940848a813875e4c7bd358d54d885b1e392c3995 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 17 Jul 2012 22:52:37 -0700
Subject: [PATCH] alien: these make "utf8 encode" 7-8% faster.

---
 core/alien/alien.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 83c8fb41a6..6da68c197f 100755
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -22,6 +22,10 @@ GENERIC: byte-length ( obj -- n ) flushable
 
 M: object byte-length [ length ] [ element-size ] bi * ; inline
 
+M: byte-array byte-length length ; inline
+
+M: byte-vector byte-length length ; inline
+
 GENERIC: >c-ptr ( obj -- c-ptr ) flushable
 
 M: c-ptr >c-ptr ; inline