pic18/route.ss
#lang planet zwizwa/staapl/pic18
\ -*- forth -*-
provide-all

: _route/e              \ clip to last
    min
: _route 
    rot<< dup TOSL +!	\ can use rot since LSB is ignored..
    1 and TOSH ++! ;	\ ..which enables us to use it here

macro
: route
    _route        \ proper call
    sym label: ;  \ avoids optimization into tail call
forth