suzanne.soy/extensible-parser-specifications
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

Do not forward "private" pattern variables (in our case, clause names are the only ones)

Browse Source
This commit is contained in:
Georges Dupéron 2016-09-05 02:18:25 +02:00
parent 99ca3ede0d
commit faade53994
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
private/parameters.rkt
View File

@ -7,7 +7,8 @@
eh-post-group eh-post-group
eh-post-group! eh-post-group!
clause-counter clause-counter
get-new-clause!)) get-new-clause!
is-clause-id-sym?))
(define-syntax-rule (define-dynamic-accumulator-parameter parameter-name name!) (define-syntax-rule (define-dynamic-accumulator-parameter parameter-name name!)
(begin (begin
@ -22,6 +23,13 @@
(define-dynamic-accumulator-parameter eh-post-accumulate eh-post-accumulate!) (define-dynamic-accumulator-parameter eh-post-accumulate eh-post-accumulate!)
(define-dynamic-accumulator-parameter eh-post-group eh-post-group!) (define-dynamic-accumulator-parameter eh-post-group eh-post-group!)
;; This is a crude hack.
(define-for-syntax (is-clause-id-sym? id-sym)
(and (symbol? id-sym)
(regexp-match #px"^ -clause-.* $" (symbol->string id-sym))))
(define-for-syntax clause-counter (make-parameter #f)) (define-for-syntax clause-counter (make-parameter #f))
(define-for-syntax (get-new-clause!) (define-for-syntax (get-new-clause!)
(string->symbol (format "clause~a" ((clause-counter))))) (datum->syntax #'here
;; keep the spaces, they allow us to recognize clauses later.
(string->symbol (format " -clause-~a " ((clause-counter))))))