update-library ( name path abi -- )

Vocabulary

alien.libraries

Inputs

name	an object
path	an object
abi	an object

Outputs

None

Definition

USING: assocs kernel namespaces ;

IN: alien.libraries

: update-library ( name path abi -- )
    pick lookup-library [
        [ 2over same-library? not ] 1check
        [ change-dll drop ] [ 4drop ] if
    ] [ make-library swap libraries get set-at ] if* ;