Handler linking must be done per arrival

[Enchufa2]

Issue: the second arrival jumps to the end.

library(simmer)

new_timeout <- trajectory() %>%
  log_("new timeout") %>%
  timeout(10)

customer <- trajectory() %>%
  trap("signal", new_timeout) %>%
  log_("first") %>%
  timeout(5) %>%
  log_("second") %>%
  timeout(5) %>%
  log_("end")

signal <- trajectory() %>%
  send("signal")

simmer() %>%
  add_generator("customer", customer, at(0, 5)) %>%
  add_generator("signal", signal, at(6)) %>%
  run()
#> 0: customer0: first
#> 5: customer0: second
#> 5: customer1: first
#> 6: customer0: new timeout
#> 6: customer1: new timeout
#> 16: customer0: end
#> 16: customer1: end