                 (unless (listp fork) (setq fork '()))
                 (straight--put fork :repo (straight-vc-git--fork-repo default))
                 (straight--put plist :fork fork))
-              (dolist (keyword (cons :files keywords))
+              (dolist (keyword keywords)
                 (unless (plist-member plist keyword)
                   (when-let ((value (plist-get default keyword)))
                     (setq plist (plist-put plist keyword value)))))))

look for recipes for these packages."
  :type '(repeat symbol))

(cl-defun straight--convert-recipe (melpa-style-recipe &optional cause)
  "Convert a MELPA-STYLE-RECIPE to a normalized straight.el recipe.
Recipe repositories specified in `straight-recipe-repositories'

                                                     (if (listp sources)
                                                         sources
                                                       (list sources)))))
                   (keywords
                    (append
                     (remq :local-repo straight--build-keywords)
                     (straight-vc-keywords
                      (or (plist-get default :type) 'git)))))
              ;; Compute :fork repo name
              (when-let ((fork (plist-get plist :fork)))
                (straight--put default :fork fork)
