FIX: allow pool size to be larger than series total length in evoke memory check

related to: zsx#49

Author: Oldes

src/core/m-pools.c

@@ -696,8 +696,10 @@ const REBPOOLSPEC Mem_Pool_Spec[MAX_POOLS] =
 					goto crash;
 				// Does the size match a known pool?
 				pool_num = FIND_POOL(SERIES_TOTAL(series));
-				// Just to be sure the pool matches the allocation:
-				if (pool_num < SERIES_POOL && Mem_Pools[pool_num].wide != SERIES_TOTAL(series))
+				// Just to be sure the pool size is enough to hold total series length
+				// Originaly it was expecting exact size match, but there may be cases
+				// where series' total size may be lower than pool wide.
+				if (pool_num < SERIES_POOL && Mem_Pools[pool_num].wide < SERIES_TOTAL(series))
 					goto crash;
 			}
 			series++;
@@ -715,7 +717,8 @@ const REBPOOLSPEC Mem_Pool_Spec[MAX_POOLS] =
 			for (seg = Mem_Pools[pool_num].segs; seg; seg = seg->next) {
 				if ((REBUPT)node > (REBUPT)seg && (REBUPT)node < (REBUPT)seg + (REBUPT)seg->size) break;
 			}
-			if (!seg) goto crash;
+			if (!seg)
+				goto crash;
 			//pnode = node; // for debugger
 		}
 		// The number of free nodes must agree with header: