all repos — hex @ e3bba04cdf4263db302b02aab0dc99804822661c

A tiny, minimalist, slightly-esoteric concatenative programming lannguage. 

Fixes.
h3rald h3rald@h3rald.com
Fri, 05 Sep 2025 14:14:01 +0200
commit

e3bba04cdf4263db302b02aab0dc99804822661c

parent

f3c772dcc43469c451368b1f383e78dca48e8f43

2 files changed, 8 insertions(+), 8 deletions(-)

jump to
M src/hex.c → src/hex.c 
@@ -4099,7 +4099,7 @@ HEX_FREE(ctx, item);
         return 1;
     }
     int result = hex_push_string(ctx, hex_type(item->type));
-    // HEX_FREE(ctx, item);
+    HEX_FREE(ctx, item);
     return result;
 }
 

@@ -4124,7 +4124,7 @@ for (size_t i = 0; i < item->quotation_size; i++)
     {
         if (hex_push(ctx, item->data.quotation_value[i]) != 0)
         {
-            // HEX_FREE(ctx, item);
+            HEX_FREE(ctx, item);
             return 1;
         }
     }

@@ -4156,7 +4156,7 @@ }
     if (item->type == HEX_TYPE_STRING)
     {
         int result = hex_interpret(ctx, item->data.str_value, file->data.str_value, 1, 1);
-        // HEX_FREE(ctx, item);
+        HEX_FREE(ctx, item);
         return result;
     }
     else if (item->type == HEX_TYPE_QUOTATION)

@@ -4217,7 +4217,7 @@ for (size_t i = 0; i < item->quotation_size; i++)
     {
         if (hex_push(ctx, item->data.quotation_value[i]) != 0)
         {
-            // HEX_FREE(ctx, item);
+            HEX_FREE(ctx, item);
             ctx->settings->debugging_enabled = 0;
             return 1;
         }
M src/symbols.c → src/symbols.c 
@@ -206,7 +206,7 @@ HEX_FREE(ctx, item);
         return 1;
     }
     int result = hex_push_string(ctx, hex_type(item->type));
-    // HEX_FREE(ctx, item);
+    HEX_FREE(ctx, item);
     return result;
 }
 

@@ -231,7 +231,7 @@ for (size_t i = 0; i < item->quotation_size; i++)
     {
         if (hex_push(ctx, item->data.quotation_value[i]) != 0)
         {
-            // HEX_FREE(ctx, item);
+            HEX_FREE(ctx, item);
             return 1;
         }
     }

@@ -263,7 +263,7 @@ }
     if (item->type == HEX_TYPE_STRING)
     {
         int result = hex_interpret(ctx, item->data.str_value, file->data.str_value, 1, 1);
-        // HEX_FREE(ctx, item);
+        HEX_FREE(ctx, item);
         return result;
     }
     else if (item->type == HEX_TYPE_QUOTATION)

@@ -324,7 +324,7 @@ for (size_t i = 0; i < item->quotation_size; i++)
     {
         if (hex_push(ctx, item->data.quotation_value[i]) != 0)
         {
-            // HEX_FREE(ctx, item);
+            HEX_FREE(ctx, item);
             ctx->settings->debugging_enabled = 0;
             return 1;
         }