services: configuration: Fix garbage output in configuration->documentation.

Fixes <https://issues.guix.gnu.org/57958>.

* gnu/services/configuration.scm (define-configuration-helper): Remove call
to display within default-value-thunk.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Bruno Victal 2023-03-29 17:06:10 +01:00 committed by Maxim Cournoyer
parent 631f19e43f
commit bd932c1855
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -264,7 +264,6 @@ (define #,(id #'stem #'stem #'-fields)
(serializer field-serializer) (serializer field-serializer)
(default-value-thunk (default-value-thunk
(lambda () (lambda ()
(display '#,(id #'stem #'% #'stem))
(if (maybe-value-set? (syntax->datum field-default)) (if (maybe-value-set? (syntax->datum field-default))
field-default field-default
(configuration-missing-default-value (configuration-missing-default-value