 (defsubst fuel-con--connection-p (c)
   (and (listp c) (eq (car c) :fuel-connection)))
 
-(defsubst fuel-con--connection-requests (c)
-  (alist-get :requests c))
-
-(defsubst fuel-con--connection-current-request (c)
-  (alist-get :current c))
-
 (defun fuel-con--connection-clean-current-request (c)
   (let* ((cell (assoc :current c))
          (req (cdr cell)))

(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)))
      (if (not req) (fuel-log--error "No current request")
        (fuel-con--process-completed-request req)
        (fuel-con--connection-clean-current-request fuel-con--connection)))))

(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)
