X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Frmeta-slot.scm;h=a9179ba56718492d03e4817f1d9ac942a1b5d031;hp=6c4ef6d49b7d21d7a0265c900fb77112a2657765;hb=cef6072905deb71f3f2277dda21a78595d295901;hpb=8bdfa5c8f81d4e46d57c367da23cd8ea676ad717

diff --git a/8sync/rmeta-slot.scm b/8sync/rmeta-slot.scm
index 6c4ef6d..a9179ba 100644
--- a/8sync/rmeta-slot.scm
+++ b/8sync/rmeta-slot.scm
@@ -21,7 +21,7 @@
   #:use-module (srfi srfi-9)
   #:use-module (ice-9 match)
 
-  #:export (wrap-rmeta-slot
+  #:export (build-rmeta-slot
             rmeta-slot-table rmeta-slot-cache
             maybe-build-rmeta-slot-cache!
             class-rmeta-ref))
@@ -42,7 +42,7 @@
 ;;;   (define-class <kah-lassy> ()
 ;;;     (entries #:allocation #:each-subclass
 ;;;              #:init-thunk
-;;;              (wrap-rmeta-slot
+;;;              (build-rmeta-slot
 ;;;               `((foo . "bar")
 ;;;                 (baz . "basil")))))
 ;;;
@@ -54,7 +54,7 @@
 ;;;   (define-class <sub-lassy> (<kah-lassy>)
 ;;;     (entries #:allocation #:each-subclass
 ;;;              #:init-thunk
-;;;              (wrap-rmeta-slot
+;;;              (build-rmeta-slot
 ;;;               `((foo . "foo2")
 ;;;                 (peanut . "gallery")))))
 ;;;
@@ -69,13 +69,9 @@
   (table rmeta-slot-table)
   (cache rmeta-slot-cache set-rmeta-slot-cache!))
 
-(define (make-rmeta-slot table)
-  (%make-rmeta-slot table #f))
-
-(define (wrap-rmeta-slot table)
-  "In general, using wrap-rmeta-slot in combination with "
+(define (build-rmeta-slot table)
   (lambda ()
-    (make-rmeta-slot table)))
+    (%make-rmeta-slot table #f)))
 
 ;; Immutable and unique
 (define %the-nothing (cons '*the* '*nothing*))