ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/guile: Fix indentation.

Browse source 
The inner (let) was on the same level as the outer one, which was confusing.

* guix/build/guile-build-system.scm (build): Fix indentation.

Change-Id: I701b61747c270b185eac9377b066748baa2b3d20
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Tomas Volf 2024-02-23 19:18:13 +01:00 committed by Ludovic Courtès
parent 7fc91c1413
commit c3cd24b29a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
guix/build/guile-build-system.scm
View file

@ -184,32 +184,32 @@ (define* (build #:key outputs inputs native-inputs
(#f "")
(path (string-append ":" path)))))
(let ((source-files
(let ((source-files
(with-directory-excursion source-directory
(find-files "." scheme-file-regexp))))
(invoke-each
(filter-map (lambda (file)
(and (or (not not-compiled-file-regexp)
(not (string-match not-compiled-file-regexp
file)))
(cons* guild
"guild" "compile"
"-L" source-directory
"-o" (string-append go-dir
(file-sans-extension file)
".go")
(string-append source-directory "/" file)
flags)))
source-files)
#:max-processes (parallel-job-count)
#:report-progress report-build-progress)
(invoke-each
(filter-map (lambda (file)
(and (or (not not-compiled-file-regexp)
(not (string-match not-compiled-file-regexp
file)))
(cons* guild
"guild" "compile"
"-L" source-directory
"-o" (string-append go-dir
(file-sans-extension file)
".go")
(string-append source-directory "/" file)
flags)))
source-files)
#:max-processes (parallel-job-count)
#:report-progress report-build-progress)
(for-each
(lambda (file)
(for-each
(lambda (file)
(install-file (string-append source-directory "/" file)
(string-append module-dir
"/" (dirname file))))
source-files))
source-files))
#t))
(define* (install-documentation #:key outputs