From 7542f5a026abaf1c19e6c778e67793358c1adb5d Mon Sep 17 00:00:00 2001 From: slava Date: Sun, 23 Apr 2006 21:29:42 +0000 Subject: [PATCH] Fix examples and contrib --- contrib/random-tester/random-tester.factor | 2 +- contrib/splay-trees.factor | 4 ++-- examples/numbers-game.factor | 2 +- examples/turing.factor | 2 +- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/contrib/random-tester/random-tester.factor b/contrib/random-tester/random-tester.factor index 5c995d2b0e..20dca6fc48 100644 --- 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 fe9bfa33c7..7f8b7e20b8 100644 --- a/contrib/splay-trees.factor +++ b/contrib/splay-trees.factor @@ -111,5 +111,5 @@ DEFER: (splay) USING: namespaces words ; "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 ab99e51f5b..75e3b382db 100644 --- 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 945cab37de..72987a56fb 100644 --- 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 >vector tape set : sym ( -- sym ) #! Symbol at head position.