io.binary.fast: le> and be> should be unsigned.

diff --git a/extra/io/binary/fast/fast.factor b/extra/io/binary/fast/fast.factor
index ffd5298da9d5b9e6c45a97051dd280043ba98cc7..c4afd858a11d6b42b4651c0c51d26ff8a2382be6 100644 (file)
--- 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 {