From e946c3408f901f7fa4a4ba291a6f92976d655e3c Mon Sep 17 00:00:00 2001 From: retropikzel Date: Fri, 18 Jul 2025 22:52:42 +0300 Subject: [PATCH] Fixing dependency reading --- libs/library-util.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/libs/library-util.scm b/libs/library-util.scm index 209ded7..65ea0da 100644 --- a/libs/library-util.scm +++ b/libs/library-util.scm @@ -24,9 +24,6 @@ (define library-name->path (lambda (name) - (display "HERE: ") - (write name) - (newline) (string-append (string-cut-from-end (apply string-append @@ -44,9 +41,7 @@ (lambda (result implementation rest) (cond ((null? rest) result) ((equal? (car rest) 'import) (cdr rest)) - ((or (member 'cond-expand (car rest)) - (member 'prefix (car rest)) - (member 'except (car rest))) + ((member 'cond-expand (car rest)) (if (assoc implementation (cdr (car rest))) (get-imports result implementation @@ -113,6 +108,11 @@ (get-imports (list) implementation data))) + (debug (begin + (display "HERE: ") + (write imports) + (newline) + 1)) (filtered-imports (filter-out-scheme-dependencies imports)) (paths (map library-name->path filtered-imports)) (flat-tree (apply append