Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
\ ============================================================================== \ \ 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 )