ref: 4989e1b4e1184e1241c01d7d6f31a073d5a52a20
dir: /libstd/mk.myr/
use "alloc.use"
pkg std =
generic mk : (val : @a -> @a#)
;;
/* Takes a value, and heapifies it.
FIXME: This depends on inlining and copy propagation
in order to be efficient. Neither of those are
currently implemented. That means that this function
is not efficient.
It's still damn convenient, though, so it's in.
*/
generic mk = {val
var p
p = alloc()
p# = val
-> p
}