Skip to content

Commit

Permalink
PR feedback
Browse files Browse the repository at this point in the history
  • Loading branch information
ChrisPenner committed Dec 2, 2024
1 parent 6336c05 commit 395571b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion unison-runtime/src/Unison/Runtime/Machine.hs
Original file line number Diff line number Diff line change
Expand Up @@ -1645,7 +1645,7 @@ bprim1 !stk REFN i = do
-- Note that the CAS machinery is extremely fussy w/r to whether things are forced because it
-- uses unsafe pointer equality. The only way we've gotten it to work as expected is with liberal
-- forcing of the values and tickets.
!v <- peekOff stk i
!v <- evaluate =<< peekOff stk i
ref <- IORef.newIORef v
stk <- bump stk
pokeBi stk ref
Expand Down

0 comments on commit 395571b

Please sign in to comment.