Update search paths after combinators.lib -> sequences.lib move

db4
Aaron Schaefer 2008-02-12 16:49:53 -05:00
parent 7361ee58a8
commit b4324cdd58
9 changed files with 120 additions and 121 deletions

View File

@ -1,6 +1,5 @@
USING: arrays bunny.model combinators.lib continuations USING: arrays bunny.model continuations kernel multiline opengl opengl.shaders
kernel multiline opengl opengl.shaders opengl.capabilities opengl.capabilities opengl.gl sequences sequences.lib ;
opengl.gl sequences ;
IN: bunny.cel-shaded IN: bunny.cel-shaded
STRING: vertex-shader-source STRING: vertex-shader-source

View File

@ -1,9 +1,8 @@
USING: alien alien.c-types arrays sequences math USING: alien alien.c-types arrays sequences math math.vectors math.matrices
math.vectors math.matrices math.parser io io.files kernel opengl math.parser io io.files kernel opengl opengl.gl opengl.glu
opengl.gl opengl.glu opengl.capabilities shuffle http.client opengl.capabilities shuffle http.client vectors splitting tools.time system
vectors splitting combinators combinators.cleave float-arrays continuations namespaces
tools.time system combinators combinators.lib combinators.cleave sequences.lib ;
float-arrays continuations namespaces ;
IN: bunny.model IN: bunny.model
: numbers ( str -- seq ) : numbers ( str -- seq )

View File

@ -1,14 +1,10 @@
USING: combinators.lib kernel math math.ranges random sequences USING: combinators.lib kernel math random sequences tools.test continuations
tools.test continuations arrays vectors ; arrays vectors ;
IN: temporary IN: temporary
[ 5 ] [ [ 10 random ] [ 5 = ] generate ] unit-test [ 5 ] [ [ 10 random ] [ 5 = ] generate ] unit-test
[ t ] [ [ 10 random ] [ even? ] generate even? ] unit-test [ t ] [ [ 10 random ] [ even? ] generate even? ] unit-test
[ 50 ] [ 100 [1,b] [ even? ] count ] unit-test
[ 50 ] [ 100 [1,b] [ odd? ] count ] unit-test
[ 328350 ] [ 100 [ sq ] sigma ] unit-test
[ { 910 911 912 } ] [ 10 900 3 [ + + ] map-with2 ] unit-test
{ 6 2 } [ 1 2 [ 5 + ] dip ] unit-test { 6 2 } [ 1 2 [ 5 + ] dip ] unit-test
{ 6 2 1 } [ 1 2 1 [ 5 + ] dipd ] unit-test { 6 2 1 } [ 1 2 1 [ 5 + ] dipd ] unit-test
@ -17,11 +13,6 @@ IN: temporary
[ 1 2 3 4 5 [ drop drop drop drop drop 2 ] 5 nkeep ] must-infer [ 1 2 3 4 5 [ drop drop drop drop drop 2 ] 5 nkeep ] must-infer
{ 2 1 2 3 4 5 } [ 1 2 3 4 5 [ drop drop drop drop drop 2 ] 5 nkeep ] unit-test { 2 1 2 3 4 5 } [ 1 2 3 4 5 [ drop drop drop drop drop 2 ] 5 nkeep ] unit-test
[ [ 1 2 3 + ] ] [ 1 2 3 [ + ] 3 ncurry ] unit-test [ [ 1 2 3 + ] ] [ 1 2 3 [ + ] 3 ncurry ] unit-test
[ 1 2 { 3 4 } [ + + ] 2 map-withn ] must-infer
{ { 6 7 } } [ 1 2 { 3 4 } [ + + ] 2 map-withn ] unit-test
{ { 16 17 18 19 20 } } [ 1 2 3 4 { 6 7 8 9 10 } [ + + + + ] 4 map-withn ] unit-test
[ 1 2 { 3 4 } [ + + drop ] 2 each-withn ] must-infer
{ 13 } [ 1 2 { 3 4 } [ + + ] 2 each-withn + ] unit-test
[ 1 1 2 2 3 3 ] [ 1 2 3 [ dup ] 3apply ] unit-test [ 1 1 2 2 3 3 ] [ 1 2 3 [ dup ] 3apply ] unit-test
[ 1 4 9 ] [ 1 2 3 [ sq ] 3apply ] unit-test [ 1 4 9 ] [ 1 2 3 [ sq ] 3apply ] unit-test
[ [ sq ] 3apply ] must-infer [ [ sq ] 3apply ] must-infer
@ -55,5 +46,3 @@ IN: temporary
[ dup array? ] [ dup vector? ] [ dup float? ] [ dup array? ] [ dup vector? ] [ dup float? ]
} || nip } || nip
] unit-test ] unit-test
[ 1 2 3 4 ] [ { 1 2 3 4 } 4 nfirst ] unit-test

View File

@ -1,7 +1,7 @@
! Copyright (C) 2007 Slava Pestov. ! Copyright (C) 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io.files io.launcher io.styles io hashtables kernel USING: io.files io.launcher io.styles io hashtables kernel
sequences combinators.lib assocs system sorting math.parser ; sequences sequences.lib assocs system sorting math.parser ;
IN: contributors IN: contributors
: changelog ( -- authors ) : changelog ( -- authors )

View File

@ -1,7 +1,5 @@
USING: kernel combinators sequences math math.functions math.vectors mortar
USING: kernel combinators sequences math math.functions math.vectors mortar slot-accessors slot-accessors x x.widgets.wm.root x.widgets.wm.frame sequences.lib ;
x x.widgets.wm.root x.widgets.wm.frame combinators.lib ;
IN: factory.commands IN: factory.commands
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

View File

@ -1,6 +1,5 @@
USING: arrays combinators.lib io io.streams.string USING: arrays io io.streams.string kernel math math.parser namespaces
kernel math math.parser namespaces prettyprint prettyprint sequences sequences.lib splitting strings ascii ;
sequences splitting strings ascii ;
IN: hexdump IN: hexdump
<PRIVATE <PRIVATE

View File

@ -1,5 +1,5 @@
USING: combinators.lib kernel math math.analysis USING: kernel math math.analysis math.functions math.vectors sequences
math.functions math.vectors sequences sequences.lib sorting ; sequences.lib sorting ;
IN: math.statistics IN: math.statistics
: mean ( seq -- n ) : mean ( seq -- n )

View File

@ -14,11 +14,11 @@ USING: kernel alien ogg ogg.vorbis ogg.theora io byte-arrays
sequences libc shuffle alien.c-types system openal math sequences libc shuffle alien.c-types system openal math
namespaces threads shuffle opengl arrays ui.gadgets.worlds namespaces threads shuffle opengl arrays ui.gadgets.worlds
combinators math.parser ui.gadgets ui.render opengl.gl ui combinators math.parser ui.gadgets ui.render opengl.gl ui
continuations io.files hints combinators.lib ; continuations io.files hints combinators.lib sequences.lib ;
IN: ogg.player IN: ogg.player
: audio-buffer-size ( -- number ) 128 1024 * ; inline : audio-buffer-size ( -- number ) 128 1024 * ; inline
TUPLE: player stream temp-state TUPLE: player stream temp-state
op oy og op oy og

View File

@ -1,5 +1,18 @@
USING: arrays kernel sequences sequences.lib math USING: arrays kernel sequences sequences.lib math math.functions math.ranges
math.functions tools.test strings ; tools.test strings ;
IN: temporary
[ 50 ] [ 100 [1,b] [ even? ] count ] unit-test
[ 50 ] [ 100 [1,b] [ odd? ] count ] unit-test
[ 328350 ] [ 100 [ sq ] sigma ] unit-test
[ 1 2 { 3 4 } [ + + drop ] 2 each-withn ] must-infer
{ 13 } [ 1 2 { 3 4 } [ + + ] 2 each-withn + ] unit-test
[ 1 2 { 3 4 } [ + + ] 2 map-withn ] must-infer
{ { 6 7 } } [ 1 2 { 3 4 } [ + + ] 2 map-withn ] unit-test
{ { 16 17 18 19 20 } } [ 1 2 3 4 { 6 7 8 9 10 } [ + + + + ] 4 map-withn ] unit-test
[ { 910 911 912 } ] [ 10 900 3 [ + + ] map-with2 ] unit-test
[ 4 ] [ { 1 2 } [ sq ] [ * ] map-reduce ] unit-test [ 4 ] [ { 1 2 } [ sq ] [ * ] map-reduce ] unit-test
[ 36 ] [ { 2 3 } [ sq ] [ * ] map-reduce ] unit-test [ 36 ] [ { 2 3 } [ sq ] [ * ] map-reduce ] unit-test
@ -7,6 +20,8 @@ math.functions tools.test strings ;
[ 10 ] [ { 1 2 3 4 } [ + ] reduce* ] unit-test [ 10 ] [ { 1 2 3 4 } [ + ] reduce* ] unit-test
[ 24 ] [ { 1 2 3 4 } [ * ] reduce* ] unit-test [ 24 ] [ { 1 2 3 4 } [ * ] reduce* ] unit-test
[ 1 2 3 4 ] [ { 1 2 3 4 } 4 nfirst ] unit-test
[ -4 ] [ 1 -4 [ abs ] higher ] unit-test [ -4 ] [ 1 -4 [ abs ] higher ] unit-test
[ 1 ] [ 1 -4 [ abs ] lower ] unit-test [ 1 ] [ 1 -4 [ abs ] lower ] unit-test