X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=scheme%2Fgnet-bomAM.scm;h=487a7a644df98f3696f00797cf4f129bd67994ef;hb=80b4c14b24c3c380239b1b187ae2f1cb8f669367;hp=2c22d9dd5ba480eab75bbbdc0a9340e75840c628;hpb=34c1b0884701a71fb5080c984342256661a05e0f;p=hw%2Faltusmetrum

diff --git a/scheme/gnet-bomAM.scm b/scheme/gnet-bomAM.scm
index 2c22d9d..487a7a6 100644
--- a/scheme/gnet-bomAM.scm
+++ b/scheme/gnet-bomAM.scm
@@ -30,8 +30,10 @@
 ;; --------------------------------------------------------------------------
 
 (use-modules (ice-9 rdelim)
-             (gnetlist backend-getopt)
-             (gnetlist schematic)
+             (netlist backend-getopt)
+	     (netlist error)
+             (netlist schematic)
+             (netlist schematic toplevel)
              (srfi srfi-26))
 
 (define bomAM:open-input-file
@@ -59,7 +61,7 @@ filename)
            (begin
              (bomAM:printlist (append attriblist (list "quantity" "refdes")) #\,)
              (newline)
-             (bomAM:printbom (bomAM:components (schematic-packages toplevel-schematic)
+             (bomAM:printbom (bomAM:components (schematic-package-names (toplevel-schematic))
                                              attriblist)
                             0))))))