better emulation of SWI atom_t and functor_t.

C/save.c

@@ -1180,6 +1180,13 @@ rehash(CELL *oldcode, int NOfE, int KindOfEntries)
   }
 }
 
+static void
+RestoreSWIHash(void)
+{
+  Yap_InitSWIHash();
+}
+
+
 #include "rheap.h"
 
 /* restore the atom entries which are invisible for the user */
@@ -1300,7 +1307,6 @@ RestoreHashPreds(void)
     Yap_FreeAtomSpace((ADDR)np);
 }
 
-
 /*
  * This is the really tough part, to restore the whole of the heap 
  */