steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove >r r>

db4
Doug Coleman 2008-12-08 00:10:24 -06:00
parent 24c9337db6
commit 90cdb6c4f4
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/memoize/memoize-tests.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg. ! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: math kernel memoize tools.test parser USING: math kernel memoize tools.test parser generalizations
prettyprint io.streams.string sequences eval ; prettyprint io.streams.string sequences eval ;
IN: memoize.tests IN: memoize.tests
@ -9,7 +9,7 @@ MEMO: fib ( m -- n )
[ 89 ] [ 10 fib ] unit-test [ 89 ] [ 10 fib ] unit-test
[ "USING: kernel math memoize ; IN: memoize.tests MEMO: x ( a b c d e -- f g h i j ) >r >r >r >r 1+ r> r> r> r> ;" eval ] must-fail [ "USING: kernel math memoize generalizations ; IN: memoize.tests MEMO: x ( a b c d e -- f g h i j ) [ 1+ ] 4 ndip ;" eval ] must-fail
MEMO: see-test ( a -- b ) reverse ; MEMO: see-test ( a -- b ) reverse ;

2
basis/nmake/nmake.factor
View File

@ -10,7 +10,7 @@ SYMBOL: building-seq
: n, ( obj n -- ) get-building-seq push ; : n, ( obj n -- ) get-building-seq push ;
: n% ( seq n -- ) get-building-seq push-all ; : n% ( seq n -- ) get-building-seq push-all ;
: n# ( num n -- ) >r number>string r> n% ; : n# ( num n -- ) [ number>string ] dip n% ;
: 0, ( obj -- ) 0 n, ; : 0, ( obj -- ) 0 n, ;
: 0% ( seq -- ) 0 n% ; : 0% ( seq -- ) 0 n% ;

2
basis/random/mersenne-twister/mersenne-twister-tests.factor
View File

@ -11,7 +11,7 @@ IN: random.mersenne-twister.tests
100 [ 100 random ] replicate ; 100 [ 100 random ] replicate ;
: test-rng ( seed quot -- ) : test-rng ( seed quot -- )
>r <mersenne-twister> r> with-random ; [ <mersenne-twister> ] dip with-random ;
[ f ] [ 1234 [ randoms randoms = ] test-rng ] unit-test [ f ] [ 1234 [ randoms randoms = ] test-rng ] unit-test