core/locals/fry/fry.factor

   1 ! Copyright (C) 2007, 2008 Slava Pestov, Eduardo Cavazos.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors fry fry.private generalizations kernel
   4 locals.types sequences ;
   5 IN: locals.fry
   6
   7 ! Support for mixing locals with fry
   8
   9 M: let count-inputs body>> count-inputs ;
  10 M: lambda count-inputs body>> count-inputs ;
  11
  12 M: lambda fry
  13     clone [ [ count-inputs ] [ fry ] bi ] change-body
  14     [ [ vars>> length ] keep '[ _ _ mnswap _ call ] ]
  15     [ drop [ncurry] curry [ call ] compose ] 2bi ;
  16
  17 M: let fry
  18     clone [ fry ] change-body ;
  19
  20 INSTANCE: lambda fried
  21 INSTANCE: let    fried