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".

jupyter/guile.scm

@@ -197,7 +197,7 @@ from the evaluation of CODE, a string."
 (define dispatch-route
   `(("kernel_info_request" . ,reply-kernel-info-request)
     ("execute_request"     . ,reply-execute-request)
-    ("shutdown"            . ,shutdown)))
+    ("shutdown_request"    . ,shutdown)))
 
 (define (request-handler handlers)
   "Return a request handler that dispatches to HANDLERS, an alist."

tests/guile.scm

@@ -48,7 +48,7 @@
         (send-message client request)
         (let ((reply (read-message client 10000)))
           (send-message client
-                        (message (header "shutdown" "luser" "12345")
+                        (message (header "shutdown_request" "luser" "12345")
                                  "{}"))
           (close-kernel client)
           (json->kernel-info-reply (message-content reply)))))
@@ -82,7 +82,7 @@
                                  (read-message client 10000))
                                1+ 0)))
           (send-message client
-                        (message (header "shutdown" "luser" "12345")
+                        (message (header "shutdown_request" "luser" "12345")
                                  "{}"))
           (close-kernel client)
           (map (lambda (message)
@@ -122,7 +122,7 @@
                                  (read-message client 10000))
                                1+ 0)))
           (send-message client
-                        (message (header "shutdown" "luser" "12345")
+                        (message (header "shutdown_request" "luser" "12345")
                                  "{}"))
           (close-kernel client)
           (json->execute-reply