shallow-fry ( quot -- quot' )

Vocabulary

fry.private

Inputs

quot

an object

Outputs

quot'

an object

Definition

USING: combinators kernel math sequences splitting ;

IN: fry.private

: shallow-fry ( quot -- quot' )
    check-fry mark-composes { POSTPONE: _ } split
    convert-curries
    [ [ [ ] ] [ [ ] (make-curry) but-last ] if-zero ] [
        shallow-spread>quot swap
        [ [ ] (make-curry) compose ] unless-zero
    ] if-empty ;