Paste: remove-matches

Author: tgunr
Mode: factor
Date: Wed, 7 Dec 2011 11:05:03
Plain Text | 
:: remove-matches ( seq1 seq2 -- seq2' )
    [ swap member? not ] with filter 
    ;

:: do-appsupport ( folder -- )
    folder full-path folder-entries
    [ name>> ] map 
    "~/Library/Application\ Support" expandingTildeInPath cd
    [ cwd "/" append prepend ] map  
    [ move-if-exists ] filter
    break
    [ file-name ] map
    folder full-path folder-entries remove-matches
    [ link-entry ] each
    ;

Annotation: now

Author: tgunr
Mode: factor
Date: Wed, 7 Dec 2011 11:40:09
Plain Text | 
:: do-appsupport ( folder -- )
    folder full-path folder-entries
    [ name>> ] map 
    "~/Library/Application\ Support" expandingTildeInPath cd
    [ cwd "/" append prepend ] map  
    [ move-if-exists ] filter
    [ file-name ] map
    folder full-path folder-entries remove-matches
    [ link-entry ] each
    ;

New Annotation

Summary:
Author:
Mode:
Body: