factor: trim using lists

[factor.git] / basis / checksums / wyhash / wyhash.factor

diff --git a/basis/checksums/wyhash/wyhash.factor b/basis/checksums/wyhash/wyhash.factor
index 00492f98ecf7a1cf9532bd46b0d60b1d819afe94..bff1f8a7a5dd9f8cd005c6be721a397f0d7edc16 100644 (file)
--- a/basis/checksums/wyhash/wyhash.factor
+++ b/basis/checksums/wyhash/wyhash.factor
@@ -2,10 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license
 
 USING: accessors alien.c-types alien.data byte-arrays checksums
-grouping io.binary kernel literals math math.bitwise math.order
-sequences sequences.generalizations sequences.private
-specialized-arrays ;
-SPECIALIZED-ARRAY: uint64_t
+endian grouping kernel math math.bitwise
+sequences sequences.generalizations sequences.private ;
 IN: checksums.wyhash
 
 <PRIVATE
@@ -51,7 +49,7 @@ CONSTANT: P3 0x589965cc75374cc3
 
 :: native-mapper ( from to bytes c-type -- seq )
     from to bytes <slice>
-    bytes byte-array? little-endian? and
+    bytes byte-array? alien.data:little-endian? and
     [ c-type cast-array ]
     [ c-type heap-size <groups> [ le> ] map ] if ; inline