Fix ~literal patterns in syntax-parse.

2011-04-01 14:56:02 -04:00 · 2011-04-01 14:56:02 -04:00 · 5200b93a0c
commit 5200b93a0c
parent 9c3bee03e7
1 changed files with 1 additions and 1 deletions
--- a/collects/syntax/parse/private/rep.rkt
+++ b/collects/syntax/parse/private/rep.rkt
@ -844,7 +844,7 @@ A syntax class is integrable if
     (let* ([chunks (parse-keyword-options/eol #'more phase-directive-table
                                               #:no-duplicates? #t
                                               #:context stx)]
-            [phase (options-select-value chunks '#:phase #:default #f)])
+            [phase (options-select-value chunks '#:phase #:default 0)])
       ;; FIXME: Duplicates phase expr!
       (create-pat:literal #'lit phase phase))]
    [_