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