Merge pull request #1242 from primo-ppcg/reverse

Rework `reverse`
janet-lang · Aug 6, 2023 · 0ea1da8 · 0ea1da8
2 parents 06eea74 + c8c0e11
commit 0ea1da8
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/src/boot/boot.janet b/src/boot/boot.janet
@@ -1450,12 +1450,10 @@
   a new array. If a string or buffer is provided, returns an array of its
   byte values, reversed.`
   [t]
-  (def len (length t))
-  (var n (- len 1))
-  (def ret (array/new len))
-  (while (>= n 0)
-    (array/push ret (in t n))
-    (-- n))
+  (var n (length t))
+  (def ret (array/new-filled n))
+  (forv i 0 n
+    (put ret i (in t (-- n))))
   ret)
 
 (defn invert