Paste: load-vocab-children

Author: mnestic
Mode: factor
Date: Thu, 6 Nov 2008 20:08:07
Plain Text | 
: load-vocab-children ( name -- ) 
    [ require ] [ all-child-vocabs-seq ] bi
    dup empty? [ drop ] [ [ load-vocab-children ] each ] if ;

Annotation: unless-empty version

Author: mnestic
Mode: factor
Date: Thu, 6 Nov 2008 20:14:18
Plain Text | 
: load-vocab-children ( name -- ) 
    [ require ] [ all-child-vocabs-seq ] bi
    [ [ load-vocab-children ] each ] unless-empty ;

New Annotation

Summary:
Author:
Mode:
Body: