Changed syntax/parse module paths to stxparse-info/parse
This commit is contained in:
parent
bf2aafbdeb
commit
02a0d43d0d
|
@ -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
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 ....)
|
||||
|
|
|
@ -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")
|
||||
|
|
|
@ -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
|
||||
|
||||
;; ============================================================
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user