lists: make multiple dots a syntax error.

diff --git a/basis/lists/lists.factor b/basis/lists/lists.factor
index c47b0b3d26c4d5d178d2dc0dd8b3e6352a555f2a..f0352e8b8d48cdcfd0505041d5a59e91367c140b 100644 (file)
--- a/basis/lists/lists.factor
+++ b/basis/lists/lists.factor
@@ -105,6 +105,8 @@ M: list >list ;
 
 M: sequence >list sequence>list ;
 
+ERROR: list-syntax-error ;
+
 <PRIVATE
 
 : items>list ( sequence -- list )
@@ -115,7 +117,7 @@ M: sequence >list sequence>list ;
 : (parse-list-literal) ( right-of-dot? -- )
     scan-token {
         { "}" [ drop +nil+ , ] }
-        { "." [ drop t (parse-list-literal) ] }
+        { "." [ [ list-syntax-error ] when t (parse-list-literal) ] }
         [
             parse-datum dup parsing-word? [
                 V{ } clone swap execute-parsing first