suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make the lang and data identifiers visible in the #:info argument too

Browse Source 
svn: r15192
This commit is contained in:
Eli Barzilay 2009-06-16 21:56:37 +00:00
parent 7c810690fa
commit 0328b2ef81
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/syntax/module-reader.ss
View File

@ -105,13 +105,17 @@
(define (get-info in modpath line col pos) (define (get-info in modpath line col pos)
(get-info-getter (read-properties in modpath line col pos))) (get-info-getter (read-properties in modpath line col pos)))
(define (get-info-getter props) (define (get-info-getter props)
(define lang (car props))
(define data (cadr props))
(define (default-info what) (define (default-info what)
(case what (case what
[(module-language) (car props)] [(module-language) (car props)]
;; ... more? ;; ... more?
[else #f])) [else #f]))
(define info (define info
(let ([info #,~info]) (let* ([#,<lang-id> lang] ;\ visible in
[#,<data-id> data] ;/ user-code
[info #,~info])
(if (or (not info) (and (procedure? info) (ar? info 2))) (if (or (not info) (and (procedure? info) (ar? info 2)))
info info
(raise-type-error 'syntax/module-reader (raise-type-error 'syntax/module-reader