compiler: fix failing test

diff --git a/basis/compiler/tests/curry.factor b/basis/compiler/tests/curry.factor
index 4f38cd8290258510e1f0e47ff7a14662d3079e26..50888e54c1b43f8501fa752b300102a879093727 100644 (file)
--- a/basis/compiler/tests/curry.factor
+++ b/basis/compiler/tests/curry.factor
@@ -1,5 +1,6 @@
 USING: tools.test quotations math kernel sequences
-assocs namespaces make compiler.units compiler.test ;
+assocs namespaces make compiler.units compiler.test
+locals random ;
 IN: compiler.tests.curry
 
 [ 3 ] [ 5 [ [ 2 - ] curry call ] compile-call ] unit-test
@@ -45,9 +46,10 @@ IN: compiler.tests.curry
         [ call f ] curry assoc-find 3drop
     ] { } make ; inline
 
-[ t ] [
-    global [ [ drop , ] funky-assoc>map ] compile-call
-    global keys =
+[ t ] [| |
+    1000 iota [ drop 1,000,000 random 1,000,000 random ] H{ } map>assoc :> a-hashtable
+    a-hashtable [ [ drop , ] funky-assoc>map ] compile-call
+    a-hashtable keys =
 ] unit-test
 
 [ 3 ] [ 1 [ 2 ] [ curry [ 3 ] [ 4 ] if ] compile-call ] unit-test