parse assignment

2010-07-13 14:10:12 -06:00 · 2010-07-13 14:10:12 -06:00 · 9a984fcc2b
commit 9a984fcc2b
parent a998a57000
1 changed files with 16 additions and 10 deletions
--- a/collects/honu/private/parse.rkt
+++ b/collects/honu/private/parse.rkt
@ -350,6 +350,12 @@

 (define-syntax-class (expression-top context)
                     #: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")))
                               (~var e (ternary context))
                               (~var x1 (debug-here (format "expression top 1 ~a\n" (syntax->datum #'e))))