Fix using list in sequences.unrolled, keys/values was not appropriate in several locations

db4
Doug Coleman 2010-05-21 15:28:05 -05:00
parent 547746db9f
commit 01e14d1430
4 changed files with 8 additions and 6 deletions

View File

@ -1,7 +1,8 @@
! Copyright (C) 2010 Erik Charlebois, William Schlieper. ! Copyright (C) 2010 Erik Charlebois, William Schlieper.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types arrays kernel game.input namespaces math USING: accessors alien.c-types arrays kernel game.input
classes bit-arrays system sequences vectors x11 x11.xlib ; namespaces math classes bit-arrays system sequences vectors
x11 x11.xlib assocs ;
IN: game.input.x11 IN: game.input.x11
SINGLETON: x11-game-input-backend SINGLETON: x11-game-input-backend

View File

@ -1,5 +1,6 @@
! (c)2010 Joe Groff bsd license ! (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 IN: sequences.unrolled.tests
[ { "0" "1" "2" } ] [ { 0 1 2 } 3 [ number>string ] unrolled-map ] unit-test [ { "0" "1" "2" } ] [ { 0 1 2 } 3 [ number>string ] unrolled-map ] unit-test

View File

@ -55,7 +55,7 @@ IN: xml.elements
">" expect ; ">" expect ;
: assure-no-extra ( seq -- ) : assure-no-extra ( seq -- )
keys { [ first ] map {
T{ name f "" "version" f } T{ name f "" "version" f }
T{ name f "" "encoding" f } T{ name f "" "encoding" f }
T{ name f "" "standalone" f } T{ name f "" "standalone" f }

View File

@ -30,8 +30,8 @@ CONSTANT: lo 1010101030
CONSTANT: hi 1389026570 CONSTANT: hi 1389026570
: form-fitting? ( n -- ? ) : form-fitting? ( n -- ? )
number>digits 2 group keys number>digits 2 group [ first ] map
{ 1 2 3 4 5 6 7 8 9 0 } = ; { 1 2 3 4 5 6 7 8 9 0 } sequence= ;
: candidates ( -- seq ) : candidates ( -- seq )
lo lo 40 + [ hi 100 <range> ] bi@ cord-append ; lo lo 40 + [ hi 100 <range> ] bi@ cord-append ;