Message ID | 4285a8b38718d19543bd47b4c4987efa3c494028.1680105954.git.mirai@makinata.eu |
---|---|
State | New |
Headers | show |
Series | [bug#62525] services: configuration: Fix garbage output in configuration->documentation. | expand |
Hello, Bruno Victal <mirai@makinata.eu> writes: > Fixes <https://issues.guix.gnu.org/57958>. > > * gnu/services/configuration.scm (define-configuration-helper): Remove call > to display within default-value-thunk. > --- > gnu/services/configuration.scm | 1 - > 1 file changed, 1 deletion(-) > > diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm > index 174c2f20d2..ed9d95f906 100644 > --- a/gnu/services/configuration.scm > +++ b/gnu/services/configuration.scm > @@ -264,7 +264,6 @@ (define (define-configuration-helper serialize? serializer-prefix syn) > (serializer field-serializer) > (default-value-thunk > (lambda () > - (display '#,(id #'stem #'% #'stem)) > (if (maybe-value-set? (syntax->datum field-default)) > field-default > (configuration-missing-default-value This one also :-).
diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm index 174c2f20d2..ed9d95f906 100644 --- a/gnu/services/configuration.scm +++ b/gnu/services/configuration.scm @@ -264,7 +264,6 @@ (define (define-configuration-helper serialize? serializer-prefix syn) (serializer field-serializer) (default-value-thunk (lambda () - (display '#,(id #'stem #'% #'stem)) (if (maybe-value-set? (syntax->datum field-default)) field-default (configuration-missing-default-value