all repos — hex @ 716076f5fd4e81761c74763aa6349723628670b2

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

Fixes.
h3rald h3rald@h3rald.com
Mon, 25 Nov 2024 15:27:24 +0000
commit

716076f5fd4e81761c74763aa6349723628670b2

parent

5c7892db74c2ac1683a868a531c053c4ec1916b8

1 files changed, 15 insertions(+), 8 deletions(-)

jump to
M hex.chex.c

@@ -3509,12 +3509,19 @@ FREE(b);

FREE(a); return 1; } - int result = PUSH(a); - if (result == 0) + if (PUSH(a) != 0) { - result = PUSH(b); + FREE(a); + FREE(b); + return 1; + } + if (PUSH(b) != 0) + { + FREE(a); + FREE(b); + return 1; } - return result; + return 0; } int hex_symbol_dup()

@@ -3525,12 +3532,12 @@ {

FREE(element); return 1; } - int result = PUSH(element); - if (result == 0) + if (PUSH(element) == 0 && PUSH(element) == 0) { - result = PUSH(element); + return 0; } - return result; + FREE(element); + return 1; } int hex_symbol_stack()