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

: global-quot ( type word -- quot )
    swap [ name>> current-library get ] dip
    '[ _ _ address-of 0 _ alien-value ] ;