Permalink
Browse files

possible fix to per-gron#37

  • Loading branch information...
1 parent c342963 commit f49d3b0be5e6295245913142df1c4741b6df9018 @alvatar committed Feb 25, 2012
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/extras.scm
View
@@ -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

0 comments on commit f49d3b0

Please sign in to comment.