#!/bin/rc
# popd - pop from the directory stack
# fn popd {. /bin/popd $*}

if(~ $#dirstack 0)
	echo >[1=2] popd: dirstack empty
if not{
	dir=$dirstack(1)
	dirstack=$dirstack(2-)
	cd $dir && dirs
}
status=''