steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lists: make multiple dots a syntax error.

flac
John Benediktsson 2020-02-23 07:29:02 -08:00 committed by Steve Ayerhart
parent 451fb09795
commit 3758b6319c
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/lists/lists.factor
View File

@ -105,6 +105,8 @@ M: list >list ;
M: sequence >list sequence>list ; M: sequence >list sequence>list ;
ERROR: list-syntax-error ;
<PRIVATE <PRIVATE
: items>list ( sequence -- list ) : items>list ( sequence -- list )
@ -115,7 +117,7 @@ M: sequence >list sequence>list ;
: (parse-list-literal) ( right-of-dot? -- ) : (parse-list-literal) ( right-of-dot? -- )
scan-token { scan-token {
{ "}" [ drop +nil+ , ] } { "}" [ drop +nil+ , ] }
{ "." [ drop t (parse-list-literal) ] } { "." [ [ list-syntax-error ] when t (parse-list-literal) ] }
[ [
parse-datum dup parsing-word? [ parse-datum dup parsing-word? [
V{ } clone swap execute-parsing first V{ } clone swap execute-parsing first