The guix style command reformats a package or a file to use the code style used by Guix.
This commits sync the parse-android.mk definition with the output produced by guix style. This commit should contain no functional changes. Signed-off-by: Denis 'GNUtoo' Carikli <[email protected]> --- scripts/guix.scm | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) diff --git a/scripts/guix.scm b/scripts/guix.scm index d577b89..3395bbc 100644 --- a/scripts/guix.scm +++ b/scripts/guix.scm @@ -84,20 +84,17 @@ (define (parse-android.mk port modules-list) (let* ((line (read-line port))) (if (not (eof-object? line)) - (let* ((line-parts (string-split line #\ ))) + (let* ((line-parts (string-split line #\space))) (if (string=? (car line-parts) "LOCAL_MODULE") (if (not (string=? (list-ref line-parts 2) "libsamsung-ipc")) (if (string=? modules-list "") - (parse-android.mk - port - (list-ref line-parts 2)) - (parse-android.mk - port - (string-append modules-list - " " (list-ref line-parts 2)))) + (parse-android.mk port + (list-ref line-parts 2)) + (parse-android.mk port + (string-append modules-list " " + (list-ref line-parts 2)))) (parse-android.mk port modules-list)) - (parse-android.mk port modules-list))) - modules-list))) + (parse-android.mk port modules-list))) modules-list))) (define android-local-modules-list (let* ((port (open-input-file "./Android.mk")) -- 2.39.1 _______________________________________________ Replicant mailing list [email protected] https://lists.osuosl.org/mailman/listinfo/replicant
