Fixing dependency reading
This commit is contained in:
parent
958dcdd8a1
commit
e946c3408f
|
@ -24,9 +24,6 @@
|
||||||
|
|
||||||
(define library-name->path
|
(define library-name->path
|
||||||
(lambda (name)
|
(lambda (name)
|
||||||
(display "HERE: ")
|
|
||||||
(write name)
|
|
||||||
(newline)
|
|
||||||
(string-append
|
(string-append
|
||||||
(string-cut-from-end
|
(string-cut-from-end
|
||||||
(apply string-append
|
(apply string-append
|
||||||
|
@ -44,9 +41,7 @@
|
||||||
(lambda (result implementation rest)
|
(lambda (result implementation rest)
|
||||||
(cond ((null? rest) result)
|
(cond ((null? rest) result)
|
||||||
((equal? (car rest) 'import) (cdr rest))
|
((equal? (car rest) 'import) (cdr rest))
|
||||||
((or (member 'cond-expand (car rest))
|
((member 'cond-expand (car rest))
|
||||||
(member 'prefix (car rest))
|
|
||||||
(member 'except (car rest)))
|
|
||||||
(if (assoc implementation (cdr (car rest)))
|
(if (assoc implementation (cdr (car rest)))
|
||||||
(get-imports result
|
(get-imports result
|
||||||
implementation
|
implementation
|
||||||
|
@ -113,6 +108,11 @@
|
||||||
(get-imports (list)
|
(get-imports (list)
|
||||||
implementation
|
implementation
|
||||||
data)))
|
data)))
|
||||||
|
(debug (begin
|
||||||
|
(display "HERE: ")
|
||||||
|
(write imports)
|
||||||
|
(newline)
|
||||||
|
1))
|
||||||
(filtered-imports (filter-out-scheme-dependencies imports))
|
(filtered-imports (filter-out-scheme-dependencies imports))
|
||||||
(paths (map library-name->path filtered-imports))
|
(paths (map library-name->path filtered-imports))
|
||||||
(flat-tree (apply append
|
(flat-tree (apply append
|
||||||
|
|
Loading…
Reference in New Issue