anchor.diff:            (error (e)
               (signal-error future e)))))
       (setf (cursor-state cursor) :sent)
  -    (values future token)))
  +    future))
   
   (defun more (sock token)
     "Continue a query."
  
positive.code:              ;; because i'm paranoid
               (setf value-set-p nil))))
      (when value-set-p
        (finish future value token))
      ;; if the query is finished, remove it from state tracking.
      (when (eq (cursor-state cursor) :finished)
        (remove-cursor cursor)))
  
negative.code:            (finish future (cl-rethinkdb-reql::datum-to-lisp
                              (aref (cursor-results cursor) cur-result)
                              :array-type *sequence-type*
                              :object-type *object-type*))))
      ;; keep the pointer up to date
      (incf (cursor-current-result cursor))
      future))
  