worddef>list renamed to word-parameter
parent
c78b0a099a
commit
f1e222b7cb
|
|
@ -52,8 +52,8 @@ USE: words
|
|||
0 swap
|
||||
intern dup worddef
|
||||
[
|
||||
[ compound-or-compiled? ] [ worddef>list prettyprint-:; ]
|
||||
[ shuffle? ] [ worddef>list prettyprint-~<<>>~ ]
|
||||
[ compound-or-compiled? ] [ word-parameter prettyprint-:; ]
|
||||
[ shuffle? ] [ word-parameter prettyprint-~<<>>~ ]
|
||||
[ primitive? ] [ "PRIMITIVE: " write unparse write drop ]
|
||||
[ drop t ] [ 2drop "Not defined" write ]
|
||||
] cond prettyprint-newline ;
|
||||
|
|
|
|||
|
|
@ -35,10 +35,10 @@ USE: words
|
|||
[ f ] [ "#:a" "#:a" ] [ intern-test ] test-word
|
||||
[ t ] [ "#:" "#:" ] [ intern-test ] test-word
|
||||
|
||||
: worddef>list-test ( -- ? )
|
||||
[ dup * ] dup no-name worddef>list = ;
|
||||
: word-parameter-test ( -- ? )
|
||||
[ dup * ] dup no-name word-parameter = ;
|
||||
|
||||
[ t ] [ ] [ worddef>list-test ] test-word
|
||||
[ t ] [ ] [ word-parameter-test ] test-word
|
||||
|
||||
: words-test ( -- ? )
|
||||
t vocabs [ words [ word? and ] each ] each ;
|
||||
|
|
@ -50,21 +50,21 @@ USE: words
|
|||
|
||||
[ [ "A" "r:B" "--" "A" "r:B" ] ]
|
||||
[ "test-shuffle-1" ]
|
||||
[ worddef>list ]
|
||||
[ word-parameter ]
|
||||
test-word
|
||||
|
||||
~<< test-shuffle-2 A B -- r:A r:B >>~
|
||||
|
||||
[ [ "A" "B" "--" "r:A" "r:B" ] ]
|
||||
[ "test-shuffle-2" ]
|
||||
[ worddef>list ]
|
||||
[ word-parameter ]
|
||||
test-word
|
||||
|
||||
~<< 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" ] ]
|
||||
[ "test-shuffle-3" ]
|
||||
[ worddef>list ]
|
||||
[ word-parameter ]
|
||||
test-word
|
||||
|
||||
[ [ 2 1 0 0 ] ] [ [ = ] ] [ balance>list ] test-word
|
||||
|
|
@ -80,7 +80,7 @@ test-word
|
|||
|
||||
: 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
|
||||
[ t ] [ "java.lang.Integer" ] [ 0 100 random-int swap is ] test-word
|
||||
|
|
|
|||
|
|
@ -16,7 +16,7 @@ USE: test
|
|||
[ [ 1 1 0 0 ] ] [ [ cdr ] ] [ 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 ] ] [ [ contains ] ] [ balance>list ] test-word
|
||||
[ [ 2 1 0 0 ] ] [ [ contains? ] ] [ balance>list ] test-word
|
||||
[ [ 2 0 0 0 ] ] [ [ cons@ ] ] [ balance>list ] test-word
|
||||
[ [ 1 1 0 0 ] ] [ [ count ] ] [ balance>list ] do-not-test-word
|
||||
[ [ 2 1 0 0 ] ] [ [ nth ] ] [ balance>list ] test-word
|
||||
|
|
|
|||
Loading…
Reference in New Issue