Fixing dependency reading

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