basis/models/arrow/smart/smart.factor

   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 combinators.smart combinators.smart.private
   5 macros kernel ;
   6 IN: models.arrow.smart
   7
   8 MACRO: <smart-arrow> ( quot -- quot' )
   9     [ inputs dup ] keep
  10     '[ _ narray <product> [ _ firstn @ ] <arrow> ] ;