bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 466515d59a2dc644381e57b2b02118f9708befd0
parent 30ae71202d92b39a9edbde8f121bb195c8191d1a
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Thu,  4 Aug 2016 18:59:42 +0200

Fixes bug #44 (Re-provided identifiers are not tracked across submodules)

Diffstat:
M
scribble-lib/scribble/search.rkt
 | 
14
+++++++++++---

1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/scribble-lib/scribble/search.rkt b/scribble-lib/scribble/search.rkt
@@ -92,7 +92,8 @@
                                 (let ([v (resolve-get/tentative part ri `(form ,eb))])
                                   (or (and v `(form ,eb))
                                       `(def ,eb))))]
-                          [need-result? (and need-result? (not here-result))])
+                          [need-result? (and need-result? (not here-result))]
+                          [rmp-name (resolved-module-path-name rmp)])
                      ;; Even if we've found `here-result', look deeper so that we have 
                      ;; consistent `dep' results.
                      (let ([nest-result
@@ -102,7 +103,9 @@
                                 ;; Not defined through this path, so keep looking
                                 (loop queue rqueue need-result?)
                                 ;; Check parents, if we can get the source:
-                                (if (and (path? (resolved-module-path-name rmp))
+                                (if (and (or (path? rmp-name)
+                                             (and (list? rmp-name)
+                                                  (path? (car rmp-name))))
                                          (not (hash-ref seen (cons export-phase rmp) #f)))
                                     (let ([exports
                                            (hash-ref
@@ -114,7 +117,12 @@
                                                              (lambda ()
                                                                ;; First, try using bytecode:
                                                                (module-compiled-exports 
-                                                                (get-module-code (resolved-module-path-name rmp)
+                                                                (get-module-code (if (list? rmp-name)
+                                                                                     (car rmp-name)
+                                                                                     rmp-name)
+                                                                                 #:submodule-path (if (list? rmp-name)
+                                                                                                      (cdr rmp-name)
+                                                                                                      '())
                                                                                  #:choose (lambda (src zo so) 'zo))))
                                                              (lambda ()
                                                                (try