diff mbox series

[bug#62525] services: configuration: Fix garbage output in configuration->documentation.

Message ID 4285a8b38718d19543bd47b4c4987efa3c494028.1680105954.git.mirai@makinata.eu
State New
Headers
Series [bug#62525] services: configuration: Fix garbage output in configuration->documentation. |

Commit Message

Bruno Victal March 29, 2023, 4:06 p.m. UTC 
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(-)

Comments

Maxim Cournoyer March 30, 2023, 2:41 a.m. UTC | #1 
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 mbox series

Patch

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