Fix using list in sequences.unrolled, keys/values was not appropriate in several locations
parent
547746db9f
commit
01e14d1430
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 }
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue