random.unix: roll back type assertions

Probably don't really make much difference and are invalid in apps that deploy with io level 2 or lower.
db4
Joe Groff 2011-11-16 17:29:46 -08:00
parent 6de9585114
commit 41fe611dda
1 changed files with 2 additions and 2 deletions

View File

@ -2,10 +2,10 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types io io.files kernel namespaces random USING: alien.c-types io io.files kernel namespaces random
io.encodings.binary init accessors system destructors io.encodings.binary init accessors system destructors
io.ports hints math ; hints math ;
IN: random.unix IN: random.unix
TUPLE: unix-random { reader input-port } ; TUPLE: unix-random reader ;
: <unix-random> ( path -- random ) : <unix-random> ( path -- random )
binary <file-reader> unix-random boa ; binary <file-reader> unix-random boa ;