Author: particle
Date: Thu Oct 6 07:56:29 2005
New Revision: 9368
Modified:
trunk/languages/tcl/lib/builtins/break.pir
trunk/languages/tcl/lib/builtins/continue.pir
Log:
tcl: string escaping & heredocs in [break] and [continue]
Modified: trunk/languages/tcl/lib/builtins/break.pir
==============================================================================
--- trunk/languages/tcl/lib/builtins/break.pir (original)
+++ trunk/languages/tcl/lib/builtins/break.pir Thu Oct 6 07:56:29 2005
@@ -15,7 +15,7 @@
badargs:
pir_code =<<"END_PIR"
-.throw(\"wrong # args: should be \\\"break\\\"\")
+.throw('wrong # args: should be "break"')
END_PIR
.return(register_num,pir_code)
Modified: trunk/languages/tcl/lib/builtins/continue.pir
==============================================================================
--- trunk/languages/tcl/lib/builtins/continue.pir (original)
+++ trunk/languages/tcl/lib/builtins/continue.pir Thu Oct 6 07:56:29 2005
@@ -15,7 +15,7 @@
badargs:
pir_code =<<"END_PIR"
-.throw(\"wrong # args: should be \\\"continue\\\"\")
+.throw('wrong # args: should be "continue"')
END_PIR
.return(register_num,pir_code)
