From 0615f14c352ee1603c84782314b8c787e97379a1 Mon Sep 17 00:00:00 2001
From: felix <address@hidden>
Date: Wed, 29 Aug 2018 14:34:35 +0200
Subject: [PATCH] Allow list-notation for modules property in egg files

---
 egg-compile.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/egg-compile.scm b/egg-compile.scm
index e6a3dbaa..9dbddec2 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -310,7 +310,7 @@
         ((install-name)
          (set! oname (->string (arg info 1 name?))))
         ((modules)
-         (set! mods (map ->string (cdr info))))
+         (set! mods (map ->module-id (cdr info))))
         ((component-dependencies)
          (set! cdeps (append cdeps (map ->dep (cdr info)))))
         ((source-dependencies)
@@ -967,3 +967,8 @@ EOF
 (define (print-end-command platform)
   (case platform
     ((windows) (print "if errorlevel 1 exit /b 1"))))
+
+(define (->module-id m)
+  (if (pair? m)
+      (string-intersperse (map ->string m) ".")
+      (->string m)))
-- 
2.16.2