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

This reverts commit e93d8f82bcaee839d261235b85d42e2487feb2f4.

diff --git a/core/bootstrap/syntax.factor b/core/bootstrap/syntax.factor
index b5e2fcf8d460d9ea50e0ecfaea7e9e6331b8d3d1..7861e36c84dba3adebdb625d305ffbd10ba1a6d0 100644 (file)
--- a/core/bootstrap/syntax.factor
+++ b/core/bootstrap/syntax.factor
@@ -48,7 +48,6 @@ IN: bootstrap.syntax
         "final"
         "SLOT:"
         "T{"
-        "TH{"
         "UNION:"
         "INTERSECTION:"
         "USE:"

diff --git a/core/classes/tuple/parser/parser.factor b/core/classes/tuple/parser/parser.factor
index 12667ffb5de83ce4b3daeac35116f26f250e300c..1521919190919de41c52806d5d8f15e9139ec96c 100644 (file)
--- a/core/classes/tuple/parser/parser.factor
+++ b/core/classes/tuple/parser/parser.factor
@@ -115,15 +115,5 @@ M: tuple-class boa>object
         [ bad-literal-tuple ]
     } 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 )
     scan-word dup all-slots parse-tuple-literal-slots ;
-
-: parse-tuple-hash-literal ( -- tuple )
-    scan-word dup all-slots parse-tuple-hash-literal-slots ;

diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index d6ce678e4d1231257c8c0d7f26644029d378da4c..a3fdaf371379fd4103488cb34255a4c3728170fa 100644 (file)
--- a/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@ -105,7 +105,6 @@ IN: bootstrap.syntax
     "BV{" [ \ } [ >byte-vector ] parse-literal ] define-core-syntax
     "H{" [ \ } [ parse-hashtable ] parse-literal ] 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
     "HS{" [ \ } [ >hash-set ] parse-literal ] define-core-syntax