Update references to "1 tail" to use "rest".
parent
d1666854e8
commit
1778757fa2
|
@ -98,7 +98,7 @@ PRIVATE>
|
|||
|
||||
MACRO: polyval* ( p -- )
|
||||
reverse
|
||||
[ 1 tail [ \ * swap \ + [ ] 3sequence ] map ]
|
||||
[ rest [ \ * swap \ + [ ] 3sequence ] map ]
|
||||
[ first \ drop swap [ ] 2sequence ] bi
|
||||
prefix \ cleave [ ] 2sequence ;
|
||||
|
||||
|
|
|
@ -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 e_shstrndx>> :> ndx
|
||||
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 =
|
||||
] find nip
|
||||
[ dup elf swap elf-section-data ]
|
||||
|
|
|
@ -7,7 +7,7 @@ IN: irc.messages.parser
|
|||
|
||||
<PRIVATE
|
||||
: 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 ;
|
||||
: remove-heading-: ( seq -- seq ) ":" ?head drop ;
|
||||
|
|
Loading…
Reference in New Issue