[honu] remove extra semicolon from cond

2011-10-23 14:04:58 -06:00 · 2011-10-23 14:04:58 -06:00 · 6b519f7b64
commit 6b519f7b64
parent dccdcb0550
2 changed files with 2 additions and 2 deletions
--- a/collects/honu/private/common.rkt
+++ b/collects/honu/private/common.rkt
@ -14,7 +14,7 @@
  (lambda (code context)
    (syntax-parse code #:literal-sets (cruft)
      [(_ (~seq clause:honu-expression colon body:honu-expression (~optional honu-comma)) ...
-          semicolon . rest)
+          . rest)
       (values
         #'(cond
             [clause.result body.result] ...)
--- a/collects/tests/honu/check.rkt
+++ b/collects/tests/honu/check.rkt
@ -80,7 +80,7 @@
  var n = 5;
  cond
    n < 10: 'x1,
-    n > 10: 'x2;
+    n > 10: 'x2
  }

  @output{'x1