Skip to content

Commit

Permalink
[ workaround ] Workaround the invalid memory reference bug of GC of chez
Browse files Browse the repository at this point in the history
This is a workaround of a bug in GC of chez versions 9.5.8 and before.
This workaround has a price of visible runtime performance penalty,
and should be removed as soon as newer chez versions become mandatory.
  • Loading branch information
buzden committed Dec 29, 2023
1 parent 0e8e8ab commit 4b2e04a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions support/chez/support.ss
Original file line number Diff line number Diff line change
Expand Up @@ -28,8 +28,8 @@
(let ((exval (car e)))
(if (bwp-object? exval)
(let ((val ((cdr e))))
(begin (set-car! e val) val))
exval)))
(begin (set-car! e (box val)) val))
(unbox exval))))

(define (blodwen-toSignedInt x bits)
(if (logbit? bits x)
Expand Down

0 comments on commit 4b2e04a

Please sign in to comment.