Changed syntax/parse module paths to stxparse-info/parse

This commit is contained in:
Georges Dupéron 2017-01-22 16:27:57 +01:00
parent bf2aafbdeb
commit 02a0d43d0d
21 changed files with 44 additions and 44 deletions

View File

@ -12,7 +12,7 @@
(begin-for-syntax
(require racket/contract/base
syntax/parse/private/residual-ct)
stxparse-info/parse/private/residual-ct)
(provide pattern-expander?
(contract-out
[pattern-expander

View File

@ -8,7 +8,7 @@
racket/list
racket/pretty
"../parse.rkt"
(except-in syntax/parse/private/residual
(except-in stxparse-info/parse/private/residual
prop:pattern-expander syntax-local-syntax-parse-pattern-introduce)
"private/runtime.rkt"
"private/runtime-progress.rkt"

View File

@ -1,10 +1,10 @@
#lang racket/base
(require (for-syntax racket/base
syntax/parse
stxparse-info/parse
"private/sc.rkt"))
(provide define-simple-macro
define-syntax-parser
(for-syntax (all-from-out syntax/parse)))
(for-syntax (all-from-out stxparse-info/parse)))
(define-syntax (define-simple-macro stx)
(syntax-parse stx

View File

@ -1,8 +1,8 @@
#lang racket/base
(require syntax/parse/pre
(require stxparse-info/parse/pre
"provide.rkt"
syntax/contract
(only-in syntax/parse/private/residual ;; keep abs. path
(only-in stxparse-info/parse/private/residual ;; keep abs. path
this-context-syntax
this-role)
racket/contract/base)

View File

@ -1,5 +1,5 @@
#lang racket/base
(require syntax/parse/private/minimatch
(require stxparse-info/parse/private/minimatch
racket/private/promise
racket/private/stx) ;; syntax/stx
(provide translate)
@ -444,7 +444,7 @@ An VarRef is one of
[else
(err/not-syntax ctx v0)]))])))
;; Note: slightly different from error msg in syntax/parse/private/residual:
;; Note: slightly different from error msg in stxparse-info/parse/private/residual:
;; here says "contains" instead of "is bound to", because might be within list
(define (err/not-syntax ctx v)
(raise-syntax-error #f

View File

@ -5,8 +5,8 @@
(for-syntax racket/base
racket/syntax
"../private/minimatch.rkt"
syntax/parse/pre
syntax/parse/private/residual-ct ;; keep abs. path
stxparse-info/parse/pre
stxparse-info/parse/private/residual-ct ;; keep abs. path
"../private/kws.rkt"
syntax/contract))
(provide provide-syntax-class/contract

View File

@ -2,7 +2,7 @@
(require (for-syntax racket/base
racket/lazy-require
racket/syntax
syntax/parse/private/residual-ct) ;; keep abs.path
stxparse-info/parse/private/residual-ct) ;; keep abs.path
racket/contract/base
racket/contract/combinator
"../private/minimatch.rkt"
@ -11,12 +11,12 @@
"../private/kws.rkt")
(begin-for-syntax
(lazy-require
[syntax/parse/private/rep-data ;; keep abs. path
[stxparse-info/parse/private/rep-data ;; keep abs. path
(get-stxclass)]))
;; 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-runtime-module-path-index _unused_ 'stxparse-info/parse/private/rep-data)
(define-syntax (reify-syntax-class stx)
(if (eq? (syntax-local-context) 'expression)

View File

@ -1,19 +1,19 @@
#lang racket/base
(require (for-syntax racket/base
syntax/parse
stxparse-info/parse
racket/lazy-require
"../private/kws.rkt")
syntax/parse/private/residual) ;; keep abs. path
stxparse-info/parse/private/residual) ;; keep abs. path
(provide define-primitive-splicing-syntax-class)
(begin-for-syntax
(lazy-require
[syntax/parse/private/rep-attrs
[stxparse-info/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-runtime-module-path-index _unused_ 'stxparse-info/parse/private/rep-attrs)
(define-syntax (define-primitive-splicing-syntax-class stx)

View File

@ -2,11 +2,11 @@
(require (for-syntax racket/base
"dset.rkt"
racket/syntax
syntax/parse/private/minimatch
stxparse-info/parse/private/minimatch
racket/private/stx ;; syntax/stx
racket/private/sc
racket/struct)
syntax/parse/private/residual
stxparse-info/parse/private/residual
"private/substitute.rkt")
(provide template
template/loc

View File

@ -5,12 +5,12 @@
"lib.rkt"
"kws.rkt"
racket/syntax)
syntax/parse/private/residual-ct ;; keep abs. path
syntax/parse/private/residual) ;; keep abs. path
stxparse-info/parse/private/residual-ct ;; keep abs. path
stxparse-info/parse/private/residual) ;; keep abs. path
(begin-for-syntax
(lazy-require
[syntax/private/keyword (options-select-value parse-keyword-options)]
[syntax/parse/private/rep ;; keep abs. path
[stxparse-info/parse/private/rep ;; keep abs. path
(parse-kw-formals
check-conventions-rules
check-datum-literals-list
@ -18,7 +18,7 @@
;; 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 racket/syntax (for-meta 2 '#%kernel))
(define-runtime-module-path-index _unused_ 'syntax/parse/private/rep)
(define-runtime-module-path-index _unused_ 'stxparse-info/parse/private/rep)
(provide define-conventions
define-literal-set
@ -215,7 +215,7 @@ change between when define-literal-set is compiled and the comparison
involving L. For example:
(module M racket
(require syntax/parse)
(require stxparse-info/parse)
(define-literal-set LS (lambda))
(require (only-in some-other-lang lambda))
.... LS ....)

View File

@ -1,7 +1,7 @@
#lang racket/base
(require racket/syntax
racket/pretty
syntax/parse/private/residual-ct ;; keep abs. path
stxparse-info/parse/private/residual-ct ;; keep abs. path
"minimatch.rkt"
"rep-patterns.rkt"
"kws.rkt")

View File

@ -16,9 +16,9 @@
racket/syntax
racket/stxparam
syntax/stx
syntax/parse/private/residual ;; keep abs. path
syntax/parse/private/runtime ;; keep abs.path
syntax/parse/private/runtime-reflect) ;; keep abs. path
stxparse-info/parse/private/residual ;; keep abs. path
stxparse-info/parse/private/runtime ;; keep abs.path
stxparse-info/parse/private/runtime-reflect) ;; keep abs. path
;; ============================================================

View File

@ -1,5 +1,5 @@
#lang racket/base
(require syntax/parse/private/residual-ct ;; keep abs. path
(require stxparse-info/parse/private/residual-ct ;; keep abs. path
racket/contract/base
syntax/private/id-table
racket/syntax

View File

@ -3,7 +3,7 @@
racket/dict
syntax/private/id-table
racket/syntax
syntax/parse/private/residual-ct ;; keep abs. path
stxparse-info/parse/private/residual-ct ;; keep abs. path
"minimatch.rkt"
"kws.rkt")
;; from residual.rkt

View File

@ -1,5 +1,5 @@
#lang racket/base
(require syntax/parse/private/residual-ct ;; keep abs. path
(require stxparse-info/parse/private/residual-ct ;; keep abs. path
"rep-attrs.rkt"
"minimatch.rkt"
racket/syntax)

View File

@ -1,8 +1,8 @@
#lang racket/base
(require (for-template racket/base
syntax/parse/private/keywords
syntax/parse/private/residual ;; keep abs. path
syntax/parse/private/runtime)
stxparse-info/parse/private/keywords
stxparse-info/parse/private/residual ;; keep abs. path
stxparse-info/parse/private/runtime)
racket/list
racket/contract/base
"make.rkt"
@ -16,7 +16,7 @@
"rep-attrs.rkt"
"rep-data.rkt"
"rep-patterns.rkt"
syntax/parse/private/residual-ct ;; keep abs. path
stxparse-info/parse/private/residual-ct ;; keep abs. path
"kws.rkt")
;; Error reporting

View File

@ -8,8 +8,8 @@
;; Compile-time
(require (for-syntax racket/private/sc
syntax/parse/private/residual-ct))
(provide (for-syntax (all-from-out syntax/parse/private/residual-ct)))
stxparse-info/parse/private/residual-ct))
(provide (for-syntax (all-from-out stxparse-info/parse/private/residual-ct)))
(begin-for-syntax
;; == from runtime.rkt

View File

@ -1,6 +1,6 @@
#lang racket/base
(require syntax/parse/private/residual ;; keep abs. path
(only-in syntax/parse/private/residual-ct ;; keep abs. path
(require stxparse-info/parse/private/residual ;; keep abs. path
(only-in stxparse-info/parse/private/residual-ct ;; keep abs. path
attr-name attr-depth)
"kws.rkt")
(provide reflect-parser

View File

@ -5,7 +5,7 @@
racket/struct
syntax/srcloc
"minimatch.rkt"
syntax/parse/private/residual
stxparse-info/parse/private/residual
"kws.rkt")
(provide call-current-failure-handler
current-failure-handler

View File

@ -1,6 +1,6 @@
#lang racket/base
(require racket/stxparam
syntax/parse/private/residual ;; keep abs. path
stxparse-info/parse/private/residual ;; keep abs. path
(for-syntax racket/base
racket/list
syntax/kerncase

View File

@ -6,7 +6,7 @@
;; keep and keep as abs. path -- lazy-loaded macros produce references to this
;; must be required via *absolute module path* from any disappearing module
;; (so for consistency etc, require absolutely from all modules)
(require syntax/parse/private/residual
(require stxparse-info/parse/private/residual
racket/syntax
racket/stxparam
syntax/stx)
@ -16,7 +16,7 @@
;; load macro transformers lazily via identifier
;; This module path must also be absolute (not sure why,
;; but it definitely breaks on relative module path).
[syntax/parse/private/parse-aux
[stxparse-info/parse/private/parse-aux
(id:define-syntax-class
id:define-splicing-syntax-class
id:define-integrable-syntax-class
@ -29,7 +29,7 @@
;; 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)
(define-runtime-module-path-index _unused_ 'stxparse-info/parse/private/parse-aux)
(provide define-syntax-class
define-splicing-syntax-class