Small change: use a better idiom

2008-07-08 20:40:37 +02:00 · 2008-07-08 20:40:37 +02:00 · 94a613f688
parent 374d72e953
commit 94a613f688
1 changed files with 1 additions and 1 deletions
--- a/extra/ctags/ctags.factor
+++ b/extra/ctags/ctags.factor
@ -22,7 +22,7 @@ IN: ctags
  { } swap [ ctag suffix ] each ;

 : ctags-write ( seq path -- )
-  >r ctag-strings r> ascii set-file-lines ;
+  [ ctag-strings ] dip ascii set-file-lines ;

 : (ctags) ( -- seq )
  { } all-words [