From 8dba675411236c278660d9a3d21e439e90136ad5 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 6 Sep 2025 08:58:47 +0300 Subject: [PATCH] Add dependencies in cond-expand to list --- git-to-snow-repo.scm | 29 +++++++++++++++++++---------- 1 file changed, 19 insertions(+), 10 deletions(-) diff --git a/git-to-snow-repo.scm b/git-to-snow-repo.scm index fbe5146..cf80601 100644 --- a/git-to-snow-repo.scm +++ b/git-to-snow-repo.scm @@ -96,15 +96,21 @@ ,(car (cdr (assq 'foreign-depends (cdr item)))))) '())) - (debug - (begin - ;(display "HERE: ") - ;(write (collect (cdr data) 'cond-expand)) - ;(newline) - 1 - - )) - (depends (map cdr (collect (cdr data) 'import)))) + (depends (map cdr (collect (cdr data) 'import))) + (cond-expands + (let ((raw (map cdr (collect (cdr data) 'cond-expand)))) + (if (null? raw) + '() + (map + (lambda (item) + (let ((depends (map cdr + (collect (cdr item) + 'import)))) + (list (car item) + (if (null? depends) + '(depends) + `(depends ,@(car depends)))))) + (car raw)))))) (set! result (append result (list (append `((name ,(list-ref data 1)) @@ -113,6 +119,9 @@ (if (null? depends) '() `((depends ,@(car depends)))) + (if (null? cond-expands) + '() + `((cond-expand ,@cond-expands))) ))))))))) lib) result)) @@ -163,7 +172,7 @@ (write data) (newline))) tags) - (rmdir-r dir)))))) + (rmdir-r dir)))))) data) (display ")") (newline)