committable6

query

react { whenever supply { emit 42; redo } { .say } }

result

¦«2015.12,2016.01.1,2016.02,2016.03,2016.04,2016.05»: 42
redo without loop construct
  in block  at /tmp/ZffhMZHh1E line 1
  in block <unit> at /tmp/ZffhMZHh1E line 1
 «exit code = 1»
¦«2016.06,2016.11,2016.12,2017.01,2017.02,2017.03,2017.04.3,2017.05,2017.06,HEAD(4f5a1e2)»: 42
===SORRY!===
redo without loop construct «exit code = 1»
¦«2016.07.1»: 42
No such method 'CALL-ME' for invocant of type 'Bool'
  in block <unit> at /tmp/ZffhMZHh1E line 1
 «exit code = 1»
¦«2016.08.1»: 42
Access denied to keep/break this Promise; already vowed
  in any  at /tmp/whateverable/rakudo-moar/a07a2e173cfc24f1bec549d2d5b79ef978e46b58/share/perl6/runtime/CORE.setting.moarvm line 1
  in block <unit> at /tmp/ZffhMZHh1E line 1
 «exit code = 1»
¦«2016.09»: 42
Access denied to keep/break this Promise; already vowed
  in any  at /tmp/whateverable/rakudo-moar/4b32fcab2192054b82312cde4c235adda0b8ac4d/share/perl6/runtime/CORE.setting.moarvm line 1
  in block <unit> at /tmp/ZffhMZHh1E line 1
 «exit code = 1»
¦«2016.10»: 42
Access denied to keep/break this Promise; already vowed
  in any  at /tmp/whateverable/rakudo-moar/eb3123e5e60fa1635ed1ee121cec1290c290044a/share/perl6/runtime/CORE.setting.moarvm line 1
  in block <unit> at /tmp/ZffhMZHh1E line 1
 «exit code = 1»