     {
         { [ over zero? ] [ 2drop 10 ] }
         { [ 2dup length 1 - number= ] [ 2drop 4 ] }
-        { [ 2dup [ 1 - ] dip nth Letter? not ] [ 2drop 10 ] }
-        { [ 2dup [ 1 + ] dip nth Letter? not ] [ 2drop 4 ] }
+        { [ 2dup [ 1 - ] dip nth-unsafe Letter? not ] [ 2drop 10 ] }
+        { [ 2dup [ 1 + ] dip nth-unsafe Letter? not ] [ 2drop 4 ] }
         [ 2drop 1 ]
-    } cond ;
+    } cond ; inline
 
 PRIVATE>
 

            [ drop ] [ nip V{ } clone pick push ] if
            1 +
        ] keep pick last push
    ] each ;

PRIVATE>


! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs colors.constants combinators
combinators.short-circuit fry io.directories io.files
io.files.info io.pathnames kernel locals make math math.order
sequences sequences.private sorting splitting typed
unicode.categories unicode.data vectors vocabs vocabs.hierarchy
;

IN: tools.completion

