suzanne.soy/phc-toolkit
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

Compatibility with Racket: use a wrapper around (make-)attribute-mapping

Browse Source
This commit is contained in:
Georges Dupéron 2018-06-03 12:42:05 +02:00
parent 6f663028cb
commit 2799d88ee3
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
untyped-only/syntax-parse.rkt
View File

@ -9,22 +9,22 @@
(version-case (version-case
[(version< (version) "6.90.0.24") [(version< (version) "6.90.0.24")
(require (prefix-in - syntax/parse/private/residual)) (require (rename-in (prefix-in - syntax/parse/private/residual)
(define-for-syntax (compatibility-syntax-or-check syntax?) [-make-attribute-mapping
syntax?)] compat-make-attribute-mapping]))]
[else [else
(require (rename-in (prefix-in - racket/private/template) (require (rename-in (prefix-in - racket/private/template)
[-attribute-mapping -make-attribute-mapping]) [-attribute-mapping --make-attribute-mapping])
(only-in syntax/parse/private/residual ;; must be an absolute path ;; must be an absolute path
(only-in syntax/parse/private/residual
check-attr-value)) check-attr-value))
(define-for-syntax (-attribute-mapping-syntax? x) (define-for-syntax (-attribute-mapping-syntax? x)
;; attribute-mapping-check is actually false when attribute-mapping-syntax? ;; attribute-mapping-check is actually false when attribute-mapping-syntax?
;; would have been true (thanks rmculpepper !) ;; would have been true (thanks rmculpepper !)
(not (-attribute-mapping-check x))) (not (-attribute-mapping-check x)))
(define-for-syntax (compatibility-syntax-or-check syntax?) (define-for-syntax (compat-make-attribute-mapping valvar name depth syntax?)
(if syntax? (--make-attribute-mapping
#f valvar name depth (if syntax? #f (quote-syntax check-attr-value))))])
(quote-syntax check-attr-value)))])
(provide attribute* (provide attribute*
(for-syntax attribute-info) (for-syntax attribute-info)
@ -95,10 +95,10 @@
(define valvar (define valvar
val) val)
(define-syntax tmp-attr (define-syntax tmp-attr
(-make-attribute-mapping (quote-syntax valvar) (compat-make-attribute-mapping (quote-syntax valvar)
'name 'name
'depth 'depth
(compatibility-syntax-or-check 'syntax?))) 'syntax?))
(define-syntax name (define-syntax name
(make-syntax-mapping 'depth (make-syntax-mapping 'depth
(quote-syntax tmp-attr))))) (quote-syntax tmp-attr)))))