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))))