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

avoid including lazy-required names in (all-defined-out)

Browse Source 
closes PR 12335
This commit is contained in:
Ryan Culpepper 2011-10-31 17:45:22 -06:00
parent 8edfd4e87e
commit 98d8acfd4e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/unstable/lazy-require.rkt
View File

@ -18,8 +18,14 @@
(for/list ([name (in-list (syntax->list #'(name ...)))]) (for/list ([name (in-list (syntax->list #'(name ...)))])
(unless (identifier? name) (unless (identifier? name)
(raise-syntax-error #f "expected identifier" #'orig-stx name)) (raise-syntax-error #f "expected identifier" #'orig-stx name))
#`(define #,name (make-lazy-function '#,name get-sym)))]) (with-syntax ([name name]
;; implicit quasiquote, so can use normal module-path syntax' [(aux) (generate-temporaries (list name))])
#`(begin (define aux (make-lazy-function 'name get-sym))
(define-syntax name
(make-rename-transformer
(syntax-property (quote-syntax aux)
'not-provide-all-defined #t))))))])
;; implicit quasiquote, so can use normal module-path syntax
;; or escape to compute a the module-path via expression ;; or escape to compute a the module-path via expression
#'(begin (define-runtime-module-path-index mpi-var (quasiquote modpath)) #'(begin (define-runtime-module-path-index mpi-var (quasiquote modpath))
(define (get-sym sym) (define (get-sym sym)