assert.app ( message -- )

Vocabulary

cocoa.application

Inputs

message

an object

Outputs

None

Definition

USING: kernel sequences ;

IN: cocoa.application

: assert.app ( message -- )
    running.app?
    [ drop ] [
        "The "
        " requires you to run Factor from an application bundle."
        surround throw
    ] if ;