Fix ein:notebook-handle-iopub-reply

`msg_type' was fetched from top level reply object where it should be
fetched from `header'.
This commit is contained in:
Takafumi Arakaki 2012-05-22 02:47:27 +02:00
parent 5595d8188f
commit a02a4a4221

View file

@ -581,9 +581,10 @@ Do not clear input prompts when the prefix argument is given."
(defun ein:notebook-handle-iopub-reply (notebook packet)
(destructuring-bind
(&key content msg_type parent_header &allow-other-keys)
(&key content parent_header header &allow-other-keys)
(ein:json-read-from-string packet)
(let ((cell (ein:notebook-cell-for-msg
(let ((msg_type (plist-get header :msg_type)) ; not parent_header
(cell (ein:notebook-cell-for-msg
notebook
(plist-get parent_header :msg_id))))
(if (and (not (equal msg_type "status")) (null cell))