rename [.] to sequence.

library/compiler/compiler.factor

@@ -25,7 +25,7 @@ M: compound (compile) ( word -- )
 : precompile ( word -- )
     #! Print linear IR of word.
     [
-        word-def dataflow optimize linearize simplify [.]
+        word-def dataflow optimize linearize simplify sequence.
     ] with-scope ;
 
 : compile-postponed ( -- )

library/inference/inference.factor

@@ -17,7 +17,7 @@ M: inference-error error. ( error -- )
     "! Inference error:" print
     dup inference-error-message print
     "! Recursive state:" print
-    inference-error-rstate [.] ;
+    inference-error-rstate sequence. ;
 
 M: value literal-value ( value -- )
     {

library/syntax/prettyprint.factor

@@ -321,9 +321,9 @@ M: wrapper pprint* ( wrapper -- )
 : short. ( object -- )
     dup unparse-short swap write-object terpri ;
 
-: [.] ( sequence -- ) [ short. ] each ;
+: sequence. ( sequence -- ) [ short. ] each ;
 
-: stack. reverse-slice [.] ;
+: stack. reverse-slice sequence. ;
 
 : .s datastack stack. ;
 : .r callstack stack. ;

library/tools/debugger.factor

@@ -95,8 +95,8 @@ M: string error. ( error -- ) print ;
 
 M: object error. ( error -- ) . ;
 
-: :s ( -- ) "error-datastack"  get reverse [.] ;
-: :r ( -- ) "error-callstack"  get reverse [.] ;
+: :s ( -- ) "error-datastack"  get stack. ;
+: :r ( -- ) "error-callstack"  get stack. ;
 
 : :get ( var -- value ) "error-namestack" get (get) ;
 

library/tools/word-tools.factor

@@ -12,7 +12,7 @@ prettyprint io strings sequences math hashtables parser ;
 : vocab-apropos. ( substring vocab -- )
     #! List all words in a vocabulary that contain a string.
     tuck vocab-apropos dup [
-        "IN: " write swap print [.]
+        "IN: " write swap print sequence.
     ] [
         2drop
     ] ifte ;