shithub: mc

ref: 4fd76bb3f5d16488d7b50a5ef1b7674537889e06
dir: /lib/std/sljoin.myr/

View raw version 
use "alloc"
use "slcp"

pkg std =
	generic sljoin	: (dst : @a[:]#, src : @a[:]	-> @a[:])
;;

generic sljoin = {dst, src
	var len

	len = dst#.len
	dst# = slgrow(dst#, len + src.len)
	slcp(dst#[len:], src)
	-> dst#
}