[openfirmware] [commit] r2188 - forth/lib

repository service svn at openfirmware.info
Thu Apr 14 08:06:40 CEST 2011


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



More information about the openfirmware mailing list