steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix examples and contrib

slava 2006-04-23 21:29:42 +00:00
parent 3839e481c5
commit 7542f5a026
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/random-tester/random-tester.factor
View File

@ -241,7 +241,7 @@ SYMBOL: first-arg
dup . dup .
[ last-quot set ] keep [ last-quot set ] keep
[ call ] keep [ call ] keep
[ last car update-xt ] keep call [ peek update-xt ] keep call
2dup swap unparse write " " write unparse print 2dup swap unparse write " " write unparse print
= [ "update-xt problem" throw ] unless ; = [ "update-xt problem" throw ] unless ;

4
contrib/splay-trees.factor
View File

@ -111,5 +111,5 @@ DEFER: (splay)
USING: namespaces words ; USING: namespaces words ;
<splay-tree> "foo" set <splay-tree> "foo" set
[ dup word-name "foo" get set-splay ] each-word all-words [ dup word-name "foo" get set-splay ] each
[ dup word-name "foo" get get-splay drop ] each-word all-words [ dup word-name "foo" get get-splay drop ] each

2
examples/numbers-game.factor
View File

@ -1,5 +1,5 @@
IN: numbers-game IN: numbers-game
USING: kernel math parser random io ; USING: kernel math parser io ;
: read-number ( -- n ) readln string>number ; : read-number ( -- n ) readln string>number ;

2
examples/turing.factor
View File

@ -38,7 +38,7 @@ SYMBOL: position
SYMBOL: tape SYMBOL: tape
! Initial tape ! Initial tape
20 zero-array >vector tape set 20 0 <array> >vector tape set
: sym ( -- sym ) : sym ( -- sym )
#! Symbol at head position. #! Symbol at head position.