Fix the event from ein:kernel-restart

This commit is contained in:
Takafumi Arakaki 2012-05-22 23:30:18 +02:00
parent 15a3f31412
commit 18c7c027ff

View file

@ -104,7 +104,8 @@ FIXME: document other slots."
(defun ein:kernel-restart (kernel) (defun ein:kernel-restart (kernel)
(ein:events-trigger (ein:$kernel-events kernel) 'status_restarting.Kernel) (ein:events-trigger (ein:$kernel-events kernel)
'(status_restarting . Kernel))
(ein:log 'info "Restarting kernel") (ein:log 'info "Restarting kernel")
(when (ein:$kernel-running kernel) (when (ein:$kernel-running kernel)
(ein:kernel-stop-channels kernel) (ein:kernel-stop-channels kernel)