Merge branch 'master' of git://factorcode.org/git/factor
commit
eb5710e009
|
@ -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
|
||||
|
|
|
@ -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, ;
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue