diff --git a/pkg/noun/manage.c b/pkg/noun/manage.c index 279fe5fea5..e567f79d52 100644 --- a/pkg/noun/manage.c +++ b/pkg/noun/manage.c @@ -1011,7 +1011,7 @@ u3m_love(u3_noun pro) // u3j_reap(&jed_u); u3n_reap(byc_p); - u3z_reap(u3z_memo_keep, per_p); + u3z_reap(per_p); // pop the stack // diff --git a/pkg/noun/zave.c b/pkg/noun/zave.c index 2958bad662..924bee8987 100644 --- a/pkg/noun/zave.c +++ b/pkg/noun/zave.c @@ -125,9 +125,7 @@ u3z_uniq(u3z_cid cid, u3_noun som) /* u3z_reap(): promote memoization cache state. */ void -u3z_reap(u3z_cid cid, u3p(u3h_root) har_p) +u3z_reap(u3p(u3h_root) per_p) { - u3_assert(u3z_memo_toss != cid); - - u3h_take_uni(_har(u3R, cid), har_p); + u3h_take_uni(u3R->cax.per_p, per_p); } diff --git a/pkg/noun/zave.h b/pkg/noun/zave.h index feff83f664..6857427eb4 100644 --- a/pkg/noun/zave.h +++ b/pkg/noun/zave.h @@ -50,10 +50,10 @@ u3_noun u3z_uniq(u3z_cid cid, u3_noun som); - /* u3z_reap(): promote memoization cache state. + /* u3z_reap(): promote persistent memoization cache. */ void - u3z_reap(u3z_cid cid, u3p(u3h_root) har_p); + u3z_reap(u3p(u3h_root) per_p); /* u3z_free(): free memoization cache. */