Fix examples and contrib

diff --git a/contrib/random-tester/random-tester.factor b/contrib/random-tester/random-tester.factor
index 5c995d2b0ec1731f87967673d5ce27344f02a49c..20dca6fc48e3861dcaa0fe9f0d2d48a24b3b584a 100644 (file)
--- a/contrib/random-tester/random-tester.factor
+++ b/contrib/random-tester/random-tester.factor
@@ -241,7 +241,7 @@ SYMBOL: first-arg
     dup .
     [ last-quot set ] keep
     [ call ] keep
-    [ last car update-xt ] keep call
+    [ peek update-xt ] keep call
     2dup swap unparse write " " write unparse print
     = [ "update-xt problem" throw ] unless ;
 

diff --git a/contrib/splay-trees.factor b/contrib/splay-trees.factor
index fe9bfa33c7cae78e2e7f4b2999aa7875f4216fcb..7f8b7e20b83fb86049a67eabd6a214d71b4df572 100644 (file)
--- a/contrib/splay-trees.factor
+++ b/contrib/splay-trees.factor
@@ -111,5 +111,5 @@ DEFER: (splay)
 USING: namespaces words ;
 
 <splay-tree> "foo" set
-[ dup word-name "foo" get set-splay ] each-word
-[ dup word-name "foo" get get-splay drop ] each-word
+all-words [ dup word-name "foo" get set-splay ] each
+all-words [ dup word-name "foo" get get-splay drop ] each

diff --git a/examples/numbers-game.factor b/examples/numbers-game.factor
index ab99e51f5bd0c54e0247e88fc9a45ce8334b4bef..75e3b382db9d52e3cde4e539bbe029b66c8eb4f3 100644 (file)
--- a/examples/numbers-game.factor
+++ b/examples/numbers-game.factor
@@ -1,5 +1,5 @@
 IN: numbers-game
-USING: kernel math parser random io ;
+USING: kernel math parser io ;
 
 : read-number ( -- n ) readln string>number ;
 

diff --git a/examples/turing.factor b/examples/turing.factor
index 945cab37de3a047718b25736da509ba7158446b7..72987a56fb02187e797ae84f8d4fd34f5e291822 100644 (file)
--- a/examples/turing.factor
+++ b/examples/turing.factor
@@ -38,7 +38,7 @@ SYMBOL: position
 SYMBOL: tape
 
 ! Initial tape
-20 zero-array >vector tape set
+20 0 <array> >vector tape set
 
 : sym ( -- sym )
     #! Symbol at head position.