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

Remove shuffle word, rename shuffle* to shuffle

db4
Slava Pestov 2008-09-05 19:54:05 -05:00
parent bcc8483b5b
commit b6c2a85931
3 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/generator/registers/registers.factor
View File

@ -647,7 +647,7 @@ UNION: immediate fixnum POSTPONE: f ;
: phantom-shuffle ( shuffle -- )
[ in>> length phantom-datastack get phantom-input ] keep
shuffle* phantom-datastack get phantom-append ;
shuffle phantom-datastack get phantom-append ;
: phantom->r ( n -- )
phantom-datastack get phantom-input

2
basis/stack-checker/known-words/known-words.factor
View File

@ -47,7 +47,7 @@ IN: stack-checker.known-words
: infer-shuffle ( shuffle -- )
[ in>> length consume-d ] keep ! inputs shuffle
[ drop ] [ shuffle* dup copy-values dup output-d ] 2bi ! inputs outputs copies
[ drop ] [ shuffle dup copy-values dup output-d ] 2bi ! inputs outputs copies
[ nip ] [ swap zip ] 2bi ! inputs copies mapping
#shuffle, ;

3
core/effects/effects.factor
View File

@ -67,6 +67,3 @@ M: effect clone
: shuffle* ( stack shuffle -- newstack )
[ [ load-shuffle ] keep shuffled-values ] with-scope ;
: shuffle ( stack shuffle -- newstack )
[ split-shuffle ] keep shuffle* append ;