check-display ( alien -- alien' )

Vocabulary

x11

Inputs

alien

an object

Outputs

alien'

an object

Definition

USING: kernel ;

IN: x11

: check-display ( alien -- alien' )
    [ "Cannot connect to X server - check $DISPLAY" throw ]
    unless* ;