check-display ( alien -- alien' )


Vocabulary
x11

Inputs
alienan object


Outputs
alien'an object


Definition


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