[commit] r1737 - forth/lib

[repository service]

Author: wmb
Date: Sat Feb 13 06:48:48 2010
New Revision: 1737
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1737

Log:
sprintf - fixed egregious bug in the handling of backslash escapes.

Modified:
   forth/lib/printf.fth

Modified: forth/lib/printf.fth
==============================================================================
--- forth/lib/printf.fth	Sat Feb 13 06:48:07 2010	(r1736)
+++ forth/lib/printf.fth	Sat Feb 13 06:48:48 2010	(r1737)
@@ -38,13 +38,13 @@
 : replace\  ( ... tail$ -- ... tail$' )   \ Handle backslash escapes
    1/string              ( ... tail$ char )
    case
-      [char] n  of  newline   +spchar  then
-      [char] r  of  carret    +spchar  then
-      [char] t  of  control i +spchar  then
-      [char] f  of  control l +spchar  then
-      [char] l  of  linefeed  +spchar  then
-      [char] b  of  control h +spchar  then
-      [char] !  of  bell      +spchar  then
+      [char] n  of  newline   +spchar  endof
+      [char] r  of  carret    +spchar  endof
+      [char] t  of  control i +spchar  endof
+      [char] f  of  control l +spchar  endof
+      [char] l  of  linefeed  +spchar  endof
+      [char] b  of  control h +spchar  endof
+      [char] !  of  bell      +spchar  endof
       ( default ) dup +spchar
    endcase
 ;