From e5db7ee1f7f0d2297e72c611800cf24b9d31e266 Mon Sep 17 00:00:00 2001 From: Denis 'GNUtoo' Carikli Date: Tue, 14 Feb 2023 02:23:30 +0100 Subject: scripts: guix.scm: sync parse-android.mk definition with guix style 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 --- 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")) -- cgit v1.2.3