From 01e14d143099b32604fb866be3a2021e367306ef Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 21 May 2010 15:28:05 -0500
Subject: [PATCH] Fix using list in sequences.unrolled, keys/values was not
 appropriate in several locations

---
 basis/game/input/x11/x11.factor                | 5 +++--
 basis/sequences/unrolled/unrolled-tests.factor | 3 ++-
 basis/xml/elements/elements.factor             | 2 +-
 extra/project-euler/206/206.factor             | 4 ++--
 4 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/basis/game/input/x11/x11.factor b/basis/game/input/x11/x11.factor
index c1f1c59fc0..2e6514d396 100644
--- a/basis/game/input/x11/x11.factor
+++ b/basis/game/input/x11/x11.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2010 Erik Charlebois, William Schlieper.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien.c-types arrays kernel game.input namespaces math
-classes bit-arrays system sequences vectors x11 x11.xlib ;
+USING: accessors alien.c-types arrays kernel game.input
+namespaces math classes bit-arrays system sequences vectors
+x11 x11.xlib assocs ;
 IN: game.input.x11
 
 SINGLETON: x11-game-input-backend
diff --git a/basis/sequences/unrolled/unrolled-tests.factor b/basis/sequences/unrolled/unrolled-tests.factor
index 47fdd4fa3f..57a1099d8f 100644
--- a/basis/sequences/unrolled/unrolled-tests.factor
+++ b/basis/sequences/unrolled/unrolled-tests.factor
@@ -1,5 +1,6 @@
 ! (c)2010 Joe Groff bsd license
-USING: compiler.test math.parser sequences.unrolled tools.test ;
+USING: compiler.test make math.parser sequences
+sequences.unrolled tools.test ;
 IN: sequences.unrolled.tests
 
 [ { "0" "1" "2" } ] [ { 0 1 2 } 3 [ number>string ] unrolled-map ] unit-test
diff --git a/basis/xml/elements/elements.factor b/basis/xml/elements/elements.factor
index 39afcc8fca..1e59c19909 100644
--- a/basis/xml/elements/elements.factor
+++ b/basis/xml/elements/elements.factor
@@ -55,7 +55,7 @@ IN: xml.elements
     ">" expect ;
 
 : assure-no-extra ( seq -- )
-    keys {
+    [ first ] map {
         T{ name f "" "version" f }
         T{ name f "" "encoding" f }
         T{ name f "" "standalone" f }
diff --git a/extra/project-euler/206/206.factor b/extra/project-euler/206/206.factor
index 87693b60db..10f5259bdc 100644
--- a/extra/project-euler/206/206.factor
+++ b/extra/project-euler/206/206.factor
@@ -30,8 +30,8 @@ CONSTANT: lo 1010101030
 CONSTANT: hi 1389026570
 
 : form-fitting? ( n -- ? )
-    number>digits 2 group keys
-    { 1 2 3 4 5 6 7 8 9 0 } = ;
+    number>digits 2 group [ first ] map
+    { 1 2 3 4 5 6 7 8 9 0 } sequence= ;
 
 : candidates ( -- seq )
     lo lo 40 + [ hi 100 <range> ] bi@ cord-append ;