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
    >>i ;

M: random-dummy random-32*
    [ 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`

random: some cleanup. 2014-02-06 21:17:03 -05:00			`M: random-dummy seed-random`
fix seed-random, random-32* -> random-32 2009-09-30 04:22:11 -04:00			`>>i ;`
redo random/ 2008-03-19 17:18:03 -04:00
random: some cleanup. 2014-02-06 21:17:03 -05:00			`M: random-dummy random-32*`
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 ;`