From bc30a94c725a60531ecd4d3f01de6366127cc84c Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Thu, 19 Jan 2012 13:24:01 -0700 Subject: [PATCH] [honu] allow list comprehensions to follow expressions --- collects/honu/core/private/parse2.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/honu/core/private/parse2.rkt b/collects/honu/core/private/parse2.rkt index 10ef63abe8..f403a5fb6b 100644 --- a/collects/honu/core/private/parse2.rkt +++ b/collects/honu/core/private/parse2.rkt @@ -396,7 +396,7 @@ filter ...) work.result))) (if current - (error 'parse "a list comprehension cannot follow an expression") + (values (left current) stream) (do-parse #'(rest ...) precedence left comprehension))] [else (define value (with-syntax ([(data ...) @@ -418,6 +418,8 @@ ;; expression or function application [(#%parens args ...) (if current + ;; FIXME: 9000 is an arbitrary precedence level for + ;; function calls (if (> precedence 9000) (let () (debug 2 "higher precedence call ~a\n" current)