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

Use (here-namespace) for autoloads, (not `hidden-namespace' which is more of a user workspace thing).

Browse Source
This commit is contained in:
Eli Barzilay 2011-08-22 16:24:02 -04:00
parent 01a591392e
commit 9091fddc52
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/xrepl/xrepl.rkt
View File

@ -23,7 +23,7 @@
(define (autoloaded? sym) (hash-ref autoloaded-specs sym #f)) (define (autoloaded? sym) (hash-ref autoloaded-specs sym #f))
(define-syntax-rule (defautoload libspec id ...) (define-syntax-rule (defautoload libspec id ...)
(begin (define (id . args) (begin (define (id . args)
(set! id (parameterize ([current-namespace hidden-namespace]) (set! id (parameterize ([current-namespace (here-namespace)])
(dynamic-require 'libspec 'id))) (dynamic-require 'libspec 'id)))
(hash-set! autoloaded-specs 'libspec #t) (hash-set! autoloaded-specs 'libspec #t)
(hash-set! autoloaded-specs 'id #t) (hash-set! autoloaded-specs 'id #t)