From 6b519f7b646ca27a9a196995e80c64b230f8e1cd Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Sun, 23 Oct 2011 14:04:58 -0600 Subject: [PATCH] [honu] remove extra semicolon from cond --- collects/honu/private/common.rkt | 2 +- collects/tests/honu/check.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/honu/private/common.rkt b/collects/honu/private/common.rkt index 4227e31301..5940d9393f 100644 --- 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] ...) diff --git a/collects/tests/honu/check.rkt b/collects/tests/honu/check.rkt index ed95b617b7..6342522347 100644 --- 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