\ ==============================================================================
\ 
\ 	RubyFORTH -- Copyright (C) 2007-8, Marc Simpson (GPL). 
\ 
\       Make normal words relocatable, preserving their functionality.
\ 
\ ==============================================================================

: relocatable: ( "word" -- )
    peek-word ' swap
    ( xt word$ -- )
    make , does> @ execute ;

( Usage ==> relocatable: aWord )