variants: Add a ";" to VARIANT-MEMBER:

diff --git a/extra/variants/variants-docs.factor b/extra/variants/variants-docs.factor
index e23b3ee8941256a2b8a2417df94c31605533e71c..bab2e07d8ef81b1661b8f15973207c8f4dd5a51e 100644 (file)
--- 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 4a7a7e67e1958b71b968ff17c7aac38cd9221565..6de3de26058c527fcca04564998c7c07a4a78677 100644 (file)
--- 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 2b753bc4e60759e08670f65e6c20704967e7c1e0..998fc19c850e83188c00989856750b4310fc8b92 100644 (file)
--- 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] ;