diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index 512d98ae91..c60f8ba162 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -539,6 +539,7 @@ (define (maybe-compress output)
         #t)))
 
 (define* (delete-info-dir-file #:key outputs #:allow-other-keys)
+  "Delete any 'share/info/dir' file from OUTPUTS."
   (for-each (match-lambda
           ((output . directory)
            (let ((info-dir-file (string-append directory "/share/info/dir")))