commit 74e933d24e1c75345da5ab083128aaf3a7ed6dfd
parent cead2168ac5d6867a851b072242f41f923dba1e6
Author: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 21 Jan 2009 20:00:55 +0000
fix #:all-defined for 'define-package' by adjusting 'identifier-remove-from-definition-context'; add for-syntax 'package?' and 'package-export-identifiers'; adjust Scribble to find definitions of phase-1 exports
svn: r13253
original commit: db12513b65e79d2fe9e3c824e4232b1c981082d0
Diffstat:
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/search.ss b/collects/scribble/search.ss
@@ -28,10 +28,11 @@
;; 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
+ ;; Formerly, we assumed 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.
+ ;; re-exporting module is the one we find.] That assumption has been
+ ;; lifted, however; search for "GONE" below.
(let ([b (cond
[(identifier? stx/binding)
(identifier-binding stx/binding phase-level)]
@@ -74,7 +75,7 @@
[export-phase (list-ref (car queue) 4)]
[queue (cdr queue)])
(let* ([rmp (module-path-index-resolve mod)]
- [eb (and (equal? 0 export-phase) ;; look for the phase-0 export; good idea?
+ [eb (and ;; GONE: (equal? 0 export-phase) ;; look for the phase-0 export; good idea?
(list (module-path-index->taglet mod)
id))])
(when (and eb
