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

diff --git a/tests/test-rmeta-slot.scm b/tests/test-rmeta-slot.scm
index 46d30db..7aaa248 100644
--- a/tests/test-rmeta-slot.scm
+++ b/tests/test-rmeta-slot.scm
@@ -1,5 +1,6 @@
 ;;; 8sync --- Asynchronous programming for Guile
 ;;; Copyright (C) 2017 Christopher Allan Webber <cwebber@dustycloud.org>
+;;; Copyright (C) 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of 8sync.
 ;;;
@@ -28,7 +29,7 @@
 (define-class <kah-lassy> ()
   (entries #:allocation #:each-subclass
            #:init-thunk
-           (wrap-rmeta-slot
+           (build-rmeta-slot
             `((foo . "bar")
               (baz . "basil")))))
 
@@ -42,7 +43,7 @@
 (define-class <sub-lassy> (<kah-lassy>)
   (entries #:allocation #:each-subclass
            #:init-thunk
-           (wrap-rmeta-slot
+           (build-rmeta-slot
             `((foo . "foo2")
               (peanut . "gallery")))))
 
@@ -62,5 +63,5 @@
   (class-rmeta-ref <sub-lassy> 'entries 'not-defined
                    #:dflt "no-way"))
 
-(test-end "test-rmeta-slot")
 (test-exit)
+(test-end "test-rmeta-slot")