Add sldup() function to standard library.

1 files changed, 15 insertions, 0 deletions

diff --git a/libstd/sldup.myr b/libstd/sldup.myr
new file mode 100644
index 0000000..70cbee4
--- /dev/null
+++ b/libstd/sldup.myr
@@ -0,0 +1,15 @@
+use "alloc.use"
+use "die.use"
+use "slcp.use"
+
+pkg std =
+	generic sldup : (sl : @a[:] -> @a[:])
+;;
+
+generic sldup = {sl
+	var ret
+
+	ret = slalloc(sl.len)
+	slcp(ret, sl)
+	-> ret
+}