Merge pull request #796 from dpk/reference-barrier

Add reference-barrier to (srfi 124)
This commit is contained in:
Alex Shinn 2021-12-14 21:36:53 +09:00 committed by GitHub
commit 50188a6668
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -1,4 +1,6 @@
(define-library (srfi 124)
(export make-ephemeron ephemeron? ephemeron-broken?
ephemeron-key ephemeron-datum)
(import (rename (chibi weak) (ephemeron-value ephemeron-datum))))
ephemeron-key ephemeron-datum reference-barrier)
(import (rename (chibi weak) (ephemeron-value ephemeron-datum)))
(begin
(define (reference-barrier k) (if #f #f))))