 
 (defsubst fuel-con--connection-completed-p (c id)
   (gethash id (alist-get :completed c)))
-
-(defsubst fuel-con--connection-buffer (c)
-  (alist-get :buffer c))
 
 (defun fuel-con--connection-pop-request (c)
   (let ((reqs (assoc :requests c))

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