X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=tests%2Ftest-rmeta-slot.scm;h=46d30dbafe70dd2ab0d1bc83c4b7e0e77ffd9762;hp=0fd4b6f99c7952e05d00351475a8e8084505c80b;hb=8bdfa5c8f81d4e46d57c367da23cd8ea676ad717;hpb=c32aa0d308ce33667168dc2c2f41b30f423fe158

diff --git a/tests/test-rmeta-slot.scm b/tests/test-rmeta-slot.scm
index 0fd4b6f..46d30db 100644
--- a/tests/test-rmeta-slot.scm
+++ b/tests/test-rmeta-slot.scm
@@ -27,8 +27,8 @@
 ;; Define a class
 (define-class <kah-lassy> ()
   (entries #:allocation #:each-subclass
-           #:init-value
-           (make-rmeta-slot
+           #:init-thunk
+           (wrap-rmeta-slot
             `((foo . "bar")
               (baz . "basil")))))
 
@@ -41,8 +41,8 @@
 
 (define-class <sub-lassy> (<kah-lassy>)
   (entries #:allocation #:each-subclass
-           #:init-value
-           (make-rmeta-slot
+           #:init-thunk
+           (wrap-rmeta-slot
             `((foo . "foo2")
               (peanut . "gallery")))))