Renamed find_snooped to find_snoopee

Und Code modernisiert, Kommentar ergaenzt.
Funktion ausserdem jetzt private, d.h. keine sefun
mehr, weil nur intern verwendet.

Change-Id: I515d0a155cf34cf7f242aa060c6e570dce5eebd0
diff --git a/secure/simul_efun/simul_efun.c b/secure/simul_efun/simul_efun.c
index fc16a4b..6620847 100644
--- a/secure/simul_efun/simul_efun.c
+++ b/secure/simul_efun/simul_efun.c
@@ -190,14 +190,16 @@
 
 
 // * Snoopen und was dazugehoert
-static object find_snooped(object who)
-{
-  object *u;
-  int i;
 
-  for (i=sizeof(u=users())-1;i>=0;i--)
-    if (who==efun::interactive_info(u[i], II_SNOOP_NEXT))
-      return u[i];
+// Findet zu einem gegegeben eingeloggten, interaktivem User <who> den von ihr
+// gesnoopten Interactive.
+private object find_snoopee(object who)
+{
+  foreach (object u: users())
+  {
+    if (who == efun::interactive_info(u, II_SNOOP_NEXT))
+      return u;
+  }
   return 0;
 }
 
@@ -213,7 +215,7 @@
     if( !objectp(snooper) || snooper == snoopee || !PO )
        return 0;
 
-    snooper0 = find_snooped(snooper);
+    snooper0 = find_snoopee(snooper);
 
      if(snoopee)
      {