factor/basis/random/dummy/dummy.factor

USING: kernel math accessors random ;
IN: random.dummy

TUPLE: random-dummy i ;
C: <random-dummy> random-dummy

M: random-dummy seed-random ( obj seed -- obj )
    >>i ;

M: random-dummy random-32* ( obj -- r )
    [ dup 1 + ] change-i drop ;
Updating code in basis and extra for stricter vocab search path semantics 2009-05-15 00:23:06 -04:00			`USING: kernel math accessors random ;`
redo random/ 2008-03-19 17:18:03 -04:00			`IN: random.dummy`

			`TUPLE: random-dummy i ;`
			`C: <random-dummy> random-dummy`

fix seed-random, random-32* -> random-32 2009-09-30 04:22:11 -04:00			`M: random-dummy seed-random ( obj seed -- obj )`
			`>>i ;`
redo random/ 2008-03-19 17:18:03 -04:00
make random-32* the protocol again, add a random-32 word that doesn't scale the returned bits 2009-09-30 16:56:02 -04:00			`M: random-dummy random-32* ( obj -- r )`
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places, minor refactoring 2009-08-13 20:21:44 -04:00			`[ dup 1 + ] change-i drop ;`