diff options
-rw-r--r-- | examples/random-jobs.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/random-jobs.scm b/examples/random-jobs.scm index 6521734..d623b25 100644 --- a/examples/random-jobs.scm +++ b/examples/random-jobs.scm @@ -39,6 +39,8 @@ (cdr (gettimeofday)))) (state (seed->random-state seed))) (sleep (pk 'sleeping (random 10 state))) + (when (zero? (random 4 state)) + (error "we're faillliiiiing!")) #$nonce (mkdir #$output)))))) |