Ludovic Courtès <[email protected]> skribis: > + (let ((bits (* 8 (stat:size (stat seed))))) > + (add-to-entropy-count urandom bits)))))))
Oh we also need to do that below, when reading from /dev/hwrng:
(when buf
(call-with-output-file "/dev/urandom"
(lambda (urandom)
(put-bytevector urandom buf)
(let ((bits (* 8 (bytevector-length buf))))
(add-to-entropy-count urandom bits))))) ;<- here
Ludo’.
