Paste: shuffle->locals

Author: prunedtree
Mode: factor
Date: Wed, 15 Oct 2008 05:32:30
Plain Text | 
: compress-path' ( source assoc -- destination )
    >cursor swap >>key (compress-path') value>>

:: compress-path' ( source assoc -- destination )
    [let| x [ ] y [ ] z [ ] |
        assoc >cursor x! 
        x source >>key y!
        y (compress-path') z!
        z value>> 
    ]

New Annotation

Summary:
Author:
Mode:
Body: