From 8fc6b8801bb1349afd563b4398f25fe0b4f4af97 Mon Sep 17 00:00:00 2001
From: Andreas <andreas.kruehlmann@siemens.com>
Date: Tue, 12 Dec 2023 18:08:27 +0100
Subject: [PATCH] Add free

---
 std/sys/mem.alc | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/std/sys/mem.alc b/std/sys/mem.alc
index e93c5f6..49e171b 100644
--- a/std/sys/mem.alc
+++ b/std/sys/mem.alc
@@ -69,9 +69,7 @@ marine
 [arg:ptr pointer to memory block]
 [ret:void]
 sub free
-    swap
-    clone ? BLOCK_FREE -
-    swap !
+    swap clone ? BLOCK_USED - !
 marine
 
 sub mwalk