[no subject]

[Ludovic Courtès]

branch: master
commit 951ce6c0c0a22389def5e084bbeb32db458873c9
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Sep 3 15:54:09 2023 +0200

    examples: random: Provide correct output in manifest.
    
    * examples/random-manifest.scm (make-job): Add ‘output’ parameter.
    <top level>: Pass third argument to ‘make-job’.
---
 examples/random-manifest.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/examples/random-manifest.scm b/examples/random-manifest.scm
index a763da9..b8df5f0 100644
--- a/examples/random-manifest.scm
+++ b/examples/random-manifest.scm
@@ -22,11 +22,12 @@
              (srfi srfi-1)
              (srfi srfi-26))
 
-(define (make-job name lowerable)
+(define* (make-job name lowerable #:optional (output "out"))
   (manifest-entry
     (name name)
     (version "0")
-    (item lowerable)))
+    (item lowerable)
+    (output output)))
 
 (define %seed
   (logxor (cdr (gettimeofday))
@@ -73,6 +74,9 @@
                            (number->string i))))
              (make-job (string-append "entropy-" suffix)
                        (random-computed-file suffix
-                                             multiple-outputs?))))
+                                             multiple-outputs?)
+                       (if multiple-outputs?
+                           "first"
+                           "out"))))
          1+
          0))