small fix in arr.sl

2026-02-10 17:47:59 +01:00
parent 2b48e2d7e6
commit 709377a45b
1 changed files with 2 additions and 2 deletions
--- a/stdlib/arr.sl
+++ b/stdlib/arr.sl
@@ -13,7 +13,7 @@ import mem.sl

 #arr_to_dyn [* | std_arr] -> [* | dyn_arr]
 word arr_to_dyn
-    dup @ dup dup 3 + alloc dup rot !
+    dup @ dup dup 2 * 3 + alloc dup rot !
    dup rot 2 * swap 8 + swap ! dup 16 +
    dup 8 + dup -rot ! 0 swap 3 pick dup @
    8 * swap 8 + swap memcpy 2drop drop nip
@@ -125,4 +125,4 @@ end
 # Set element at index i to x
 word arr_set
    arr_data swap 8 * + swap !
-end
+end