Paste: compress-path seeecratz

Author: dharmatech
Mode: factor
Date: Wed, 15 Oct 2008 05:09:25
Plain Text |
:: compress-path ( SRC TBL -- dst )
   SRC TBL at -> DST [
     SRC DST =
       [ SRC ]
       [ DST TBL compress-path -> DST'
           [ DST DST' = [ ] [ DST' SRC TBL set-at ] if DST' ] ]
     if ] ;

New Annotation

Summary:
Author:
Mode:
Body: