Support kernel reset operations.

This commit is contained in:
millejoh 2014-05-10 12:59:03 -05:00
parent c8c36192c3
commit 3b0498655c

View file

@ -139,7 +139,9 @@
(defun* ein:kernel--kernel-started (kernel &key data &allow-other-keys)
(destructuring-bind (&key id &allow-other-keys) (plist-get data :kernel)
(if (plist-get data :kernel)
(setq data (plist-get data :kernel)))
(destructuring-bind (&key id &allow-other-keys) data
(unless id
(error "Failed to start kernel. No `kernel_id' or `ws_url'. Got %S."
data))