Paste: use fry

Author: slava
Mode: factor
Date: Wed, 1 Oct 2008 09:40:37
Plain Text |
: fetch-more ( seq sa first-index quot -- matches )
    [ call -rot '[ dup , swap , nth load swap head? ] ]
    [ '[ dup @ swap ] ]
    bi [ ] produce nip ;

New Annotation

Summary:
Author:
Mode:
Body: