projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Switch over to using wrap-rmeta-slot for build-actions.
[8sync.git]
/
tests
/
test-rmeta-slot.scm
diff --git
a/tests/test-rmeta-slot.scm
b/tests/test-rmeta-slot.scm
index 0fd4b6f99c7952e05d00351475a8e8084505c80b..46d30dbafe70dd2ab0d1bc83c4b7e0e77ffd9762 100644
(file)
--- 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
;; 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")))))
`((foo . "bar")
(baz . "basil")))))
@@
-41,8
+41,8
@@
(define-class <sub-lassy> (<kah-lassy>)
(entries #:allocation #:each-subclass
(define-class <sub-lassy> (<kah-lassy>)
(entries #:allocation #:each-subclass
- #:init-
value
- (
make
-rmeta-slot
+ #:init-
thunk
+ (
wrap
-rmeta-slot
`((foo . "foo2")
(peanut . "gallery")))))
`((foo . "foo2")
(peanut . "gallery")))))