sequences: remove outdated comment

db4
Slava Pestov 2010-02-10 16:12:02 +13:00
parent 1c9a95122a
commit a112e52fe7
1 changed files with 5 additions and 5 deletions

View File

@ -91,6 +91,8 @@ M: sequence set-nth-unsafe set-nth ; inline
: change-nth-unsafe ( i seq quot -- )
[ [ nth-unsafe ] dip call ] 3keep drop set-nth-unsafe ; inline
PRIVATE>
! The f object supports the sequence protocol trivially
M: f length drop 0 ; inline
M: f nth-unsafe nip ; inline
@ -98,20 +100,18 @@ M: f like drop [ f ] when-empty ; inline
INSTANCE: f immutable-sequence
PRIVATE>
! In the future, this will replace integer sequences
! Integer sequences
TUPLE: iota { n integer read-only } ;
: iota ( n -- iota ) \ iota boa ; inline
<PRIVATE
M: iota length n>> ; inline
M: iota nth-unsafe drop ; inline
INSTANCE: iota immutable-sequence
<PRIVATE
: first-unsafe ( seq -- first )
0 swap nth-unsafe ; inline