anchor.diff:                                (setf *recursive-flow* nil
                                       *recursive-task* nil)
                                 (go start))
  +                            ;; unwind stack until we hit needed task
                               (throw 'recursive-task recursive-task))))))
                  (traps-masking-task ()
                    (claw:with-float-traps-masked ()
  
positive.code:   (declare (type function test))
    (let (looped recurred-result recurred-p)
      (setf looped (->> (value)
                     (capture-loop flow)
                     (unless recurred-p
                       (setf recurred-result value))
                     (if (funcall test)
  
negative.code:                              recurred-result)
                             flow
                             (instantly (value)
                               (capture-loop flow)
                               (setf recurred-result value)
                               (unless recurred-p
                                 (setf recurred-p t)))
  