 (defun fuel-con--comint-redirect-hook ()
   (if (not fuel-con--connection)
       (fuel-log--error "No connection in buffer")
-    (let ((req (fuel-con--connection-current-request fuel-con--connection)))
+    (let ((req (alist-get :current fuel-con--connection)))
       (if (not req) (fuel-log--error "No current request")
         (fuel-con--process-completed-request req)
         (fuel-con--connection-clean-current-request fuel-con--connection)))))


(defsubst fuel-con--request-p (req)
  (and (listp req) (eq (car req) :fuel-connection-request)))

(defsubst fuel-con--request-string (req)
  (alist-get :string req))

(defsubst fuel-con--request-buffer (req)
  (alist-get :buffer req))

(defsubst fuel-con--request-deactivate (req)
  (setcdr (assoc :continuation req) nil))

(defun fuel-con--process-completed-request (req)
  (let ((cont (alist-get :continuation req))
        (id (alist-get :id req))
        (rstr (alist-get :string req))
        (buffer (alist-get :buffer req)))
    (if (not cont)
        (fuel-log--warn "<%s> Dropping result for request %S (%s)"
                            id rstr req)
