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

View File

@ -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)