New metacall mechanism

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@169 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-10-30 16:42:05 +00:00
parent 8cc0f4e803
commit 458a0a857f
50 changed files with 1234 additions and 960 deletions
--- a/C/userpreds.c
+++ b/C/userpreds.c
@@ -690,9 +690,9 @@ p_softfunctor()
  WRITE_LOCK(RepAtom(a)->ARWLock);
  if ((p0 = GetAProp(a, SFProperty)) == NIL) {
    pe = (SFEntry *) AllocAtomSpace(sizeof(*pe));
-    pe->NextOfPE = RepAtom(a)->PropOfAE;
+    pe->NextOfPE = RepAtom(a)->PropsOfAE;
    pe->KindOfPE = SFProperty;
-    RepAtom(a)->PropOfAE = AbsSFProp(pe);
+    RepAtom(a)->PropsOfAE = AbsSFProp(pe);
  } else
    pe = RepSFProp(p0);
  WRITE_UNLOCK(RepAtom(a)->ARWLock);