Remove debug print

diff --git a/src/domain.sml b/src/domain.sml
index 064aa3e..8df5413 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -744,11 +744,10 @@ fun rmdom' delete resultRoot doms =
                                                                fnameFull,
                                                                actions))
                                            else                        
-                                               (print ("Kill " ^ fnameFull ^ "\n");
                                                 loop ({action = Slave.Delete delete,
                                                        domain = dom,
                                                        dir = dname,
-                                                       file = fnameFull} :: actions))
+                                                       file = fnameFull} :: actions)
                                        end
                            in
                                loop actions