(to-refresh) ( vocab-name loaded? path -- ? )

Vocabulary

vocabs.refresh

Inputs

vocab-name	an object
loaded?	an object
path	an object

Outputs

?

an object

Definition

USING: kernel ;

IN: vocabs.refresh

: (to-refresh) ( vocab-name loaded? path -- ? )
    [
        swap [
            swap changed-vocab?
            [ source-modified? ] [ drop f ] if
        ] [ 2drop t ] if
    ] [ 2drop f ] if* ;