rename [.] to sequence.

diff --git a/library/compiler/compiler.factor b/library/compiler/compiler.factor
index c77899bcba8f419b10c41973b4c7d08e96c7557c..c0e2640944830bbfc74be33da7945e8b0623b1a9 100644 (file)
--- a/library/compiler/compiler.factor
+++ b/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 ( -- )

diff --git a/library/inference/inference.factor b/library/inference/inference.factor
index 489ae2d941a1aac5747251feb771cfb503a6abac..a138a5b3e0c96e9e227d80220a2a03b4da9776a9 100644 (file)
--- a/library/inference/inference.factor
+++ b/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 -- )
     {

diff --git a/library/syntax/prettyprint.factor b/library/syntax/prettyprint.factor
index db123a815b2db516b5cfb58d0c8fb4e04485a5db..4dd4b4143346c843cff208ca76e2ea420f4eab0b 100644 (file)
--- a/library/syntax/prettyprint.factor
+++ b/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. ;

diff --git a/library/tools/debugger.factor b/library/tools/debugger.factor
index de0cc9432cc7b07aaa0569a2712e26ed46069303..57a0bc547c32e05a6f6cf590bb40394a14896a59 100644 (file)
--- a/library/tools/debugger.factor
+++ b/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) ;
 

diff --git a/library/tools/word-tools.factor b/library/tools/word-tools.factor
index 597300d3ad6a6e33c1f9630804ea7db9c95e560b..af10d0d6bdebd7efc7ee22eb8eab35db0c237b80 100644 (file)
--- a/library/tools/word-tools.factor
+++ b/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 ;