;;kill evms
(define install2-backends '("language" "license" "syskbd" "basesystem" "savesettings"))

(define (kill-backend x)
	(woo-delete (string-append "/ensign/" x)))

(object
	#f
	((write self objects options)
		(woo-write "/savesettings")
		(chroot "/mnt/destination")
		(system "/sbin/ldconfig")
		(for-each kill-backend install2-backends)
		'()))
