From 02868d641588210bb3a70616830173495caf25fa Mon Sep 17 00:00:00 2001
From: HEBERT Alain <alain.hebert@polymtl.ca>
Date: Mon, 29 Dec 2025 09:00:16 -0500
Subject: Resolve "Implement xsmdel in XSM file API"

---
 Ganlib/src/lcm_c.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'Ganlib/src/lcm_c.c')

diff --git a/Ganlib/src/lcm_c.c b/Ganlib/src/lcm_c.c
index ee4a83a..7530cde 100644
--- a/Ganlib/src/lcm_c.c
+++ b/Ganlib/src/lcm_c.c
@@ -1666,9 +1666,8 @@ void lcmdel_c(lcm **iplist,const char *namp)
       xabort_c(AbortString);
    } else if ((*iplist)->header == 200) {
       /* USE A XSM FILE. */
-      sprintf(AbortString,"%s: UNABLE TO DELETE RECORD '%s' FROM AN XSM FILE.",
-              nomsub,(*iplist)->hname);
-      xabort_c(AbortString);
+      xsmdel_c((xsm **)iplist,namp);
+      return;
    } else if ((*iplist)->imode == 0) {
       sprintf(AbortString,"%s: THE OBJECT '%.60s' IS CLOSED.",
               nomsub,(*iplist)->hname);
-- 
cgit v1.2.3