diff --git a/src/lisp.h b/src/lisp.h index 0d9ed9b7495..990fe6640a8 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -6185,7 +6185,12 @@ safe_free (specpdl_ref sa_count) specpdl_ptr--; if (specpdl_ptr->kind == SPECPDL_UNWIND_PTR) { +#ifdef HAVE_MPS + eassert (specpdl_ptr->unwind_ptr.func == xfree + || specpdl_ptr->unwind_ptr.func == igc_xfree); +#else eassert (specpdl_ptr->unwind_ptr.func == xfree); +#endif xfree (specpdl_ptr->unwind_ptr.arg); } else