use "of" in place of "swap at".

diff --git a/extra/gml/types/types.factor b/extra/gml/types/types.factor
index c42a5fe2182b1584a345f72018442b8b6c3cf75d..a4de9d3aef4279d3b6bcb48b9fe2bf320abc97ca 100644 (file)
--- a/extra/gml/types/types.factor
+++ b/extra/gml/types/types.factor
@@ -26,7 +26,7 @@ INSTANCE: proc sequence
 GENERIC# (gml-get) 1 ( collection key -- elt )
 
 M: sequence (gml-get) swap wrap nth ;
-M: hashtable (gml-get) swap at ;
+M: hashtable (gml-get) of ;
 
 GENERIC# (gml-put) 2 ( collection key elt -- )
 

diff --git a/extra/yaml/yaml.factor b/extra/yaml/yaml.factor
index 8cb22aec7a00f21f796ac1751ffaa8e8b873da7f..15491667b8a535fdeda38922dda31546da118583 100644 (file)
--- a/extra/yaml/yaml.factor
+++ b/extra/yaml/yaml.factor
@@ -199,7 +199,7 @@ M: byte-array (deref-aliases) nip ;
 
 M: string (deref-aliases) nip ;
 
-M: yaml-alias (deref-aliases) anchor>> swap at ;
+M: yaml-alias (deref-aliases) anchor>> of ;
 
 M: sequence (deref-aliases)
     [ (deref-aliases) ] with map! ;

diff --git a/unmaintained/peg-lexer/peg-lexer.factor b/unmaintained/peg-lexer/peg-lexer.factor
index 9400a455b4d4c2e19b5c6e367ce0c347b1e95c6a..b53280d860e3135a3192679fae455cc3c60079aa 100644 (file)
--- a/unmaintained/peg-lexer/peg-lexer.factor
+++ b/unmaintained/peg-lexer/peg-lexer.factor
@@ -16,7 +16,7 @@ CONSULT: assoc-protocol lex-hash hash>> ;
     ] ;
       
 : store-pos ( v a -- )
-    input swap at prepare-pos
+    input of prepare-pos
     lexer get [ (>>line) ] keep (>>column) ;
 
 M: lex-hash set-at
@@ -53,7 +53,7 @@ M: lex-hash at*
     
 SYNTAX: ON-BNF:
     scan-new-word reset-tokenizer ";ON-BNF" parse-multiline-string parse-ebnf
-    main swap at create-bnf ;
+    main of create-bnf ;
 
 ! Tokenizer like standard factor lexer
 EBNF: factor