lists.factor: rest: --> .
parent
384f976deb
commit
0f6ec42e3e
|
@ -113,7 +113,7 @@ M: sequence >list sequence>list ;
|
||||||
:: (parse-list-literal) ( accum right-of-dot? -- accum )
|
:: (parse-list-literal) ( accum right-of-dot? -- accum )
|
||||||
accum scan-token {
|
accum scan-token {
|
||||||
{ "}" [ +nil+ , ] }
|
{ "}" [ +nil+ , ] }
|
||||||
{ "rest:" [ t (parse-list-literal) ] }
|
{ "." [ 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
|
||||||
|
|
Loading…
Reference in New Issue