lists.factor: rest: --> .
parent
384f976deb
commit
0f6ec42e3e
|
@ -113,7 +113,7 @@ M: sequence >list sequence>list ;
|
|||
:: (parse-list-literal) ( accum right-of-dot? -- accum )
|
||||
accum scan-token {
|
||||
{ "}" [ +nil+ , ] }
|
||||
{ "rest:" [ t (parse-list-literal) ] }
|
||||
{ "." [ t (parse-list-literal) ] }
|
||||
[
|
||||
parse-datum dup parsing-word? [
|
||||
V{ } clone swap execute-parsing first
|
||||
|
|
Loading…
Reference in New Issue