Fix SRFI 124 imports for reference-barrier

This commit is contained in:
Daphne Preston-Kendal 2021-12-14 15:45:12 +01:00
parent 2d8ce631c7
commit f9f384c45b

View file

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