       (straight--save-build-cache))))
 
 (defun straight--save-build-cache ()
-  "Write data from memory into build-cache.el.
+  "Write data from memory into the build cache file.
 This uses the values of `straight--build-cache' and
-`straight--eagerly-checked-packages'."
+`straight--eagerly-checked-packages'.
+
+The name of the cache file is stored in
+`straight-build-cache-file'."
   (unless straight-safe-mode
     (with-temp-buffer
       ;; Prevent mangling of the form being printed in the case that

(defcustom straight-build-dir "build"
  "Name of the directory into which packages are built.
Relative to the straight/ subdirectory of `straight-base-dir'.
Defaults to \"build\"."
  :type 'string)

(defvar straight--this-file
  (file-truename (or load-file-name buffer-file-name))


(defun straight--build-cache-file ()
  "Get the file containing straight.el's build cache."
  (straight--file
   (or straight-build-cache-fixed-name
       (concat straight-build-dir "-cache.el"))))

(defun straight--links-dir (&rest segments)
  "Get a subdirectory of straight/links/.
