fix handling of holds.

2009-03-13 21:57:15 +00:00 · 2009-03-13 21:57:15 +00:00 · add296ba37
commit add296ba37
parent c49661f88c
1 changed files with 7 additions and 0 deletions
--- a/H/rheap.h
+++ b/H/rheap.h
@ -1338,6 +1338,13 @@ RestoreEntries(PropEntry *pp, int int_key)
 	  ve->ValueOfVE = AtomTermAdjust(tv);
      }
      break;
+    case HoldProperty:
+      {
+	HoldEntry *he = (HoldEntry *)pp;
+	he->NextOfPE =
+	  PropAdjust(he->NextOfPE);
+      }
+      break;
    case ArrayProperty:
      {
 	ArrayEntry *ae = (ArrayEntry *)pp;