fluffos-1.22/
fluffos-1.22/Win32/
fluffos-1.22/compat/
fluffos-1.22/testsuite/
fluffos-1.22/testsuite/clone/
fluffos-1.22/testsuite/command/
fluffos-1.22/testsuite/data/
fluffos-1.22/testsuite/etc/
fluffos-1.22/testsuite/include/
fluffos-1.22/testsuite/inherit/
fluffos-1.22/testsuite/inherit/master/
fluffos-1.22/testsuite/log/
fluffos-1.22/testsuite/single/
fluffos-1.22/testsuite/single/tests/compiler/
fluffos-1.22/testsuite/single/tests/efuns/
fluffos-1.22/testsuite/single/tests/operators/
fluffos-1.22/testsuite/u/
fluffos-1.22/tmp/
#include <command.h>

int
main(string arg)
{
	object obj;

	if (!arg) {
#ifndef __NO_ADD_ACTION__
		return notify_fail("usage: dest object\n");
#else
		write("usage: dest object\n");
		return 1;
#endif
	}
	obj = find_object(arg);
#ifndef __NO_ENVIRONMENT__
	if (!obj) {
		obj = present(arg);
		if (!obj) {
			obj = present(arg, environment(previous_object()));
		}
	}
#endif
	if (!obj) {
#ifndef __NO_ADD_ACTION__
		return notify_fail("can't find that.\n");
#else
		write("can't find that.\n");
		return 1;
#endif
	}
	obj->remove();
	if (obj) {
		destruct(obj);
	}
	return 1;
}