suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

syntax/parse: fix internal debugging code (delete iattrs field)

Browse Source
This commit is contained in:
Ryan Culpepper 2016-07-31 22:27:25 -04:00
parent f968b87385
commit 2e96b60120
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
racket/collects/syntax/parse/private/opt.rkt
View File

@ -405,26 +405,26 @@
(list 'AND (matrix->sexpr inner))])) (list 'AND (matrix->sexpr inner))]))
(define (pattern->sexpr p) (define (pattern->sexpr p)
(match p (match p
[(pat:any _as) '_] [(pat:any) '_]
[(pat:integrated _as name pred desc _) [(pat:integrated name pred desc _)
(format-symbol "~a:~a" (or name '_) desc)] (format-symbol "~a:~a" (or name '_) desc)]
[(pat:svar _as name) [(pat:svar name)
(syntax-e name)] (syntax-e name)]
[(pat:var/p _as name parser _ _ _ _ _) [(pat:var/p name parser _ _ _ _ _)
(cond [(and parser (regexp-match #rx"^parse-(.*)$" (symbol->string (syntax-e parser)))) (cond [(and parser (regexp-match #rx"^parse-(.*)$" (symbol->string (syntax-e parser))))
=> (lambda (m) => (lambda (m)
(format-symbol "~a:~a" (or name '_) (cadr m)))] (format-symbol "~a:~a" (or name '_) (cadr m)))]
[else [else
(if name (syntax-e name) '_)])] (if name (syntax-e name) '_)])]
[(? pat:literal?) `(quote ,(syntax->datum (pat:literal-id p)))] [(? pat:literal?) `(quote ,(syntax->datum (pat:literal-id p)))]
[(pat:datum _as datum) datum] [(pat:datum datum) datum]
[(? pat:action?) 'ACTION] [(? pat:action?) 'ACTION]
[(pat:pair _as head tail) [(pat:pair head tail)
(cons (pattern->sexpr head) (pattern->sexpr tail))] (cons (pattern->sexpr head) (pattern->sexpr tail))]
[(pat:head _as head tail) [(pat:head head tail)
(cons (pattern->sexpr head) (pattern->sexpr tail))] (cons (pattern->sexpr head) (pattern->sexpr tail))]
[(pat:dots _as (list eh) tail) [(pat:dots (list eh) tail)
(list* (pattern->sexpr eh) '... (pattern->sexpr tail))] (list* (pattern->sexpr eh) '... (pattern->sexpr tail))]
[(ehpat _as hpat '#f) [(ehpat _as hpat '#f _cn)
(pattern->sexpr hpat)] (pattern->sexpr hpat)]
[_ 'PATTERN])) [_ 'PATTERN]))