diff --git a/test-suite/standalone/test-smob-mark.c b/test-suite/standalone/test-smob-mark.c index d0bb5336a..b04b70486 100644 --- a/test-suite/standalone/test-smob-mark.c +++ b/test-suite/standalone/test-smob-mark.c @@ -1,4 +1,4 @@ -/* Copyright 2013-2014,2018 +/* Copyright 2013-2014,2018,2025 Free Software Foundation, Inc. This file is part of Guile. @@ -56,7 +56,7 @@ make_x () x_t *c_x; i++; - c_x = (x_t *) scm_gc_malloc (sizeof (x_t), "x"); + c_x = (x_t *) scm_malloc (sizeof (x_t)); c_x->scm_value = scm_from_int (i); c_x->c_value = i; SCM_NEWSMOB (s_x, x_tag, c_x); @@ -78,7 +78,7 @@ free_x (SCM x) { x_t *c_x; c_x = (x_t *) SCM_SMOB_DATA (x); - scm_gc_free (c_x, sizeof (x_t), "x"); + free (c_x); c_x = NULL; return 0; }