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

change to in-place reverse.

db4
John Benediktsson 2012-04-24 18:51:46 -07:00
parent 817b45ee03
commit 6f89c1824d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/polynomials/polynomials.factor
View File

@ -36,7 +36,7 @@ ALIAS: n*p n*v
[ drop length [ iota ] keep ] [ drop length [ iota ] keep ]
[ nip <reversed> ] [ nip <reversed> ]
[ drop ] 2tri [ drop ] 2tri
'[ _ _ <slice> _ v* sum ] map reverse ; '[ _ _ <slice> _ v* sum ] map reverse! ;
: p-sq ( p -- p^2 ) dup p* ; inline : p-sq ( p -- p^2 ) dup p* ; inline

2
extra/multi-methods/multi-methods.factor
View File

@ -130,7 +130,7 @@ ERROR: no-method arguments generic ;
: multi-dispatch-quot ( methods generic -- quot ) : multi-dispatch-quot ( methods generic -- quot )
[ make-default-method ] [ make-default-method ]
[ drop [ [ multi-predicate ] dip ] assoc-map reverse ] [ drop [ [ multi-predicate ] dip ] assoc-map reverse! ]
2bi alist>quot ; 2bi alist>quot ;
! Generic words ! Generic words