{ } 2sequence => 2array

db4
Slava Pestov 2008-07-06 18:11:59 -05:00
parent 3794561f0f
commit 3358e399d7
1 changed files with 2 additions and 2 deletions

View File

@ -4,7 +4,7 @@
! Simple Ctags generator
! Alfredo Beaumont <alfredo.beaumont@gmail.com>
USING: kernel sequences io io.files io.backend
USING: arrays kernel sequences io io.files io.backend
io.encodings.ascii math.parser vocabs definitions
namespaces words sorting ;
IN: ctags
@ -24,7 +24,7 @@ IN: ctags
: (ctags) ( -- seq )
{ } all-words [
dup where [
{ } 2sequence suffix
2array suffix
] [
drop
] if*