darcs
slava 2006-07-14 05:00:59 +00:00
parent 45b877becc
commit dbd8ca737a
3 changed files with 5 additions and 1 deletions

View File

@ -16,6 +16,7 @@
+ ui: + ui:
- x11 copy to clipboard
- finish gui stepper - finish gui stepper
- windows are not updated while resizing - windows are not updated while resizing
- graphical module manager tool - graphical module manager tool
@ -72,6 +73,7 @@
+ misc: + misc:
- consider: swap tail --> tail, swap head --> head
- mach_signal: fault address reporting is not reliable - mach_signal: fault address reporting is not reliable
- slice: if sequence or seq start is changed, abstraction violation - slice: if sequence or seq start is changed, abstraction violation
- hashed generic method dispatch - hashed generic method dispatch

View File

@ -203,7 +203,6 @@ sequences vectors words ;
"/library/ui/ui.factor" "/library/ui/ui.factor"
"/library/ui/gadgets/presentations.factor" "/library/ui/gadgets/presentations.factor"
"/library/ui/tools/listener.factor" "/library/ui/tools/listener.factor"
"/library/ui/tools/walker.factor"
"/library/ui/tools/search.factor" "/library/ui/tools/search.factor"
"/library/ui/tools/browser.factor" "/library/ui/tools/browser.factor"
"/library/ui/tools/help.factor" "/library/ui/tools/help.factor"

View File

@ -69,6 +69,9 @@ IN: sequences
[ [ swap change-nth ] 3keep ] repeat 2drop ; [ [ swap change-nth ] 3keep ] repeat 2drop ;
inline inline
: inject-with ( obj seq quot -- | quot: obj elt -- elt )
swap [ with rot ] inject 2drop ; inline
: min-length ( seq seq -- n ) : min-length ( seq seq -- n )
[ length ] 2apply min ; [ length ] 2apply min ;