Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-09-05 20:14:49 -05:00
commit eb5710e009
5 changed files with 6 additions and 7 deletions

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

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, ;

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 ;

View File

@ -161,12 +161,13 @@ SYMBOL: interactive-vocabs
"arrays"
"assocs"
"combinators"
"compiler"
"compiler.errors"
"compiler.units"
"continuations"
"debugger"
"definitions"
"editors"
"generic"
"help"
"inspector"
"io"
@ -174,6 +175,7 @@ SYMBOL: interactive-vocabs
"kernel"
"listener"
"math"
"math.order"
"memory"
"namespaces"
"prettyprint"

View File

@ -763,7 +763,7 @@ PRIVATE>
over [ trim-right-slice ] dip like ; inline
: trim-slice ( seq quot -- slice )
[ trim-left-slice ] [ trim-right-slice ] bi ;
[ trim-left-slice ] [ trim-right-slice ] bi ; inline
: trim ( seq quot -- newseq )
over [ trim-slice ] dip like ; inline