\ ============================================================================== \ \ RubyFORTH -- Copyright (C) 2007-8, Marc Simpson (GPL). \ \ HS/FORTH-like Case implementation; derived from J. V. Noble (1993) \ \ ============================================================================== : case: create ] does> + @ execute ; compiler : ;case [compile] ; ; forth ( Usage ==> case: table word1 word2 word3 word4 ;case 0 table )