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

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

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