cwd:shell — ordinary primitive
EXTENSIONS
$CWD ( -- str-ptr str-len )();p4:"cwd";
$CWD ( -- str-ptr str-len )(
)
calls system's getcwd