extra/combinators/short-circuit/smart/smart.factor

   1
   2 USING: kernel sequences math inference accessors macros
   3        combinators.short-circuit ;
   4
   5 IN: combinators.short-circuit.smart
   6
   7 MACRO: && ( quots -- quot )
   8   dup first infer [ in>> ] [ out>> ] bi - 1+ n&&-rewrite ;
   9
  10 MACRO: || ( quots -- quot )
  11   dup first infer [ in>> ] [ out>> ] bi - 1+ n||-rewrite ;