Hi, "Vitaliy Shatrov" <[email protected]> skribis:
> ;; (define (custom-local-file str) ; shorthand, preserves > permissions > ;; (let* ((file (local-file str #:recursive? #t)) > ;; (dir (dirname (local-file-absolute-file-name file)))) > ;; (display (string-append "loading local file '" str "' from " dir > "...\n")) > ;; file)) [...] > ;; (auto-login (custom-local-file "auto-login")) > ;; (syslog.conf (custom-local-file "syslog.conf"))) This will not have the desired effect. ‘local-file’ is special syntax: it captures the source directory so that at run time it can resolve file names relative to the source directory. The ‘custom-local-file’ procedure does not do that. Consequently, file names get resolved relative to $PWD instead. Commit f43ffee90882c2d61b46d69728daa7432be297e4 improves on that by emitting a warning at run time when ‘local-file’ is passed a non-literal relative file name. Thanks, Ludo’.
