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

[honu] use honu-body directly in the parser

Browse Source
This commit is contained in:
Jon Rafkind 2011-11-21 14:41:00 -07:00
parent 4b4a369d84
commit 42caad96de
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/honu/core/private/parse2.rkt
View File

@ -184,7 +184,7 @@
(define-syntax-class honu-body
#:literal-sets (cruft)
[pattern (#%braces code ...)
#:with result #'(begin
#:with result #'(let ()
(define-syntax (parse-more stx)
(do-parse stx #'parse-more))
(parse-more code ...))])
@ -414,13 +414,10 @@
(do-parse #'(rest ...) precedence left lookup)
(do-parse #'(rest ...) precedence left value))])]
;; block of code
[(#%braces stuff ...)
[body:honu-body
(if current
(values (left current) stream)
(let ()
(define body (parse-all #'(stuff ...)))
(with-syntax ([body body])
(do-parse #'(rest ...) precedence left #'(let () body)))))]
(do-parse #'(rest ...) precedence left #'body.result))]
;; expression or function application
[(#%parens args ...)
(if current