Author: quozl Date: Thu Apr 14 08:06:40 2011 New Revision: 2188 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2188
Log: stack effect comment for $case example of use
Modified: forth/lib/strcase.fth
Modified: forth/lib/strcase.fth ============================================================================== --- forth/lib/strcase.fth Thu Apr 14 00:03:26 2011 (r2187) +++ forth/lib/strcase.fth Thu Apr 14 08:06:40 2011 (r2188) @@ -9,7 +9,7 @@ \ " abc" $of ." The string starts with abc" $endof \ " xyz" $of ." Oh, it's an xyz string" $endof \ ( $ ) ." **** It was " 2dup type -\ $endcase +\ $endcase ( $ )
\ The default clause is optional. \ When an $of clause is executed, the remaining selector string (past