From cfb1b973ffc254d0863b04f99eeff057526c3772 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 21 Jul 2015 17:00:13 -0700
Subject: [PATCH] variants: Add a ";" to VARIANT-MEMBER:

---
 extra/variants/variants-docs.factor  | 4 ++--
 extra/variants/variants-tests.factor | 4 ++--
 extra/variants/variants.factor       | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/extra/variants/variants-docs.factor b/extra/variants/variants-docs.factor
index e23b3ee894..bab2e07d8e 100644
--- a/extra/variants/variants-docs.factor
+++ b/extra/variants/variants-docs.factor
@@ -32,8 +32,8 @@ IN: scratchpad
 
 VARIANT: list ;
 
-VARIANT-MEMBER: list nil
-VARIANT-MEMBER: list cons: { { first object } { rest list } }
+VARIANT-MEMBER: list nil ;
+VARIANT-MEMBER: list cons: { { first object } { rest list } } ;
 """ } } ;
 
 HELP: match
diff --git a/extra/variants/variants-tests.factor b/extra/variants/variants-tests.factor
index 4a7a7e67e1..6de3de2605 100644
--- a/extra/variants/variants-tests.factor
+++ b/extra/variants/variants-tests.factor
@@ -23,8 +23,8 @@ VARIANT: list
 { nil t } [ list initial-value ] unit-test
 
 VARIANT: list2 ;
-VARIANT-MEMBER: list2 nil2
-VARIANT-MEMBER: list2 cons2: { { first object } { rest list2 } }
+VARIANT-MEMBER: list2 nil2 ;
+VARIANT-MEMBER: list2 cons2: { { first object } { rest list2 } } ;
 
 { t } [ nil2 list2? ] unit-test
 { t } [ 1 nil2 <cons2> list2? ] unit-test
diff --git a/extra/variants/variants.factor b/extra/variants/variants.factor
index 2b753bc4e6..998fc19c85 100644
--- a/extra/variants/variants.factor
+++ b/extra/variants/variants.factor
@@ -50,7 +50,7 @@ SYNTAX: VARIANT:
 SYNTAX: VARIANT-MEMBER:
     scan-word
     scan-token parse-variant-member
-    define-variant-class-member ;
+    define-variant-class-member ";" expect ;
 
 MACRO: unboa ( class -- quot )
     <wrapper> \ boa [ ] 2sequence [undo] ;
-- 
2.34.1