samer@4: function D=popd
samer@4: % popd:	Pop directory off stack
samer@4: % dirname=popd:	pop and return directory name
samer@4: % popd:				pop directory and cd into it.
samer@4: global DirStack
samer@4: d=DirStack{1};
samer@4: DirStack=DirStack{2};
samer@4: if nargout<1, cd(d); else D=d; end