make sure wide property is always the first property.

2011-08-17 11:16:21 -07:00
parent cd4d55be9b
commit 5f3df98069
11 changed files with 27 additions and 26 deletions
--- a/C/modules.c
+++ b/C/modules.c
@@ -72,8 +72,7 @@ GetModuleEntry(Atom at)
  new->NextME = CurrentModules;
  CurrentModules = new;
  new->AtomOfME = ae;
-  new->NextOfPE = ae->PropsOfAE;
-  ae->PropsOfAE = AbsModProp(new);
+  AddPropToAtom(ae, (PropEntry *)new);
  return new;
 }