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

worddef>list renamed to word-parameter

cvs
Slava Pestov 2004-08-24 23:36:59 +00:00
parent c78b0a099a
commit f1e222b7cb
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/platform/jvm/prettyprint.factor
View File

@ -52,8 +52,8 @@ USE: words
0 swap 0 swap
intern dup worddef intern dup worddef
[ [
[ compound-or-compiled? ] [ worddef>list prettyprint-:; ] [ compound-or-compiled? ] [ word-parameter prettyprint-:; ]
[ shuffle? ] [ worddef>list prettyprint-~<<>>~ ] [ shuffle? ] [ word-parameter prettyprint-~<<>>~ ]
[ primitive? ] [ "PRIMITIVE: " write unparse write drop ] [ primitive? ] [ "PRIMITIVE: " write unparse write drop ]
[ drop t ] [ 2drop "Not defined" write ] [ drop t ] [ 2drop "Not defined" write ]
] cond prettyprint-newline ; ] cond prettyprint-newline ;

14
library/test/jvm-compiler/miscellaneous.factor
View File

@ -35,10 +35,10 @@ USE: words
[ f ] [ "#:a" "#:a" ] [ intern-test ] test-word [ f ] [ "#:a" "#:a" ] [ intern-test ] test-word
[ t ] [ "#:" "#:" ] [ intern-test ] test-word [ t ] [ "#:" "#:" ] [ intern-test ] test-word
: worddef>list-test ( -- ? ) : word-parameter-test ( -- ? )
[ dup * ] dup no-name worddef>list = ; [ dup * ] dup no-name word-parameter = ;
[ t ] [ ] [ worddef>list-test ] test-word [ t ] [ ] [ word-parameter-test ] test-word
: words-test ( -- ? ) : words-test ( -- ? )
t vocabs [ words [ word? and ] each ] each ; t vocabs [ words [ word? and ] each ] each ;
@ -50,21 +50,21 @@ USE: words
[ [ "A" "r:B" "--" "A" "r:B" ] ] [ [ "A" "r:B" "--" "A" "r:B" ] ]
[ "test-shuffle-1" ] [ "test-shuffle-1" ]
[ worddef>list ] [ word-parameter ]
test-word test-word
~<< test-shuffle-2 A B -- r:A r:B >>~ ~<< test-shuffle-2 A B -- r:A r:B >>~
[ [ "A" "B" "--" "r:A" "r:B" ] ] [ [ "A" "B" "--" "r:A" "r:B" ] ]
[ "test-shuffle-2" ] [ "test-shuffle-2" ]
[ worddef>list ] [ word-parameter ]
test-word test-word
~<< test-shuffle-3 A r:B r:C r:D r:E -- A C D E >>~ ~<< test-shuffle-3 A r:B r:C r:D r:E -- A C D E >>~
[ [ "A" "r:B" "r:C" "r:D" "r:E" "--" "A" "C" "D" "E" ] ] [ [ "A" "r:B" "r:C" "r:D" "r:E" "--" "A" "C" "D" "E" ] ]
[ "test-shuffle-3" ] [ "test-shuffle-3" ]
[ worddef>list ] [ word-parameter ]
test-word test-word
[ [ 2 1 0 0 ] ] [ [ = ] ] [ balance>list ] test-word [ [ 2 1 0 0 ] ] [ [ = ] ] [ balance>list ] test-word
@ -80,7 +80,7 @@ test-word
: doc-test ( -- ) ; : doc-test ( -- ) ;
[ t ] [ "doc-test" ] [ intern worddef>list car comment? ] test-word [ t ] [ "doc-test" ] [ intern word-parameter car comment? ] test-word
[ [ 2 1 0 0 ] ] [ [ is ] ] [ balance>list ] test-word [ [ 2 1 0 0 ] ] [ [ is ] ] [ balance>list ] test-word
[ t ] [ "java.lang.Integer" ] [ 0 100 random-int swap is ] test-word [ t ] [ "java.lang.Integer" ] [ 0 100 random-int swap is ] test-word

2
library/test/lists/java.factor
View File

@ -16,7 +16,7 @@ USE: test
[ [ 1 1 0 0 ] ] [ [ cdr ] ] [ balance>list ] test-word [ [ 1 1 0 0 ] ] [ [ cdr ] ] [ balance>list ] test-word
[ [ 1 1 0 0 ] ] [ [ clone-list ] ] [ balance>list ] test-word [ [ 1 1 0 0 ] ] [ [ clone-list ] ] [ balance>list ] test-word
[ [ 2 1 0 0 ] ] [ [ cons ] ] [ balance>list ] test-word [ [ 2 1 0 0 ] ] [ [ cons ] ] [ balance>list ] test-word
[ [ 2 1 0 0 ] ] [ [ contains ] ] [ balance>list ] test-word [ [ 2 1 0 0 ] ] [ [ contains? ] ] [ balance>list ] test-word
[ [ 2 0 0 0 ] ] [ [ cons@ ] ] [ balance>list ] test-word [ [ 2 0 0 0 ] ] [ [ cons@ ] ] [ balance>list ] test-word
[ [ 1 1 0 0 ] ] [ [ count ] ] [ balance>list ] do-not-test-word [ [ 1 1 0 0 ] ] [ [ count ] ] [ balance>list ] do-not-test-word
[ [ 2 1 0 0 ] ] [ [ nth ] ] [ balance>list ] test-word [ [ 2 1 0 0 ] ] [ [ nth ] ] [ balance>list ] test-word