Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues 8 Pull Requests Releases Activity

Fixing dependency reading

This commit is contained in:
retropikzel 2025-07-18 22:52:42 +03:00
parent 958dcdd8a1
commit e946c3408f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libs/library-util.scm
View File

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