From a22783f63545a053896cc1f7b1683e84dee03a09 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 30 Sep 2011 01:55:03 -0600 Subject: [PATCH] syntax/parse: added workaround for racket/runtime-path at phase>0 --- collects/syntax/parse/experimental/reflect.rkt | 4 ++++ collects/syntax/parse/experimental/splicing.rkt | 4 ++++ collects/syntax/parse/private/litconv.rkt | 5 +++++ collects/syntax/parse/private/sc.rkt | 4 ++++ 4 files changed, 17 insertions(+) diff --git a/collects/syntax/parse/experimental/reflect.rkt b/collects/syntax/parse/experimental/reflect.rkt index 519a9d7b62..578f0f4413 100644 --- a/collects/syntax/parse/experimental/reflect.rkt +++ b/collects/syntax/parse/experimental/reflect.rkt @@ -13,6 +13,10 @@ [syntax/parse/private/rep-data ;; keep abs. path (get-stxclass 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) (if (eq? (syntax-local-context) 'expression) diff --git a/collects/syntax/parse/experimental/splicing.rkt b/collects/syntax/parse/experimental/splicing.rkt index b0a3244b31..9b0107c958 100644 --- a/collects/syntax/parse/experimental/splicing.rkt +++ b/collects/syntax/parse/experimental/splicing.rkt @@ -10,6 +10,10 @@ (lazy-require [syntax/parse/private/rep-attrs (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) diff --git a/collects/syntax/parse/private/litconv.rkt b/collects/syntax/parse/private/litconv.rkt index 7cfd38c9ba..16e6530407 100644 --- a/collects/syntax/parse/private/litconv.rkt +++ b/collects/syntax/parse/private/litconv.rkt @@ -15,6 +15,11 @@ (parse-kw-formals check-conventions-rules 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 define-literal-set literal-set->predicate diff --git a/collects/syntax/parse/private/sc.rkt b/collects/syntax/parse/private/sc.rkt index 275cbc41ba..b52ad86398 100644 --- a/collects/syntax/parse/private/sc.rkt +++ b/collects/syntax/parse/private/sc.rkt @@ -22,6 +22,10 @@ id:syntax-parser/template id:parser/rhs 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 define-splicing-syntax-class