1 ! Copyright (C) 2009, 2010 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: models.arrow models.product stack-checker accessors fry
4 generalizations sequences.generalizations combinators.smart
8 MACRO: <smart-arrow> ( quot -- quot' )
10 '[ _ narray <product> [ _ firstn @ ] <arrow> ] ;