6 lines
119 B
Factor
6 lines
119 B
Factor
|
|
||
|
|
USING: kernel generic sequences ;
|
||
|
|
|
||
|
|
IN: generic.lib
|
||
|
|
|
||
|
|
: chain ( seq -- object ) unclip swap [ tuck set-delegate ] each ;
|