suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

setup/unpack addition and docs

Browse Source 
svn: r9370

original commit: 99943314d2105e23936ced17ab487191831b1b1e
This commit is contained in:
Matthew Flatt 2008-04-19 12:42:54 +00:00
parent 6a20d8c2fa
commit ea0eea3f29
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribble/search.ss
View File

@ -46,6 +46,11 @@
;; from (define-for-syntax x ...). This isn't a problem in practice, ;; from (define-for-syntax x ...). This isn't a problem in practice,
;; because no one uses the same name for different-phase exported ;; because no one uses the same name for different-phase exported
;; bindings. ;; 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 (let ([b (cond
[(identifier? stx/binding) [(identifier? stx/binding)
(identifier-binding stx/binding phase-level)] (identifier-binding stx/binding phase-level)]
@ -90,7 +95,7 @@
[export-phase (list-ref (car queue) 4)] [export-phase (list-ref (car queue) 4)]
[queue (cdr queue)]) [queue (cdr queue)])
(let* ([rmp (module-path-index-resolve mod)] (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)]) (list (let ([p (resolved-module-path-name rmp)])
(if (path? p) (if (path? p)
(intern-taglet (path->main-collects-relative p)) (intern-taglet (path->main-collects-relative p))