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

syntax/parse: added workaround for racket/runtime-path at phase>0

Browse Source
This commit is contained in:
Ryan Culpepper 2011-09-30 01:55:03 -06:00
parent 54fa605de9
commit a22783f635
4 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/syntax/parse/experimental/reflect.rkt
View File

@ -13,6 +13,10 @@
[syntax/parse/private/rep-data ;; keep abs. path [syntax/parse/private/rep-data ;; keep abs. path
(get-stxclass (get-stxclass
stxclass-delimit-cut?)])) stxclass-delimit-cut?)]))
;; FIXME: workaround for phase>0 bug in racket/runtime-path (and thus lazy-require)
;; Without this, dependencies don't get collected.
(require racket/runtime-path (for-meta 2 '#%kernel))
(define-runtime-module-path-index _unused_ 'syntax/parse/private/rep-data)
(define-syntax (reify-syntax-class stx) (define-syntax (reify-syntax-class stx)
(if (eq? (syntax-local-context) 'expression) (if (eq? (syntax-local-context) 'expression)

4
collects/syntax/parse/experimental/splicing.rkt
View File

@ -10,6 +10,10 @@
(lazy-require (lazy-require
[syntax/parse/private/rep-attrs [syntax/parse/private/rep-attrs
(sort-sattrs)])) (sort-sattrs)]))
;; FIXME: workaround for phase>0 bug in racket/runtime-path (and thus lazy-require)
;; Without this, dependencies don't get collected.
(require racket/runtime-path (for-meta 2 '#%kernel))
(define-runtime-module-path-index _unused_ 'syntax/parse/private/rep-attrs)
(define-syntax (define-primitive-splicing-syntax-class stx) (define-syntax (define-primitive-splicing-syntax-class stx)

5
collects/syntax/parse/private/litconv.rkt
View File

@ -15,6 +15,11 @@
(parse-kw-formals (parse-kw-formals
check-conventions-rules check-conventions-rules
create-aux-def)])) create-aux-def)]))
;; FIXME: workaround for phase>0 bug in racket/runtime-path (and thus lazy-require)
;; Without this, dependencies don't get collected.
(require racket/runtime-path (for-meta 2 '#%kernel))
(define-runtime-module-path-index _unused_ 'syntax/parse/private/rep)
(provide define-conventions (provide define-conventions
define-literal-set define-literal-set
literal-set->predicate literal-set->predicate

4
collects/syntax/parse/private/sc.rkt
View File

@ -22,6 +22,10 @@
id:syntax-parser/template id:syntax-parser/template
id:parser/rhs id:parser/rhs
id:define-eh-alternative-set)])) id:define-eh-alternative-set)]))
;; FIXME: workaround for phase>0 bug in racket/runtime-path (and thus lazy-require)
;; Without this, dependencies don't get collected.
(require racket/runtime-path (for-meta 2 '#%kernel))
(define-runtime-module-path-index _unused_ 'syntax/parse/private/parse-aux)
(provide define-syntax-class (provide define-syntax-class
define-splicing-syntax-class define-splicing-syntax-class