From 08dcbdc9492b83f7b025207ca2d37b8c626e3938 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 23 Jun 2014 21:12:26 -0700
Subject: [PATCH] io.binary.fast: le> and be> should be unsigned.

---
 extra/io/binary/fast/fast.factor | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/extra/io/binary/fast/fast.factor b/extra/io/binary/fast/fast.factor
index ffd5298da9..c4afd858a1 100644
--- a/extra/io/binary/fast/fast.factor
+++ b/extra/io/binary/fast/fast.factor
@@ -46,13 +46,13 @@ MACRO: reassemble-le ( n -- quot ) le-range reassemble-bytes ;
 PRIVATE>
 
 : 2be> ( bytes -- x )
-    big-endian [ c:short deref ] [ 2 n-be> ] if-endian ;
+    big-endian [ c:ushort deref ] [ 2 n-be> ] if-endian ;
 
 : 4be> ( bytes -- x )
-    big-endian [ c:int deref ] [ 4 n-be> ] if-endian ;
+    big-endian [ c:uint deref ] [ 4 n-be> ] if-endian ;
 
 : 8be> ( bytes -- x )
-    big-endian [ c:longlong deref ] [ 8 n-be> ] if-endian ;
+    big-endian [ c:ulonglong deref ] [ 8 n-be> ] if-endian ;
 
 : be> ( bytes -- x )
     dup length {
@@ -63,13 +63,13 @@ PRIVATE>
     } case ;
 
 : 2le> ( bytes -- x )
-    little-endian [ c:short deref ] [ 2 n-le> ] if-endian ;
+    little-endian [ c:ushort deref ] [ 2 n-le> ] if-endian ;
 
 : 4le> ( bytes -- x )
-    little-endian [ c:int deref ] [ 4 n-le> ] if-endian ;
+    little-endian [ c:uint deref ] [ 4 n-le> ] if-endian ;
 
 : 8le> ( bytes -- x )
-    little-endian [ c:longlong deref ] [ 8 n-le> ] if-endian ;
+    little-endian [ c:ulonglong deref ] [ 8 n-le> ] if-endian ;
 
 : le> ( bytes -- x )
     dup length {