19 lines
564 B
Factor
19 lines
564 B
Factor
! Copyright (C) 2007, 2008 Slava Pestov, Eduardo Cavazos.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors fry fry.private generalizations kernel
|
|
locals.types make sequences ;
|
|
IN: locals.fry
|
|
|
|
! Support for mixing locals with fry
|
|
|
|
M: binding-form count-inputs body>> count-inputs ;
|
|
|
|
M: lambda count-inputs body>> count-inputs ;
|
|
|
|
M: lambda deep-fry
|
|
clone [ shallow-fry swap ] change-body
|
|
[ [ vars>> length ] keep '[ _ _ mnswap @ ] , ] [ drop [ncurry] % ] 2bi ;
|
|
|
|
M: binding-form deep-fry
|
|
clone [ fry '[ @ call ] ] change-body , ;
|