set-global-quot ( type word -- quot )

Vocabulary

alien.parser

Inputs

type	an object
word	an object

Outputs

quot

an object

Definition

USING: accessors alien.c-types alien.libraries kernel namespaces
;

IN: alien.parser

: set-global-quot ( type word -- quot )
    swap [ name>> current-library get ] dip
    [ [ address-of 0 ] 2curry ] dip [ set-alien-value ] curry
    compose ;