dredge-fry ( n dredge-fry -- )


Vocabulary
fry.private

Inputs
nan object
dredge-fryan object


Outputs
None

Definition
USING: accessors kernel sequences ;

IN: fry.private

: dredge-fry ( n dredge-fry -- )
2dup input>> [ fried? ] find-from
[ dredge-fry-subquot ] [ drop dredge-fry-simple ] if* ;
inline recursive