Retropikzel
/
git-to-snow-repo
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add dependencies in cond-expand to list

This commit is contained in:
retropikzel 2025-09-06 08:58:47 +03:00
parent 3238d793fd
commit 8dba675411
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
git-to-snow-repo.scm
View File

@ -96,15 +96,21 @@
,(car (cdr (assq 'foreign-depends ,(car (cdr (assq 'foreign-depends
(cdr item)))))) (cdr item))))))
'())) '()))
(debug (depends (map cdr (collect (cdr data) 'import)))
(begin (cond-expands
;(display "HERE: ") (let ((raw (map cdr (collect (cdr data) 'cond-expand))))
;(write (collect (cdr data) 'cond-expand)) (if (null? raw)
;(newline) '()
1 (map
(lambda (item)
)) (let ((depends (map cdr
(depends (map cdr (collect (cdr data) 'import)))) (collect (cdr item)
'import))))
(list (car item)
(if (null? depends)
'(depends)
`(depends ,@(car depends))))))
(car raw))))))
(set! result (set! result
(append result (append result
(list (append `((name ,(list-ref data 1)) (list (append `((name ,(list-ref data 1))
@ -113,6 +119,9 @@
(if (null? depends) (if (null? depends)
'() '()
`((depends ,@(car depends)))) `((depends ,@(car depends))))
(if (null? cond-expands)
'()
`((cond-expand ,@cond-expands)))
))))))))) )))))))))
lib) lib)
result)) result))