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