Add dependencies in cond-expand to list
This commit is contained in:
		
							parent
							
								
									3238d793fd
								
							
						
					
					
						commit
						8dba675411
					
				|  | @ -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) | ||||
|  |  | |||
		Loading…
	
		Reference in New Issue