;;; 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.
;;;
;; Define a class
(define-class <kah-lassy> ()
(entries #:allocation #:each-subclass
- #:init-value
- (make-rmeta-slot
+ #:init-thunk
+ (build-rmeta-slot
`((foo . "bar")
(baz . "basil")))))
(define-class <sub-lassy> (<kah-lassy>)
(entries #:allocation #:each-subclass
- #:init-value
- (make-rmeta-slot
+ #:init-thunk
+ (build-rmeta-slot
`((foo . "foo2")
(peanut . "gallery")))))
(class-rmeta-ref <sub-lassy> 'entries 'not-defined
#:dflt "no-way"))
-(test-end "test-rmeta-slot")
(test-exit)
+(test-end "test-rmeta-slot")