149 	env->current_device = d;  in activate_device()
157 	env->current_device = d;  in deactivate_device()
245 	ASSERT(env->current_device);  in finish_device()
257 	parent_dev = env->current_device->parent;  in finish_device()
566 		d = env->current_device;  in match_package_path()
706 current_device(fcode_env_t *env)  in current_device()  function
708 	PUSH(DS, (fstack_t)&env->current_device);  in current_device()
736 	if (env->current_device)  in pwd_dollar()
737 		push_a_string(env, get_path(env, env->current_device));  in pwd_dollar()
745 	if (env->current_device) {  in pwd()
747 		    get_path(env, env->current_device));  in pwd()
758 	if (env->current_device == NULL) {  in do_ls()
763 	d = env->current_device->child;  in do_ls()
786 	if (env->current_device == NULL) {  in paren_cd()
792 		p = env->current_device->parent;  in paren_cd()
794 		device_t *n = env->current_device->child;  in paren_cd()
852 	if (env->current_device) {  in device_end()
1023 	env->current_device = d;  in _init()
1027 	env->current_device = NULL;  in _init()
1064 	FORTH(0,		"current-device",	current_device);  in _init()