From 2d8ce631c7cee8afb0a1b127312127db4a08da56 Mon Sep 17 00:00:00 2001 From: Daphne Preston-Kendal Date: Tue, 14 Dec 2021 13:04:21 +0100 Subject: [PATCH] Add reference-barrier to (srfi 124) --- lib/srfi/124.sld | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/srfi/124.sld b/lib/srfi/124.sld index 9afcb92a..42d88d41 100644 --- a/lib/srfi/124.sld +++ b/lib/srfi/124.sld @@ -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))))