Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

Small improvements to dependency reading

This commit is contained in:
retropikzel 2025-10-30 09:42:58 +02:00
parent 6e15d3768f
commit 9dab8abe9a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libs/library-util.sld
View File

@ -59,8 +59,9 @@
(cdr (car rest))))) (cdr (car rest)))))
(get-imports result (get-imports result
implementation implementation
(cdr (assoc 'else (cdr (or (assoc 'else
(cdr (car rest))))))) (cdr (car rest)))
(cons #f '()))))))
((member 'import (car rest)) ((member 'import (car rest))
(get-imports (append result (list) (cdr (car rest))) (get-imports (append result (list) (cdr (car rest)))
implementation implementation