(use-modules (guix records)) (define-record-type* thing make-thing thing? this-thing (name thing-name (thunked)) (name2 thing-name2)) (let* ((%thing (thing (name "foo") (name2 name))) (%thing2 (thing (inherit %thing) (name "bar")))) (format #t "thing1:~% name: ~a~% name2: ~a~%~%" (thing-name %thing) (thing-name2 %thing)) (format #t "thing2:~% name: ~a~% name2: ~a~%" (thing-name %thing2) (thing-name2 %thing2)))