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

commit ea0eea3f295b58495d799380d472648c6cd7568b
parent 6a20d8c2fa286d9a08425217140c102aba254ba7
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat, 19 Apr 2008 12:42:54 +0000

setup/unpack addition and docs

svn: r9370

original commit: 99943314d2105e23936ced17ab487191831b1b1e

Diffstat:
M
collects/scribble/search.ss
 | 
7
++++++-

1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/search.ss b/collects/scribble/search.ss
@@ -46,6 +46,11 @@
     ;; from (define-for-syntax x ...). This isn't a problem in practice,
     ;; because no one uses the same name for different-phase exported
     ;; bindings.
+    ;;
+    ;; However, we assume that bidings are defined as originating from some
+    ;; module at phase 0. Maybe it's defined at phase 1 and re-exported
+    ;; later for phase 0 (after a require-for-template), in which case the
+    ;; re-exporting module is the one we find.
     (let ([b (cond
               [(identifier? stx/binding)
                (identifier-binding stx/binding phase-level)]
@@ -90,7 +95,7 @@
                    [export-phase (list-ref (car queue) 4)]
                    [queue (cdr queue)])
                (let* ([rmp (module-path-index-resolve mod)]
-                      [eb (and (equal? defn-phase export-phase)
+                      [eb (and (equal? 0 export-phase) ;; look for the phase-0 export; good idea?
                                (list (let ([p (resolved-module-path-name rmp)])
                                        (if (path? p)
                                            (intern-taglet (path->main-collects-relative p))