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:
parent
c91971a063
commit
951ce6c0c0
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue