global-quot ( type word -- quot )


Vocabulary
alien.parser

Inputs
typean object
wordan object


Outputs
quotan 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 ] 2curry ] dip [ alien-value ] curry
compose ;