Author: mdiep Date: Thu Jan 25 15:07:35 2007 New Revision: 16797 Modified: trunk/languages/tcl/src/tclsh.pir
Log: [tcl]: Try this again: fix things on Win32 Modified: trunk/languages/tcl/src/tclsh.pir ============================================================================== --- trunk/languages/tcl/src/tclsh.pir (original) +++ trunk/languages/tcl/src/tclsh.pir Thu Jan 25 15:07:35 2007 @@ -155,7 +155,9 @@ inc $I0 $I2 = $I0 $I1 = ord contents, $I2 - if $I1 != 10 goto backslash_loop # \n + if $I1 == 10 goto space # \n + if $I1 == 13 goto space # \r + goto backslash_loop space: inc $I2 if $I0 >= len goto execute_code
