factor: trim using lists

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

diff --git a/basis/checksums/metrohash/metrohash.factor b/basis/checksums/metrohash/metrohash.factor
index 04f3e0ee317eb98280444367c3c37f9d73498e95..120092ca91fe9f59ce5bb30c67d8f1ed5291f104 100644 (file)
--- a/basis/checksums/metrohash/metrohash.factor
+++ b/basis/checksums/metrohash/metrohash.factor
@@ -1,12 +1,7 @@
 ! Copyright (C) 2018 John Benediktsson.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien.c-types alien.data byte-arrays checksums
-combinators grouping io.binary kernel locals math math.bitwise
-sequences specialized-arrays ;
-SPECIALIZED-ARRAY: uint64_t
-SPECIALIZED-ARRAY: uint32_t
-SPECIALIZED-ARRAY: uint16_t
-SPECIALIZED-ARRAY: uint8_t
+combinators endian grouping kernel math math.bitwise sequences ;
 
 IN: checksums.metrohash
 
@@ -18,7 +13,7 @@ C: <metrohash-64> metrohash-64
 
 :: 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