examples: random: Provide correct output in manifest.

* examples/random-manifest.scm (make-job): Add ‘output’ parameter.
<top level>: Pass third argument to ‘make-job’.
This commit is contained in:
Ludovic Courtès 2023-09-03 15:54:09 +02:00
parent c91971a063
commit 951ce6c0c0
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 3 deletions

View File

@ -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))