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

Merge branch 'cleanup' of git://github.com/mrjbq7/factor

db4
Slava Pestov 2011-05-06 20:27:59 -07:00
parent 29d37737bc 1778757fa2
commit d58555d6f5
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -98,7 +98,7 @@ PRIVATE>
MACRO: polyval* ( p -- ) MACRO: polyval* ( p -- )
reverse reverse
[ 1 tail [ \ * swap \ + [ ] 3sequence ] map ] [ rest [ \ * swap \ + [ ] 3sequence ] map ]
[ first \ drop swap [ ] 2sequence ] bi [ first \ drop swap [ ] 2sequence ] bi
prefix \ cleave [ ] 2sequence ; prefix \ cleave [ ] 2sequence ;

2
extra/elf/elf.factor
View File

@ -536,7 +536,7 @@ TYPED:: elf-section-data-by-name ( elf: Elf32/64_Ehdr name: string -- header/f u
elf elf-section-headers :> sections elf elf-section-headers :> sections
elf e_shstrndx>> :> ndx elf e_shstrndx>> :> ndx
elf ndx sections nth elf-section-data >c-ptr :> section-names elf ndx sections nth elf-section-data >c-ptr :> section-names
sections 1 tail [ sections rest [
sh_name>> section-names <displaced-alien> ascii alien>string name = sh_name>> section-names <displaced-alien> ascii alien>string name =
] find nip ] find nip
[ dup elf swap elf-section-data ] [ dup elf swap elf-section-data ]

2
extra/irc/messages/parser/parser.factor
View File

@ -7,7 +7,7 @@ IN: irc.messages.parser
<PRIVATE <PRIVATE
: split-at-first ( seq separators -- before after ) : split-at-first ( seq separators -- before after )
dupd '[ _ member? ] find [ cut 1 tail ] [ swap ] if ; dupd '[ _ member? ] find [ cut rest ] [ swap ] if ;
: split-trailing ( string -- string string/f ) ":" split1 ; : split-trailing ( string -- string string/f ) ":" split1 ;
: remove-heading-: ( seq -- seq ) ":" ?head drop ; : remove-heading-: ( seq -- seq ) ":" ?head drop ;