Понимание очередей в схеме

Question

Вот код для удаления элемента в очереди.Я не понимаю, почему последнее слово, очередь там.Я уверен, что упускаю что-то простое. Может, кто-нибудь уточнит?

(define (delete-queue! queue)
  (cond ((empty-queue? queue)
         (error "DELETE! called with an empty queue" queue))
        (else
         (set-front-ptr! queue (cdr (front-ptr queue)))
         queue))) 

^ В этой последней строке мой вопрос;почему очередь там?Пока front-ptr установлен в cdr front-ptr, разве это не все, что нужно для исключения первого элемента в очереди?

Вот определение некоторых функцийопределено выше:

(define (front-ptr queue) (car queue))
(define (rear-ptr queue) (cdr queue))
(define (set-front-ptr! queue item) (set-car! queue item))
(define (set-rear-ptr! queue item) (set-cdr! queue item))

Answer 1

Это заставляет функцию возвращать очередь.Не похоже, что это необходимо для удаления первого элемента, нет.Может быть, это удобно для кода, который вызывает функцию.