From 5200b93a0cae2294696da1adf8abbde62e571d99 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 1 Apr 2011 14:56:02 -0400 Subject: [PATCH] Fix ~literal patterns in syntax-parse. --- collects/syntax/parse/private/rep.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/syntax/parse/private/rep.rkt b/collects/syntax/parse/private/rep.rkt index 1fa5a93096..a9d53256c5 100644 --- 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))] [_