possible fix to per-gron#37

alvatar · Feb 25, 2012 · f49d3b0 · f49d3b0
1 parent c342963
commit f49d3b0
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/extras.scm b/src/extras.scm
@@ -19,7 +19,11 @@
   (let* ((mod (resolve-one-module mod))
          (perform-compile!
           (lambda ()
-            (let ((path (module-reference-path mod)))
+            (let* ((module-ref-path (module-reference-path mod))
+                   ;; Check if the reference-path is from a package and process it properly
+                   (path (if (package-module-path? module-ref-path)
+                             (package-module-path-path module-ref-path)
+                             module-ref-path)))
               (let ((result (module-compile-bunch
                              'dyn
                              (string-append