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

Used backport-template-pr1514

Browse Source
This commit is contained in:
Georges Dupéron 2016-11-10 17:45:15 +01:00
parent 75703ac933
commit a103d48aaf
3 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
info.rkt
View File

@ -9,7 +9,8 @@
"scribble-enhanced" "scribble-enhanced"
"typed-racket-lib" "typed-racket-lib"
"srfi-lite-lib" "srfi-lite-lib"
"delay-pure")) "delay-pure"
"backport-template-pr1514"))
(define build-deps '("scribble-lib" (define build-deps '("scribble-lib"
"racket-doc" "racket-doc"
"remember" "remember"

9
subtemplate.rkt
View File

@ -3,8 +3,9 @@
phc-toolkit/untyped phc-toolkit/untyped
racket/stxparam racket/stxparam
syntax/parse syntax/parse
syntax/parse/experimental/template backport-template-pr1514/experimental/template
syntax/parse/experimental/private/substitute ;syntax/parse/experimental/template
;syntax/parse/experimental/private/substitute
syntax/id-table syntax/id-table
racket/syntax racket/syntax
(for-syntax "patch-arrows.rkt" (for-syntax "patch-arrows.rkt"
@ -23,7 +24,7 @@
(provide (rename-out [new-syntax-parse syntax-parse] (provide (rename-out [new-syntax-parse syntax-parse]
[new-syntax-parser syntax-parser] [new-syntax-parser syntax-parser]
[new-syntax-case syntax-case]) [new-syntax-case syntax-case])
define-unhygienic-template-metafunction ;define-unhygienic-template-metafunction
subtemplate subtemplate
quasisubtemplate) quasisubtemplate)
@ -319,6 +320,7 @@
(derived))))) (derived)))))
#|
(require syntax/parse/experimental/private/substitute) (require syntax/parse/experimental/private/substitute)
;; Not very clean, but syntax/parse/experimental/template should export it :-( ;; Not very clean, but syntax/parse/experimental/template should export it :-(
(define (stolen-current-template-metafunction-introducer) (define (stolen-current-template-metafunction-introducer)
@ -349,3 +351,4 @@
zero)] zero)]
[,#'stx (syntax-local-introduce (mark ,#'tmp-stx 'flip))]) [,#'stx (syntax-local-introduce (mark ,#'tmp-stx 'flip))])
(mark (syntax-local-introduce (let () . ,#'code))))])))])) (mark (syntax-local-introduce (let () . ,#'code))))])))]))
|#

11
traversal.hl.rkt
View File

@ -151,10 +151,10 @@ not expressed syntactically using the @racket[Foo] identifier.
@CHUNK[<define-fold> @CHUNK[<define-fold>
(begin-for-syntax (begin-for-syntax
(define-unhygienic-template-metafunction (replace-in-type stx) (define-template-metafunction (replace-in-type stx)
(syntax-case stx () (syntax-case stx ()
[(_ _whole-type [_type-to-replaceᵢ _Tᵢ] …) [(_ _whole-type [_type-to-replaceᵢ _Tᵢ] …)
#`(#,(syntax-local-introduce #`(#,(syntax-local-template-metafunction-introduce
(fold-type #'(_whole-type _type-to-replaceᵢ …))) _Tᵢ …)])))] (fold-type #'(_whole-type _type-to-replaceᵢ …))) _Tᵢ …)])))]
@CHUNK[<define-fold> @CHUNK[<define-fold>
@ -191,10 +191,10 @@ not expressed syntactically using the @racket[Foo] identifier.
@CHUNK[<define-fold> @CHUNK[<define-fold>
(begin-for-syntax (begin-for-syntax
(define-unhygienic-template-metafunction (replace-in-instance stx) (define-template-metafunction (replace-in-instance stx)
(syntax-case stx () (syntax-case stx ()
[(_ _whole-type [_type-to-replaceᵢ _predicateᵢ _updateᵢ] …) [(_ _whole-type [_type-to-replaceᵢ _predicateᵢ _updateᵢ] …)
#`(#,(syntax-local-introduce #`(#,(syntax-local-template-metafunction-introduce
(fold-f #'(_whole-type _type-to-replaceᵢ …))) (fold-f #'(_whole-type _type-to-replaceᵢ …)))
{?@ _predicateᵢ _updateᵢ} …)])))] {?@ _predicateᵢ _updateᵢ} …)])))]
@ -378,7 +378,8 @@ where @racket[foldl-map] is defined as:
(subtract-in (combine-in racket/base (subtract-in (combine-in racket/base
syntax/parse) syntax/parse)
"subtemplate-override.rkt") "subtemplate-override.rkt")
syntax/parse/experimental/template ;syntax/parse/experimental/template
backport-template-pr1514/experimental/template
phc-toolkit/untyped phc-toolkit/untyped
racket/syntax racket/syntax
type-expander/expander type-expander/expander