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

parse assignment

Browse Source
This commit is contained in:
Jon Rafkind 2010-07-13 14:10:12 -06:00
parent a998a57000
commit 9a984fcc2b
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/honu/private/parse.rkt
View File

@ -350,6 +350,12 @@
(define-syntax-class (expression-top context) (define-syntax-class (expression-top context)
#:literals (semicolon) #:literals (semicolon)
[pattern ((~var left honu-identifier)
honu-=
(~var right (ternary context))
semicolon
. rest)
#:with result #'1]
[pattern ((~var x0 (debug-here (format "expression top\n"))) [pattern ((~var x0 (debug-here (format "expression top\n")))
(~var e (ternary context)) (~var e (ternary context))
(~var x1 (debug-here (format "expression top 1 ~a\n" (syntax->datum #'e)))) (~var x1 (debug-here (format "expression top 1 ~a\n" (syntax->datum #'e))))