small fixes

2026-03-20 15:37:12 +01:00
parent 4508433206
commit f4d688cac1
2 changed files with 14 additions and 2 deletions
--- a/stdlib/utils.sl
+++ b/stdlib/utils.sl
@@ -2,7 +2,7 @@
 #strcmp [*, addr, len, addr | len] -> [* | bool]
 word strcmp
    >r nip r> for
-        2dup c@ swap c@ != if drop drop 0 ret end
+        2dup c@ swap c@ != if drop drop 0 rdrop ret end
        1 + swap 1 +
    end
    drop drop 1