<fry-word> ( source quot -- word )

Vocabulary

fry

Inputs

source	an object
quot	an object

Outputs

word

an object

Definition

USING: accessors arrays compiler.units effects fry.private
kernel sequences words ;

IN: fry

: <fry-word> ( source quot -- word )
    over second count-inputs object <array> { object } <effect> 
    [
        "( fry )" <uninterned-word> dup t "no-compile"
        set-word-prop dup dup
    ] 3dip [ "fry" set-word-prop ] 2dip define-inline
    dup dup def>> 2array 1array f f modify-code-heap ;