1 files changed, 13 insertions, 15 deletions
diff --git a/scripts/module-imports.scm b/module/scripts/module-imports.scm
index b7589950..0639715f 100755
--- a/scripts/module-imports.scm
+++ b/module/scripts/module-imports.scm
@@ -1,7 +1,3 @@
-#!/usr/bin/guile \
--e main -s
-!#
-
 ;;; Commentary:
 ;;;
 ;;; Scripts which finds unused imports in each file.
@@ -11,22 +7,24 @@
 ;;;
 ;;; Code:
 
-(add-to-load-path (string-append (dirname (dirname (current-filename))) "/module"))
-(add-to-load-path (dirname (current-filename)))
-
-(use-modules ((srfi srfi-1) :select (lset-difference))
-             ((rnrs lists) :select (remp filter partition))
-             ((module-introspection) :select (module-declaration? unique-symbols))
-             ((static-util) :select (get-forms))
-             ((module-uses) :select (module-uses*))
-             )
+(define-module (scripts module-imports)
+  :use-module ((srfi srfi-1) :select (lset-difference))
+  :use-module ((rnrs lists) :select (remp filter partition))
+  :use-module ((hnh module-introspection) :select (module-declaration? unique-symbols))
+  :use-module ((hnh module-introspection static-util) :select (get-forms))
+  :use-module ((hnh module-introspection module-uses) :select (module-uses*))
+  :export (main)
+  )
 
+;; (define %summary "")
+(define %include-in-guild-list #t)
+(define %synopsis "module-imports filename")
 
 ;;; Module use high scores
 ;;; $ grep -Ho '#\?:use-module' -R module | uniq -c | sort -n
 
-(define (main args)
-  (define filename (cadr args))
+(define (main . args)
+  (define filename (car args))
   (define-values (module-declaration-list forms)
     (partition module-declaration?
                (reverse (call-with-input-file filename get-forms))))