cbaines pushed a commit to branch master
in repository guix.
commit 8a7e623eeb6eef189652da3a4792ca494b80d920
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Mon May 12 15:54:52 2025 +0100
doc: build.scm: Handle (current-source-directory) being #f.
Since this seems to be the case when the devel manual is being built on
bayfront.
* doc/build.scm: Use the current working directory as a fallback
if (current-source-directory) is #f, and log the value of root.
Change-Id: Ic43fd05a4a0822d9efb935069850f0a8cadd80aa
---
doc/build.scm | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/doc/build.scm b/doc/build.scm
index 9088e99e53..2b081ae29c 100644
--- a/doc/build.scm
+++ b/doc/build.scm
@@ -1365,7 +1365,9 @@ by 'html-identifier-indexes'."
(let* ((root (canonicalize-path
- (string-append (current-source-directory) "/..")))
+ (string-append (or (current-source-directory)
+ (string-append (getcwd) "/doc"))
+ "/..")))
(commit date (latest-commit+date root))
(version (or (getenv "GUIX_MANUAL_VERSION")
(string-take commit 7)))
@@ -1412,7 +1414,8 @@ by 'html-identifier-indexes'."
(merge-index-alists guix-split-node-indexes guile-split-node-indexes))
(format (current-error-port)
- "building manual from work tree around commit ~a, ~a~%"
+ "building manual from work tree (~a) around commit ~a, ~a~%"
+ root
commit
(let* ((time (make-time time-utc 0 date))
(date (time-utc->date time)))
