fix: fix an error void-variable dv

In recent Emacs-30, modeline and headerline stop working with the errors:
Error during redisplay: (eval (dirvish-path-ml dv) t) signaled (void-variable dv)
Error during redisplay: (eval (dirvish-sort-ml dv) t) signaled (void-variable dv)

dirvish.el

@@ -936,7 +936,7 @@ If HEADER, set the `dirvish--header-line-fmt' instead."
   (cl-labels ((expand (segments)
                 (cl-loop for s in segments collect
                          (if (stringp s) s
-                           `(:eval (,(intern (format "dirvish-%s-ml" s)) dv)))))
+                           `(:eval (,(intern (format "dirvish-%s-ml" s)) (dirvish-curr))))))
               (get-font-scale ()
                 (let* ((face (if header 'header-line 'mode-line-inactive))
                        (defualt (face-attribute 'default :height))