1 files changed, 24 insertions(+), 0 deletions(-)

A modules/ruther/modules.scm

@@ 0,0 1,24 @@
+(define-module (ruther modules)
+  #:use-module (guix modules)
+  #:use-module (ice-9 match)
+
+  #:re-export (missing-dependency-error?
+               missing-dependency-module
+               missing-dependency-search-path
+
+               file-name->module-name
+               module-name->file-name
+
+               source-module-dependencies
+               source-module-closure
+               live-module-closure
+               guix-module-name?)
+  #:export (ruther-module-name?))
+
+(define (ruther-module-name? name)
+  "Return true if NAME (a list of symbols) denotes a Guix module or Ruther module."
+  (match name
+    (('guix _ ...) #t)
+    (('gnu _ ...) #t)
+    (('ruther _ ...) #t)
+    (_ #f)))