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

flip word tweak

slava 2006-10-26 04:07:39 +00:00
parent 7ce12846cb
commit 5ead538e90
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/collections/sequences-epilogue.factor
View File

@ -105,8 +105,8 @@ M: object like drop ;
: flip ( matrix -- newmatrix ) : flip ( matrix -- newmatrix )
dup empty? [ dup empty? [
dup first [ length ] keep like dup first [ length [ <column> dup like ] map-with ] keep
[ <column> dup like ] map-with like
] unless ; ] unless ;
: unpair ( assoc -- keys values ) : unpair ( assoc -- keys values )