syntax/parse: remove some absolute paths related to lazy-require-syntax
Since the previous version of this code was first written, Racket's requirements seem to have relaxed---but not completely! If *all* related module paths are made relative, then the deps test case breaks (but only the test is pre-compiled ?!!). If requires from disappearing module(s) to residual module(s) use absolute module paths, it seems to work.
This commit is contained in:
parent
95e6244192
commit
164b3abed1
|
@ -17,7 +17,7 @@
|
||||||
racket/stxparam
|
racket/stxparam
|
||||||
syntax/stx
|
syntax/stx
|
||||||
syntax/parse/private/residual ;; keep abs. path
|
syntax/parse/private/residual ;; keep abs. path
|
||||||
syntax/parse/private/runtime ;; keep abs.path
|
"runtime.rkt"
|
||||||
syntax/parse/private/runtime-reflect) ;; keep abs. path
|
syntax/parse/private/runtime-reflect) ;; keep abs. path
|
||||||
|
|
||||||
;; ============================================================
|
;; ============================================================
|
||||||
|
|
|
@ -7,9 +7,8 @@
|
||||||
;; ============================================================
|
;; ============================================================
|
||||||
;; Compile-time
|
;; Compile-time
|
||||||
|
|
||||||
(require (for-syntax racket/private/sc
|
(require (for-syntax racket/private/sc "residual-ct.rkt"))
|
||||||
syntax/parse/private/residual-ct))
|
(provide (for-syntax (all-from-out "residual-ct.rkt")))
|
||||||
(provide (for-syntax (all-from-out syntax/parse/private/residual-ct)))
|
|
||||||
|
|
||||||
(begin-for-syntax
|
(begin-for-syntax
|
||||||
;; == from runtime.rkt
|
;; == from runtime.rkt
|
||||||
|
|
|
@ -1,7 +1,6 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
(require syntax/parse/private/residual ;; keep abs. path
|
(require "residual.rkt"
|
||||||
(only-in syntax/parse/private/residual-ct ;; keep abs. path
|
(only-in "residual-ct.rkt" attr-name attr-depth)
|
||||||
attr-name attr-depth)
|
|
||||||
"kws.rkt")
|
"kws.rkt")
|
||||||
(provide reflect-parser
|
(provide reflect-parser
|
||||||
(struct-out reified)
|
(struct-out reified)
|
||||||
|
|
|
@ -1,17 +1,10 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
(require racket/lazy-require
|
(require racket/lazy-require
|
||||||
"keywords.rkt")
|
"keywords.rkt"
|
||||||
|
"residual.rkt")
|
||||||
;; 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)
|
|
||||||
|
|
||||||
(lazy-require-syntax
|
(lazy-require-syntax
|
||||||
;; load macro transformers lazily via identifier
|
["parse.rkt"
|
||||||
;; This module path must also be absolute (not sure why,
|
|
||||||
;; but it definitely breaks on relative module path).
|
|
||||||
[syntax/parse/private/parse
|
|
||||||
(define-syntax-class
|
(define-syntax-class
|
||||||
define-splicing-syntax-class
|
define-splicing-syntax-class
|
||||||
define-integrable-syntax-class
|
define-integrable-syntax-class
|
||||||
|
|
Loading…
Reference in New Issue
Block a user