Attention une mise à jour du service Gitlab va être effectuée le mardi 14 décembre entre 13h30 et 14h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit 1ccc88b0 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

guile: Actually handle "shutdown_request".

* jupyter/guile.scm (dispatch-route): Change "shutdown" to
"shutdown_request".
* tests/guile.scm ("kernel_info_request")
("execute_request", "execute_request, exception"): Send
"shutdown_request", not "shutdown".
parent a8a4a4a2
...@@ -197,7 +197,7 @@ from the evaluation of CODE, a string." ...@@ -197,7 +197,7 @@ from the evaluation of CODE, a string."
(define dispatch-route (define dispatch-route
`(("kernel_info_request" . ,reply-kernel-info-request) `(("kernel_info_request" . ,reply-kernel-info-request)
("execute_request" . ,reply-execute-request) ("execute_request" . ,reply-execute-request)
("shutdown" . ,shutdown))) ("shutdown_request" . ,shutdown)))
(define (request-handler handlers) (define (request-handler handlers)
"Return a request handler that dispatches to HANDLERS, an alist." "Return a request handler that dispatches to HANDLERS, an alist."
......
...@@ -48,7 +48,7 @@ ...@@ -48,7 +48,7 @@
(send-message client request) (send-message client request)
(let ((reply (read-message client 10000))) (let ((reply (read-message client 10000)))
(send-message client (send-message client
(message (header "shutdown" "luser" "12345") (message (header "shutdown_request" "luser" "12345")
"{}")) "{}"))
(close-kernel client) (close-kernel client)
(json->kernel-info-reply (message-content reply))))) (json->kernel-info-reply (message-content reply)))))
...@@ -82,7 +82,7 @@ ...@@ -82,7 +82,7 @@
(read-message client 10000)) (read-message client 10000))
1+ 0))) 1+ 0)))
(send-message client (send-message client
(message (header "shutdown" "luser" "12345") (message (header "shutdown_request" "luser" "12345")
"{}")) "{}"))
(close-kernel client) (close-kernel client)
(map (lambda (message) (map (lambda (message)
...@@ -122,7 +122,7 @@ ...@@ -122,7 +122,7 @@
(read-message client 10000)) (read-message client 10000))
1+ 0))) 1+ 0)))
(send-message client (send-message client
(message (header "shutdown" "luser" "12345") (message (header "shutdown_request" "luser" "12345")
"{}")) "{}"))
(close-kernel client) (close-kernel client)
(json->execute-reply (json->execute-reply
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment