From ceddb1559be75f884ffde95adf946d8bb8ca26ce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Wed, 15 Nov 2023 10:27:55 +0100
Subject: [PATCH] core: add a macro ecl_frs_pop_n

---
 src/h/stacks.h | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/h/stacks.h b/src/h/stacks.h
index 761740f67..602c93e54 100755
--- a/src/h/stacks.h
+++ b/src/h/stacks.h
@@ -312,6 +312,7 @@ extern ECL_API ecl_frame_ptr _ecl_frs_push(cl_env_ptr);
         ecl_enable_interrupts_env(env)
 
 #define ecl_frs_pop(env) ((env)->frs_top--)
+#define ecl_frs_pop_n(env,n) ((env)->frs_top-=n)
 
 /*******************
  * ARGUMENTS STACK