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:38:23 +03:00
parent 85af700faa
commit d07356cd86
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libs/library-util.scm
View File

@ -41,7 +41,9 @@
(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))
((member 'cond-expand (car rest)) ((or (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