:: 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 ] ;
Done