Fix dumb implementation of copy-segment

This commit is contained in:
Joshua Suskalo 2022-11-29 18:52:11 -06:00
parent 4c60ff5085
commit 379dc95c66
No known key found for this signature in database
GPG key ID: 9B6BA586EFF1B9F0

View file

@ -240,7 +240,7 @@
Returns `dest`." Returns `dest`."
^MemorySegment [^MemorySegment dest ^MemorySegment src] ^MemorySegment [^MemorySegment dest ^MemorySegment src]
(with-acquired (map segment-session [src dest]) (with-acquired [(segment-session src) (segment-session dest)]
(.copyFrom dest src) (.copyFrom dest src)
dest)) dest))