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

Revert "core: Add TH{ for making assoc tuples." 

This reverts commit e93d8f82bc.
master
John Benediktsson 2020-09-28 16:29:43 -07:00
parent 36b2ac97ef
commit 8fd437d877
3 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/bootstrap/syntax.factor
View File

@ -48,7 +48,6 @@ IN: bootstrap.syntax
"final" "final"
"SLOT:" "SLOT:"
"T{" "T{"
"TH{"
"UNION:" "UNION:"
"INTERSECTION:" "INTERSECTION:"
"USE:" "USE:"

10
core/classes/tuple/parser/parser.factor
View File

@ -115,15 +115,5 @@ M: tuple-class boa>object
[ bad-literal-tuple ] [ bad-literal-tuple ]
} case ; } case ;
: parse-tuple-hash-literal-slots ( class slots -- tuple )
scan-token {
{ "{" [ 2dup parse-slot-values assoc>object ] }
{ "}" [ drop new ] }
[ bad-literal-tuple ]
} case ;
: parse-tuple-literal ( -- tuple ) : parse-tuple-literal ( -- tuple )
scan-word dup all-slots parse-tuple-literal-slots ; scan-word dup all-slots parse-tuple-literal-slots ;
: parse-tuple-hash-literal ( -- tuple )
scan-word dup all-slots parse-tuple-hash-literal-slots ;

1
core/syntax/syntax.factor
View File

@ -105,7 +105,6 @@ IN: bootstrap.syntax
"BV{" [ \ } [ >byte-vector ] parse-literal ] define-core-syntax "BV{" [ \ } [ >byte-vector ] parse-literal ] define-core-syntax
"H{" [ \ } [ parse-hashtable ] parse-literal ] define-core-syntax "H{" [ \ } [ parse-hashtable ] parse-literal ] define-core-syntax
"T{" [ parse-tuple-literal suffix! ] define-core-syntax "T{" [ parse-tuple-literal suffix! ] define-core-syntax
"TH{" [ parse-tuple-hash-literal suffix! ] define-core-syntax
"W{" [ \ } [ first <wrapper> ] parse-literal ] define-core-syntax "W{" [ \ } [ first <wrapper> ] parse-literal ] define-core-syntax
"HS{" [ \ } [ >hash-set ] parse-literal ] define-core-syntax "HS{" [ \ } [ >hash-set ] parse-literal ] define-core-syntax