core: trim using lists with lint.vocabs tool

[factor.git] / core / classes / tuple / parser / parser.factor

diff --git a/core/classes/tuple/parser/parser.factor b/core/classes/tuple/parser/parser.factor
index 1ca47ee2ef5d6d371c6aac6d56f484ef93c17856..eedfe0cc0a725ecdcf4ed3feb457357028c0c85e 100644 (file)
--- a/core/classes/tuple/parser/parser.factor
+++ b/core/classes/tuple/parser/parser.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2008, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs classes.parser classes.tuple
-combinators kernel lexer make parser parser.notes sequences
-sets slots ;
+combinators kernel lexer make parser parser.notes sequences sets
+slots ;
 IN: classes.tuple.parser
 
 : slot-names ( slots -- seq )
@@ -97,7 +97,7 @@ M: tuple-class boa>object
     swap slots>tuple ;
 
 : check-slot-exists ( class initials slot-spec/f index/f name -- class initials slot-spec index )
-    over [ drop ] [ nip nip nip bad-slot-name ] if ;
+    over [ drop ] [ 3nip bad-slot-name ] if ;
 
 : slot-named-checked ( class initials name slots -- class initials slot-spec )
     over [ slot-named* ] dip check-slot-exists drop ;
@@ -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 ;