I would like to delete all incoming links to specified module with dxl. Something went wrong I got no error but links are not deleted. : 

Link l

Object o

for o in document current Module do

{    
    for l in all ((o) <- ("/GMH/test4")) do 

   {

    void delete(Link l)

   }
}