check-external-demos ( -- )

Vocabulary

demos.smoke-test

Inputs

None

Outputs

None

Definition

USING: assocs io locals.backend sequences vocabs ;

IN: demos.smoke-test

: check-external-demos ( -- )
    external-demos [
        2 load-locals -1 get-local require
        -1 get-local "LOADED (runtime untested): " prepend print
        0 get-local print flush 2 drop-locals
    ] assoc-each ;