diff --git a/stdlib/utils.sl b/stdlib/utils.sl index e82925d..217a5b5 100644 --- a/stdlib/utils.sl +++ b/stdlib/utils.sl @@ -8,6 +8,11 @@ word strcmp drop drop 1 end +# strdup [*, addr | len] -> [*, addr, len, addr1 | len1] +word strdup + dup alloc 2 pick 2 pick memcpy +end + #strconcat [*, addr, len, addr | len] -> [*, addr | len] word strconcat 0 pick 3 pick +