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

Fix ~literal patterns in syntax-parse.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-04-01 14:56:02 -04:00
parent 9c3bee03e7
commit 5200b93a0c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/syntax/parse/private/rep.rkt
View File

@ -844,7 +844,7 @@ A syntax class is integrable if
(let* ([chunks (parse-keyword-options/eol #'more phase-directive-table (let* ([chunks (parse-keyword-options/eol #'more phase-directive-table
#:no-duplicates? #t #:no-duplicates? #t
#:context stx)] #:context stx)]
[phase (options-select-value chunks '#:phase #:default #f)]) [phase (options-select-value chunks '#:phase #:default 0)])
;; FIXME: Duplicates phase expr! ;; FIXME: Duplicates phase expr!
(create-pat:literal #'lit phase phase))] (create-pat:literal #'lit phase phase))]
[_ [_